Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 241816 (3252)

| Suchen
| Zurück zur Übersicht

Autor | Thema: nochmal Messagebox-Stil
Horst Horn
| Datum:24.08.02 10:04 (info@web-treffpunkt.de) |
Nun habe ich mir die selbstschliessende Messagebox geschrieben Wenn jemand auch 'so ein Ding' braucht: hier ist der Quelltext. Alle Verbesserungsvorschläge werden dankend angenommen. +++++++++++++++++++++++++++++++++++++++++++++++++++++++ PROC AUTO_MELDUNG DECLARE m_font%,text_lang%,meldung&,m_X%,m_text% PARAMETERS m_titel$,icon$,text_B%,m_text$,m_text1$,zeit%,m_back% 'Titelzeile, Icon,Textbreite, 1. Textzeile, 2. Textzeile, Anzeigezeit, Fensterhandle 'die 2.Textzeile nicht länger wie die 1.Zeile m_font%=CREATEFONT("ARIAL",16,text_B%,0,0,0) text_lang%=LEN(m_text$) m_X%=ADD(DIV(MUL(text_lang%,text_B%),2),50) WindowStyle 48 meldung& = CREATE("WINDOW",%HWnd,m_titel$,SUB(DIV(%MaxX,2),m_X%),SUB(DIV(%MaxY,2),60),MUL(m_X%,2),120) CREATE("ICON",meldung&,icon$,10,15) ' Alle PROFAN²-Icons sind möglich m_text%=CREATE("TEXT",meldung&,m_text$,65,20,MUL(m_X%,2),20) SetFont m_text%,m_font% m_text%=CREATE("TEXT",meldung&,m_text1$,65,50,MUL(m_X%,2),20) SetFont m_text%,m_font% '------------------------- SLEEP zeit% '------------------------- Deleteobject m_font% DesTroyWindow(meldung&) SetFocus(m_back%) ENDPROC '------------------------- CLS AUTO_MELDUNG " automatische Message-Box","A",8,"Fenster schliesst nach der vorgegebenen Zeit",\ "...kann noch perfektioniert werden !",2000,%HWnd END ++++++++++++++++++++++++++++++++++++++++++++++++++ Schönes Wochenende horst

| Zurück zur Übersicht