Dialoge auf Desktop

[Muecke]

Hallo,

ich hab

Code: Alles auswählen

SetTimerEvent(30000, {|| zeitVomPlan() } ) 

verwendet um Termine einzublenden. Jetzt kann es sein, dass die gleichen Dialoge 4,5,6 mal aufgehen.
Mein Problem ist , dass ich nur der lezte Dialog schliessen kann.
Gibt es eine Function, wie ich alle Dialoge auf dem Desktop abfragen kann.

Gruss Thomas

[Rolf Ramacher]

Hallo Thomas,

möchtest du an der Stelle das komplette Programm schliessen? dann geht das mit Quit. Oder du mußt die Dialoge an die Funtkionen mit übergeben.

[Muecke]

Wie soll ich das verstehen.
Ich gebe jeden geöffneten Dialog an den neu zu öffneten Dialog weiter? Und dann?

Gruss Thomas

[Jan]

Thomas,

für mich hört sich das so an, als ob jeder neue Dialog ein Child des vorigen ist. Und das ganze modal. Denn dann kannst Du auf die Parents nicht mehr zugreifen, bis das Child geschlossen ist.

Jan

[Muecke]

Jan,
Wie kann ich dies umgehen.Könnte es gehen, wenn ich für jeden Dialog ein Thread starte?

Gruss Thomas

[Jan]

Hallo Thomas,

man muß das nicht immer so kompliziert machen wie ich das in dem hier allseits immer wieder gerne diskutierten Fall machen

Was möchtest Du denn erreichen? Oder wie funktioniert das im Moment? So spontan, ohne Codebeispiel von Dir, würde ich sagen: Mach das ganze Nichtmodal. Also kein oDialog:showModal() oder oDlg:setModalState(XBP_DISP_APPMODAL) oder so ähnliche Sachen.

Kann aber auch andere Ursachen haben. Kannst Du den Dialogaufruf unde den Dialog mal posten?

Jan

[Muecke]

Hallo Jan,

Irgend was mache ich falsch mit

Code: Alles auswählen

SetTimerEvent

Wenn ich die Dialoge ohne

Code: Alles auswählen

SetTimerEvent

öffne, hab ich kein Problem.
Wie soll oder wan kann ich den Thread schliessen.

Code: Alles auswählen

SetTimerEvent(1000, {|| { zeitVomPlan(oBesKu) } )



************************************
***  Erinnerungszeit von Plan   ****
************************************
FUNCTION zeitVomPlan(oBesKu )

  
  &oBesKu->( dbGoTop() )
  DO WHILE !oBesKu->( eof() )
           IF date() >= oBesKu->von
               ...............
               ...............

               oDialog:=ErTermin():New(,,,,,,aDatErin):create():run()
                    
               inkey(4)   // Zeit lassen für Aufbau der Dialoge

    oBesKu->( dbSkip() )
  ENDDO
    
RETURN .T.

Gruss Thomas

[brandelh]

Hallo,

entweder durch einen Druck auf einen Close Button oder sowas in dem geöffneten Fenster dieses Threads, oder indem du eine Statusvariable einbaust, auf die du von außen Zugriff hast.

[AUGE_OHR]

hi,

Code: Alles auswählen

SetTimerEvent(1000, {|| { zeitVomPlan(oBesKu) } )
************************************
***  Erinnerungszeit von Plan   ****
************************************
FUNCTION zeitVomPlan(oBesKu )
  &oBesKu->( dbGoTop() )
  DO WHILE !oBesKu->( eof() )
           IF date() >= oBesKu->von
               ...............
               ...............

               oDialog:=ErTermin():New(,,,,,,aDatErin):create():run()
             
               inkey(4)   // Zeit lassen für Aufbau der Dialoge
    oBesKu->( dbSkip() )
  ENDDO
 
RETURN .T.

d.) ein INKEY(4) hat nichts in einer GUI Anwendung zu suchen.
hier nimmt man ein(e) AppEvent (Schleife).

c.) ErTermin() wird ohne Parent erstelllt, somit findest du es nicht unter
Desktop. Vielmehr wird "das letzte" SetAppFocus() verwandt sodas du
auch nur das schliessen kannst.

b.) es ist die Frage ob man wirklich SetTimerEvent() so einsetzten sollte.

SetTimerEvent(nTime) startet nach fester nTime den Thread nochmal
unabhängig davon ob was notwendig ist oder nicht. Willst du aber ständig
etwas "überprüfen" so solltest dann keine Code ausführen sondern nur
einen Event generieren damit du weiterhin "überprüfen" kannst. Der
Event wiederum veranlasst dein Programm die Anzeige auszulösen und
entsprechende Aktionen (Procedure/Function) durchzuführen.

a.) du überprüfst nicht ob die Anzeige Procedure gerade läuft.
verwende dafür eine STATIC isRun := .T. / .F. damit du bei einem
2st. Aufruf überprüfen kannst und somit nicht mehrfach ausgeführt wird.

Im Grunde bräuchtest du also ein "überprüfungs" Thread und für jedes
"Fenster" eine eigenen Thread mit einem AppEvent()

gruss by OHR
Jimmy

[Rolf Ramacher]

Hallo Thomas,

wenn ich einen Dialog an eine Funktion weitergebe, so mache ich erst ein
oParent:disable(). Dann gibt es in der 2.ten maske 2 buttons mit zurück
und speichern.

bei beiden buttons muß ich ja zurück auf die erste Maske. also:

oParent:enable()
oDlg:destroy()
SetAppFocus(oParent)

[brandelh]

d.) ein INKEY(4) hat nichts in einer GUI Anwendung zu suchen.
hier nimmt man ein(e) AppEvent (Schleife).

In diesem Fall sollte der INKEY(4) nur eine Zeitverzögerung bewirken,
da wäre SLEEP(400) angesagt. (Die Zeitangabe sind 400/100 Sekunden.)

[Muecke]

Hi,

Ich möchte mich für Eure Hilfe noch bedanken.

Die Function zeitVomPlan kontr. ich in einer Eventschlaufe. Funct jetzt recht gut.

Auch das mit dem inkey und sleep hab ich nochmals angeschaut.
Wenn soll man aber mit sleep und mit inkey arbeiten? Gibt es da eine Regel?

Gruss Thomas

[brandelh]

Hi,

SLEEP() stoppt ohne auf eine Eingabe zu reagieren, wenn dein Programm eh nix zu tun hat oder auf den Refresh des Dateisystems wartet, kann z.B. ein 1/10 Sekunden Sleep für den Anwender keine Nachteile haben, der Rechner erledigt aber dabei viele viele Aufgaben.

inkey() verwendet man NUR noch in CRT oder VIO Fenstern, wenn man möchte dass ein Tastendruck den Wartezustand beendet.

GUI Programme machen das in der Eventschleife !

Ein Beispiel für SLEEP ...

Code: Alles auswählen

do while .t.
     if LEnde
        exit
     endif
enddo

So mancher denkt, toll der Rechner hat nix zu tun ... tatsächlich ist diese Schleife DER Performancekiller, denn der Prozess rennt in einer Endlosschleife und verbraucht bei jedem Vergleich Rechenzeit.

Code: Alles auswählen

do while .t.
     if LEnde
        exit
     endif
     sleep(10)
enddo

hier wird die Schleife in jeder Sekunde nur 10 Mal durchlaufen.
Der Rechner vergeudet keine Zeit für diesen Thread, und hat Zeit für andere. Immer auch beachten, die GUI Anzeige ist ein eigener Thread. Wenn ein Monsterprogramm den Rechner beschäftigt, kann es passieren dass der Bildschirm nicht mehr korrekt aufbaut bis zur nächsten Wartezeit. Sleep(10) wirkt hier Wunder.