XProfan

Español

Hubert
Binnewies

¡Hola zusammen,

Yo habe una Proggi en Arbeit el ya knapp 1500 Zeilen lang es.
Nun ha el Proggi mehrere Ventana con Buttons.
Logischerweise Puse después de el Fenstererstellung una Sinestar encargado Bucle en el el erste Befehl una Waitinput es.
aber seltsamerweise se el Waitinput permanent durchbrochen sin el Yo una Aktion ausführe.
Im Programa verwende Yo no Temporizador, es zwar el Hilo.pcu disponible, aber ellos steckt en un Proc-ENDPROC el no aufgerufen se.
y ansonsten blanco Yo no womit el Waitinput de mi Proggi durchbrochen voluntad kann.
Tiene una ne Idea Yo abfragen kann womit el Waitinput durchbrochen wurde??

Gracias schonmal en el voraus.

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 Zitat

Absatzweise Cita Zeilenweise Cita

- Página 1 -

Hubert
Binnewies

Yo habe veces weitergeforscht....

Also....en folgender Konstelation Yo en el speziellen el problema:
Kompilieren Marca Separación

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

...........

salvo el %wmpaint se el waitinput no durchbrochen.
el Waitinput reagiert no en el Buttons,
sólo si yo en Buttons en el übergeordneten Ventana principal klicke.
y en el Ventana Yo el Hintergrund por Loadbmp geladen, como Xprofan y Windows el Neuzeichnen on the fly erledigen.

Im Unterfenster Yo esta Weg gewählt, como el Control auch hier el Neuzeichnen on the fly hecho.
Schmeisse Yo el Control fuera reagiert auch el Waitinput otra vez.

Puedo also weder el Control todavía el Waitinput verzichten.
Tiene una ne Concepto Yo el beiden dazu bringe se a vertragen?

Vielen Dank en el voraus.

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 Zitat

Absatzweise Cita Zeilenweise Cita

Welche XProfanversion genau?

Der Code es por desgracia, no lauffähig - algo como es gemein.

03.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

¡Hola,
dar en el Dialogelementen el Diálogo como Elternfenster a y no el Static. Das Elternfenster son a, a welches Ventana Noticias encima el Betätigemn el Dialogelemnte geschickt voluntad. Ein Static kann así nichts anfangen.

Saludo
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 Zitat

Absatzweise Cita Zeilenweise Cita

Hubert
Binnewies

[quote:63b31b4736=iF]Welche XProfanversion genau?

Der Code es por desgracia, no lauffähig - algo como es gemein.

[/quote:63b31b4736]
tztz.....Also...irgendwo en el Foro (sorry Sé que no mehr wo) había du por lo tanto gebeten el verwendete XProfan Versión a una cierto Punto a escribir...
Hab Yo gemacht, pero si el a klein es musst Usted ya deine Webseite umschreiben

[quote:63b31b4736=RGH]¡Hola,
dar en el Dialogelementen el Diálogo como Elternfenster a y no el Static. Das Elternfenster son a, a welches Ventana Noticias encima el Betätigemn el Dialogelemnte geschickt voluntad. Ein Static kann así nichts anfangen.

Saludo
Roland[/quote:63b31b4736]
Hab Yo intenta, esta entsteht aber una más Problema.
Desde que el Static zuerst zeichne mentira el Buttons y Edits optisch antes el Static.
Aber como el Parent el Diálogo es mentira Sie Programmtechnisch detrás de él y puede Somit con ratón no erreicht voluntad.
Ergo: funktioniert no.

Aber Yo schonmal una Ähnliches Prob gehabt, tal vez erinnerst Usted Usted daran IF.
Schau veces hier : [...]

Como había nämlich genau DU me el Tip con el Static gegeben.

Yo me aber el Contribución aber auch otra vez genau durchgelesen, y como todavía una Tip de Usted entdeckt, el Getmessage.
Daraus Yo una solución gebastelt (Yo hoffe el se ejecuta auch aún en Compilat)
Kompilieren Marca Separación

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, Yo sólo en el más Progreso una más Prob:
¿Cómo se puede Yo el Systemvariable %Key löschen?
Mit einfachem Auslesen se el no 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 Zitat

Absatzweise Cita Zeilenweise Cita

Hm %key löschen hm tal vez con
Kompilieren Marca Separación

settimer 1
waitinput
killtimerre>

04.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

¡Hola Georg,
Probier veces el:
Kompilieren Marca Separación

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 Zitat

Absatzweise Cita Zeilenweise Cita

Hubert
Binnewies

Gracias euch beiden....ha wunderbar funktioniert..

Jetzt blanco Yo auch el el GetMessage el %Key no 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 Zitat

Absatzweise Cita Zeilenweise Cita

Hubert
Binnewies

Ein Prob Todavía con meiner neuen Konstruktion....

Yo blanco ahora zwar como %Key gelöscht se, aber en el Konstruktion se él no mehr gesetzt (blanco el geier por qué)..
Jetzt bin Yo no en el Lage el Kreuzchen para Schliessen abzufragen.
Auch %Message , &wParam , &lParam geben no eindeutige Werte, sólo en una Haga doble clic en en Schliessen, y el es no Sinn el Sache.

Sombrero como una ne Concepto??

Gracias schonmal en el voraus.

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 Zitat

Absatzweise Cita Zeilenweise Cita

Hubert
Binnewies

Keiner una Concepto???

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 Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

Immer una lauffähigen Code Por favor, welcher el problema aufzeigt - entonces kann auch geholfen voluntad.

08.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hubert
Binnewies

Der zweite Code es gemeint.....
Um ihn lauffähig a hacer, muss todavía una Ventana principal producido voluntad, el Variables declariert y ser ne Mapa de bits dazu gesetzt voluntad....
El ersten 2 Dinge podría Yo sí todavía hacer...
Aber el Mapa de bits.....

Das como oben es doch salvo:
Kompilieren Marca Separación

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&)pre>

y
Kompilieren Marca Separación

GetMessage

If &wParam=1

    Continue

End

Der Standart code como vom Roc producido se.
Das obere es sólo eingesetzt y el Create´s danach adaptado
Das GetMessage ersetzt el Waitinput y el If abfrage sorgt dafür dass el Ventana sólo reagiert si uno en nen Butten el maustaste loslässt.

el blöde es dass el obere Konstrukt no el %Key setzt womit
Kompilieren Marca Separación

If @EQU(%KEY,2)

niemals zutrifft.

como kann Yo ahora todavía el clic el Schliessfeld abfragen?
oder como bekomme Yo el Schliessfeld bastante weg?

Gracias schonmal en el voraus...

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!"

08.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Das Schliessfeld (systemmenü) kannst Usted encima el Windowstyle abschaffen. (-8)

08.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

◄