|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2017/2/25 12:32:06 |
标题: |
XE7 安卓 Form 字体如何调整? |
浏览:1056 |
|
加入我的收藏 |
楼主: |
不管如何调整,Form 画布的字体大小和样式都不变..
----------------------------------------------
http://mcool.appinn.me/ |
作者: |
|
2017/2/25 12:58:10 |
1楼: |
比如:
procedure TForm1.FormPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); var r:TRectF; begin ... Canvas.Font.Style:=[TFontStyle.fsBold]; Canvas.FillText(r,AText,False,1,[],TTextAlign.Center); //这里粗体没效果 ... end;
procedure TForm1.btnPlayPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); var r:TRectF begin ... Canvas.FillText(r,(Sender as TSpeedButton).Text,False,1,[],TTextAlign.Center); //这里反而变成粗体了 ... end;
----------------------------------------------
http://mcool.appinn.me/
|
|