так...
создаешь тип...
так же 4 коориданты кнопки...
если кликнули внутри кнопки, то , допустим, ставим переменной тип 1.
если другая кнопка , то 2
внонце цикла проверяем переменную. Если равна 0 => не нажали на кнопку. Если 1, то выполняем одно действие.. если два,то другое
Создаем тип кнопки
Type TypeButton
Field X,Y,W,H, image, Image2,f
End Type
CreateButton (LoadImage ("Data\1.bmp"),LoadImage ("Data\1a.bmp"),2,2,26,26,1)
Функция создания кнопки
Function CreateButton (image, image2,x,y,w,h,f)
Button.TypeButton=New TypeButton
Button\image = Image
Button\image2 = Image2
Button\x = X
Button\y = Y
Button\w = W
Button\h = H
Button\f = F
End Function
проверка на нажатие
Function UpdateButton (button.Typebutton)
If F = button\f Then DrawImage button\image2,button\x, button\y Else DrawImage button\image,button\x, button\y
If MouseDown (1) And MouseX()>button\x And MouseX() <button\x+button\w And MouseY()>button\y And MouseY() <button\y+button\H Then f = button\f
End Function
и далее у меня уже идет проверка переменной F... как я уже говорил, если равна 0 => не нажали на кнопку. Если 1, то выполняем одно действие.. если два,то другое