Dernières versions
...
Menu  Langue: en
Recherche




Articles & Documents

Fermer Tutoriaux

Préférences

Se reconnecter
---

Votre nom (ou pseudo) :

Votre code secret


 Nombre de membres 459 membres


Connectés :

( personne )
CPDB.Net

Nouvelles des Amis
Pub Google
Lettre d'information
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner
24 Abonnés
Webmaster - Infos
Visites

   visiteurs

   visiteurs en ligne

Pagerank
forum.gifForum - ppCompiler [EN] - Sujet n°9

Forum - Forum
ppCompiler [EN] - ppCompiler [EN]


actif  Sujet n° 9  Writing a DA with PP

le 23/02/2009 @ 23:47
par enotar

Anonyme



I use the code post here sometimes ago but it stop on compiling at the red line saying "Duplicate frmhandleevent":

Why and how can I fix it?    d

Thank you very much

{$r FirstDA.rsrc}
{$code DAcc,DA01,code,1000}
// DA01 est le CreatorID

Program FirstDA;
{$­­i PalmAPI.pas}
Const
FORM1=1000;

function FrmHandleEvent(formP:FormPtr;var event:EventType):boolean;inline(SYSTRAP,$­A17A);
procedure EvtAddEventToQueue(const event:EventType);inline(SYSTRAP,$­­A11B);

function HandleEvent(var evt:EventType):boolean;
var
frmP : FormPtr;
begin
frmP:=FrmGetActiveForm;
HandleEvent:=false;

case evt.eType of

appStopEvent:
begin
EvtAddEventToQueue(evt);
HandleEvent:=true;
end;


ctlSelectEvent:
begin
WinDrawChars('Hello World !',13,20,20);
end;

penDownEvent:
begin
if (evt.ScreenX<1) or (evt.ScreenX>100) or (evt.ScreenY<1) or (evt.ScreenY>80) then HandleEvent:=true;
end;
end;
end;

procedure AppEventLoop;
var
evt : EventType;
done : boolean;
begin
repeat
EvtGetEvent(evt,evtWaitForever);
if not SysHandleEvent(evt) then
if not FrmHandleEvent(FrmGetActiveForm,evt) then
done:=HandleEvent(evt);
until (evt.eType=appStopEvent) or (done=true);
end;

Var
form:FormPtr;
evt : EventType;
begin

form := FrmInitForm(FORM1);
FrmSetActiveForm(form);
FrmDrawForm(form);

AppEventLoop;

FrmEraseForm(form);
FrmDeleteForm(form);

end.


enotar

Ecrire à enotar   Poster une réponse  Haut
Réponse n° 1
--------
le 24/02/2009 @ 00:00
par enotar

Anonyme


I didnt find another way to suscribe to this thread beside answering! l

Maybe there is a way arround

 

tkz 


enotar

Ecrire à enotar   Poster une réponse  Haut
Réponse n° 2
--------
le 24/02/2009 @ 00:29
par Philippe

Anonyme


FrmHandleEvent has been added to PalmAPI1.pas. Just delete the red line.
Ecrire à Philippe   Poster une réponse  Haut
Réponse n° 3
--------
le 24/02/2009 @ 00:58
par enotar

enotar


It works now

 

Tkze


enotar

Ecrire à enotar   Poster une réponse  Haut
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message   -   Rectifier Rectifier message   Cloturer Cloturer sujet   Remonter Remonter
[]
Catégories de discussion  Forum 




^ Haut ^