PC World Komputer 1998 April A/Pcwk4a98.iso/PROGRAM/DELPHI16/EXCEL/EXCELTOP.DFM/EXCELTOP.txt

Text File | 1997-11-19 | 12.9 KB | 544 lines

object Form1: TForm1
  Left = 202
  Top = 185
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'TExcel 3.2 demo'
  ClientHeight = 367
  ClientWidth = 427
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  TextHeight = 13
  object TLabel
    Left = 296
    Top = 6
    Width = 22
    Height = 13
    Caption = 'Ro&w'
    FocusControl = tbLeft
  end
  object TLabel
    Left = 288
    Top = 42
    Width = 35
    Height = 13
    Caption = 'Co&lumn'
    FocusControl = tbRight
  end
  object cmClose: TBitBtn
    Left = 328
    Top = 333
    Width = 88
    Height = 25
    Caption = '&Close'
    TabOrder = 0
    OnClick = cmCloseClick
    Kind = bkCancel
    Spacing = -1
  end
  object Panel2: TPanel
    Left = 8
    Top = 96
    Width = 409
    Height = 57
    BevelInner = bvLowered
    BevelWidth = 3
    BorderStyle = bsSingle
    TabOrder = 1
    object Label5: TLabel
      Left = 136
      Top = 6
      Width = 47
      Height = 13
      Caption = 'Comman&d'
      FocusControl = cbCommand
    end
    object cbCommand: TComboBox
      Left = 120
      Top = 20
      Width = 273
      Height = 21
      ItemHeight = 13
      Items.Strings = (
        '[SELECT("R2C1")]'
        '[SELECT("R1C1:R11C4")]'
        '[FORMULA("xxx","R1C1")]'
        '[ACTIVATE("Book1")]'
        '[WORKBOOK.SELECT("Sheet1")]'
        '[WORKBOOK.NAME("Sheet1";"Products")]'
        '[COLUMN.WIDTH(16,"C3:C5")]'
        '[ROW.HEIGHT(30,"R1:R3")]'
        '[ALIGNMENT(2,FALSE,3,0)]'
        '[FORMAT.NUMBER("# ### ##0.00")]'
        '[FORMAT.FONT(,12,TRUE,FALSE,TRUE,FALSE,0)]'
        '[FORMULA.FIND("str",1,2,2,1,FALSE)]'
        '[DISPLAY(FALSE,FALSE,TRUE,TRUE,0,,TRUE,FALSE,1)]'

          '[PAGE.SETUP("","",0.5,0.5,1,1,FALSE,FALSE,FALSE,FALSE,1,9,100,1,' +
          '1,FALSE)]'
        '[DISABLE.INPUT(TRUE)]'
        '[NEW(1)]'
        '[WORKBOOK.INSERT(1)]'
        '[OPEN("FileName")]'
        '[SAVE.AS("BOOK1.XLS";1;"";FALSE;"";FALSE)] '
        '[CLOSE(FALSE)]'
        '[RUN("FileName!Macro",FALSE)]'
        '[CELL.PROTECTION(FALSE;FALSE)]'
        '[APP.MINIMIZE()]'
        '[APP.RESTORE()]')
      TabOrder = 0
      Text = '[SELECT("R2C1")]'
    end
    object cmCommand: TBitBtn
      Left = 16
      Top = 16
      Width = 89
      Height = 25
      Caption = '&Execute'
      Enabled = False
      TabOrder = 1
      OnClick = cmCommandClick
      Glyph.Data = {
        36010000424D3601000000000000760000002800000014000000100000000100
        040000000000C000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        00000033222200000000007006666033222207777777770F0666603311110777
        777770FE000000731111000000070FE0FEFE0770000030888880FE0FEFE07770
        88883308880FE0FEFE0780700033333080FE0FEFE078887077FF33330FE0FEFE
        0700000088883330FE0FEFE0703333330000330FE0FEFE0777033333000030FE
        0FEFE0780770333300000FE0FEFE07888077033300010E0FEFE0708888070333
        2D1008FEFE073308888703330440000000733330000003337748}
      Spacing = -1
    end
  end
  object Panel3: TPanel
    Left = 8
    Top = 304
    Width = 273
    Height = 57
    BevelInner = bvLowered
    BevelWidth = 3
    BorderStyle = bsSingle
    TabOrder = 2
    object Label7: TLabel
      Left = 136
      Top = 6
      Width = 59
      Height = 13
      Caption = '&Macro name'
      FocusControl = cbMacro
    end
    object cmRun: TBitBtn
      Left = 16
      Top = 16
      Width = 105
      Height = 25
      Caption = 'R&un macro'
      Enabled = False
      TabOrder = 0
      OnClick = cmRunClick
      Glyph.Data = {
        36010000424D3601000000000000760000002800000014000000100000000100
        040000000000C000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        00000033222200000000007006666033222207777777770F0666603311110777
        777770FE000000731111000000070FE0FEFE0770000030888880FE0FEFE07770
        88883308880FE0FEFE0780700033333080FE0FEFE078887077FF33330FE0FEFE
        0700000088883330FE0FEFE0703333330000330FE0FEFE0777033333000030FE
        0FEFE0780770333300000FE0FEFE07888077033300010E0FEFE0708888070333
        2D1008FEFE073308888703330440000000733330000003337748}
      Spacing = -1
    end
    object cbMacro: TComboBox
      Left = 128
      Top = 20
      Width = 129
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      Items.Strings = (
        'ClearAll'
        'FillAll'
        'BoldFace'
        'SetWidth')
      TabOrder = 1
    end
  end
  object Panel4: TPanel
    Left = 8
    Top = 160
    Width = 217
    Height = 57
    BevelInner = bvLowered
    BevelWidth = 3
    BorderStyle = bsSingle
    TabOrder = 3
    object Label6: TLabel
      Left = 120
      Top = 6
      Width = 20
      Height = 13
      Caption = '&Item'
      FocusControl = cbItem
    end
    object cmRequest: TBitBtn
      Left = 16
      Top = 16
      Width = 89
      Height = 25
      Caption = '&Request'
      Enabled = False
      TabOrder = 0
      OnClick = cmRequestClick
      Glyph.Data = {
        36010000424D3601000000000000760000002800000014000000100000000100
        040000000000C000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        00000033222200000000007006666033222207777777770F0666603311110777
        777770FE000000731111000000070FE0FEFE0770000030888880FE0FEFE07770
        88883308880FE0FEFE0780700033333080FE0FEFE078887077FF33330FE0FEFE
        0700000088883330FE0FEFE0703333330000330FE0FEFE0777033333000030FE
        0FEFE0780770333300000FE0FEFE07888077033300010E0FEFE0708888070333
        2D1008FEFE073308888703330440000000733330000003337748}
      Spacing = -1
    end
    object cbItem: TComboBox
      Left = 112
      Top = 20
      Width = 89
      Height = 21
      ItemHeight = 13
      Items.Strings = (
        'SysItems'
        'Topics'
        'Status'
        'Formats'
        'Selection'
        'Protocols'
        'EditEnvItems')
      TabOrder = 1
      Text = 'Selection'
      OnChange = ClearReply
    end
  end
  object Panel5: TPanel
    Left = 8
    Top = 224
    Width = 217
    Height = 73
    BevelInner = bvLowered
    BevelWidth = 3
    BorderStyle = bsSingle
    TabOrder = 4
    object Label9: TLabel
      Left = 160
      Top = 6
      Width = 35
      Height = 13
      Caption = 'Co&lumn'
      FocusControl = gdCol
    end
    object Label8: TLabel
      Left = 120
      Top = 6
      Width = 22
      Height = 13
      Caption = 'R&ow'
      FocusControl = gdRow
    end
    object cmGetData: TBitBtn
      Left = 16
      Top = 16
      Width = 89
      Height = 25
      Caption = '&GetData'
      Enabled = False
      TabOrder = 0
      OnClick = cmGetDataClick
      Glyph.Data = {
        36010000424D3601000000000000760000002800000014000000100000000100
        040000000000C000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        00000033222200000000007006666033222207777777770F0666603311110777
        777770FE000000731111000000070FE0FEFE0770000030888880FE0FEFE07770
        88883308880FE0FEFE0780700033333080FE0FEFE078887077FF33330FE0FEFE
        0700000088883330FE0FEFE0703333330000330FE0FEFE0777033333000030FE
        0FEFE0780770333300000FE0FEFE07888077033300010E0FEFE0708888070333
        2D1008FEFE073308888703330440000000733330000003337748}
      Spacing = -1
    end
    object gdRow: TComboBox
      Left = 114
      Top = 20
      Width = 41
      Height = 21
      ItemHeight = 13
      Items.Strings = (
        '1'
        '5'
        '10'
        '20'
        '30'
        '50'
        '100')
      TabOrder = 1
      Text = '1'
      OnChange = ClearReply
    end
    object gdCol: TComboBox
      Left = 164
      Top = 20
      Width = 41
      Height = 21
      ItemHeight = 13
      Items.Strings = (
        '1'
        '5'
        '10'
        '20'
        '30')
      TabOrder = 2
      Text = '1'
      OnChange = ClearReply
    end
    object gdRange: TCheckBox
      Left = 24
      Top = 46
      Width = 184
      Height = 17
      Caption = 'Get r&ange  (from first row, first col)'
      TabOrder = 3
    end
  end
  object GroupBox1: TGroupBox
    Left = 232
    Top = 156
    Width = 185
    Height = 142
    Caption = 'Reply'
    TabOrder = 5
    object Memo: TMemo
      Left = 2
      Top = 15
      Width = 181
      Height = 125
      Align = alClient
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 0
    end
  end
  object Panel1: TPanel
    Left = 8
    Top = 0
    Width = 409
    Height = 89
    Alignment = taRightJustify
    BevelInner = bvLowered
    BevelWidth = 3
    BorderStyle = bsSingle
    TabOrder = 6
    object Label1: TLabel
      Left = 336
      Top = 12
      Width = 60
      Height = 13
      Caption = 'Elapsed time'
    end
    object tbTime: TLabel
      Left = 344
      Top = 28
      Width = 42
      Height = 13
      Caption = '00:00:00'
    end
    object tbSpeed: TLabel
      Left = 328
      Top = 64
      Width = 73
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption = '-'
    end
    object Label2: TLabel
      Left = 336
      Top = 48
      Width = 56
      Height = 13
      Caption = 'Speed tr/�s'
    end
    object Label3: TLabel
      Left = 232
      Top = 6
      Width = 19
      Height = 13
      Caption = 'To&p'
      FocusControl = tbTop
    end
    object Label4: TLabel
      Left = 288
      Top = 6
      Width = 18
      Height = 13
      Caption = 'Le&ft'
      FocusControl = tbLeft
    end
    object Label10: TLabel
      Left = 228
      Top = 42
      Width = 33
      Height = 13
      Caption = 'Bottom'
      FocusControl = tbBottom
    end
    object Label11: TLabel
      Left = 286
      Top = 42
      Width = 25
      Height = 13
      Caption = 'Right'
      FocusControl = tbRight
    end
    object cmTable: TBitBtn
      Left = 16
      Top = 16
      Width = 89
      Height = 25
      Caption = '&Table'
      Enabled = False
      TabOrder = 0
      OnClick = cmTableClick
      Glyph.Data = {
        36010000424D3601000000000000760000002800000014000000100000000100
        040000000000C000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        00000033222200000000007006666033222207777777770F0666603311110777
        777770FE000000731111000000070FE0FEFE0770000030888880FE0FEFE07770
        88883308880FE0FEFE0780700033333080FE0FEFE078887077FF33330FE0FEFE
        0700000088883330FE0FEFE0703333330000330FE0FEFE0777033333000030FE
        0FEFE0780770333300000FE0FEFE07888077033300010E0FEFE0708888070333
        2D1008FEFE073308888703330440000000733330000003337748}
      Spacing = -1
    end
    object tbLeft: TComboBox
      Left = 280
      Top = 20
      Width = 49
      Height = 21
      ItemHeight = 13
      Items.Strings = (
        '1'
        '2'
        '3'
        '5'
        '7'
        '10'
        '20'
        '30')
      TabOrder = 1
      Text = '1'
      OnChange = CheckBuff
      OnEnter = CheckBuff
    end
    object tbRight: TComboBox
      Left = 280
      Top = 56
      Width = 49
      Height = 21
      ItemHeight = 13
      Items.Strings = (
        '5'
        '10'
        '20'
        '30')
      TabOrder = 2
      Text = '10'
      OnChange = CheckBuff
      OnExit = CheckBuff
    end
    object tbMode: TRadioGroup
      Left = 112
      Top = 6
      Width = 105
      Height = 72
      Caption = 'Mode'
      Ctl3D = True
      ItemIndex = 0
      Items.Strings = (
        'E&xecute'
        'Normal &batch'
        '&Prepared batch')
      ParentCtl3D = False
      TabOrder = 3
      OnClick = CheckBuff
    end
    object tbNew: TCheckBox
      Left = 32
      Top = 50
      Width = 80
      Height = 17
      Caption = '&New table'
      State = cbChecked
      TabOrder = 4
    end
  end
  object tbTop: TComboBox
    Left = 232
    Top = 20
    Width = 49
    Height = 21
    ItemHeight = 13
    Items.Strings = (
      '1'
      '2'
      '3'
      '5'
      '10'
      '20'
      '50')
    TabOrder = 7
    Text = '1'
    OnChange = CheckBuff
    OnExit = CheckBuff
  end
  object tbBottom: TComboBox
    Left = 232
    Top = 56
    Width = 49
    Height = 21
    ItemHeight = 13
    Items.Strings = (
      '10'
      '20'
      '30'
      '50'
      '100'
      '200'
      '500'
      '1000')
    TabOrder = 8
    Text = '100'
    OnChange = CheckBuff
    OnExit = CheckBuff
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 10
    OnTimer = Timer1Timer
    Left = 200
    Top = 8
  end
end