mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-29 22:42:37 +02:00
45 lines
1.2 KiB
ObjectPascal
45 lines
1.2 KiB
ObjectPascal
unit qt;
|
|
|
|
interface
|
|
|
|
{$linklib lzqt}
|
|
{$linklib c}
|
|
|
|
const
|
|
WIDGET = 1;
|
|
WIDGET_BUTTON = 2;
|
|
WIDGET_PUSH_BUTTON = 3;
|
|
WIDGET_CHECK_BOX = 4;
|
|
WIDGET_RADIO_BUTTON = 5;
|
|
WIDGET_DIALOG = 6;
|
|
WIDGET_DIALOG_FILE = 7;
|
|
WIDGET_MESSAGE_BOX = 8;
|
|
WIDGET_TAB_DIALOG = 9;
|
|
WIDGET_FRAME = 10;
|
|
WIDGET_GROUP_BOX = 11;
|
|
WIDGET_BUTTON_GROUP = 12;
|
|
WIDGET_LCD_NUMBER = 13;
|
|
WIDGET_LABEL = 14;
|
|
WIDGET_MENU_BAR = 15;
|
|
WIDGET_LISTBOX = 16;
|
|
WIDGET_MULTI_LINE_EDIT = 17;
|
|
WIDGET_POPUP_MENU = 18;
|
|
WIDGET_LINE_EDIT = 19;
|
|
WIDGET_SCROLL_BAR = 20;
|
|
WIDGET_TAB_BAR = 21;
|
|
WIDGET_WINDOW = 22;
|
|
|
|
|
|
procedure InitializeEngine;cdecl;external;
|
|
function CreateWidget(wtype: longint):longint;cdecl;external;
|
|
procedure MainLoop;cdecl;external;
|
|
procedure ReparentWidget(qwidparent: longint; qwidchild: longint);cdecl;external;
|
|
procedure SetMainWidget(qwid:longint);cdecl;external;
|
|
procedure ShowWidget(wid: longint);cdecl;external;
|
|
procedure MoveWidget(qwid: longint; x: longint; y: longint);cdecl;external;
|
|
procedure ResizeWidget(qwid: longint; h: longint; w: longint);cdecl;external;
|
|
procedure SetButtonText(qwid: longint; wtext: pchar);cdecl;external;
|
|
procedure HookSimpleClickEvent(qwid: longint; ptrcall: pointer);cdecl;external;
|
|
implementation
|
|
end.
|