Решил значит создать диалоговое окно в процедуре(функции)ну типа шрифт выбирать смотреть что выбрал.
И тут бах не понял ,почему по окончании этой процедуры с закрытием окна вся программа завершается?я как бы процедуру с дополнительным окном типа диалога завершал.
Это ошибка или что?
Procedure.i Test_metrika() Protected window_hwnd.i Protected canvas_hwnd.i window_hwnd=OpenWindow(#PB_Any, 0, 0, 600, 600, "Выбор шрифта",#PB_Window_SystemMenu| #PB_Window_SizeGadget | #PB_Window_ScreenCentered) canvas_hwnd=CanvasGadget(#PB_Any,300,200,300,300) Repeat Select WaitWindowEvent() Case #PB_Event_CloseWindow ;DestroyWindow_(canvas_hwnd) ;DestroyWindow_(window_hwnd) Break EndSelect ForEver ProcedureReturn EndProcedure OpenWindow(0, 0, 0, 800, 400, "Testhrift",#PB_Window_SystemMenu| #PB_Window_SizeGadget | #PB_Window_MinimizeGadget| #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered) Test_metrika() Repeat Event = WaitWindowEvent() Until Event = #PB_Event_CloseWindow