procedure TForm1.Btn_TTExt_SizeClick(Sender: TObject); var LObj : TFmxObject; LNewSize: single; begin LObj := nil; for var C in Label1.Children do if (C is TText) then LObj := TText(C); // if (LObj <> nil) then begin if LIncriseSize then LNewSize := +1 else LNewSize := -1; // // TText(LObj).Font.Size := TText(LObj).Font.Size + LNewSize; TText(LObj).TextSettings.Font.Size := TText(LObj).TextSettings.Font.Size + LNewSize;
if (TText(LObj).TextSettings.Font.Style = [TFontStyle.fsBold]) then TText(LObj).TextSettings.Font.Style := [] else TText(LObj).TextSettings.Font.Style := [TFontStyle.fsBold]; end; end;
procedure TForm1.Button1Click(Sender: TObject); begin LIncriseSize := not LIncriseSize; end;
此帖子包含附件: 大小:108.3K
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3