paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 03:59:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: cleanup and reformat some code

Browse Source 
git-svn-id: trunk@34422 -
This commit is contained in:
paul 2011-12-26 11:28:08 +00:00
parent e0bf8626c8
commit 8b26db6fb9
1 changed files with 24 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
lcl/interfaces/cocoa/cocoawinapi.inc
View File

@ -1099,49 +1099,46 @@ type
function TCocoaWidgetSet.LineTo(DC: HDC; X, Y: Integer): Boolean;
var
ctx : TCocoaContext;
ctx: TCocoaContext;
begin
ctx:=CheckDC(DC);
Result:=Assigned(ctx);
if not Result then Exit;
ctx.LineTo(x,y);
ctx := CheckDC(DC);
Result := Assigned(ctx);
if Result then
ctx.LineTo(X, Y);
end;
function TCocoaWidgetSet.MoveToEx(DC: HDC; X, Y: Integer; OldPoint: PPoint): Boolean;
var
ctx : TCocoaContext;
ctx: TCocoaContext;
begin
ctx:=CheckDC(DC);
Result:=Assigned(ctx);
if not Result then Exit;
if Assigned(OldPoint) then OldPoint^:=ctx.PenPos;
ctx.MoveTo(x,y);
ctx := CheckDC(DC);
Result := Assigned(ctx);
if Result then
begin
if Assigned(OldPoint) then
OldPoint^ := ctx.PenPos;
ctx.MoveTo(X, Y);
end;
end;
function TCocoaWidgetSet.Polygon(DC: HDC; Points: PPoint; NumPts: Integer; Winding: boolean): boolean;
var
ctx : TCocoaContext;
ctx: TCocoaContext;
begin
ctx:=CheckDC(DC);
Result:=Assigned(ctx) and Assigned(Points) and (NumPts>=2);
if not Result then Exit;
ctx.Polygon(PPointArray(Points)^, NumPts, Winding);
Result:=True;
ctx := CheckDC(DC);
Result := Assigned(ctx) and Assigned(Points) and (NumPts >= 2);
if Result then
ctx.Polygon(PPointArray(Points)^, NumPts, Winding);
end;
function TCocoaWidgetSet.Polyline(DC: HDC; Points: PPoint; NumPts: Integer): boolean;
var
ctx : TCocoaContext;
ctx: TCocoaContext;
begin
ctx:=CheckDC(DC);
Result:=Assigned(ctx) and Assigned(Points) and (NumPts>0);
if not Result then Exit;
ctx.Polyline(PPointArray(Points)^, NumPts);
Result:=True;
ctx := CheckDC(DC);
Result := Assigned(ctx) and Assigned(Points) and (NumPts > 0);
if Result then
ctx.Polyline(PPointArray(Points)^, NumPts);
end;
function TCocoaWidgetSet.PostMessage(Handle: HWND; Msg: Cardinal;