better fix flicker with white, on app start

Alexey-T · Dec 20, 2024 · 07c7cda · 07c7cda
1 parent 17525a9
commit 07c7cda
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/atsynedit/atsynedit.pas b/atsynedit/atsynedit.pas
@@ -6314,6 +6314,7 @@ procedure TATSynEdit.Paint;
     PaintEx(NLine);
   finally
     FPaintWorking:= false;
+    ATEditorOptions.EditorWasPaintedOnce:= true;
   end;
 
   if TATEditorInternalFlag.ScrollEventNeeded in FPaintFlags then
@@ -6481,7 +6482,7 @@ procedure TATSynEdit.WMEraseBkgnd(var Msg: TLMEraseBkgnd);
 begin
   //to avoid flickering with white on app startup
   {$ifdef windows}
-  if Msg.DC<>0 then
+  if (not ATEditorOptions.EditorWasPaintedOnce) and (Msg.DC<>0) then
   begin
     Brush.Color:= Colors.TextBG;
     R.Left:= 0;

diff --git a/atsynedit/atsynedit_globals.pas b/atsynedit/atsynedit_globals.pas
@@ -153,6 +153,7 @@   TATEditorOptions = record
     HintBookmarkDy: integer;
     HintBookmarkMaxWidth: integer;
     UrlMarkerTag: integer;
+    EditorWasPaintedOnce: boolean;
 
     //UI strings
     TextHintScrollPrefix: string;