$P+
SetErrorLevel 0
'********************** HINWEISE ********************************
' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR 4.5
' DATUM  25.11.2006    um  21:19 Uhr
' VERWENDETE PROFANVERSION IST 10.0ß-NT S13 XPROFAN
' CODE ERSTELLT UNTER UNBEKANNTER WINDOWSVERSION
' !!! Dieser Code wird von Roc immer neu erzeugt        !!!
' !!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
' !!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!
'Zahlen ordentlich formatiert untereinander aufreihen
'by Rolf Koch - rokosoft - 2006
'Achtung keine nummerische Edits aus Faulheit hier - nur Zahlen eingeben:

DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE EDIT1&
DECLARE BUTTON1&

WINDOWSTYLE 63
WINDOWTITLE "Total Format"
WINDOW 22,20-509,702
SETTRUECOLOR 1
DECLARE ENDE%
CLS
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1

proc show.me 'oder auch PRINT.ME :)
parameters dhdl&
declare out$,zz%,dhtxt$
dhtxt$=gettext$(dhdl&)
dhtxt$=translate$(dhtxt$,",",".") 		'immer gut damit der Anwender
						'auch ein Komma eingeben kann
out$= @Format$("000000,000.00",val(dhtxt$))
whileloop len(out$)
 if val(mid$(out$,&loop,1)) = 0
    inc zz%
 else
    break
 endif
endwhile
out$=Del$(out$,1,zz%)
out$=space$(zz%)+out$
return out$
endproc

' Hier kann ggf. Ihr Menü hin

EDIT1& = CREATE("EDIT",%HWND,"",0009,0011,0120,0020)
BUTTON1& = CREATE("BUTTON",%HWND,"Show me",0403,0013,0070,0021)
SETFOCUS(%HWND)
locate 5,1
WHILENOT ENDE%
WAITINPUT
   If @EQU(%KEY,2)
     LET ENDE%= 1
   ELSEIF @EQU(%KEY,4)

   ELSEIF clicked(BUTTON1&) 'BUTTON
	show.me edit1&
        PRINT $(0) 'hier Druckbefehl

   ENDIF
WEND