Minimiertes Fenster wieder darstellen

[ms]

Ich habe ein Fenster erstellt mit den Standardeigenschaften (minimieren,maximieren,schließen). In diesem Fenster laufen längere Berechnungen (ca. 60 min) und eine Zeitanzeige. Wenn ich dieses Fenster minimiere erscheint es unten in der Taskbar. Es lässt sich aber nicht wieder herstellen während die Berechnungen laufen (CPU Last = 100 %). Nach Ende der Berechnungen ist eine Wiederherstellung problemlos möglich - mit allen Inhalten.
Hat jemand eine Idee ?

[Joel]

Ja ist mir auch schon öfters passiert, man müsste beim Maximieren den Prozess in eine Art Pause versetzen (Wie beim Task-Manager bei Windows 98 SE) das Fenster dann Maximieren und dann weiter berechnen lassen.

[Kaeru Gaman]

innerhalb der berechnungsschleife ein WindowEvent() einfügen.
wenn die berechnung in geschachtelten schleifen stattfindet,
vielleicht nicht in der innersten schleife.

Code: Alles auswählen

For Zeile = 0 to 999
  For Spalte = 0 to 999
    Berechnung(Zeile,Spalte)
  Next
  WindowEvent()
Next

[ms]

WindowEvent() funktioniert. Man muss sich aber bei geschachtelten Schleifen sehr genau überlegen wo man diesen Befehl aufruft. Den Unterschied in den Auswertezeiten werde ich noch einmal testen. Aber generell ist dieser Weg OK.
Danke Kaeru

[Hellhound66]

Zweite Möglichkeit:

Das Hauptprogramm besteht nur auf ner Endlosschleife mit WaitWindowEvent(). Alle weiteren Dinge werden in seperaten Threads behandelt.

[a14xerus]

Ist mit Threads auf jeden Fall eleganter, aber auch gefährlicher

[Kaeru Gaman]

yo genau.

die lösung per threads ist vorzuziehen, wenn man damit sicher umgehen kann.
als schnellösung ist das einfache beispiel der eventbehandlung zwischendrin ausreichend.

[Sir0Kuhl]

was könnte mit threads denn schief gehen?

[Deeem2031]

Die Frage, was nicht schiefgehen kann, wäre wahrscheinlich schneller zu beantworten

[mk-soft]

Immer diese Panikmache mit den Threads.

Folgende Regeln beachten:
- Mehrfaches starten verhindern
- String nicht in mehreren Thread verarbeiten. (Möglich bei PB4 mit Option Threadsave)

Code: Alles auswählen

Global ThreadActiv.l

Procedure MyThread(ID)

  For i = 0 To 10 ; 
    Delay(1000)
  Next i

EndProcedure

If ThreadActiv = #False
  hThread = CreateThread(@MyThread(), 0)
  If hThread
    ThreadActiv = #True
  EndIf
EndIf

Repeat
  If IsThread(hThread)
    Debug "Thread läuft"
  Else
    Debug "Thread fertig"
    ThreadActiv = #False
  EndIf
  Delay(1000)
Until ThreadActiv = #False