Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 241816 (3252)
  Suchen
 Zurück zur Übersicht
 AutorThema: nochmal Messagebox-Stil
Horst Horn
Datum:24.08.02 10:04 Antwortenals Email verschicken (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