diff options
| author | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2006-12-07 17:23:47 +0000 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2006-12-07 17:23:47 +0000 |
| commit | 76d1326f6363f1f2dbd5661fe6d253834a12ae8a (patch) | |
| tree | a4ec807afaf162c90966ab2caa19edb38bd8409f /gfx/gdi | |
| parent | c548c149f444cd946e35839ce7d681efd3221d16 (diff) | |
| download | fpGUI-76d1326f6363f1f2dbd5661fe6d253834a12ae8a.tar.xz | |
* Replaced the triangle on the scrollbars from a internal image to doing the actual drawing. Also fixed the co-ordinates used for the triangle points - I forgot to transform them.
Diffstat (limited to 'gfx/gdi')
| -rw-r--r-- | gfx/gdi/gfx_gdi.pas | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/gfx/gdi/gfx_gdi.pas b/gfx/gdi/gfx_gdi.pas index 151e90a9..a4edf45e 100644 --- a/gfx/gdi/gfx_gdi.pas +++ b/gfx/gdi/gfx_gdi.pas @@ -611,10 +611,15 @@ end; procedure TGDICanvas.DoFillTriangle(const P1, P2, P3: TPoint); var pts : array[1..3] of windows.TPoint; + pt: TPoint; begin - pts[1].X := P1.X; pts[1].Y := P1.Y; - pts[2].X := P2.X; pts[2].Y := P2.Y; - pts[3].X := P3.X; pts[3].Y := P3.Y; + pt := Transform(P1); + pts[1].X := pt.X; pts[1].Y := pt.Y; + pt := Transform(P2); + pts[2].X := pt.X; pts[2].Y := pt.Y; + pt := Transform(P3); + pts[3].X := pt.X; pts[3].Y := pt.Y; + Windows.Polygon(Handle, pts, 3); end; |