From 73f141bcdd4805267a19f89e690880ba048cd0b7 Mon Sep 17 00:00:00 2001 From: micha Date: Sat, 7 Jan 2006 19:01:40 +0000 Subject: [PATCH] override and implement RoundRect (from martin smat) git-svn-id: trunk@8466 - --- lcl/interfaces/win32/win32winapi.inc | 13 +++++++++++++ lcl/interfaces/win32/win32winapih.inc | 1 + 2 files changed, 14 insertions(+) diff --git a/lcl/interfaces/win32/win32winapi.inc b/lcl/interfaces/win32/win32winapi.inc index ce89f6e5bd..fadab0f560 100644 --- a/lcl/interfaces/win32/win32winapi.inc +++ b/lcl/interfaces/win32/win32winapi.inc @@ -2657,6 +2657,19 @@ Begin Assert(False, Format('Trace:< [TWin32WidgetSet.RestoreDC] DC:0x%x, Saved: %d --> %s', [Integer(DC), SavedDC, BOOL_TEXT[Result]])); End; +{------------------------------------------------------------------------------ + Method: RoundRect + Params: DC, X1, Y1, X2, Y2, RX, RY + Returns: true if succesfull, false otherwise + + Draws a Rectangle with optional rounded corners. RY is the radial height + of the corner arcs, RX is the radial width. + ------------------------------------------------------------------------------} +function TWin32WidgetSet.RoundRect(DC: HDC; X1, Y1, X2, Y2: Integer; RX, RY : Integer): Boolean; +begin + Result := Windows.RoundRect(DC, X1, Y1, X2, Y2, RX, RY); +end; + {------------------------------------------------------------------------------ Method: SaveDC Params: DC - a DC to save diff --git a/lcl/interfaces/win32/win32winapih.inc b/lcl/interfaces/win32/win32winapih.inc index 8daad8cf33..796d471c2d 100644 --- a/lcl/interfaces/win32/win32winapih.inc +++ b/lcl/interfaces/win32/win32winapih.inc @@ -155,6 +155,7 @@ function ReleaseDC(Window: HWND; DC: HDC): Integer; Override; function ReleaseDesignerDC(Window: HWND; DC: HDC): Integer; Override; function RemoveProp(Handle: hwnd; Str: PChar): THandle; override; function RestoreDC(DC: HDC; SavedDC: Integer): Boolean; Override; +function RoundRect(DC: HDC; X1, Y1, X2, Y2: Integer; RX, RY : Integer): Boolean; override; function SaveDC(DC: HDC): Integer; Override; function ScreenToClient(Handle: HWND; Var P: TPoint): Integer; Override;