mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-25 14:23:49 +02:00
67 lines
2.3 KiB
ObjectPascal
67 lines
2.3 KiB
ObjectPascal
{
|
|
*****************************************************************************
|
|
* *
|
|
* This file is part of the Lazarus Component Library (LCL) *
|
|
* *
|
|
* See the file COPYING.LCL, 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. *
|
|
* *
|
|
*****************************************************************************
|
|
}
|
|
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;
|
|
|
|
{
|
|
//event callback definitions
|
|
MousePressedEvent(qwid,button,x,y,state)
|
|
}
|
|
|
|
|
|
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 SetWidgetText(qwid: longint; wtext: pchar);cdecl;external;
|
|
procedure HookMousePressedEvent(qwid: longint; ptrcall: pointer);cdecl;external;
|
|
procedure SetData(qwid: longint; data: pointer);cdecl;external;
|
|
function GetData(qwid:longint):pointer;cdecl;external;
|
|
procedure Shutdown;cdecl;external;
|
|
implementation
|
|
end.
|