home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd1.bin / zkuste / delphi / kolekce / d567 / FLEXCEL.ZIP / Demo / FlDemo / UFlDemoEdit.dfm < prev    next >
Encoding:
Text File  |  2002-10-11  |  9.8 KB  |  416 lines

  1. object DemoEdit: TDemoEdit
  2.   Left = 182
  3.   Top = 107
  4.   Width = 535
  5.   Height = 359
  6.   Caption = 'Editing Excel file'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Menu = MainMenu1
  14.   OldCreateOrder = False
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object TabControl: TTabControl
  18.     Left = 0
  19.     Top = 30
  20.     Width = 527
  21.     Height = 283
  22.     Align = alClient
  23.     TabOrder = 0
  24.     TabPosition = tpBottom
  25.     OnChange = TabControlChange
  26.     object Data: TFlexCelGrid
  27.       Left = 4
  28.       Top = 6
  29.       Width = 519
  30.       Height = 255
  31.       FlexCelImport = DemoData.FlexCelImport
  32.       ReadOnly = False
  33.       HideCursor = False
  34.       FormulaReadOnly = False
  35.       FullWorksheet = False
  36.       Align = alClient
  37.       Font.Charset = DEFAULT_CHARSET
  38.       Font.Color = clWindowText
  39.       Font.Height = -11
  40.       Font.Name = 'Arial'
  41.       Font.Style = []
  42.       ParentFont = False
  43.       TabOrder = 0
  44.       ColWidths = (
  45.         48
  46.         220
  47.         220
  48.         220
  49.         220)
  50.     end
  51.     object Panel1: TPanel
  52.       Left = 4
  53.       Top = 261
  54.       Width = 519
  55.       Height = 18
  56.       Align = alBottom
  57.       Alignment = taLeftJustify
  58.       Caption = 
  59.         ' If you overwrite cell containing formulas, formulas will get lo' +
  60.         'st.'
  61.       Color = 16031372
  62.       TabOrder = 1
  63.     end
  64.   end
  65.   object CoolBar1: TCoolBar
  66.     Left = 0
  67.     Top = 0
  68.     Width = 527
  69.     Height = 30
  70.     AutoSize = True
  71.     Bands = <
  72.       item
  73.         Control = ToolBar
  74.         ImageIndex = -1
  75.         MinHeight = 24
  76.         Width = 93
  77.       end
  78.       item
  79.         Break = False
  80.         Control = ToolBar1
  81.         ImageIndex = -1
  82.         MinHeight = 26
  83.         Width = 428
  84.       end>
  85.     ParentShowHint = False
  86.     ShowHint = True
  87.     object ToolBar: TToolBar
  88.       Left = 9
  89.       Top = 1
  90.       Width = 80
  91.       Height = 24
  92.       AutoSize = True
  93.       Caption = 'ToolBar'
  94.       DisabledImages = DemoData.ImageList2
  95.       Flat = True
  96.       HotImages = DemoData.ImageList3
  97.       Images = DemoData.ImageList1
  98.       ParentShowHint = False
  99.       ShowHint = True
  100.       TabOrder = 0
  101.       object ToolButton7: TToolButton
  102.         Left = 0
  103.         Top = 0
  104.         Action = ActionReadOnly
  105.       end
  106.       object BtnSave: TToolButton
  107.         Left = 23
  108.         Top = 0
  109.         Action = ActionSaveAs
  110.       end
  111.       object BtnClose: TToolButton
  112.         Left = 46
  113.         Top = 0
  114.         Action = ActionClose
  115.       end
  116.     end
  117.     object ToolBar1: TToolBar
  118.       Left = 104
  119.       Top = 0
  120.       Width = 415
  121.       Height = 26
  122.       AutoSize = True
  123.       Caption = 'ToolBar1'
  124.       DisabledImages = DemoData.ImageList2
  125.       EdgeBorders = [ebTop, ebBottom]
  126.       Flat = True
  127.       HotImages = DemoData.ImageList3
  128.       Images = DemoData.ImageList1
  129.       ParentShowHint = False
  130.       ShowHint = True
  131.       TabOrder = 1
  132.       object ToolButton1: TToolButton
  133.         Left = 0
  134.         Top = 0
  135.         Action = ActionCopyFormat
  136.         AutoSize = True
  137.       end
  138.       object ToolButton2: TToolButton
  139.         Left = 23
  140.         Top = 0
  141.         Action = ActionPasteFormat
  142.       end
  143.       object ToolButton3: TToolButton
  144.         Left = 46
  145.         Top = 0
  146.         Width = 8
  147.         Caption = 'ToolButton3'
  148.         ImageIndex = 16
  149.         Style = tbsSeparator
  150.       end
  151.       object ToolButton4: TToolButton
  152.         Left = 54
  153.         Top = 0
  154.         Action = ActionCellFormat
  155.       end
  156.       object ToolButton5: TToolButton
  157.         Left = 77
  158.         Top = 0
  159.         Action = ActionRowFormat
  160.       end
  161.       object ToolButton6: TToolButton
  162.         Left = 100
  163.         Top = 0
  164.         Action = ActionColFormat
  165.       end
  166.       object ToolButton9: TToolButton
  167.         Left = 123
  168.         Top = 0
  169.         Width = 8
  170.         Caption = 'ToolButton9'
  171.         ImageIndex = 4
  172.         Style = tbsSeparator
  173.       end
  174.       object ToolButton8: TToolButton
  175.         Left = 131
  176.         Top = 0
  177.         Action = ActionZoom
  178.         DropdownMenu = MenuZoom
  179.         Style = tbsDropDown
  180.       end
  181.       object TrackBarZoom: TTrackBar
  182.         Left = 167
  183.         Top = 0
  184.         Width = 151
  185.         Height = 22
  186.         Max = 400
  187.         Min = 10
  188.         Orientation = trHorizontal
  189.         Frequency = 20
  190.         Position = 100
  191.         SelEnd = 0
  192.         SelStart = 0
  193.         TabOrder = 0
  194.         TickMarks = tmBottomRight
  195.         TickStyle = tsAuto
  196.         OnChange = TrackBarZoomChange
  197.       end
  198.       object PanelZoom: TPanel
  199.         Left = 318
  200.         Top = 0
  201.         Width = 40
  202.         Height = 22
  203.         BevelOuter = bvNone
  204.         Caption = '100%'
  205.         TabOrder = 1
  206.       end
  207.       object ToolButton10: TToolButton
  208.         Left = 358
  209.         Top = 0
  210.         Action = ActionFullWorksheet
  211.       end
  212.     end
  213.   end
  214.   object ActionList1: TActionList
  215.     Images = DemoData.ImageList1
  216.     Left = 28
  217.     Top = 158
  218.     object ActionZoom: TAction
  219.       Category = 'View'
  220.       Caption = 'Zoom'
  221.       Hint = 'Toogles between zoom positions'
  222.       ImageIndex = 3
  223.       OnExecute = ActionZoomExecute
  224.     end
  225.     object Action10: TAction
  226.       Category = 'View'
  227.       Caption = '10%'
  228.       OnExecute = Action10Execute
  229.     end
  230.     object Action25: TAction
  231.       Category = 'View'
  232.       Caption = '25%'
  233.       OnExecute = Action25Execute
  234.     end
  235.     object ActionCopyFormat: TAction
  236.       Category = 'Format'
  237.       Caption = 'Copy Format'
  238.       Hint = 'Copy Format'
  239.       ImageIndex = 8
  240.       OnExecute = ActionCopyFormatExecute
  241.     end
  242.     object ActionPasteFormat: TAction
  243.       Category = 'Format'
  244.       Caption = 'Paste Format'
  245.       Hint = 'Paste Format'
  246.       ImageIndex = 15
  247.       OnExecute = ActionPasteFormatExecute
  248.     end
  249.     object ActionCellFormat: TAction
  250.       Category = 'Format'
  251.       Caption = 'Cell Format'
  252.       Hint = 'Cell Format'
  253.       ImageIndex = 16
  254.       OnExecute = ActionCellFormatExecute
  255.     end
  256.     object Action50: TAction
  257.       Category = 'View'
  258.       Caption = '50%'
  259.       OnExecute = Action50Execute
  260.     end
  261.     object ActionRowFormat: TAction
  262.       Category = 'Format'
  263.       Caption = 'Row Format'
  264.       Hint = 'Row Format'
  265.       ImageIndex = 17
  266.       OnExecute = ActionRowFormatExecute
  267.     end
  268.     object ActionColFormat: TAction
  269.       Category = 'Format'
  270.       Caption = 'Col Format'
  271.       Hint = 'Column Format'
  272.       ImageIndex = 18
  273.       OnExecute = ActionColFormatExecute
  274.     end
  275.     object ActionReadOnly: TAction
  276.       Category = 'File'
  277.       Caption = 'Read Only'
  278.       Hint = 'Read Only'
  279.       ImageIndex = 4
  280.       OnExecute = ActionReadOnlyExecute
  281.     end
  282.     object ActionSaveAs: TAction
  283.       Category = 'File'
  284.       Caption = 'Save As...'
  285.       Hint = 'Save As...'
  286.       ImageIndex = 2
  287.       OnExecute = ActionSaveAsExecute
  288.     end
  289.     object ActionClose: TAction
  290.       Category = 'File'
  291.       Caption = 'Close'
  292.       Hint = 'Close'
  293.       ImageIndex = 12
  294.       OnExecute = ActionCloseExecute
  295.     end
  296.     object Action100: TAction
  297.       Category = 'View'
  298.       Caption = '100%'
  299.       OnExecute = Action100Execute
  300.     end
  301.     object Action200: TAction
  302.       Category = 'View'
  303.       Caption = '200%'
  304.       OnExecute = Action200Execute
  305.     end
  306.     object Action400: TAction
  307.       Category = 'View'
  308.       Caption = '400%'
  309.       OnExecute = Action400Execute
  310.     end
  311.     object ActionFullWorksheet: TAction
  312.       Category = 'View'
  313.       Caption = 'Full Worksheet'
  314.       Hint = 'Show the complete 65535 rows x 255 cols spreadsheet'
  315.       ImageIndex = 14
  316.       OnExecute = ActionFullWorksheetExecute
  317.     end
  318.   end
  319.   object MainMenu1: TMainMenu
  320.     Images = DemoData.ImageList1
  321.     Left = 64
  322.     Top = 142
  323.     object File2: TMenuItem
  324.       Caption = 'File'
  325.       Hint = 'File'
  326.       ImageIndex = 16
  327.       object ReadOnly1: TMenuItem
  328.         Action = ActionReadOnly
  329.       end
  330.       object ReadOnly2: TMenuItem
  331.         Action = ActionSaveAs
  332.       end
  333.       object N2: TMenuItem
  334.         Caption = '-'
  335.       end
  336.       object Close1: TMenuItem
  337.         Action = ActionClose
  338.       end
  339.     end
  340.     object View1: TMenuItem
  341.       Caption = 'View'
  342.       object Zoom1: TMenuItem
  343.         Caption = 'Zoom'
  344.         ImageIndex = 3
  345.         object N102: TMenuItem
  346.           Action = Action10
  347.         end
  348.         object N252: TMenuItem
  349.           Action = Action25
  350.         end
  351.         object N502: TMenuItem
  352.           Action = Action50
  353.         end
  354.         object N1002: TMenuItem
  355.           Action = Action100
  356.         end
  357.         object N2002: TMenuItem
  358.           Action = Action200
  359.         end
  360.         object N4002: TMenuItem
  361.           Action = Action400
  362.         end
  363.       end
  364.       object N3: TMenuItem
  365.         Caption = '-'
  366.       end
  367.       object FullWorksheet1: TMenuItem
  368.         Action = ActionFullWorksheet
  369.       end
  370.     end
  371.     object Format1: TMenuItem
  372.       Caption = 'Format'
  373.       object CopyFormat1: TMenuItem
  374.         Action = ActionCopyFormat
  375.       end
  376.       object PasteFormat1: TMenuItem
  377.         Action = ActionPasteFormat
  378.       end
  379.       object N1: TMenuItem
  380.         Caption = '-'
  381.       end
  382.       object CellFormat1: TMenuItem
  383.         Action = ActionCellFormat
  384.       end
  385.       object ColFormat1: TMenuItem
  386.         Action = ActionRowFormat
  387.       end
  388.       object ColFormat2: TMenuItem
  389.         Action = ActionColFormat
  390.       end
  391.     end
  392.   end
  393.   object MenuZoom: TPopupMenu
  394.     Left = 48
  395.     Top = 206
  396.     object N101: TMenuItem
  397.       Action = Action10
  398.     end
  399.     object N251: TMenuItem
  400.       Action = Action25
  401.     end
  402.     object N501: TMenuItem
  403.       Action = Action50
  404.     end
  405.     object N1001: TMenuItem
  406.       Action = Action100
  407.     end
  408.     object N2001: TMenuItem
  409.       Action = Action200
  410.     end
  411.     object N4001: TMenuItem
  412.       Action = Action400
  413.     end
  414.   end
  415. end
  416.