paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 20:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix for fpc 1.0.x, LPPOINT winapi stuff

Browse Source 
git-svn-id: trunk@4991 -
This commit is contained in:
micha 2003-12-30 22:08:48 +00:00
parent 751585c69a
commit e203c89a40
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2168,7 +2168,7 @@ Begin
PFMode := SetPolyFillMode(DC, Windows.WINDING)
else
PFMode := SetPolyFillMode(DC, Windows.ALTERNATE);
Result := Boolean(Windows.Polygon(DC, LPPOINT(Points), NumPts));
Result := Boolean(Windows.Polygon(DC, LPPOINT(Points)^, NumPts));
SetPolyFillMode(DC, PFMode);
End;
@ -2184,7 +2184,7 @@ End;
------------------------------------------------------------------------------}
Function TWin32Object.Polyline(DC: HDC; Points: PPoint; NumPts: Integer): Boolean;
Begin
Result := Boolean(Windows.Polyline(DC, LPPOINT(Points), NumPts));
Result := Boolean(Windows.Polyline(DC, LPPOINT(Points)^, NumPts));
End;
{------------------------------------------------------------------------------
@ -2866,6 +2866,9 @@ end;
{ =============================================================================
$Log$
Revision 1.89 2003/12/30 22:08:48 micha
fix for fpc 1.0.x, LPPOINT winapi stuff
Revision 1.88 2003/12/30 08:38:03 micha
enable selection of checklistbox items (from vincent)