Chip 1999 November/Chip_1999-11_cd.bin/ctenari/Vindis/LEON.EXE/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1999-09-09 | 11KB | 334 lines

object Form1: TForm1
  Left = 191
  Top = 119
  Width = 544
  Height = 375
  Caption = 'Leon - 1.0'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 536
    Height = 301
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 534
      Height = 299
      ActivePage = TabSheet1
      Align = alClient
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = 'Table'
        object ToolBar3: TToolBar
          Left = 0
          Top = 0
          Width = 526
          ButtonHeight = 25
          TabOrder = 0
          object SpeedButton4: TSpeedButton
            Left = 0
            Top = 2
            Width = 140
            Height = 25
            Hint = 'Create JavaScript File'
            Caption = 'Create JavaScript File'
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
              000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
              00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
              F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
              0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
              FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
              FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
              0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
              00333377737FFFFF773333303300000003333337337777777333}
            NumGlyphs = 2
            ParentShowHint = False
            ShowHint = True
            OnClick = SpeedButton4Click
          end
        end
        object DBGrid1: TDBGrid
          Left = 0
          Top = 32
          Width = 526
          Height = 223
          Align = alClient
          DataSource = DataSource1
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
        end
        object ProgressBar1: TProgressBar
          Left = 0
          Top = 255
          Width = 526
          Height = 16
          Align = alBottom
          Min = 0
          Max = 100
          Step = 1
          TabOrder = 2
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'SQL Statement'
        object ToolBar2: TToolBar
          Left = 0
          Top = -32
          Width = 0
          Align = alBottom
          TabOrder = 0
          object SpeedButton1: TSpeedButton
            Left = 0
            Top = 2
            Width = 80
            Height = 22
            Hint = 'Open SQL File'
            Caption = 'Open SQL'
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
              333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
              0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
              07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
              07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
              0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
              33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
              B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
              3BB33773333773333773B333333B3333333B7333333733333337}
            NumGlyphs = 2
            ParentShowHint = False
            ShowHint = True
            OnClick = SpeedButton1Click
          end
          object SpeedButton2: TSpeedButton
            Left = 80
            Top = 2
            Width = 80
            Height = 22
            Hint = 'Save SQL File'
            Caption = 'Save SQL'
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
              7700333333337777777733333333008088003333333377F73377333333330088
              88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
              000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
              FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
              99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
              99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
              99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
              93337FFFF7737777733300000033333333337777773333333333}
            NumGlyphs = 2
            ParentShowHint = False
            ShowHint = True
            OnClick = SpeedButton2Click
          end
          object SpeedButton3: TSpeedButton
            Left = 160
            Top = 2
            Width = 80
            Height = 22
            Hint = 'Run SQL'
            AllowAllUp = True
            Caption = 'Run SQL'
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
              333333333333337FF3333333333333903333333333333377FF33333333333399
              03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
              99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
              99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
              03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
              33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
              33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
              3333777777333333333333333333333333333333333333333333}
            NumGlyphs = 2
            ParentShowHint = False
            ShowHint = True
            OnClick = SpeedButton3Click
          end
        end
        object Memo1: TMemo
          Left = 0
          Top = 0
          Width = 526
          Height = 239
          Align = alClient
          Lines.Strings = (
            'Memo1')
          TabOrder = 1
        end
      end
      object TabSheet3: TTabSheet
        Caption = 'Info'
        object Label6: TLabel
          Left = 32
          Top = 216
          Width = 226
          Height = 13
          Caption = '* If this field remains empty or the code is wrong,'
        end
        object Label7: TLabel
          Left = 40
          Top = 232
          Width = 215
          Height = 13
          Caption = 'you will  be able to work with a database that '
        end
        object Label8: TLabel
          Left = 40
          Top = 248
          Width = 135
          Height = 13
          Caption = 'does not exceed 40 records.'
        end
        object GroupBox1: TGroupBox
          Left = 8
          Top = 16
          Width = 185
          Height = 81
          Caption = ' Number of '
          TabOrder = 0
          object Label1: TLabel
            Left = 8
            Top = 24
            Width = 30
            Height = 13
            Caption = 'Fields:'
          end
          object Label2: TLabel
            Left = 48
            Top = 24
            Width = 6
            Height = 13
            Caption = '0'
          end
          object Label3: TLabel
            Left = 8
            Top = 40
            Width = 30
            Height = 13
            Caption = 'Rows:'
          end
          object Label4: TLabel
            Left = 48
            Top = 40
            Width = 6
            Height = 13
            Caption = '0'
          end
        end
        object GroupBox2: TGroupBox
          Left = 8
          Top = 104
          Width = 185
          Height = 81
          Caption = ' Registration Code '
          TabOrder = 1
          object Label5: TLabel
            Left = 16
            Top = 24
            Width = 82
            Height = 13
            Caption = 'Enter your code:*'
          end
          object Edit1: TEdit
            Left = 40
            Top = 48
            Width = 121
            Height = 21
            TabOrder = 0
          end
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 301
    Width = 536
    Height = 28
    Align = alBottom
    Caption = 'Panel2'
    TabOrder = 1
    object StatusBar1: TStatusBar
      Left = 1
      Top = 4
      Width = 534
      Height = 23
      Panels = <>
      SimplePanel = False
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = '.sql|*.sql|.txt|*.txt|*.all|*.*'
    Title = 'Open'
    Left = 325
    Top = 1
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '.SQL'
    Filter = '*.sql|*.sql|*.txt|*.txt|*.all|*.*'
    Title = 'Save'
    Left = 365
    Top = 65533
  end
  object Query1: TQuery
    Left = 269
    Top = 65531
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 245
    Top = 65531
  end
  object SaveDialog2: TSaveDialog
    DefaultExt = '.js'
    Filter = 'JavaScript File|*.js|*.all|*.*'
    Left = 432
    Top = 8
  end
  object MainMenu1: TMainMenu
    Left = 413
    Top = 27
    object About1: TMenuItem
      Caption = 'About'
      object Leon101: TMenuItem
        Caption = 'Leon 1.0'
        OnClick = Leon101Click
      end
    end
  end
end