XProfan

Français

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Zahlen formatiert untereinander ausgeben
 $P+
SetErrorLevel 0
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS 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  !!!
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

    E