paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 21:39:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

win64: fix compilation

Browse Source 
git-svn-id: trunk@17135 -
This commit is contained in:
paul 2008-10-27 07:43:35 +00:00
parent 92caf0d923
commit 592d0ebfd3
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1328,8 +1328,13 @@ end;
function TWin32WidgetSet.ExtCreatePen(dwPenStyle, dwWidth: DWord;
const lplb: TLogBrush; dwStyleCount: DWord; lpStyle: PDWord): HPEN;
var
LB: Windows.LogBrush;
begin
Result := Windows.ExtCreatePen(dwPenStyle, dwWidth, Windows.TLOGBRUSH(lplb), dwStyleCount, lpStyle);
LB.lbStyle := lplb.lbStyle;
LB.lbColor := Windows.COLORREF(ColorToRGB(lplb.lbColor));
LB.lbHatch := lplb.lbHatch;
Result := Windows.ExtCreatePen(dwPenStyle, dwWidth, LB, dwStyleCount, lpStyle);
end;
{------------------------------------------------------------------------------