XProfan

 $I UpdateWindow.inc
Declare bye&,end%,button&,text&,edit&,listbox1&,listbox2&,dll&,big&
------------------Dll loading------------------
let dll&=usedll(Shell32.dll)
case lt(dll&,32):messagebox(Dll not loaded,Dateifehler,16)
---------------------------------------------
Procedure from the inc it becomes one Window prepares in percent to that screen
windowCreate percent-Window,63,800,600
originalsize   very important to each Window or Dialogcreate
--------------------------------------------------------------------------
own Create, if something like time used becomes first ex Profan 7.0
Controlcreate Button,&end,10,520,100,25
let bye&=@&(0)
--------------------------------------------------------------------------
here the normal create, first everything zero, then with resize The Size settle
These shape is recommended, there tappt im dunkeln too a Zeiteinsparung yields for The resize
bye&= CREATEBUTTON(%HWND,&end,0,0,0,0)
resize bye&,10,520,100,25,1234
BUTTON& = CREATEBUTTON(%HWND,&something,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 etc loading, likewise recommended same with Proc's to create circa
Time To save
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,this is a flexible Font,12
let end%=0

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4) request on 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 screen must deleted go, before The Objecte new staid go
        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,this is a flexible Font,12

    ELSEIF GETFOCUS(EDIT&)

    ELSEIF GETFOCUS(LISTBOX1&)

    ELSEIF GETFOCUS(LISTBOX2&)

    ELSEIF GETFOCUS(BUTTON&)

        LET ENDE%= 1

    ELSEIF GETFOCUS(bye&) end

        LET ENDE%= 1

    ENDIF

WEND

freedll dll&
end