flyingmain.dfm

来自「DevExpress公司出品的Borland Delphi和C++ Builde」· DFM 代码 · 共 121 行

object FlyingMainForm: TFlyingMainForm
  Left = 67
  Top = 20
  BorderStyle = bsSingle
  Caption = 'ExpressSpreadSheet Demo : G-RSFT Load Sheet'
  ClientHeight = 626
  ClientWidth = 851
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 472
    Top = 8
    Width = 319
    Height = 576
    AutoSize = True
    Transparent = True
  end
  object Pb: TPaintBox
    Left = 472
    Top = 8
    Width = 319
    Height = 576
    OnPaint = PbPaint
  end
  object Image2: TImage
    Left = 8
    Top = 431
    Width = 457
    Height = 154
    Stretch = True
  end
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 851
    Height = 9
    Align = alTop
    Shape = bsTopLine
    Style = bsRaised
  end
  object cxSheetBook: TcxSpreadSheetBook
    Left = 8
    Top = 8
    Width = 457
    Height = 421
    ScrollBars = sbsNone
    DefaultStyle.Brush.BackgroundColor = 57
    DefaultStyle.Brush.ForegroundColor = 57
    DefaultStyle.Font.Name = 'MS Sans Serif'
    HeaderFont.Charset = DEFAULT_CHARSET
    HeaderFont.Color = clWindowText
    HeaderFont.Height = -11
    HeaderFont.Name = 'MS Sans Serif'
    HeaderFont.Style = []
    ShowCaptionBar = False
    OnActiveCellChanging = cxSheetBookActiveCellChanging
    OnAfterCalculation = cxSheetBookAfterCalculation
    OnSetSelection = cxSheetBookSetSelection
    OnSheetPopupMenu = cxSheetBookSheetPopupMenu
    OnTopLeftChanging = cxSheetBookTopLeftChanging
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 607
    Width = 851
    Height = 19
    Panels = <
      item
        Width = 800
      end>
    SimplePanel = False
  end
  object ssPm: TPopupMenu
    Left = 152
    Top = 72
    object pmWizard: TMenuItem
      Caption = 'Wizard...'
      OnClick = pmWizardClick
    end
    object pmoFormat: TMenuItem
      Caption = 'Format...'
      OnClick = pmoFormatClick
    end
  end
  object MainMenu1: TMainMenu
    Left = 184
    Top = 72
    object File1: TMenuItem
      Caption = '&File'
      object mmExit: TMenuItem
        Caption = 'E&xit'
        OnClick = mmExitClick
      end
    end
    object mmOptions: TMenuItem
      Caption = '&Options'
      object moToday: TMenuItem
        Caption = 'Todays Date'
        OnClick = moTodayClick
      end
      object moFuelTabs: TMenuItem
        Caption = 'Fuel to Tabs'
        OnClick = moFuelTabsClick
      end
    end
    object mmAircraft: TMenuItem
      Caption = '&Select Aircraft'
    end
  end
end