blob: bc774584b0ef263d2b0d9c38b8a2abd616c82967 (
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
|
{$IfDef read_interface}
type
PGnomeDruidPageFinish = ^TGnomeDruidPageFinish;
TGnomeDruidPageFinish = record
parent : TGnomeDruidPage;
background_color : TGdkColor;
textbox_color : TGdkColor;
logo_background_color : TGdkColor;
title_color : TGdkColor;
text_color : TGdkColor;
title : Pgchar;
thetext : Pgchar;
logo_image : PGdkImlibImage;
watermark_image : PGdkImlibImage;
canvas : PGtkWidget;
background_item : PGnomeCanvasItem;
textbox_item : PGnomeCanvasItem;
text_item : PGnomeCanvasItem;
logo_item : PGnomeCanvasItem;
logoframe_item : PGnomeCanvasItem;
watermark_item : PGnomeCanvasItem;
title_item : PGnomeCanvasItem;
end;
//GNOME_DRUID_PAGE_FINISH = PGnomeDruidPageFinish;(* this is also a function in gnomedruidpage.inc *)
PGnomeDruidPageFinishClass = ^TGnomeDruidPageFinishClass;
TGnomeDruidPageFinishClass = record
parent_class : TGnomeDruidPageClass;
end;
GNOME_DRUID_PAGE_FINISH_CLASS = PGnomeDruidPageFinishClass;
function GNOME_TYPE_DRUID_PAGE_FINISH : TGTKType;
function GNOME_IS_DRUID_PAGE_FINISH(obj : Pointer) : Boolean;
function GNOME_IS_DRUID_PAGE_FINISH_CLASS(klass : Pointer) : Boolean;
function gnome_druid_page_finish_get_type:TGtkType;cdecl;external libgnomeuidll name 'gnome_druid_page_finish_get_type';
function gnome_druid_page_finish_new:PGtkWidget;cdecl;external libgnomeuidll name 'gnome_druid_page_finish_new';
function gnome_druid_page_finish_new_with_vals(title:Pgchar; thetext:Pgchar; logo:PGdkImlibImage; watermark:PGdkImlibImage):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_druid_page_finish_new_with_vals';
procedure gnome_druid_page_finish_set_bg_color(druid_page_finish:PGnomeDruidPageFinish; color:PGdkColor);cdecl;external libgnomeuidll name 'gnome_druid_page_finish_set_bg_color';
procedure gnome_druid_page_finish_set_textbox_color(druid_page_finish:PGnomeDruidPageFinish; color:PGdkColor);cdecl;external libgnomeuidll name 'gnome_druid_page_finish_set_textbox_color';
procedure gnome_druid_page_finish_set_logo_bg_color(druid_page_finish:PGnomeDruidPageFinish; color:PGdkColor);cdecl;external libgnomeuidll name 'gnome_druid_page_finish_set_logo_bg_color';
procedure gnome_druid_page_finish_set_title_color(druid_page_finish:PGnomeDruidPageFinish; color:PGdkColor);cdecl;external libgnomeuidll name 'gnome_druid_page_finish_set_title_color';
procedure gnome_druid_page_finish_set_text_color(druid_page_finish:PGnomeDruidPageFinish; color:PGdkColor);cdecl;external libgnomeuidll name 'gnome_druid_page_finish_set_text_color';
procedure gnome_druid_page_finish_set_text(druid_page_finish:PGnomeDruidPageFinish; thetext:Pgchar);cdecl;external libgnomeuidll name 'gnome_druid_page_finish_set_text';
procedure gnome_druid_page_finish_set_title(druid_page_finish:PGnomeDruidPageFinish; title:Pgchar);cdecl;external libgnomeuidll name 'gnome_druid_page_finish_set_title';
procedure gnome_druid_page_finish_set_logo(druid_page_finish:PGnomeDruidPageFinish; logo_image:PGdkImlibImage);cdecl;external libgnomeuidll name 'gnome_druid_page_finish_set_logo';
procedure gnome_druid_page_finish_set_watermark(druid_page_finish:PGnomeDruidPageFinish; watermark:PGdkImlibImage);cdecl;external libgnomeuidll name 'gnome_druid_page_finish_set_watermark';
{$EndIf read_interface}
{$Ifdef read_implementation}
function GNOME_TYPE_DRUID_PAGE_FINISH : TGTKType;
begin
GNOME_TYPE_DRUID_PAGE_FINISH:=gnome_druid_page_finish_get_type;
end;
function GNOME_IS_DRUID_PAGE_FINISH(obj : Pointer) : Boolean;
begin
GNOME_IS_DRUID_PAGE_FINISH:=(obj<>nil) and GNOME_IS_DRUID_PAGE_FINISH_CLASS(PGtkTypeObject(obj)^.klass);
end;
function GNOME_IS_DRUID_PAGE_FINISH_CLASS(klass : Pointer) : Boolean;
begin
GNOME_IS_DRUID_PAGE_FINISH_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_DRUID_PAGE_FINISH);
end;
{$Endif read_implementation}
|
