rem fbc -gui

#Include "window9.bi"

Sub Delay (z as double)
Dim Start As Double
Start = Timer
Do
Sleep 1, 1
Loop Until (Timer - Start) > z
end sub

Dim As Integer x, y, x1, y1

Dim As HMENU hMessages,MenName,MenName1
Dim As Long event
Dim As HWND hwnd

hwnd=OpenWindow("Прога",10,10,400,400)
CenterWindow(hwnd)

hMessages=Create_Menu()
MenName=MenuTitle(hMessages,"Выбор")
MenName1=MenuTitle(hMessages,"Помощь")
MenuItem(1001,MenName,"выбор1")
MenuItem(1003,MenName,"выбор3")
MenuItem(1005,MenName,"выбор5")
MenuItem(1008,MenName,"Выход")

MenuItem(1010,MenName1,"О проге")
MenuItem(1011,MenName1,"Закрыть")

Do
event=WaitEvent
If event=EventMenu then
Select case EventNumber
Case 1001
SetWindowText(hwnd, "выбор1")
Delay(3)
x1=x-30
y1=y
ButtonGadget(806,x1,y1,30,30,"1")
Delay(1.5)

x = 190
y = 90
ButtonGadget(801,x,y,30,30,"2")
Delay(1.5)

x1=x+30
y1=y
ButtonGadget(808,x1,y1,30,30,"3")
Delay(1.5)

x1=x-30
y1=y+30
ButtonGadget(807,x1,y1,30,30,"4")
Delay(1.5)

x1=x
y1=y+30
ButtonGadget(805,x1,y1,30,30,"5")
Delay(1.5)

x1=x+30
y1=y+30
ButtonGadget(803,x1,y1,30,30,"6")
Delay(1.5)

x1=x-30
y1=90+30+30
ButtonGadget(802,x1,y1,30,30,"7")
Delay(1.5)

x1=x
y1=y+60
ButtonGadget(809,x1,y1,30,30,"8")
Delay(1.5)

x1=x+30
y1=y+60
ButtonGadget(804,x1,y1,30,30,"9")

Delay(5) rem задержка перед чисткой окна 5 сек, и чистка окна от кнопок
for x = 801 to 809
FreeGadget(x)
next x

SetWindowText(hwnd, "выбор")

Case 1003
MessBox("","выбор3")
Case 1005
MessBox("","выбор5")
Case 1008
end
Case 1010
MessBox("прога","просто прога.")
Case 1011
end
End Select
EndIf

If event=EventClose Then End
Loop