Использую функцию xSetRenderWindow для вывода графики в элемент управления на форме. Не могу понять, как правильно изменять размер этой области. Делаю так: (код PowerBasic 10)
...
xSetRenderWindow hCtl 'set render area to image control
xSetTopWindow hDlgMW 'set main window as input window
...
xGraphics3D(DWidth& ,DHeight& ,0,0,0) 'Desktop width and height
...
далее обрабатываю сообщение WM_SIZE:
cw = LO(WORD, CB.LPARAM) 'new main window width
ch = HI(WORD, CB.LPARAM) 'new main window height
CONTROL SET SIZE hDlgMW,2,cw*0.70,ch 'image contol width=70% width of main window
xCameraViewport(Camera, 0, 0, cw, ch) 'is it correct???
DIALOG SET TEXT hDlgMW,STR$(cw)
xcls
Render3d
но получаю такое:
В чем может быть прикол? Идеи есть?