rtgit/RtTool
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

修改 继承字体大小初始化

Browse Source
This commit is contained in:
sgwp 2025-02-12 10:18:51 +08:00
parent 5eb4a4260e
commit 3d868141ac
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Delphi10/开发档案/Dp10RepoV1/public10/design/U_FormLayOutDesign.pas
View File

@ -102,13 +102,9 @@ begin
open; open;
DServerDate := fieldByName('dt').AsDatetime; DServerDate := fieldByName('dt').AsDatetime;
end; end;
// gFontSize:= getSystemFontSize(AdoTmp,PWideChar('01'));
// InitStyleData(StyleRepository,gFontSize);
// for i := 0 to StyleRepository.Count-1 do
// begin
// if gFontSize>=9 then
// TcxStyle( StyleRepository.Items[i] ).Font.Size:=gFontSize;
// end;
result := true; result := true;
end; end;