diff --git a/atsynedit/atsynedit.pas b/atsynedit/atsynedit.pas index dbcb84ab..87955ae9 100644 --- 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 index 5a4a524d..30b4994e 100644 --- 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;