From e24cdc8732807e937c64d5f574d1d063f5b23298 Mon Sep 17 00:00:00 2001 From: skalogryz Date: Sat, 13 Aug 2016 21:33:47 +0000 Subject: [PATCH] richmemo: fix in default color selection git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5089 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/richmemo/win32/win32richmemo.pas | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/components/richmemo/win32/win32richmemo.pas b/components/richmemo/win32/win32richmemo.pas index 5576ba3b0..c14663419 100644 --- a/components/richmemo/win32/win32richmemo.pas +++ b/components/richmemo/win32/win32richmemo.pas @@ -414,10 +414,15 @@ begin end; class procedure TWin32WSCustomRichMemo.SetColor(const AWinControl: TWinControl); +var + Color: TColor; begin - // this methos is implemented, because Win32RichMemo doesn't use + // this methos is implemented, because Win32RichMemo doesn't use // default LCL WM_PAINT message! - SendMessage(AWinControl.Handle, EM_SETBKGNDCOLOR, 0, ColorToRGB(AWinControl.Color)); + Color := AWinControl.Color; + if Color = clDefault then + Color := AWinControl.GetDefaultColor(dctBrush); + SendMessage(AWinControl.Handle, EM_SETBKGNDCOLOR, 0, ColorToRGB(Color)); end; class procedure TWin32WSCustomRichMemo.SetFont(const AWinControl: TWinControl;