1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
{
/***************************************************************************
GTK1INT.pp - GTKInterface Object
-------------------
Initial Revision : Thu November 15th CST 2007
***************************************************************************/
*****************************************************************************
This file is part of the Lazarus Component Library (LCL)
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
}
unit Gtk1Int;
{$mode objfpc}{$H+}
interface
{$ifdef Trace}
{$ASSERTIONS ON}
{$endif}
{$I gtkdefines.inc}
uses
{$IFDEF UNIX}
// use unix units first,
// if not, TSize is taken from the unix unit instead of types.
ctypes, baseunix, unix,
{$ENDIF}
{$IFDEF TraceGdiCalls}
LineInfo,
{$ENDIF}
// rtl+fcl
Types, Classes, SysUtils, FPCAdds,
// interfacebase
InterfaceBase,
// gtk
glib, gdk, gtk, gdkpixbuf,
// Target OS specific
{$ifdef HasX}
x, xlib,
{$endif}
Math, // after gtk to get the correct Float type
// LCL
Translations, ExtDlgs, Dialogs, Controls, Forms, LCLStrConsts, LMessages,
LCLProc, LCLIntf, LCLType, DynHashArray, GraphType, GraphMath,
Graphics, Menus, Maps, Themes,
// widgetset
GtkInt,
GtkDebug,
GtkFontCache, GtkDef, Gtk1Def, GtkProc, gtkMsgQueue, GtkExtra, gtkWSPrivate,
WSLCLClasses;
type
{ TGTK1WidgetSet }
TGTK1WidgetSet = class(TGTKWidgetSet)
protected
function GetDeviceContextClass: TGtkDeviceContextClass; override;
public
procedure SetWidgetFont(const AWidget: PGtkWidget; const AFont: TFont); override;
procedure SetLabelCaption(const ALabel: PGtkLabel; const ACaption: String;
const AComponent: TComponent = nil;
const ASignalWidget: PGTKWidget = nil;
const ASignal: PChar = nil); override;
end;
var
GTK1WidgetSet: TGTK1WidgetSet absolute GtkWidgetSet;
implementation
uses
////////////////////////////////////////////////////
// I M P O R T A N T
////////////////////////////////////////////////////
// To get as little as possible circles,
// uncomment only those units with implementation
////////////////////////////////////////////////////
// Gtk1WSActnList,
// Gtk1WSButtons,
// Gtk1WSCalendar,
// Gtk1WSCheckLst,
// Gtk1WSComCtrls,
// Gtk1WSControls,
// Gtk1WSDbCtrls,
// Gtk1WSDBGrids,
// Gtk1WSDialogs,
// Gtk1WSEditBtn,
// Gtk1WSExtCtrls,
// Gtk1WSExtDlgs,
// Gtk1WSFileCtrl,
// Gtk1WSForms,
// Gtk1WSGrids,
// Gtk1WSImgList,
// Gtk1WSMaskEdit,
// Gtk1WSMenus,
// Gtk1WSPairSplitter,
// Gtk1WSSpin,
// Gtk1WSStdCtrls,
// Gtk1WSToolwin,
// Gtk1Themes,
////////////////////////////////////////////////////
StdCtrls,
GTKWinApiWindow,
GtkWSFactory;
{$include gtk1widgetset.inc}
end.
|
