paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 21:59:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: another bunch of TColorRef <-> TColor conversion

Browse Source 
git-svn-id: trunk@29715 -
This commit is contained in:
paul 2011-03-03 09:19:34 +00:00
parent e91ed950f3
commit 0677e4c2b9
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/imglist.inc
View File

@ -1199,10 +1199,10 @@ begin
//DebugLn('NewHeight=',FHeight);
FBKColor := TColor(ReadLRSInteger(AStream));
// corrent colors - they are stored in windows values
if FBKColor = CLR_NONE then
if TColorRef(FBKColor) = CLR_NONE then
FBKColor := clNone
else
if FBKColor = CLR_DEFAULT then
if TColorRef(FBKColor) = CLR_DEFAULT then
FBKColor := clDefault;
HasMask := (ReadLRSWord(AStream) and 1) = 1;
AStream.ReadDWord; //Skip ?

2
lcl/interfaces/win32/win32winapi.inc
View File

@ -776,7 +776,7 @@ var
LB: Windows.LogBrush;
begin
LB.lbStyle := LogBrush.lbStyle;
LB.lbColor := Windows.COLORREF(ColorToRGB(LogBrush.lbColor));
LB.lbColor := Windows.COLORREF(ColorToRGB(TColor(LogBrush.lbColor)));
LB.lbHatch := LogBrush.lbHatch;
Assert(False, Format('Trace:> [TWin32WidgetSet.CreateBrushIndirect] Style: %d, Color: %8x', [lb.lbStyle, lb.lbColor]));
Result := Windows.CreateBrushIndirect(LB);