'********************** HINWEISE ********************************
' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR 3.2
' DATUM  24.06.2003    um  20:30 Uhr
' VERWENDETE PROFANVERSION IST 7.0 ODER HÖHER


'********************** DATEN ***********************************
PROC DLG_REFRESH
SETAUTOPAINT 2
STARTPAINT DLG&
   CLS RGB(0,0,255)
   TextColor RGB(255,255,0),-1
   Drawtext 3,3,"Ich bin ein farbiger Text"
   TextColor RGB(255,128,192),-1
   Drawtext 3,17,"Ich bin der Kumpel vom ersten farbigen Text ;)"
   ShowWindow (Button1%,0) 'Sonst wird Button versteckt!
   ShowWindow (Button1%,1)
ENDPAINT			
SETAUTOPAINT 0
ENDPROC



PROC DIALOG  '---------------------------------------------------------------------------> Dialoganfang
DECLARE DLG&, DIALOGENDE%
DECLARE BUTTON1%
DLG&=CREATE("DIALOG",%HWND,"Neues Fenster",235,164,376,215)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
BUTTON1% =@CREATE("BUTTON",DLG&,"EXIT",0012,0050,0070,0030)
DLG_REFRESH
WHILENOT DIALOGENDE%
WAITINPUT
   If @EQU(%KEY,2)
      LET DIALOGENDE%= 1
   ELSEIF %WMPAINT
      DLG_REFRESH
   ELSEIF GETFOCUS(BUTTON1%) 'BUTTON
      Let Dialogende%=1
   ENDIF
WEND
@DESTROYWINDOW(DLG&)
ENDPROC '--------------------------------------------------------------------------------> Dialogende


'Das folgende Hauptfenster ist nur zum Testen:
SETTRUECOLOR 1
WINDOWTITLE "Farbe im Dialog"
WINDOWSTYLE 63
WINDOW 0,0-0,0
DIALOG 'Dialog aufrufen!