paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Ami-Extra: example code for muihelper

Browse Source 
git-svn-id: trunk@35165 -
This commit is contained in:
marcus 2016-12-18 15:17:02 +00:00
parent f4a3a45c3f
commit 3f4e9cfcb7
3 changed files with 75 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -1012,6 +1012,7 @@ packages/ami-extra/Makefile svneol=native#text/plain
packages/ami-extra/Makefile.fpc svneol=native#text/plain
packages/ami-extra/Makefile.fpc.fpcmake svneol=native#text/plain
packages/ami-extra/README.txt svneol=native#text/plain
packages/ami-extra/examples/muihelloworld.pas svneol=native#text/pascal
packages/ami-extra/fpmake.pp svneol=native#text/plain
packages/ami-extra/src/amsgbox.pas svneol=native#text/plain
packages/ami-extra/src/cliputils.pas svneol=native#text/plain

71
packages/ami-extra/examples/muihelloworld.pas Normal file
View File

@ -0,0 +1,71 @@
program muihelloworld;
// Example Source for MUIHelper, Simple Window and Button
uses
Exec, Utility, intuition, AmigaDos, mui, muihelper;
procedure StartMe;
var
App, Window, Button, NLabel: PObject_;
Sigs: LongInt;
begin
App := MH_Application([
MUIA_Application_Title, AsTag('MUIHelloWorld'),
MUIA_Application_Version, AsTag('$VER: MUIHelloWorld 1.0 (18.12.2016)'),
MUIA_Application_Copyright, AsTag('©2016, FreePascal Developer'),
MUIA_Application_Author, AsTag('FreePascal Developer'),
MUIA_Application_Description, AsTag('Hello World Demo for MUI Helper'),
MUIA_Application_Base, AsTag('HELLOWORLD'),
SubWindow, AsTag(MH_Window(Window, [
MUIA_Window_Title, AsTag('Hello World'),
MUIA_Window_ID, MAKE_ID('H','E','W','O'),
WindowContents, AsTag(MH_VGroup([
Child, AsTag(MH_CLabel(NLabel, 'Hello')),
Child, AsTag(MH_CLabel(NLabel, 'World')),
Child, AsTag(MH_Button(Button, 'Click me')),
TAG_END])), // MH_VGroup()
TAG_END])), // MH_Window()
TAG_END]); // MH_Application()
//
// Check if successfully Created
if not Assigned(App) then
begin
WriteLn('Failed to create Application');
Exit;
end;
// Connect Close Event
DoMethod(Window, [MUIM_Notify, MUIA_Window_CloseRequest, MUI_TRUE,
AsTag(App), 2, AsTag(MUIM_Application_ReturnID), AsTag(MUIV_Application_ReturnID_Quit)]);
// Change Label on Button Click
DoMethod(Button, [MUIM_Notify, MUIA_Pressed, MUI_FALSE,
AsTag(NLabel), 3, AsTag(MUIM_SET), AsTag(MUIA_Text_Contents), AsTag('FreePascal')]);
// Open the Window
MH_Set(Window, MUIA_Window_Open, AsTag(True));
// Main Loop
if MH_Get(Window, MUIA_Window_Open) <> 0 then
begin
while Integer(DoMethod(app, [MUIM_Application_NewInput, AsTag(@sigs)])) <> MUIV_Application_ReturnID_Quit do
begin
if Sigs <> 0 then
begin
Sigs := Wait(sigs or SIGBREAKF_CTRL_C);
if (Sigs and SIGBREAKF_CTRL_C) <>0 then
Break;
end;
end;
end;
// Close Window
MH_Set(Window, MUIA_Window_Open, AsTag(True));
// Free MUI Objects
MUI_DisposeObject(app);
end;
begin
StartMe;
end.

3
packages/ami-extra/fpmake.pp
View File

@ -39,6 +39,9 @@ begin
T:=P.Targets.AddUnit('pcq.pas');
T:=P.Targets.AddUnit('muihelper.pas');
P.ExamplePath.Add('examples');
T:=P.Targets.AddExampleProgram('muihelloworld.pas');
{$ifndef ALLPACKAGES}
Run;
end;