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

2
public10/design/U_WindowFormdesign.pas
View File

@ -100,6 +100,8 @@ begin
begin
if mForm.Components[i] is Tlabel then
begin
if mForm.Components[i].Tag<>10 then
Tlabel(mForm.Components[i]).Font.Size:= fFontSize ;
if Tlabel(mForm.Components[i]).Left >= fFontSize then
Tlabel(mForm.Components[i]).Left := Tlabel(mForm.Components[i]).Left - fFontSize;
continue;