paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 08:57:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

Starts implementing CreateRoundRectRgn in gtk2

Browse Source 
git-svn-id: trunk@31811 -
This commit is contained in:
sekelsenmat 2011-07-27 15:24:43 +00:00
parent 9eebf93b31
commit 4204c772ba
2 changed files with 68 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -1730,6 +1730,72 @@ begin
//DebugLn('TGtk2WidgetSet.CreateRectRgn A ',GDKRegionAsString(RegionObj));
end;
{
Gdk has no native function for this, so we need to improvise by aproximating
the RoundRect to a Polygon:
______<--- Top bar
/ \
| |<--- Right bar
\______/<--- Bottom-Right Corner
}
function TGtk2WidgetSet.CreateRoundRectRgn(X1, Y1, X2, Y2, nWidthEllipse, nHeightEllipse: Integer): HRGN;
var
points: array[0..15] of TGdkPoint;
n_points: Integer = 16;
GObject: PGdiObject;
RegionObj: PGdkRegion;
begin
// Top bar
points[0].x := X1 + nWidthEllipse;
points[0].y := Y1;
points[1].x := X2 - nWidthEllipse;
points[1].y := Y1;
// Right-Top Rounding
points[2].x := X2 - nWidthEllipse div 2;
points[2].y := Y1 + nHeightEllipse div 5;
points[3].x := X2 - nWidthEllipse div 5;
points[3].y := Y1 + nHeightEllipse div 2;
// Right bar
points[4].x := X2;
points[4].y := Y1 + nHeightEllipse;
points[5].x := X2;
points[5].y := Y2 - nHeightEllipse;
// Right-Bottom Rounding
points[6].x := X2 - nWidthEllipse div 5;
points[6].y := Y2 - nHeightEllipse div 2;
points[7].x := X1 - nWidthEllipse div 2;
points[7].y := Y2 - nHeightEllipse div 5;
// Bottom bar
points[8].x := X2 - nWidthEllipse;
points[8].y := Y2;
points[9].x := X1 + nWidthEllipse;
points[9].y := Y2;
// Bottom-Left Rounding
points[10].x := X1 + nWidthEllipse div 2;
points[10].y := Y2 - nHeightEllipse div 5;
points[11].x := X1 + nWidthEllipse div 5;
points[11].y := Y2 - nHeightEllipse div 2;
// Left bar
points[12].x := X1;
points[12].y := Y2 - nHeightEllipse;
points[13].x := X1;
points[13].y := Y1 + nHeightEllipse;
// Left-Top Rounding
points[14].x := X1 + nWidthEllipse div 5;
points[14].y := Y1 + nHeightEllipse div 2;
points[15].x := X1 + nWidthEllipse div 2;
points[15].y := Y1 + nHeightEllipse div 5;
GObject := NewGDIObject(gdiRegion);
RegionObj := gdk2.gdk_region_polygon(@points[0], n_points, GDK_WINDING_RULE);
GObject^.GDIRegionObject := RegionObj;
Result := HRGN(PtrUInt(GObject));
//DebugLn('TGtk2WidgetSet.CreateRectRgn A ',GDKRegionAsString(RegionObj));
end;
{------------------------------------------------------------------------------
Function: CombineRgn
Params: Dest, Src1, Src2, fnCombineMode

2
lcl/interfaces/gtk2/gtk2winapih.inc
View File

@ -62,6 +62,7 @@ function CreateBrushIndirect(const LogBrush: TLogBrush): HBRUSH; override;
function CreateCaret(Handle : HWND; Bitmap : hBitmap; width, Height : Integer) : Boolean; override;
function CreateCompatibleBitmap(DC: HDC; Width, Height: Integer): HBITMAP; override;
function CreateCompatibleDC(DC: HDC): HDC; override;
//function CreateEllipticRgn(p1, p2, p3, p4: Integer): HRGN; override;
function CreateFontIndirect(const LogFont: TLogFont): HFONT; override;
function CreateFontIndirectEx(const LogFont: TLogFont; const LongFontName: string): HFONT; override;
function CreateIconIndirect(IconInfo: PIconInfo): HICON; override;
@ -69,6 +70,7 @@ function CreatePalette(const LogPalette: TLogPalette): HPALETTE; override;
function CreatePenIndirect(const LogPen: TLogPen): HPEN; override;
function CreatePolygonRgn(Points: PPoint; NumPts: Integer; FillMode: integer): HRGN; override;
function CreateRectRgn(X1,Y1,X2,Y2 : Integer): HRGN; override;
function CreateRoundRectRgn(X1, Y1, X2, Y2, nWidthEllipse, nHeightEllipse: Integer): HRGN; override;
procedure DeleteCriticalSection(var CritSection: TCriticalSection); override;
function DeleteDC(hDC: HDC): Boolean; override;