XProfan

 $I UpdateWindow.inc
Declarar bye&,ende%,button&,text&,edit&,listbox1&,listbox2&,dll&,big&
------------------Dll invitar------------------
let dll&=usedll(Shell32.dll)
caso lt(dll&,32):messagebox(Dll no geladen,Dateifehler,16)
---------------------------------------------
Procedure de el inc lo se una Ventana erstellt en Prozent para Bildschirm
windowCreate Prozent-Ventana,63,800,600
originalsize   muy wichtig después de cada Ventana oder Dialogcreate
--------------------------------------------------------------------------
propio Crear, si algo como veces gebraucht se sólo de Profano 7.0
Controlcreate Button,&Ende,10,520,100,25
let bye&=@&(0)
--------------------------------------------------------------------------
Hier el normale create, sólo alles null, entonces con resize el Größe conjunto
Diese Form es empfohlen, como ellos auch una Zeiteinsparung ergibt para el resize
bye&= CREATEBUTTON(%HWND,&Ende,0,0,0,0)
resize bye&,10,520,100,25,1234
BUTTON& = CREATEBUTTON(%HWND,&algo,0,0,0,0)
resize button&,120,520,100,25,1234
Big& = CREATEBUTTON(%HWND,Big,0,0,0,0)
resize big&,280,520,30,30,1234
TEXT& = CREATETEXT(%HWND,TEXT,0,0,0,0)
resize text&,10,20,50,20,1234
EDIT& = CREATEEDIT(%HWND,EDIT,0,0,0,0)
resize edit&,10,60,110,22,1234
LISTBOX1& = CREATELISTBOX(%HWND,LISTBOX,0,0,0,0)
resize listbox1&,10,100,200,400,1234
LISTBOX2& = CREATELISTBOX(%HWND,LISTBOX,0,0,0,0)
resize listbox2&,220,100,200,400,1234
--------------------------------------------------------------------------
Bitmaps usw invitar, ebenso empfohlen igual con Proc's a redactar en
Tiempo a sparen
oLoadSizedBmp 003.bmp,500,100,250,187,0,1234
oLoadbmp 003.bmp,500,300,0,12
oDrawIcon A,60,10,12
oDrawExtBmp dll&,130,310,10,0,12
oDrawSizedExtBmpNr dll&,130,310,10,413,71,0,1234
ocliploadbmp 500,100,0,12
oDrawSysIcon 1,100,10,12
oDrawLibIcon Shell32.dll,100,145,10,12
oDrawExtIconNr dll&,140,185,10,22
oDrawText 255,0,0,-1,ARIAL,25,0,0,0,0,440,520,Dies es una flexible Schrift,12
let ende%=0

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4) Abfrage en Größenveränderung

        resize bye&,10,520,100,25,2
        resize button&,120,520,100,25,2
        resize text&,10,20,50,20,2
        resize edit&,10,60,110,22,2
        resize listbox1&,10,100,200,400,234
        resize listbox2&,220,100,200,400,1234
        resize big&,280,520,30,30,234
        CLS GETSYSCOLOR(15) wichtig Bildschirm muss gelöscht voluntad, bevor el Objecte neu gesetzt voluntad
        oLoadbmp 003.bmp,500,300,0,12
        oLoadSizedBmp 003.bmp,500,100,250,187,0,1234
        oDrawExtBmp dll&,130,310,10,0,12
        oDrawSizedExtBmp dll&,130,310,10,413,71,0,1234
        ocliploadbmp 500,100,0,12
        oDrawIcon A,60,10,2
        oDrawSysIcon 1,100,10,2
        oDrawLibIcon Shell32.dll,100,145,10,2
        oDrawExtIcon dll&,140,185,10,2
        oDrawText 255,0,0,-1,ARIAL,25,0,0,0,0,440,520,Dies es una flexible Schrift,12

    ELSEIF GETFOCUS(EDIT&)

    ELSEIF GETFOCUS(LISTBOX1&)

    ELSEIF GETFOCUS(LISTBOX2&)

    ELSEIF GETFOCUS(BUTTON&)

        LET ENDE%= 1

    ELSEIF GETFOCUS(bye&) ende

        LET ENDE%= 1

    ENDIF

WEND

freedll dll&
end