pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: fix in default color selection

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5089 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2016-08-13 21:33:47 +00:00
parent 1ccaf81a5b
commit e24cdc8732
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/richmemo/win32/win32richmemo.pas
View File

@@ -414,10 +414,15 @@ begin
end; end;
class procedure TWin32WSCustomRichMemo.SetColor(const AWinControl: TWinControl); class procedure TWin32WSCustomRichMemo.SetColor(const AWinControl: TWinControl);
var
Color: TColor;
begin begin
// this methos is implemented, because Win32RichMemo doesn't use // this methos is implemented, because Win32RichMemo doesn't use
// default LCL WM_PAINT message! // 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; end;
class procedure TWin32WSCustomRichMemo.SetFont(const AWinControl: TWinControl; class procedure TWin32WSCustomRichMemo.SetFont(const AWinControl: TWinControl;