Thanks
Karu
Code: Select all
Procedure Open_Peaaken()
If OpenWindow(0, 457, 143, 500, 743, "WAF Form editor", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar )
ListIconGadget(1, 9, 114, 205, 640, "id", 0, #PB_ListIcon_MultiSelect | #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
PureRESIZE_SetGadgetResize(1, #True, #True, #True, #True)
EndIf
EndProcedure
Open_Peaaken()
Repeat
Event = WindowEvent()
If Event = 0
Delay(10)
EndIf
Until Event = #PB_Event_CloseWindow