paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-28 23:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added patch from Andrew

Browse Source 
git-svn-id: trunk@2167 -
This commit is contained in:
lazarus 2002-08-17 23:41:04 +00:00
parent afec0db976
commit 0c825a7d38
3 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -2169,7 +2169,7 @@ begin
// and fill only the area after the last visible line.
dc := Canvas.Handle;
{$IFDEF SYN_LAZARUS}
LCLLinux.SetBkColor(dc,ColorToRGB(Canvas.Brush.Color));
LCLLinux.SetBkColor(dc,Canvas.Brush.Color);
{$ENDIF}
if fGutter.ShowLineNumbers then begin
fTextDrawer.BeginDrawing(dc);

10
components/synedit/syntextdrawer.pp
View File

@ -918,8 +918,8 @@ begin
Windows.SetBkColor(DC, ColorToRGB(FBkColor));
{$ELSE}
FSavedFont := SelectObject(DC, FCrntFont);
LCLLinux.SetTextColor(DC, ColorToRGB(FColor));
LCLLinux.SetBkColor(DC, ColorToRGB(FBkColor));
LCLLinux.SetTextColor(DC, FColor);
LCLLinux.SetBkColor(DC, FBkColor);
{$ENDIF}
DoSetCharExtra(FCharExtra);
end;
@ -1010,7 +1010,11 @@ begin
begin
FColor := Value;
if FDC <> 0 then
{$IFDEF SYN_LAZARUS}
SetTextColor(FDC, Value);
{$ELSE}
SetTextColor(FDC, ColorToRGB(Value));
{$ENDIF}
end;
end;
@ -1021,7 +1025,7 @@ begin
FBkColor := Value;
if FDC <> 0 then
{$IFDEF SYN_LAZARUS}
LCLLinux.SetBkColor(FDC, ColorToRGB(Value));
LCLLinux.SetBkColor(FDC, Value);
{$ELSE}
Windows.SetBkColor(FDC, ColorToRGB(Value));
{$ENDIF}

5
lcl/include/brush.inc
View File

@ -166,7 +166,7 @@ begin
lbHatch := Ord(FBrushData.Style) - Ord(bsHorizontal);
end;
end;
lbColor := ColorToRGB(FBrushData.Color);
lbColor := FBrushData.Color;
end;
FBrushData.Handle := CreateBrushIndirect(LogBrush);
end;
@ -194,6 +194,9 @@ end;
{ =============================================================================
$Log$
Revision 1.3 2002/09/18 17:07:24 lazarus
MG: added patch from Andrew
Revision 1.2 2002/05/10 06:05:51 lazarus
MG: changed license to LGPL