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

增加隐藏modal窗口

Browse Source
This commit is contained in:
sgwp 2024-07-22 15:32:40 +08:00
parent 41c4a5933c
commit b1119eed0b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
public10/design/U_WindowFormdesign.pas
View File

@ -85,7 +85,7 @@ begin
if trim(mStyleCode) = '' then if trim(mStyleCode) = '' then
mStyleCode := '01'; mStyleCode := '01';
fFontSize := getSystemFontSize(ADOTmp,PWideChar(mStyleCode)); fFontSize:= getSystemFontSize(ADOTmp,PWideChar(mStyleCode));
if fFontSize <= 9 then if fFontSize <= 9 then
fFontSize := 9; fFontSize := 9;
@ -100,6 +100,8 @@ begin
begin begin
if mForm.Components[i] is Tlabel then if mForm.Components[i] is Tlabel then
begin begin
if mForm.Components[i].Tag<>10 then
Tlabel(mForm.Components[i]).Font.Size:= fFontSize ;
if Tlabel(mForm.Components[i]).Left >= fFontSize then if Tlabel(mForm.Components[i]).Left >= fFontSize then
Tlabel(mForm.Components[i]).Left := Tlabel(mForm.Components[i]).Left - fFontSize; Tlabel(mForm.Components[i]).Left := Tlabel(mForm.Components[i]).Left - fFontSize;
continue; continue;