diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-10-05 21:47:13 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-10-05 21:47:13 +0000 |
commit | 8571f99a9f8e21d8e96999da505f9139621943b1 (patch) | |
tree | ef609a9c392b0d27eee20989fe9d30114acff0d3 /src/corelib/gdi/fpg_gdi.pas | |
parent | ff87ebe7afdf27042b7963ca04246963adbdcaab (diff) | |
download | fpGUI-8571f99a9f8e21d8e96999da505f9139621943b1.tar.xz |
* Added a new Canvas.DrawPolygon() method
* Added a new unit fpg_extgraphics.pas with extensive shape drawing methods
* Added a new conversion method called fpgRectToRect()
* Replaced the implementation of TfpgStyle.DrawDirectionArrow to use the
new fpg_extgraphics.PaintTriangle() method instead.
* Adjusted ComboBox painting of internal button to accomodate the new
fpg_extgraphics unit.
* Added Jean-Marc's new fpg_spinedit unit.
* Made some further improvements and minor fixes to the SpinEdit
and SpinEditFloat components.
* renamed the fpdoc file fpgfx.xml to fpg_main.xml as per the new unit names.
Diffstat (limited to 'src/corelib/gdi/fpg_gdi.pas')
-rw-r--r-- | src/corelib/gdi/fpg_gdi.pas | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas index b28e0e3d..49f2fb05 100644 --- a/src/corelib/gdi/fpg_gdi.pas +++ b/src/corelib/gdi/fpg_gdi.pas @@ -87,6 +87,8 @@ type end; + { TfpgCanvasImpl } + TfpgCanvasImpl = class(TfpgCanvasBase) private FDrawing: boolean; @@ -131,6 +133,7 @@ type procedure SetPixel(X, Y: integer; const AValue: TfpgColor); override; procedure DoDrawArc(x, y, w, h: TfpgCoord; a1, a2: Extended); override; procedure DoFillArc(x, y, w, h: TfpgCoord; a1, a2: Extended); override; + procedure DoDrawPolygon(Points: PPoint; NumPts: Integer; Winding: boolean = False); override; property DCHandle: TfpgDCHandle read Fgc; public constructor Create; override; @@ -1679,6 +1682,13 @@ begin {$ENDIF} end; +procedure TfpgCanvasImpl.DoDrawPolygon(Points: PPoint; NumPts: Integer; Winding: boolean); +//var +// pts: array of TPoint; +begin + Windows.Polygon(Fgc, Points, NumPts); +end; + procedure TfpgCanvasImpl.DoPutBufferToScreen(x, y, w, h: TfpgCoord); begin if FBufferBitmap > 0 then |