paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:59:20 +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 DoPolygonFill(const Points: array of TPoint); override;
procedure DoPolygonAndFill(const Points: array of TPoint); override; procedure DoPolygonAndFill(const Points: array of TPoint); override;
procedure DoPolyline(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 DoFloodFill(x, y: integer); override;
procedure DoMoveTo(x, y: integer); override; procedure DoMoveTo(x, y: integer); override;
procedure DoLineTo(x, y: integer); override; procedure DoLineTo(x, y: integer); override;

20
lcl/include/canvas.inc
View File

@ -337,7 +337,7 @@ end;
Returns: Nothing Returns: Nothing
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TCanvas.SetRegion(value : TRegion); procedure TCanvas.SetRegion(Value: TRegion);
begin begin
FRegion.Assign(Value); FRegion.Assign(Value);
end; end;
@ -556,6 +556,12 @@ begin
Polyline(Points); Polyline(Points);
end; 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); procedure TCanvas.DoFloodFill(x, y: integer);
begin begin
FloodFill(x, y, Brush.Color, fsSurface); FloodFill(x, y, Brush.Color, fsSurface);
@ -680,7 +686,7 @@ end;
between which the Arc is drawn. 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 begin
Changing; Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]); RequiredState([csHandleValid, csBrushValid, csPenValid]);
@ -1181,8 +1187,8 @@ end;
Returns: Nothing Returns: Nothing
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TCanvas.TextRect(const ARect: TRect; X,Y : Integer; procedure TCanvas.TextRect(const ARect: TRect; X, Y: integer; const Text: string
const Text : String); );
begin begin
TextRect(ARect,X,Y,Text,TextStyle); TextRect(ARect,X,Y,Text,TextStyle);
end; end;
@ -1193,8 +1199,8 @@ end;
Returns: Nothing Returns: Nothing
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TCanvas.TextRect(ARect: TRect; X, Y : Integer; const Text : String; procedure TCanvas.TextRect(ARect: TRect; X, Y: integer; const Text: string;
const Style : TTextStyle); const Style: TTextStyle);
var var
Options : Longint; Options : Longint;
fRect : TRect; fRect : TRect;
@ -1526,7 +1532,7 @@ end;
the Arc is draw. 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 begin
Changing; Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]); RequiredState([csHandleValid, csBrushValid, csPenValid]);