XProfan

Proc Setinnersize

    Parameters X%,Y%
    Setwindowpos %Hwnd = %Winleft,%Wintop - ((%Winright-%Winleft)-(Width(%Hwnd)-X%)),((%Winbottom-%Wintop)-(Height(%Hwnd)-Y%));0

Endpr

 {$cleq}

Proc Setinnersize(long x,y)

    Setwindowpos Hwnd = Winleft,Wintop - ((Winright-Winleft)-(Width(Hwnd)-x)),((Winbottom-Wintop)-(Height(Hwnd)-y));0

ENDPROC

 {$cleq}
windowstyle (512 | 8 | 16 | 2 )
windowtitle ""// apptitle+" "+appver
hwnd.createCenterHwnd(320,200,getsyscolor(15))
waitinput
end

hwnd.createCenterHwnd (long _width,_height,_color) {

    window maxx,maxy - 0,0
    cls _color
    hwnd.SetHwndInnerSize _width,_height
    setwindowpos hwnd=(maxx/2-_width/2),(maxy/2-_height/2) - (winright-winleft),(winbottom-wintop);0
    return hwnd

}

hwnd.SetHwndInnerSize (long x,y) {

    Setwindowpos Hwnd = Winleft,Wintop - ((Winright-Winleft)-(Width(Hwnd)-x)),((Winbottom-Wintop)-(Height(Hwnd)-y));0

0000FF>}

DECLARE __cf1&
Def __cf1(2) !"KERNEL32","GetProcAddress"
Def __cf2(1) !"KERNEL32","GetModuleHandleA"
__cf1&=__cf1(__cf2("user32.dll"),"GetSysColor")
WINDOWSTYLE (512 | 8 | 16 | 2 )
WINDOWTITLE ""
HWND.CREATECENTERHWND(320,200,call(__cf1&,15))
WAITINPUT
end

proc HWND.CREATECENTERHWND

    PARAMETERS _WIDTH&,_HEIGHT&,_COLOR&
    WINDOW %MAXX,%MAXY - 0,0
    CLS _COLOR&
    HWND.SETHWNDINNERSIZE _WIDTH&,_HEIGHT&
    SETWINDOWPOS %HWND=(%MAXX/2-_WIDTH&/2),(%MAXY/2-_HEIGHT&/2) - (%WINRIGHT-%WINLEFT),(%WINBOTTOM-%WINTOP);0
    RETURN %HWND

endproc

proc HWND.SETHWNDINNERSIZE

    PARAMETERS X&,Y&
    SETWINDOWPOS %HWND=%WINLEFT,%WINTOP - ((%WINRIGHT-%WINLEFT)-(WIDTH(%HWND)-X&)),((%WINBOTTOM-%WINTOP)-(HEIGHT(%HWND)-Y&));0

ENDPROC