Martijn Laan 2 月之前
父節點
當前提交
11855a6fa9
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      Components/NewStaticText.pas

+ 1 - 1
Components/NewStaticText.pas

@@ -35,8 +35,8 @@ type
     procedure Loaded; override;
     procedure Loaded; override;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     procedure SetAutoSize(Value: Boolean); override;
     procedure SetAutoSize(Value: Boolean); override;
-    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
     procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
     procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
+    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
   public
   public
     constructor Create(AOwner: TComponent); override;
     constructor Create(AOwner: TComponent); override;
     function AdjustHeight: Integer;
     function AdjustHeight: Integer;