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

richmemo: fix win32 wrong background color. now using ColorToRGB function

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1138 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2010-01-24 12:45:21 +00:00
parent 6fc6056c5a
commit 3e230c3b5b
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -30,7 +30,7 @@ uses
Classes, SysUtils,
// LCL headers
LCLType, LCLIntf, LCLProc, WSLCLClasses,
Controls, StdCtrls,
Graphics, Controls, StdCtrls,
// Win32WidgetSet
Win32WSControls, Win32Int,
// RichMemo headers
@ -98,7 +98,7 @@ class procedure TWin32WSCustomRichMemo.SetColor(const AWinControl: TWinControl);
begin
// this methos is implemented, because Win32RichMemo doesn't use
// default LCL WM_PAINT message!
SendMessage(AWinControl.Handle, EM_SETBKGNDCOLOR, 0, AWinControl.Color);
SendMessage(AWinControl.Handle, EM_SETBKGNDCOLOR, 0, ColorToRGB(AWinControl.Color));
end;
class procedure TWin32WSCustomRichMemo.SetSelStart(const ACustomEdit: TCustomEdit; NewStart: integer);
@ -127,6 +127,8 @@ var
Params : TCreateWindowExParams;
RichClass : AnsiString;
ACustomMemo : TCustomMemo;
var
SaveInstance: THandle;
begin
InitRichEdit;
RichClass := GetRichEditClass;
@ -144,7 +146,7 @@ begin
with Params do
begin
Flags := Flags or ES_AUTOVSCROLL or ES_MULTILINE or ES_WANTRETURN;
if ACustomMemo.ReadOnly then
Flags := Flags or ES_READONLY;
Flags := Flags or AlignmentToEditFlags[ACustomMemo.Alignment];