XProfan

Alle Message-Fenster in PROFAN² müssen immer über einen Button geschlossen werden.
Es gibt aber auch Meldungen, die nach einer bestimmten Zeit von selbst schliessen.
Hier ist eine Procedur, die das auch macht. Sollte in jeder Version funktionieren.
[CODE]PROC ZEIT_FENSTER
DECLARE text_lang%,m_X%,m_txt%,meldung&,m_font&
PARAMETERS m_titel$,icon$,text_B%,m_text$,m_text1$,m_text2$,zeit%,m_back%
1. Titeltext
2. Profan-Icon
3. Fontbreite
4. Textzeile 1
5. Textzeile 2
6. Textzeile 3
7. Anzeigezeit
8. Fensterhandle
m_font&=CREATE("FONT","ARIAL",MUL(text_B%,2),text_B%,0,0,0) Font wird über die Breite erstellt
text_lang%=LEN(m_text$)
m_X%=ADD(DIV(MUL(text_lang%,text_B%),2),50) die Breite des Fensters
WindowStyle 48 muss nicht sein...
meldung& = CREATE("WINDOW",%HWnd,m_titel$,SUB(DIV(%MaxX,2),m_X%),SUB(DIV(%MaxY,2),60),MUL(m_X%,2),130)
CREATE("ICON",meldung&,icon$,10,15) Alle PROFAN²-Icons sind möglich
m_txt%=CREATE("TEXT",meldung&,m_text$,65,20,MUL(m_X%,2),20)
SetFont m_txt%,m_font&
m_txt%=CREATE("TEXT",meldung&,m_text1$,65,40,MUL(m_X%,2),20) die 2. und 3. Textzeile sollten
SetFont m_txt%,m_font&
m_txt%=CREATE("TEXT",meldung&,m_text2$,65,60,MUL(m_X%,2),20) nicht länger wie die 1. sein
SetFont m_txt%,m_font&
-------------------------
SLEEP zeit% Anzeigedauer
-------------------------
DeleteObject m_font&
DesTroyWindow(meldung&)
SetFocus(m_back%) Der Focus wird auf das Hauptfenster gesetzt

ENDPROC

Beispiel
CLS
zeit_fenster "Fenster schliesst automatisch","DRUCKER",8,"Der 7. Parameter gibt die Anzeigedauer an",
"Danach wird das Fenster gelöscht...","Probieren ist angesagt ;o)",2000,%HWnd
waitinput
end