- procedure glresizeborder(width,height:integer);// (width,height) 0=> "Auflösung"
- var clientrect,windowrect:trect;
- bwidth,bheight:integer;
- begin
- getclientrect(wnd,clientrect);
- getwindowrect(wnd,windowrect);
- bwidth:=(windowrect.right-windowrect.left)-(clientrect.right-clientrect.left);
- bheight:=(windowrect.bottom-windowrect.top)-(clientrect.bottom-clientrect.top);
- setwindowpos(wnd,0,getsystemmetrics(sm_cxscreen)shr 1-(width+bwidth)shr 1,getsystemmetrics(sm_cyscreen)shr 1-(height+bheight)shr 1,width+bwidth,height+bheight,swp_nozorder);
- end;