From c8d20b4daf14ba264693445ef14f86a570ea7c08 Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Fri, 10 Jun 2022 00:51:04 +0800
Subject: [PATCH] =?UTF-8?q?=E7=95=8C=E9=9D=A2=E5=BA=93?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

修正问题
---
 funcext/tvclib/tcontrol.tsf      | 2 +-
 funcext/tvclib/twincontrol.tsf   | 6 +++---
 funcext/tvclib/utslmemo.tsf      | 6 +++---
 funcext/tvclib/utslvclaction.tsf | 2 +-
 funcext/tvclib/utslvclstdctl.tsf | 2 +-
 5 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/funcext/tvclib/tcontrol.tsf b/funcext/tvclib/tcontrol.tsf
index ddd0214..9299a06 100644
--- a/funcext/tvclib/tcontrol.tsf
+++ b/funcext/tvclib/tcontrol.tsf
@@ -1424,7 +1424,7 @@ type tcontrol = class(tcomponent)
             try
                 Dispatch(self(true),TheMessage);
             finally
-                excludestate(FControlFlags,cfProcessingWMPaint);
+                excludestate(FControlFlags,cfProcessingWMPaint);            
             end;
         end else
         begin
diff --git a/funcext/tvclib/twincontrol.tsf b/funcext/tvclib/twincontrol.tsf
index 7f09645..b4a6adf 100644
--- a/funcext/tvclib/twincontrol.tsf
+++ b/funcext/tvclib/twincontrol.tsf
@@ -1263,7 +1263,7 @@ type TWinControl = class(tcontrol)
             finally
                 _wapi.ReleaseDC(hd,dc);
                 e.wparam := 0;
-                e.skip := true;
+                e.skip := true;            
             end
 {$endif}
         end
@@ -1374,13 +1374,13 @@ type TWinControl = class(tcontrol)
                         _wapi.SetViewportOrgEx(TheMessage.wparam,c[0],c[1],nil); //»Ö¸´»ù×¼µã
                     finally
                         _wapi.SelectClipRgn(TheMessage.wparam,bkrg); //»Ö¸´ÇøÓò
-                        _wapi.DeleteObject(rgb); //Ïú»ÙÇøÓò
+                        _wapi.DeleteObject(rgb); //Ïú»ÙÇøÓò                    
                     end;
                 end
             end
         finally
             _wapi.DeleteObject(rga);
-            _wapi.DeleteObject(rgc);
+            _wapi.DeleteObject(rgc);            
         end;
     end
     procedure PaintWindow(DC:HDC);virtual;
diff --git a/funcext/tvclib/utslmemo.tsf b/funcext/tvclib/utslmemo.tsf
index 63b24fc..dfdc24f 100644
--- a/funcext/tvclib/utslmemo.tsf
+++ b/funcext/tvclib/utslmemo.tsf
@@ -1482,7 +1482,7 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd)
                 end
             end
         finally
-            DecPaintLock();
+            DecPaintLock();        
         end;
     end
     function MoveCaretAndSelection(p1,p2,sel);
@@ -1918,7 +1918,7 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd)
                 TopLine := fCaretY;
             end
         finally
-            DecPaintLock();
+            DecPaintLock();        
         end;
     end
     function GetCaretXY();
@@ -1953,7 +1953,7 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd)
                 end
                 EnsureCursorPosVisible();
             finally
-                DecPaintLock();
+                DecPaintLock();            
             end;
             if docc then DoCaretPosChanged();
         end
diff --git a/funcext/tvclib/utslvclaction.tsf b/funcext/tvclib/utslvclaction.tsf
index f3ed799..c3e0ac5 100644
--- a/funcext/tvclib/utslvclaction.tsf
+++ b/funcext/tvclib/utslvclaction.tsf
@@ -403,7 +403,7 @@ type TBasicActionLink=class(TSLUIBASE)
         try
             r := FAction.Execute();
         finally
-            FAction.ActionComponent := nil;
+            FAction.ActionComponent := nil;        
         end;
         return r;
     end
diff --git a/funcext/tvclib/utslvclstdctl.tsf b/funcext/tvclib/utslvclstdctl.tsf
index a16df1a..b65ed63 100644
--- a/funcext/tvclib/utslvclstdctl.tsf
+++ b/funcext/tvclib/utslvclstdctl.tsf
@@ -4387,7 +4387,7 @@ type TCustomSpinEdit = class(TCustomControl)
             end
         end;
     end
-    type TSpinCEdit=class(tedit)
+    type TSpinCEdit=class(tcustomedit)
         function create(AOwner);override;
         begin
             inherited;