mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-03 15:03:48 +02:00
57 lines
2.3 KiB
PHP
57 lines
2.3 KiB
PHP
{%MainUnit gtk1int.pp}
|
|
|
|
{******************************************************************************
|
|
TGtkWidgetSet
|
|
******************************************************************************
|
|
|
|
*****************************************************************************
|
|
* *
|
|
* This file is part of the Lazarus Component Library (LCL) *
|
|
* *
|
|
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
|
|
* for details about the copyright. *
|
|
* *
|
|
* This program is distributed in the hope that it will be useful, *
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
|
* *
|
|
*****************************************************************************
|
|
}
|
|
|
|
{$IFOPT C-}
|
|
// Uncomment for local trace
|
|
// {$C+}
|
|
// {$DEFINE ASSERT_IS_ON}
|
|
{$ENDIF}
|
|
|
|
function TGTK1WidgetSet.GetDeviceContextClass: TGtkDeviceContextClass;
|
|
begin
|
|
Result := TGtk1DeviceContext;
|
|
end;
|
|
|
|
{------------------------------------------------------------------------------
|
|
procedure SetWidgetFont
|
|
AWidget : PGtkWidget; const AFont: TFont
|
|
------------------------------------------------------------------------------}
|
|
procedure TGtk1WidgetSet.SetWidgetFont(const AWidget: PGtkWidget; const AFont: TFont);
|
|
var
|
|
WindowStyle: PGtkStyle;
|
|
FontGdiObject: PGdiObject;
|
|
|
|
begin
|
|
if GtkWidgetIsA(AWidget,GTKAPIWidget_GetType) then
|
|
Exit; // the GTKAPIWidget is self drawn, so no use to change the widget style.
|
|
|
|
if (GTK_WIDGET_REALIZED(AWidget)) then
|
|
WindowStyle := gtk_style_copy(gtk_widget_get_style(AWidget))
|
|
else
|
|
WindowStyle := gtk_style_copy(gtk_rc_get_style(AWidget));
|
|
|
|
if (Windowstyle = nil) then
|
|
Windowstyle := gtk_style_new;
|
|
|
|
FontGdiObject := PGdiObject(AFont.Reference.Handle);
|
|
windowstyle^.font := Pointer(FontGdiObject^.GdiFontObject);
|
|
gtk_widget_set_style(aWidget, windowStyle);
|
|
end;
|