XProfan

Proc lade_code

    DrawPic grün_rot&,0990,0358;-1
    usecursor 2
    SENDMESSAGE(DATEI_LISTING_anzeige&,$0184,0,0)
    SENDMESSAGE(DATEI_LISTING_kopie&,$0184,0,0)
    i%=0
    zeilen_nummer&=0

    Whileloop getcount(datei_include_liste&)

        datei$= getstring$(datei_include_liste&,i%)
        inc i%

        If zeilen_nummer&=0

            erste_zeile&=zeilen_nummer&

        Else

            erste_zeile&=zeilen_nummer&+1

        endif

        ASSIGN #1,DATEI$
        RESET #1

        WhileNot EOF(#1)

            input #1,zeile$
            addstring(datei_listing_anzeige&,zeile$)
            addstring(datei_listing_kopie&,zeile$)
            INC ZEILEN_nummer&

        EndWhile

        close #1
        letzte_zeile&=zeilen_nummer&
        text$=datei$+"("+str$(erste_zeile&)+")"+"("+str$(letzte_zeile&)+")"
        addstring(programm_zeilen&,text$)

    EndWhile

    usecursor 0
    DrawPic grün&,0990,0358;-1

EndProc

Proc zeige_units

    DrawPic grün_rot&,0990,0358;-1
    usecursor 2
    ZEILENZäHLER&=0

    Whileloop getcount(datei_listing_kopie&)

        zeile$=getstring$(datei_listing_kopie&,zeilenzähler&)
        INC ZEILENZäHLER&
        zeile$=trim$(zeile$)

        If (lower$(left$(zeile$,2))="$i") or (lower$(left$(zeile$,2))="$u")

            pos&=instr(" ",zeile$)

            If pos&=3

                zeile$=right$(zeile$,len(zeile$)-pos&)
                zeile$=trim$(zeile$)
                zeile$=upper$(zeile$)
                addstring(liste_units&,zeile$)

            EndIf

        EndIf

    EndWhile

    usecursor 0
    DrawPic grün&,0990,0358;-1ENDPROC

 {$cleq}
long x,y
decimals 0
window 600,600
windowtitle "oglUI-TestMode-Test"
ogl("init", %HWnd, 255,255,255,1)
mcls 600,600,0
ogl("clear")
ogl("color",1.3,1.3,1.3,1)
ogl("move",0,-.25,-3)
ogl("rotate",45,35,0)
ogl("cuboid",1,1,1)
ogl("show")

whileloop 0, 599, 3

    y = &loop

    whileloop 0, 599, 3

        x = &loop
        ogl("starttest",x,y)
        ogl("clear")
        ogl("move",0,-.25,-3)
        ogl("rotate",45,35,0)
        ogl("SetName", 1)
        ogl("cuboid",1,1,1)
        case ogl("endtest") = 1 : setpixel x,y,0

    endwhile

    settext %hwnd,str$(y/600*100)+"%"

endwhile

string fle=ReadIni$("Hkey_1","Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders","Desktop")+"\\ogl.testmode.test.png"
long hPic = create("hpic",0,"&OGLBMP")
savepic fle, hPic
deleteObject hPic
shellexec(fle,"open",3)
ogl("done")
end