paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: implemented TCanvas.DoPolyBezier

Browse Source 
git-svn-id: trunk@40530 -
This commit is contained in:
mattias 2013-03-12 00:43:26 +00:00
parent 805036a7ba
commit c86922a811
2 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/graphics.pp
View File

@ -1104,6 +1104,9 @@ type
procedure DoPolygonFill(const Points: array of TPoint); override;
procedure DoPolygonAndFill(const Points: array of TPoint); override;
procedure DoPolyline(const Points: array of TPoint); override;
procedure DoPolyBezier(Points: PPoint; NumPts: Integer;
Filled: boolean = False;
Continuous: boolean = False); override;
procedure DoFloodFill(x, y: integer); override;
procedure DoMoveTo(x, y: integer); override;
procedure DoLineTo(x, y: integer); override;

20
lcl/include/canvas.inc
View File

@ -337,7 +337,7 @@ end;
Returns: Nothing
------------------------------------------------------------------------------}
procedure TCanvas.SetRegion(value : TRegion);
procedure TCanvas.SetRegion(Value: TRegion);
begin
FRegion.Assign(Value);
end;
@ -556,6 +556,12 @@ begin
Polyline(Points);
end;
procedure TCanvas.DoPolyBezier(Points: PPoint; NumPts: Integer;
Filled: boolean; Continuous: boolean);
begin
PolyBezier(Points,NumPts,Filled,Continuous);
end;
procedure TCanvas.DoFloodFill(x, y: integer);
begin
FloodFill(x, y, Brush.Color, fsSurface);
@ -680,7 +686,7 @@ end;
between which the Arc is drawn.
------------------------------------------------------------------------------}
procedure TCanvas.Arc(ALeft,ATop,ARight,ABottom,sx,sy,ex,ey : Integer);
procedure TCanvas.Arc(ALeft, ATop, ARight, ABottom, SX, SY, EX, EY: Integer);
begin
Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]);
@ -1181,8 +1187,8 @@ end;
Returns: Nothing
------------------------------------------------------------------------------}
procedure TCanvas.TextRect(const ARect: TRect; X,Y : Integer;
const Text : String);
procedure TCanvas.TextRect(const ARect: TRect; X, Y: integer; const Text: string
);
begin
TextRect(ARect,X,Y,Text,TextStyle);
end;
@ -1193,8 +1199,8 @@ end;
Returns: Nothing
------------------------------------------------------------------------------}
procedure TCanvas.TextRect(ARect: TRect; X, Y : Integer; const Text : String;
const Style : TTextStyle);
procedure TCanvas.TextRect(ARect: TRect; X, Y: integer; const Text: string;
const Style: TTextStyle);
var
Options : Longint;
fRect : TRect;
@ -1526,7 +1532,7 @@ end;
the Arc is draw.
------------------------------------------------------------------------------}
procedure TCanvas.Chord(x1, y1, x2, y2, sx, sy, ex, ey : Integer);
procedure TCanvas.Chord(x1, y1, x2, y2, SX, SY, EX, EY: Integer);
begin
Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]);