frmmain.form

来自「Gambas is a graphical development enviro」· FORM 代码 · 共 89 行

# Gambas Form File 1.0

{ FrmMain Form
  Move(206,164,632,490)
  Font = Font["Bold"]
  Background = &H000000&
  Foreground = &HFF0000&
  Text = ("")
  Icon = Picture["FrmIcon.png"]
  Border = Window.Fixed
  { MenuGame Menu
    Text = ("&Game")
    { MenuNew Menu
      Text = ("&New")
      Shortcut = "Ctrl+N"
    }
    { MenuPause Menu
      Text = ("&Pause")
      Shortcut = "F3"
    }
    { MenuSep Menu
      Text = ("")
    }
    { MenuQuit Menu
      Text = ("&Quit")
      Shortcut = "Ctrl+Q"
    }
  }
  { MenuSpeed Menu
    Text = ("&Speed")
    { MenuGrandMa Menu
      Text = ("&GrandMa")
    }
    { MenuCool Menu
      Text = ("&Cool")
    }
    { MenuSpeedFreak Menu
      Text = ("&Speed Freak")
    }
    { MenuAutoAdvanceSpeed Menu
      Text = ("&Auto Advance Speed (Challenge ME)")
      Checked = True
    }
  }
  { MenuHelp Menu
    Text = ("&Help")
    { MenuHowToPlay Menu
      Text = ("&How To Play")
      Shortcut = "F1"
    }
    { Menu1 Menu
      Text = ("")
    }
    { MenuAbout Menu
      Text = ("&About")
    }
  }
  { LblScore Label
    Move(16,8,296,40)
    Font = Font["16"]
    Background = &H000000&
    Foreground = &HFF0000&
    Text = ("")
  }
  { LblSpeed Label
    Move(320,8,296,40)
    Font = Font["16"]
    Background = &H000000&
    Foreground = &HFF0000&
    Text = ("")
  }
  { dwg DrawingArea
    Move(16,48,600,400)
    Font = Font["14"]
    Mouse = Mouse.Blank
    Cached = True
  }
  { TmrEngine #Timer
    #X = 0
    #Y = 432
    Delay = 100
  }
  { TimerApple #Timer
    #X = 592
    #Y = 432
    Delay = 10000
  }
}