* GDI: Final fixes to Line and Rectangle drawing. This rectangle change is more optimized than before.

1 files changed, 5 insertions, 4 deletions

diff --git a/prototypes/fpgui2/source/core/gdi/gfx_gdi.pas b/prototypes/fpgui2/source/core/gdi/gfx_gdi.pas
index ba991fca..a30f343c 100644
--- a/prototypes/fpgui2/source/core/gdi/gfx_gdi.pas
+++ b/prototypes/fpgui2/source/core/gdi/gfx_gdi.pas
@@ -1075,10 +1075,11 @@ end;
 
 procedure TfpgCanvasImpl.DoDrawRectangle(x, y, w, h: TfpgCoord);
 begin
-  DoDrawLine(x, y, x+w-1, y); // top
-  DoDrawLine(x+w-1, y, x+w-1, y+h-1); // right
-  DoDrawLine(x, y+h-1, x+w-1, y+h-1); // bottom
-  DoDrawLine(x, y, x, y+h-1); // left
+  Windows.MoveToEx(Fgc, x, y, nil);
+  Windows.LineTo(Fgc, x+w-1, y);
+  Windows.LineTo(Fgc, x+w-1, y+h-1);
+  Windows.LineTo(Fgc, x, y+h-1);
+  Windows.LineTo(Fgc, x, y);
 end;
 
 procedure TfpgCanvasImpl.DoDrawString(x, y: TfpgCoord; const txt: string);