Sie befinden sich auf der NewGUI Sourcepage

Start
Über NewGui
Featureübersicht
Changesübersicht
Installation
Download
Demos
Anwendungen
Tutorials
Sourcecodes
-Button Beispiel
-Checkbox Beispiel
-TextEditor
-Flächen & Füllroutinen
-Eingabegadgets
-
Links
Kontakt

Unser Hostingpartner 

; 
; 
; (c) 2000 Cyborg 

    {* Include sys:coder/preass/Options.p *}

    {* String: Version=": (C) CYBORG 2003"*}

    {* usefd:sys:coder/fd/newgui_lib.fd *}

Start:
    
    Gui=Open_Window(150,100,600,400,"TESTWINDOW",#WFLG_DRAGBAR!WFLG_Sizegadget!WFLG_DEPTHGADGET!WFLG_CLOSEGADGET!WFLG_RMBTRAP!WFLG_SMART_REFRESH,#IDCMP_MOUSEBUTTONS!IDCMP_ACTIVEWINDOW!IDCMP_GADGETDOWN!IDCMP_GADGETUP!IDCMP_CLOSEWINDOW!IDCMP_VANILLAKEY!IDCMP_RAWKEY!IDCMP_REFRESHWINDOW,0)
    if gui#0
     {

       Area=makeAreaGFX(Gui,10,10,590,390)

       DrawBox3dR(Gui,Area)
       FillBoxColor(Gui,area,0,0,100)

       For i=1 to 100

        BlueBoxProzentT(Gui,Area,i)
        
       next I

       For J=0 to 255

           FillBoxColor(Gui,area,J,0,0)
                
       next J

       For K=0 to 1000

           SpeedBox(Gui,area,1000,K)
                
       next K

       For L=1000 to 0 step -1

           SpeedBox(Gui,area,1000,L)
                
       next L-

       For O=1 to 160 step 1

           ClearGui(gui)
           DrawRoundBox3d(Gui,Area,O)

       Next O

       Gui=Close_window(gui)
       FreeAreaGFX(Area)
     }

    printf("Ende\n")
    {* Return *}