界面库

修正问题

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

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;

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

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

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;