You've already forked lazarus-ccr
a44a9bb9b4
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@341 8e941d3f-bd1b-0410-a28a-d453659cc2b4
58 lines
1.2 KiB
C
58 lines
1.2 KiB
C
/*
|
|
clazhello.c
|
|
|
|
Simple demonstration program that uses the LCL Exports library to build a GUI
|
|
|
|
LICENSE: Public domain
|
|
|
|
AUTHOR: Felipe Monteiro de Carvalho
|
|
*/
|
|
|
|
#include "vcl.h"
|
|
|
|
TFormH MyForm;
|
|
TButtonH MyButton;
|
|
TLabelH MyLabel;
|
|
|
|
/* Callback for the close button */
|
|
FASTCALL_TNOTIFYEVENT_START(MyButton_OnClick) /* void* Self, TObjectH Sender */
|
|
|
|
TCustomForm_Close(MyForm);
|
|
}
|
|
|
|
/* Application entry-point */
|
|
APPBEGIN()
|
|
{
|
|
Application_Initialize();
|
|
|
|
Application_CreateForm(&MyForm);
|
|
|
|
TControl_SetTop(MyForm, 50);
|
|
TControl_SetLeft(MyForm, 50);
|
|
TControl_SetHeight(MyForm, 200);
|
|
TControl_SetWidth(MyForm, 200);
|
|
TControl_SetCaption(MyForm, "C Lazarus app");
|
|
|
|
MyButton = TButton_Create(MyForm);
|
|
TWinControl_SetParent(MyButton, MyForm);
|
|
|
|
TControl_SetTop(MyButton, 150);
|
|
TControl_SetLeft(MyButton, 50);
|
|
TControl_SetWidth(MyButton, 100);
|
|
|
|
TControl_SetOnClick(MyButton, &MyButton_OnClick);
|
|
TControl_SetCaption(MyButton, "Close Button");
|
|
|
|
MyLabel = TLabel_Create(MyForm);
|
|
TWinControl_SetParent(MyLabel, MyForm);
|
|
|
|
TControl_SetTop(MyLabel, 50);
|
|
TControl_SetLeft(MyLabel, 60);
|
|
TControl_SetCaption(MyLabel, "Toolbox is cool!!!");
|
|
|
|
/* Enter main loop */
|
|
Application_Run();
|
|
|
|
return 0;
|
|
}
|