From b1119eed0b9f23be13250816e2bc78870963d2d5 Mon Sep 17 00:00:00 2001
From: sgwp <63001967@qq.com>
Date: Mon, 22 Jul 2024 15:32:40 +0800
Subject: [PATCH] =?UTF-8?q?=E5=A2=9E=E5=8A=A0=E9=9A=90=E8=97=8Fmodal?=
 =?UTF-8?q?=E7=AA=97=E5=8F=A3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 public10/design/U_WindowFormdesign.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/public10/design/U_WindowFormdesign.pas b/public10/design/U_WindowFormdesign.pas
index 92a6dc1..0433328 100644
--- a/public10/design/U_WindowFormdesign.pas
+++ b/public10/design/U_WindowFormdesign.pas
@@ -85,7 +85,7 @@ begin
   if trim(mStyleCode) = '' then
     mStyleCode := '01';
 
- fFontSize := getSystemFontSize(ADOTmp,PWideChar(mStyleCode));
+ fFontSize:= getSystemFontSize(ADOTmp,PWideChar(mStyleCode));
   if fFontSize <= 9 then
     fFontSize := 9;
 
@@ -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;