added for Eric
This commit is contained in:
memson
40
begui/begui/imports/pascal/examples/about.pas
Normal file
40
begui/begui/imports/pascal/examples/about.pas
Normal file
@@ -0,0 +1,40 @@
|
|||||||
|
Unit About;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
BeGUI;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form_About : MFormH;
|
||||||
|
Button_Divi : MButtonH;
|
||||||
|
Edit: MEditH;
|
||||||
|
|
||||||
|
procedure Create_About;
|
||||||
|
|
||||||
|
Implementation
|
||||||
|
|
||||||
|
procedure EventButton(sender: pointer; msg: uint32);
|
||||||
|
begin
|
||||||
|
MForm_Hide(Form_About);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure Create_About;
|
||||||
|
begin
|
||||||
|
Form_About := MApplication_AddForm_int32(Application,250, 100, 500, 300, pchar('About'),pchar('About'));
|
||||||
|
|
||||||
|
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
// Initialisation for the edit
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
Edit := MForm_AddMEdit_int32(Form_About, 9, 10, 160, 20, pchar('Calculator v1.0'));
|
||||||
|
MEdit_setText(Edit,pchar('Calculator v1.0'));
|
||||||
|
|
||||||
|
|
||||||
|
Button_Divi := MButton_Create_int32(160,135,200,145, pchar('OK'));
|
||||||
|
MForm_AddChild(Form_About, Button_Divi);
|
||||||
|
MButton_AttachClickDispatcher(Button_Divi, base_Message(@EventButton));
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
283
begui/begui/imports/pascal/examples/testapp4.pas
Normal file
283
begui/begui/imports/pascal/examples/testapp4.pas
Normal file
@@ -0,0 +1,283 @@
|
|||||||
|
program TespApp4;
|
||||||
|
|
||||||
|
uses BeGUI,About,Strings;
|
||||||
|
|
||||||
|
|
||||||
|
procedure MenuClick(sender: pointer; x:double; y:double);
|
||||||
|
begin
|
||||||
|
if sender <> nil then
|
||||||
|
GenericAlert(pchar('click'));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure MenuClick_Quit(sender: pointer; x:double; y:double);
|
||||||
|
Begin
|
||||||
|
MApplication_Free(Application);
|
||||||
|
End;
|
||||||
|
|
||||||
|
procedure MenuClick_About(sender: pointer; x:double; y:double);
|
||||||
|
Begin
|
||||||
|
// Display Help
|
||||||
|
MForm_Show(Form_About);
|
||||||
|
|
||||||
|
End;
|
||||||
|
|
||||||
|
|
||||||
|
Var
|
||||||
|
Button: Array[1..10] Of MButtonH;
|
||||||
|
Button_Clear : MButtonH;
|
||||||
|
Button_Point : MButtonH;
|
||||||
|
Button_Egal : MButtonH;
|
||||||
|
Button_Plus : MButtonH;
|
||||||
|
Button_Minus : MButtonH;
|
||||||
|
Button_Multi : MButtonH;
|
||||||
|
Button_Divi : MButtonH;
|
||||||
|
Edit: MEditH;
|
||||||
|
Mem_Edit : String[20];
|
||||||
|
Mem_Op : String[20];
|
||||||
|
Mem_Operande : integer;
|
||||||
|
|
||||||
|
|
||||||
|
Const
|
||||||
|
Pos_X : Array[1..3] of integer=(20,60,100);
|
||||||
|
Pos_Y : Array[1..4] of integer=(45,70,95,120);
|
||||||
|
weith = 30;
|
||||||
|
heigth = 10;
|
||||||
|
|
||||||
|
procedure EventTest(sender: pointer; msg: uint32);
|
||||||
|
begin
|
||||||
|
if sender <> nil then
|
||||||
|
GenericAlert(MButton_getCaption(sender));
|
||||||
|
end;
|
||||||
|
|
||||||
|
Procedure EventButton(sender: pointer; msg: uint32);
|
||||||
|
var
|
||||||
|
Test: array[0..20] of char;
|
||||||
|
value: char;
|
||||||
|
value_real : real;
|
||||||
|
value_real2: real;
|
||||||
|
value_result: real;
|
||||||
|
er : Integer;
|
||||||
|
Begin
|
||||||
|
If sender <> nil Then
|
||||||
|
Begin
|
||||||
|
value := strPas(MButton_getCaption(sender))[1];
|
||||||
|
|
||||||
|
// For digit
|
||||||
|
If ( value ='1') Or ( value ='2') Or ( value ='3') or ( value ='4')
|
||||||
|
or ( value ='5') Or ( value ='6') Or ( value ='7') or ( value ='8') or (value='9') or (value='0')Then
|
||||||
|
Begin
|
||||||
|
//=C2=A0Add Value to the sting
|
||||||
|
Mem_Edit:=Mem_Edit+strPas(MButton_getCaption(sender));
|
||||||
|
StrPCopy(test,Mem_Edit);
|
||||||
|
MEdit_setText(Edit,Test);
|
||||||
|
End;
|
||||||
|
Val(Mem_Edit,value_real,er);
|
||||||
|
// Clear
|
||||||
|
if ( value='C') Then
|
||||||
|
Begin
|
||||||
|
Mem_Op:='';
|
||||||
|
Mem_Operande:=0;
|
||||||
|
Mem_Edit:='';
|
||||||
|
MEdit_setText(Edit,nil);
|
||||||
|
End;
|
||||||
|
|
||||||
|
// dot
|
||||||
|
If (Value='.') Then
|
||||||
|
Begin
|
||||||
|
If (Frac(value_real) = 0) Then
|
||||||
|
Begin
|
||||||
|
Mem_Edit:=Mem_Edit+'.';
|
||||||
|
StrPCopy(test,Mem_Edit);
|
||||||
|
MEdit_setText(Edit,Test);
|
||||||
|
End;
|
||||||
|
End;
|
||||||
|
|
||||||
|
// Egal
|
||||||
|
If (Value='=') Then
|
||||||
|
Begin
|
||||||
|
If (Mem_Op = '' ) Then
|
||||||
|
Begin
|
||||||
|
Str(value_real:6:2,Mem_Edit);
|
||||||
|
End Else
|
||||||
|
Begin
|
||||||
|
Val(Mem_Op,value_real2,er);
|
||||||
|
Case Mem_Operande of
|
||||||
|
1 : Value_result:=value_real2+value_real;
|
||||||
|
2 : Value_result:=value_real2-value_real;
|
||||||
|
3 : Value_result:=value_real2*value_real;
|
||||||
|
4 : Value_result:=value_real2/value_real;
|
||||||
|
End;
|
||||||
|
Str(value_result:6:2,Mem_Edit);
|
||||||
|
End;
|
||||||
|
StrPCopy(test,Mem_Edit);
|
||||||
|
MEdit_setText(Edit,Test);
|
||||||
|
End;
|
||||||
|
|
||||||
|
// Plus
|
||||||
|
If (Value='+') Then
|
||||||
|
Begin
|
||||||
|
Mem_Op:=Mem_Edit;
|
||||||
|
Mem_Operande:=1;
|
||||||
|
Mem_Edit:='';
|
||||||
|
StrPCopy(test,Mem_Edit);
|
||||||
|
MEdit_setText(Edit,Test);
|
||||||
|
End;
|
||||||
|
|
||||||
|
// Minus
|
||||||
|
If (Value='-') Then
|
||||||
|
Begin
|
||||||
|
Mem_Op:=Mem_Edit;
|
||||||
|
Mem_Operande:=2;
|
||||||
|
Mem_Edit:='';
|
||||||
|
StrPCopy(test,Mem_Edit);
|
||||||
|
MEdit_setText(Edit,Test);
|
||||||
|
End;
|
||||||
|
|
||||||
|
// Multi
|
||||||
|
If (Value='*') Then
|
||||||
|
Begin
|
||||||
|
Mem_Op:=Mem_Edit;
|
||||||
|
Mem_Operande:=3;
|
||||||
|
Mem_Edit:='';
|
||||||
|
StrPCopy(test,Mem_Edit);
|
||||||
|
MEdit_setText(Edit,Test);
|
||||||
|
End;
|
||||||
|
|
||||||
|
// Division
|
||||||
|
If (Value='/') Then
|
||||||
|
Begin
|
||||||
|
Mem_Op:=Mem_Edit;
|
||||||
|
Mem_Operande:=4;
|
||||||
|
Mem_Edit:='';
|
||||||
|
StrPCopy(test,Mem_Edit);
|
||||||
|
MEdit_setText(Edit,Test);
|
||||||
|
End;
|
||||||
|
|
||||||
|
End;
|
||||||
|
End;
|
||||||
|
|
||||||
|
procedure Create_Calculator(Calculator : MFormH);
|
||||||
|
Begin
|
||||||
|
Mem_Edit:='';
|
||||||
|
Mem_Op:='';
|
||||||
|
{ create the form of the calculator }
|
||||||
|
{ ??? - MApplication_AddForm don't take the value of size and position }
|
||||||
|
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
// Initialisation for the digit number
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
Button[1] := MButton_Create_int32(Pos_X[1], Pos_Y[1], Pos_X[1]+weith, Pos_Y[1]+heigth, pchar('1'));
|
||||||
|
MForm_AddChild(Calculator, Button[1]);
|
||||||
|
MButton_AttachClickDispatcher(Button[1], base_Message(@EventButton));
|
||||||
|
|
||||||
|
Button[2] := MButton_Create_int32(Pos_X[2],Pos_Y[1], Pos_X[2]+weith, Pos_Y[1]+heigth, pchar('2'));
|
||||||
|
MForm_AddChild(Calculator, Button[2]);
|
||||||
|
MButton_AttachClickDispatcher(Button[2], base_Message(@EventButton));
|
||||||
|
|
||||||
|
Button[3] := MButton_Create_int32(Pos_X[3],Pos_Y[1], Pos_X[3]+weith, Pos_Y[1]+heigth, pchar('3'));
|
||||||
|
MForm_AddChild(Calculator, Button[3]);
|
||||||
|
MButton_AttachClickDispatcher(Button[3], base_Message(@EventButton));
|
||||||
|
|
||||||
|
Button[4] := MButton_Create_int32(Pos_X[1],Pos_Y[2], Pos_X[1]+weith, Pos_Y[2]+heigth, pchar('4'));
|
||||||
|
MForm_AddChild(Calculator, Button[4]);
|
||||||
|
MButton_AttachClickDispatcher(Button[4], base_Message(@EventButton));
|
||||||
|
|
||||||
|
Button[5] := MButton_Create_int32(Pos_X[2], Pos_Y[2], Pos_X[2]+weith, Pos_Y[2]+heigth, pchar('5'));
|
||||||
|
MForm_AddChild(Calculator, Button[5]);
|
||||||
|
MButton_AttachClickDispatcher(Button[5], base_Message(@EventButton));
|
||||||
|
|
||||||
|
Button[6] := MButton_Create_int32(Pos_X[3],Pos_Y[2], Pos_X[3]+weith, Pos_Y[2]+heigth, pchar('6'));
|
||||||
|
MForm_AddChild(Calculator, Button[6]);
|
||||||
|
MButton_AttachClickDispatcher(Button[6], base_Message(@EventButton));
|
||||||
|
|
||||||
|
Button[7] := MButton_Create_int32(Pos_X[1],Pos_Y[3], Pos_X[1]+weith, Pos_Y[3]+heigth, pchar('7'));
|
||||||
|
MForm_AddChild(Calculator, Button[7]);
|
||||||
|
MButton_AttachClickDispatcher(Button[7], base_Message(@EventButton));
|
||||||
|
|
||||||
|
Button[8] := MButton_Create_int32(Pos_X[2],Pos_Y[3], Pos_X[2]+weith, Pos_Y[3]+heigth, pchar('8'));
|
||||||
|
MForm_AddChild(Calculator, Button[8]);
|
||||||
|
MButton_AttachClickDispatcher(Button[8], base_Message(@EventButton));
|
||||||
|
|
||||||
|
Button[9] := MButton_Create_int32(Pos_X[3],Pos_Y[3], Pos_X[3]+weith, Pos_Y[3]+heigth, pchar('9'));
|
||||||
|
MForm_AddChild(Calculator, Button[9]);
|
||||||
|
MButton_AttachClickDispatcher(Button[9], base_Message(@EventButton));
|
||||||
|
|
||||||
|
Button[10] := MButton_Create_int32(Pos_X[1],Pos_Y[4], Pos_X[1]+weith, Pos_Y[4]+heigth, pchar('0'));
|
||||||
|
MForm_AddChild(Calculator, Button[10]);
|
||||||
|
MButton_AttachClickDispatcher(Button[10], base_Message(@EventButton));
|
||||||
|
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
// Initialisation for the edit
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
Edit := MForm_AddMEdit_int32(Calculator, 9, 20, 160, 30, pchar('toto'));
|
||||||
|
|
||||||
|
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
// Initialisation for operation button
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
|
||||||
|
Button_Clear:=MButton_Create_int32(170,20,190,30, pchar('C'));
|
||||||
|
MForm_AddChild(Calculator, Button_clear);
|
||||||
|
MButton_AttachClickDispatcher(Button_Clear, base_Message(@EventButton));
|
||||||
|
|
||||||
|
Button_Egal:=MButton_Create_int32(170,45,190,55, pchar('='));
|
||||||
|
MForm_AddChild(Calculator, Button_Egal);
|
||||||
|
MButton_AttachClickDispatcher(Button_Egal, base_Message(@EventButton));
|
||||||
|
|
||||||
|
Button_Plus:=MButton_Create_int32(170,70,190,75, pchar('+'));
|
||||||
|
MForm_AddChild(Calculator, Button_Plus);
|
||||||
|
MButton_AttachClickDispatcher(Button_Plus, base_Message(@EventButton));
|
||||||
|
|
||||||
|
Button_Minus:=MButton_Create_int32(170,95,190,105, pchar('-'));
|
||||||
|
MForm_AddChild(Calculator, Button_Minus);
|
||||||
|
MButton_AttachClickDispatcher(Button_Minus, base_Message(@EventButton));
|
||||||
|
|
||||||
|
Button_Multi:=MButton_Create_int32(170,120,190,130, pchar('*'));
|
||||||
|
MForm_AddChild(Calculator, Button_Multi);
|
||||||
|
MButton_AttachClickDispatcher(Button_Multi, base_Message(@EventButton));
|
||||||
|
|
||||||
|
Button_Divi := MButton_Create_int32(170,145,190,155, pchar('/'));
|
||||||
|
MForm_AddChild(Calculator, Button_Divi);
|
||||||
|
MButton_AttachClickDispatcher(Button_Divi, base_Message(@EventButton));
|
||||||
|
|
||||||
|
Button_Point := MButton_Create_int32(Pos_X[2],Pos_Y[4], Pos_X[2]+weith, Pos_Y[4]+heigth, pchar('.'));
|
||||||
|
MForm_AddChild(Calculator, Button_Point);
|
||||||
|
MButton_AttachClickDispatcher(Button_Point, base_Message(@EventButton));
|
||||||
|
|
||||||
|
End;
|
||||||
|
|
||||||
|
//poo
|
||||||
|
|
||||||
|
var
|
||||||
|
MainForm: MFormH;
|
||||||
|
|
||||||
|
mb : MMenuBarH;
|
||||||
|
Menu_About,
|
||||||
|
Menu_Quit : MMenuItemH;
|
||||||
|
|
||||||
|
mnu : MMenuH;
|
||||||
|
mnu_Help : MMenuH;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
MainForm := MApplication_GetMainForm(Application);
|
||||||
|
|
||||||
|
mb := BMenuBar_Create(MainForm, pchar('main'));
|
||||||
|
Menu_Quit := MMenuItem_Create(pchar('Close'));
|
||||||
|
MMenuItem_AttachMenuClickDispatcher(Menu_Quit, @menuClick_Quit);
|
||||||
|
|
||||||
|
mnu := BMenu_Create(pchar('Calculator'));
|
||||||
|
BMenu_AddItem(mnu, Menu_Quit);
|
||||||
|
BMenuBar_AddItem(mb, mnu);
|
||||||
|
|
||||||
|
mnu_Help := BMenu_Create(pchar('?'));
|
||||||
|
Menu_About := MMenuItem_Create(pchar('About...'));
|
||||||
|
BMenu_AddItem(Mnu_Help, Menu_About);
|
||||||
|
MMenuItem_AttachMenuClickDispatcher(Menu_About, @menuClick_About);
|
||||||
|
BMenuBar_AddItem(mb, mnu_Help);
|
||||||
|
|
||||||
|
Create_Calculator(MainForm);
|
||||||
|
Create_About;
|
||||||
|
|
||||||
|
MApplication_Run(Application);
|
||||||
|
end.
|
||||||
Reference in New Issue
Block a user