Je veux créer une appl avec une interface graphique et comme je debute, je fais plein d'erreurs. J'essaie de faire des boutons(entrer et infos) mais j'y arrive pas.
Le bouton entrer debouche sur une nouvelle fenetre, et le bouton infos sur une alerte.
Je vous donne le code mais le presse papier du palm est limité(donc il n'est pas en entier)
Si vous pouvez le modifier, ça me rendrait un grand service.
J'envoi la suite du code

// Palmsnipe.pas

{
Palm snipe.pas has been generated
by MiniSkull.exe
}

Program Palm snipe;
{$i LycheeLib.pas}

Const
CForm1=1000;
CCmd1=1001;
CCmd2=1002;
CForm2=1003;

var
Form1:Form;
Cmd1:CmdButton;
Cmd2:CmdButton;
Form2:Form;

Procedure Define_Form1;
begin
Form1.ID:=CForm1;
Form1.Title:='Palm Snipe';
Form1.Top:=0;
Form1.Left:=0;
Form1.Width:=160;
Form1.Height:=160;

On va pas allez loin avec ca ...

Et apperement aucune ressource n'est incluse ... donc tu ne vas pas allez loin non plus ...

Voila la suite:

// End of define Cmd2
end;
// End of define form

Procedure Create_Form1;
begin
CreateForm(Form1);
CreateGUIObject(Cmd1);
CreateGUIObject(Cmd2);
end;
// End of creation form

Procedure Cmd1_Click;
begin
// Put your code here ...

end;

Procedure Cmd2_Click;
begin
// Put your code here ...

end;

// Main Program
var
LycheeEvent:LycheeEventType;
begin
Define_Form1;
Create_Form1;
ShowForm(Form1);

// Events Loop
Repeat LycheeAppEvent(LycheeEvent);

if LycheeEvent.ActiveForm=Form1.ID then
begin
if LycheeEvent.ControlID=Cmd1.ID then Cmd1_Click;
if LycheeEvent.ControlID=Cmd2.ID then Cmd2_Click;

end;

Until EndOfApp(LycheeEvent);

// End of application
CloseAllForms;
clrscr;
write('Hit any key to exit ...');

end.

moi j'ai installée la totale : Lychee 2.03 + BigSkull 1.01 + Exe2Prc 1.00
ca evite de la saisie et ca fait un bon squelette pour l'appli.

J'ai tout instalé sauf : Exe2Prc 1.00
Il consiste en quoi ce logiciel?

A quoi servent les fonctions const et var?
J'ai installé exe2prc. En fait ça evite de passer par bird.

exe2prc genère un PRC à partir d'un EXE issu de PIAF.
c'est ce PRC qu tu peux distribuer.
j'ai fait ov2Reader avec tout ça.

pch4x4,

Pourquoi compiler en mode console (.exe) alors que ton appli est belle avec une belle interface GUI ?
Compiler "proprement" en .PRC permettrait à tes utilisateurs de s'affranchir du StdioLib.prc...

@+
aldweb

Ah te voila Aldweb. Comment tu peux faire les barres de menu?

slt,
moi je suis preneur, me manque juste la marche à suivre ...

J'en prendrai graine aussi

Pour phc4x4 :

De mémoire car je ne le fais plus souvent from scratch (généralement, je procède par copier/coller) et, pour une fois, je n'ai pas mon Palm sur moi (c'est rarissime...) :
En haut du source :
Program TOTO(cmd);
{$appl TOTO} // CreatorID
Var
Cmd: UInt16;

Et en bas :
begin
if Cmd=sysAppLaunchCmdNormalLaunch then
Main;
end.


Pour palm snipe :
Pour les barres de menu, il faut créer une ressource avec Piaf et ensuite... hop, ma mémoire flanche, regarde donc les programmes exemples comme Matches, NekoCat ou Numerus, le code de gestion des menus est dedans.


@+
aldweb

Je ne les ai pas justement. Comment je peux les avoir?

Dans la zone de téléchargement du site de PP, ici : http://www.ppcompiler.org/download.php, tu sélectionnes au choix :
1) PP 2.10 - dernière version stable, dans le ZIP que tu téléchargeras il y a tout
2) PgmPP - Il contient d'excellents code sources pour PP (+Armlets) (par Aldweb) <= ce n'est pas moi qui ai écrit ce texte élogieux !

Et si vraiment, tu n'y arrives pas, voici une 3ème possibilité, un lien direct de téléchargement :
http://www.aldweb.com/file/pgmpp.zip

@+
aldweb

Merci. Je vais pouvoir m'appuyer sur tes exemples.