; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=2410&highlight= ; Author: Danilo ; Date: 29. September 2003 Procedure ScrollbarX() ProcedureReturn GetsystemMetrics_(#SM_CXHSCROLL) EndProcedure Procedure ScrollbarY() ProcedureReturn GetsystemMetrics_(#SM_CYVSCROLL) EndProcedure If OpenWindow (1,100,150,500,500,#PB_Window_SystemMenu,"test") CreateGadgetList(WindowID()) ScrollAreaGadget(0,20,20,460,460,460-ScrollbarX(),1000,155) ButtonGadget(1,0, 0 ,50,20,"Button 1") ButtonGadget(3,0,980-4,50,20,"Button 3") ButtonGadget(2,410-ScrollbarX()-4, 0 ,50,20,"Button 2") ; '-4' is used because of the gadget border ButtonGadget(4,410-ScrollbarX()-4,980-4,50,20,"Button 4") ; - " - CloseGadgetList() EndIf ; Repeat: Until WaitWindowEvent()=#PB_Event_CloseWindow ; ExecutableFormat=Windows ; FirstLine=1 ; EnableXP ; EOF