summaryrefslogtreecommitdiff
path: root/fpcsrc/packages/gtk2/src/gtk+/gtk/gtkframe.inc
blob: d551d402acb4f3b1dd55c4da69bb37766faed274 (plain)
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
// included by gtk2.pas

{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}

//------------------------------------------------------------------------------

{$IFDEF read_interface_types}
   PGtkFrame = ^TGtkFrame;
   TGtkFrame = record
        bin : TGtkBin;
        label_widget : PGtkWidget;
        shadow_type : gint16;
        label_xalign : gfloat;
        label_yalign : gfloat;
        child_allocation : TGtkAllocation;
     end;

   PGtkFrameClass = ^TGtkFrameClass;
   TGtkFrameClass = record
        parent_class : TGtkBinClass;
        compute_child_allocation : procedure (frame:PGtkFrame; allocation:PGtkAllocation); cdecl;
     end;
{$ENDIF read_interface_types}

//------------------------------------------------------------------------------

{$IFDEF read_interface_rest}
function GTK_TYPE_FRAME : GType;
function GTK_FRAME(obj: pointer) : PGtkFrame;
function GTK_FRAME_CLASS(klass: pointer) : PGtkFrameClass;
function GTK_IS_FRAME(obj: pointer) : boolean;
function GTK_IS_FRAME_CLASS(klass: pointer) : boolean;
function GTK_FRAME_GET_CLASS(obj: pointer) : PGtkFrameClass;



function gtk_frame_get_type:TGtkType; cdecl; external gtklib;
function gtk_frame_new(_label:Pgchar):PGtkWidget; cdecl; external gtklib;
procedure gtk_frame_set_label(frame:PGtkFrame; _label:Pgchar); cdecl; external gtklib;
function gtk_frame_get_label(frame:PGtkFrame):Pgchar; cdecl; external gtklib;
procedure gtk_frame_set_label_widget(frame:PGtkFrame; label_widget:PGtkWidget); cdecl; external gtklib;
function gtk_frame_get_label_widget(frame:PGtkFrame):PGtkWidget; cdecl; external gtklib;
procedure gtk_frame_set_label_align(frame:PGtkFrame; xalign:gfloat; yalign:gfloat); cdecl; external gtklib;
procedure gtk_frame_get_label_align(frame:PGtkFrame; xalign:Pgfloat; yalign:Pgfloat); cdecl; external gtklib;
procedure gtk_frame_set_shadow_type(frame:PGtkFrame; _type:TGtkShadowType); cdecl; external gtklib;
function gtk_frame_get_shadow_type(frame:PGtkFrame):TGtkShadowType; cdecl; external gtklib;
{$ENDIF read_interface_rest}

//------------------------------------------------------------------------------

{$IFDEF read_implementation}
function GTK_TYPE_FRAME : GType;
begin
   GTK_TYPE_FRAME:=gtk_frame_get_type;
end;

function GTK_FRAME(obj: pointer) : PGtkFrame;
begin
   GTK_FRAME:=PGtkFrame(GTK_CHECK_CAST(obj,GTK_TYPE_FRAME));
end;

function GTK_FRAME_CLASS(klass: pointer) : PGtkFrameClass;
begin
   GTK_FRAME_CLASS:=PGtkFrameClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_FRAME));
end;

function GTK_IS_FRAME(obj: pointer) : boolean;
begin
   GTK_IS_FRAME:=GTK_CHECK_TYPE(obj,GTK_TYPE_FRAME);
end;

function GTK_IS_FRAME_CLASS(klass: pointer) : boolean;
begin
   GTK_IS_FRAME_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_FRAME);
end;

function GTK_FRAME_GET_CLASS(obj: pointer) : PGtkFrameClass;
begin
   GTK_FRAME_GET_CLASS:=PGtkFrameClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_FRAME));
end;

{$ENDIF read_implementation}
// included by gtk2.pas