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

gtk, gtk2: implement GetObject for HPEN

Browse Source 
git-svn-id: trunk@16805 -
This commit is contained in:
paul 2008-09-30 05:23:04 +00:00
parent 063a3f6e16
commit d31a48a9d4
2 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkdef.pp
View File

@ -138,10 +138,10 @@ type
TGDIColorFlags = set of TGDIColorFlag;
TGDIColor = record
ColorRef : TColorRef; //Color passed - can be a SYSCOLOR or RGB
ColorRef: TColorRef; //Color passed - can be a SYSCOLOR or RGB
ColorFlags: TGDIColorFlags;
Color: TGDKColor; //Actual GDK Color(If any) for use with GC's
Colormap : PGDKColormap; //Colormap GDKColor was allocated with
Colormap: PGDKColormap; //Colormap GDKColor was allocated with
end;
PGDIColor = ^TGDIColor;

23
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -5336,10 +5336,8 @@ end;
{------------------------------------------------------------------------------
Function: GetObject
Params: none
Returns: Nothing
Params: GDIObj - handle, BufSize - size of Buf argument, Buf - buffer
Returns: Size of buffer
------------------------------------------------------------------------------}
function TGtkWidgetSet.GetObject(GDIObj: HGDIOBJ; BufSize: Integer; Buf: Pointer): Integer;
function GetObject_Bitmap: Integer;
@ -5472,14 +5470,15 @@ function TGtkWidgetSet.GetObject(GDIObj: HGDIOBJ; BufSize: Integer; Buf: Pointer
var
GDIObject: PGDIObject absolute GDIObj;
ALogPen: PLogPen absolute Buf;
begin
Assert(False, 'trace:[TGtkWidgetSet.GetObject]');
Result := 0;
if not IsValidGDIObject(GDIObj) then Exit;
case GDIObject^.GDIType of
gdiBitmap: Result := GetObject_Bitmap;
gdiBitmap:
Result := GetObject_Bitmap;
gdiBrush:
begin
Assert(False, 'Trace:TODO: [TGtkWidgetSet.GetObject] gdiBrush');
@ -5504,7 +5503,17 @@ begin
end;
gdiPen:
begin
Assert(False, 'Trace:TODO: [TGtkWidgetSet.GetObject] gdiPen');
if Buf = nil then
Result := SizeOf(TLogPen)
else
if BufSize >= SizeOf(TLogPen) then
begin
ALogPen^.lopnColor := GDIObject^.GDIPenColor.ColorRef;
ALogPen^.lopnWidth := Point(GDIObject^.GDIPenWidth, 0);
ALogPen^.lopnStyle := GDIObject^.GDIPenStyle;
end
else
Result := 0;
end;
gdiRegion:
begin