XProfan

Français

Hubert
Binnewies

allô zusammen,

j'ai un Proggi dans travail cela déjà knapp 1500 Zeilen long ist.
eh bien hat cela Proggi plusieurs la fenêtre avec Buttons.
Logischerweise mets je pour qui Fenstererstellung une Whilenot Boucle dans qui qui erste Befehl un Waitinput ist.
mais seltsamerweise wird cela Waitinput permanent durchbrochen sans le moi une Aktion ausführe.
Im Programme verwende je keinen Minuteur, c'est zwar qui Fil.pcu vorhanden, mais vous steckt dans einem Proc-ENDPROC cela pas aufgerufen wird.
et ansonsten weiss je pas womit cela Waitinput de meinem Proggi durchbrochen volonté peux.
Hat einer ne Ahnung comment je abfragen peux womit cela Waitinput durchbrochen wurde??

merci Schonmal d'avance.

Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

03.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Lass Dir qui Messages Montrer, %message

, je pour wert pourrait ensuite bien sûr son quoi den Waitinput durchbricht.

03.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Hubert
Binnewies

je habs maintenant raus...

mais c'est plus que merkwürdig et je verzweifel grade ici...weil es absolu unlogisch ist...

c'est qui %wmpaint

si Je l' maintenant direct avant dem Waitinput avec ner dummyvariablen abfrage avec cela qui sur 0 gesetzt wird reagiert qui waitinput pas plus sur qui buttons....

booooooaaaaahhhh.....wat mach je seulement faux....

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

03.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Hubert
Binnewies

j'ai la fois weitergeforscht....

alors....dans suivant Konstelation habe je im speziellen cela Problem:
Kompilieren Marque Séparation

DLGRhin&=CREATE("DIALOG",%HWND,"Rechner hinzufügen",22,20,400,330)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Def Cps(6) Control("STATIC",@$(2),$5400010E,@%(3),@%(4),@%(5),@%(6),@%(1),2000, %Hinstance)
Picstatic1&=Cps(DlgRhin&,"",0,0,Width(Dlg&),Height(Dlg&))
Pich1&=Create("hpic",-1,"IMGRHhintergrund.bmp")
Sendmessage(Picstatic1&,$172,0,Pich1&)
EDIT1& =@CREATE("EDIT",Picstatic1&,"",0050,0080,0285,0020)
EDIT2& =@CREATE("EDIT",Picstatic1&,"",0050,0140,0285,0020)
EDIT3& =@CREATE("EDIT",Picstatic1&,"",0050,0202,0285,0020)
BUTTON1Rhin& =@CREATE("BUTTON",Picstatic1&,"Hinzufügen",0037,0250,0090,0030)
BUTTON2Rhin& =@CREATE("BUTTON",Picstatic1&,"Liste",0147,0250,0090,0030)
BUTTON3Rhin& =@CREATE("BUTTON",Picstatic1&,"OK",0257,0250,0090,0030)
SETFOCUS(Picstatic1&)
LET DIALOGENDERhin%=0

WHILENOT DIALOGENDERhin%

    waitinput

    If @EQU(%KEY,2)

        LET DIALOGENDERhin%= 1

    ELSEIF %wmPaint=1

    ELSEIF GETFOCUS(EDIT1&) EDIT

    ELSEIF GETFOCUS(EDIT2&) EDIT

    ELSEIF GETFOCUS(EDIT3&) EDIT

    ELSEIF GETFOCUS(BUTTON1Rhin&) BUTTON Hinzufügen

        LET DIALOGENDERhin%= 1
        ..........

    ELSEIF GETFOCUS(BUTTON2Rhin&) BUTTON Liste

        LET DIALOGENDERhin%= 1
        ......

    ELSEIF GETFOCUS(BUTTON3Rhin&) BUTTON OK

        LET DIALOGENDERhin%= 1

    ENDIF

Endwhile

...........

ausser dem %wmpaint wird cela waitinput pas durchbrochen.
cela Waitinput reagiert pas sur qui Buttons,
seulement si je sur Buttons im übergeordneten Hauptfenster klicke.
et chez dem la fenêtre habe Je l' Hintergrund per Loadbmp geladen, là Xprofan et Windows cela Neuzeichnen on le fly erledigen.

Im Unterfenster habe je cette Weg gewählt, là cela Contrôle aussi ici cela Neuzeichnen on le fly erledigt.
Schmeisse je cela Contrôle raus reagiert aussi qui Waitinput wieder.

je peux alors weder sur cela Contrôle encore sur cela Waitinput verzichten.
Hat einer ne concept comment je qui beiden en supplément bringe sich trop vertragen?

Vielen Dank d'avance.

Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

03.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

quelle XProfanversion oui c'est ca?

qui Code ist malheureusement pas courir - quelque chose comme ist gemein.

03.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

Salut,
gebe chez den Dialogelementen den Dialog comme Elternfenster à et pas cela Static. cela Elternfenster gibt à, à welches la fenêtre Nouvelles sur cela Betätigemn qui Dialogelemnte envoyé volonté. un Static peux avec cela rien anfangen.

Salut
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

03.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Hubert
Binnewies

[quote-part:63b31b4736=iF]quelle XProfanversion oui c'est ca?

qui Code ist malheureusement pas courir - quelque chose comme ist gemein.

[/quote-part:63b31b4736]
tztz.....alors...irgendwo im Forum (sorry je weiss pas plus wohin) hattest du tout autor gebeten qui verwendete XProfan Version à une bestimmte Stelle trop écrivons...
Hab je gemacht, mais si cela trop petite ist musst Du déjà deine Webseite paraphraser

[quote-part:63b31b4736=RGH]allô,
gebe chez den Dialogelementen den Dialog comme Elternfenster à et pas cela Static. cela Elternfenster gibt à, à welches la fenêtre Nouvelles sur cela Betätigemn qui Dialogelemnte envoyé volonté. un Static peux avec cela rien anfangen.

Salut
Roland[/quote-part:63b31b4736]
Hab je versucht, dabei entsteht mais un d'autre Problem.
là je cela Static d'abord zeichne liegen qui Buttons et Edits optique avant dem Static.
mais là qui Parent qui Dialog ist liegen vous Programmtechnisch derrière elle et peut Somit avec qui souris pas erreicht volonté.
Ergo: funktioniert pas.

mais j'ai Schonmal un Ähnliches Prob gehabt, peut-être erinnerst Du toi daran IF.
exposition la fois ici : [...]

là hattest nämlich oui c'est ca DU mir den Tip avec dem Static gegeben.

je hab mir mais den Beitrag mais aussi nochmal oui c'est ca durchgelesen, et là encore un Tip de Dir entdeckt, den Getmessage.
Daraus habe je une Solution gebastelt (je hoffe qui fonctionne aussi encore im Compilat)
Kompilieren Marque Séparation

DLGRhin&=CREATE("DIALOG",%HWND,"Rechner hinzufügen",250,120,400,330)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Def Cps(6) Control("STATIC",@$(2),$5400010E,@%(3),@%(4),@%(5),@%(6),@%(1),2000, %Hinstance)
Picstatic&=Cps(DlgRhin&,"",0,0,Width(Dlg&),Height(Dlg&))
Pich&=Create("hpic",-1,"IMGRHhintergrund.bmp")
Sendmessage(Picstatic&,$172,0,Pich&)
EDIT1& =@CREATE("EDIT",Picstatic&,"",0050,0080,0285,0020)
EDIT2& =@CREATE("EDIT",Picstatic&,"",0050,0140,0285,0020)
EDIT3& =@CREATE("EDIT",Picstatic&,"",0050,0202,0285,0020)
BUTTON1Rhin& =@CREATE("BUTTON",Picstatic&,"Hinzufügen",0037,0250,0090,0030)
BUTTON2Rhin& =@CREATE("BUTTON",Picstatic&,"Liste",0147,0250,0090,0030)
BUTTON3Rhin& =@CREATE("BUTTON",Picstatic&,"OK",0257,0250,0090,0030)
SETFOCUS(Picstatic&)
LET DIALOGENDERhin%=0

WHILENOT DIALOGENDERhin%

    GetMessage

    If &wParam=1

        Continue

    Endif

    If @EQU(%KEY,2)

        LET DIALOGENDERhin%= 1

    ELSEIF GETFOCUS(EDIT1&) EDIT

    ELSEIF GETFOCUS(EDIT2&) EDIT

    ELSEIF GETFOCUS(  BUTTON1Rhin&) BUTTON Hinzufügen

        LET DIALOGENDERhin%= 1

    ELSEIF GETFOCUS(BUTTON2Rhin&) BUTTON Liste

        LET DIALOGENDERhin%= 1

    ELSEIF %Getfocus=BUTTON3Rhin& BUTTON OK

        LET DIALOGENDERhin%= 1

    ENDIF

Endwhile

Funktioniert soweit einwandfrei, j'ai seulement im weiteren Verlauf un d'autre Prob:
comment peux je qui Systemvariable %Key effacer?
avec einfachem Lecture wird qui pas zurück gesetzt...

Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

04.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Hm %clé effacer hm peut-être avec
Kompilieren Marque Séparation

settimer 1
waitinput
killtimerre>

04.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

allô Georg,
Probier la fois cela:
Kompilieren Marque Séparation

print %key,"Taste drücken"
WaitInput
print %key,"Taste drücken, %key wird zurückgesetzt"
WaitInput
SetTimer 1
WaitInput
KillTimer
print %key
WaitI

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

04.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Hubert
Binnewies

merci euch beiden....hat wunderbar funktioniert..

maintenant weiss je aussi cela qui GetMessage den %Key pas löscht.

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

04.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Hubert
Binnewies

un Prob habe je encore avec meiner neuen Konstruktion....

je weiss maintenant zwar comment %Key gelöscht wird, mais dans qui Konstruktion wird il pas plus gesetzt (weiss qui geier pourquoi)..
maintenant suis je pas dans qui situation cela Kreuzchen zum Schliessen abzufragen.
aussi %Message , &wParam , &lParam donner aucun eindeutige Werte, seulement chez einem Double-cliquez sur sur Schliessen, et c'est pas Sinn qui l'affaire.

Hat là une ne concept??

merci Schonmal d'avance.

Hubert.

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

05.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Hubert
Binnewies

aucun une concept???

Seltsam...

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

08.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

►