Часто у меня возникают вопросы по изменению размеров гаджетов в тех или иных ситуациях. Следующий пример я нашел в код архиве и в нем при растяжении или уменьшении окна меняются размеры кнопки. Я так понял тут какой - то особый код с использованием Callback, что намного сложней. Может быть можно как нибудь по другому данную задачу решить?
Код:
Procedure WinCallback(Win,Msg,wParam,lParam)
Select Msg
Case #WM_SIZE
ResizeGadget(1,5,5,WindowWidth(0)-10,WindowHeight(0)-10)
EndSelect
ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
OpenWindow(0,0,0,200,30,"Test",#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_SizeGadget)
ButtonGadget(1,5,5,190,20,"Button")
SetWindowCallback(@WinCallback())
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow