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

lcl: formatting

Browse Source 
git-svn-id: trunk@20035 -
This commit is contained in:
paul 2009-05-19 03:30:36 +00:00
parent 9067fc5cdb
commit 59813c403f
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/include/canvas.inc
View File

@ -797,21 +797,21 @@ procedure TCanvas.Polygon(const Points: array of TPoint; Winding: Boolean;
var
NPoints: integer;
begin
if NumPts<0 then
NPoints:=High(Points)-StartIndex+1
if NumPts < 0 then
NPoints := High(Points) - StartIndex + 1
else
NPoints:=NumPts;
if NPoints<=0 then exit;
Polygon(@Points[StartIndex],NPoints,Winding);
NPoints := NumPts;
if NPoints <= 0 then Exit;
Polygon(@Points[StartIndex], NPoints, Winding);
end;
procedure TCanvas.Polygon(Points: PPoint; NumPts: Integer;
Winding: boolean = False);
begin
if NumPts<=0 then exit;
if NumPts <= 0 then Exit;
Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]);
LCLIntf.Polygon(FHandle,Points,NumPts,Winding);
LCLIntf.Polygon(FHandle, Points, NumPts, Winding);
Changed;
end;

2
lcl/include/winapi.inc
View File

@ -648,7 +648,7 @@ end;
function Polygon(DC: HDC; Points: PPoint; NumPts: Integer;
Winding: boolean): boolean;
begin
Result := WidgetSet.Polygon(DC,Points,NumPts,Winding);
Result := WidgetSet.Polygon(DC, Points, NumPts, Winding);
end;
function Polyline(DC: HDC; Points: PPoint; NumPts: Integer): boolean;