Changeset 464 for trunk/Packages/CevoComponents/BaseWin.pas

Timestamp:

Nov 29, 2023, 6:25:22 PM (6 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Packages/CevoComponents/BaseWin.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/BaseWin.pas

@@ -35 +35 @@
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormDeactivate(Sender: TObject);
-    procedure SmartUpdateContent(ImmUpdate: Boolean = False);
-    procedure StayOnTop_Workaround;
+    procedure SmartUpdateContent(ImmediateUpdate: Boolean = False);
     property WindowMode: TWindowMode read FWindowMode;
   end;
@@ -214 +213 @@
 end;
 
-procedure TBufferedDrawDlg.SmartUpdateContent(ImmUpdate: Boolean);
+procedure TBufferedDrawDlg.SmartUpdateContent(ImmediateUpdate: Boolean);
 begin
   if Visible then begin
     OffscreenPaint;
     SmartInvalidate;
-    if ImmUpdate then
+    if ImmediateUpdate then
       Update;
   end;
@@ -230 +229 @@
   if yMax > UsedOffscreenHeight then
     UsedOffscreenHeight := yMax;
-end;
-
-procedure TBufferedDrawDlg.StayOnTop_Workaround;
-// stayontop doesn't work when window is shown for the first time
-// after application lost focus, so show all stayontop-windows in first turn
-var
-  SaveOnShow, SaveOnPaint: TNotifyEvent;
-begin
-  Top := Screen.Height;
-  SaveOnShow := OnShow;
-  OnShow := nil;
-  SaveOnPaint := OnPaint;
-  OnPaint := nil;
-  FWindowMode := wmNone;
-  Show;
-  Hide;
-  OnShow := SaveOnShow;
-  OnPaint := SaveOnPaint;
 end;