XProfan

 $I UpdateWindow.inc
Déclarer bye&,ende%,button&,text&,edit&,listbox1&,listbox2&,dll&,big&
------------------Dll magasin------------------
let dll&=usedll(Shell32.dll)
cas lt(dll&,32):messagebox(Dll pas geladen,Dateifehler,16)
---------------------------------------------
Procedure aus qui inc es wird un la fenêtre erstellt dans Prozent zum Bildschirm
windowCreate Prozent-Fenêtre,63,800,600
originalsize   très important pour chaque Fenêtre ou bien Dialogcreate
--------------------------------------------------------------------------
eigenes Créer, si quelque chose comme la fois gebraucht wird seulement ab Profan 7.0
Controlcreate Button,&Ende,10,520,100,25
let bye&=@&(0)
--------------------------------------------------------------------------
ici cela normale create, seulement alles zéro, ensuite avec resize qui Taille mettons
cet forme ist empfohlen, là vous aussi une Zeiteinsparung ergibt pour qui resize
bye&= CREATEBUTTON(%HWND,&Ende,0,0,0,0)
resize bye&,10,520,100,25,1234
BUTTON& = CREATEBUTTON(%HWND,&irgendwas,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 magasin, ebenso empfohlen juste avec Proc's trop erstellen um
Zeit trop 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,ca ist une flexible Schrift,12
let ende%=0

WHILENOT ENDE%

    WAITINPUT

    Si @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4) Abfrage sur 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) important Bildschirm muss gelöscht volonté, bevor qui Objecte récente gesetzt volonté
        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,ca ist une 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