paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 16:27:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

gtk1/2: implement GetSystemMetrics(SM_CXTHUMB/SM_CYTHUMB)

Browse Source 
git-svn-id: trunk@12753 -
This commit is contained in:
paul 2007-11-06 09:11:58 +00:00
parent a4143985e3
commit fd746ab2f9
2 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk/gtk1extrah.inc
View File

@ -55,6 +55,8 @@ function g_signal_connect_after(anObject: PGtkObject; name: Pgchar;
cdecl; external gtkdll name 'gtk_signal_connect_after'; cdecl; external gtkdll name 'gtk_signal_connect_after';
function g_signal_lookup(name: Pgchar; anObject: TGTKType): guint; function g_signal_lookup(name: Pgchar; anObject: TGTKType): guint;
cdecl; external gtkdll name 'gtk_signal_lookup'; cdecl; external gtkdll name 'gtk_signal_lookup';
procedure _gtk_range_get_props(range: PGtkRange; slider_width, trough_border,
stepper_size, stepper_spacing: pgint); cdecl; external gtkdll name '_gtk_range_get_props';
function GDK_GET_CURRENT_DESKTOP(): gint; function GDK_GET_CURRENT_DESKTOP(): gint;
function GDK_WINDOW_GET_DESKTOP(Window: PGdkWindowPrivate): gint; function GDK_WINDOW_GET_DESKTOP(Window: PGdkWindowPrivate): gint;

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

@ -5798,11 +5798,14 @@ end;
function TGtkWidgetSet.GetSystemMetrics(nIndex: Integer): Integer; function TGtkWidgetSet.GetSystemMetrics(nIndex: Integer): Integer;
var var
P: Pointer; P: Pointer;
{$ifdef HasX}
ax,ay,ah,aw: gint; ax,ay,ah,aw: gint;
{$endif}
auw, auh: guint; auw, auh: guint;
{$ifdef GTK2} {$ifdef GTK2}
screen: PGdkScreen; screen: PGdkScreen;
ARect: TGdkRectangle; ARect: TGdkRectangle;
AValue: TGValue;
{$else} {$else}
{$ifdef HasX} {$ifdef HasX}
XDisplay: PDisplay; XDisplay: PDisplay;
@ -5908,9 +5911,21 @@ begin
if P <> nil then if P <> nil then
Result := GTK_Widget(P)^.requisition.Height; Result := GTK_Widget(P)^.requisition.Height;
end; end;
SM_CXHTHUMB: SM_CXHTHUMB,
SM_CYVTHUMB:
begin begin
Assert(False, 'Trace:TODO: [TGtkWidgetSet.GetSystemMetrics] --> SM_CXHTHUMB '); P := GetStyleWidget(lgsHorizontalScrollbar);
if P <> nil then
begin
{$ifdef gtk1}
_gtk_range_get_props(P, nil, nil, @Result, nil);
{$else}
FillChar(AValue, SizeOf(AValue), 0);
g_value_init(@AValue, G_TYPE_INT);
gtk_widget_style_get_property(P, 'slider-width', @AValue);
Result := AValue.data[0].v_int;
{$endif}
end;
end; end;
SM_CXICON: SM_CXICON:
begin begin
@ -6100,10 +6115,6 @@ begin
begin begin
Assert(False, 'Trace:TODO: [TGtkWidgetSet.GetSystemMetrics] --> SM_CYSMCAPTION '); Assert(False, 'Trace:TODO: [TGtkWidgetSet.GetSystemMetrics] --> SM_CYSMCAPTION ');
end; end;
SM_CYVTHUMB:
begin
Assert(False, 'Trace:TODO: [TGtkWidgetSet.GetSystemMetrics] --> SM_CYVTHUMB ');
end;
SM_DBCSENABLED: SM_DBCSENABLED:
begin begin
Assert(False, 'Trace:TODO: [TGtkWidgetSet.GetSystemMetrics] --> SM_DBCSENABLED '); Assert(False, 'Trace:TODO: [TGtkWidgetSet.GetSystemMetrics] --> SM_DBCSENABLED ');
@ -9793,4 +9804,3 @@ end;
{$C-} {$C-}
{$EndIf} {$EndIf}