Chip 2001 February/Chip_2001-02_cd1.bin/rocnik.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 2000-12-04 | 20KB | 979 lines

object Form1: TForm1
  Left = 305
  Top = 176
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Rejst��k - ro�n�k Chip CD (32bit)'
  ClientHeight = 527
  ClientWidth = 632
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clTeal
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyUp = FormKeyUp
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 632
    Height = 545
    AutoSize = True
    Picture.Data = {<image000.jpg>}
  end
  object Label4: TLabel
    Left = 296
    Top = 384
    Width = 108
    Height = 16
    Caption = 'po�et z�znam�:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label5: TLabel
    Left = 408
    Top = 384
    Width = 81
    Height = 13
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label8: TLabel
    Left = 296
    Top = 288
    Width = 33
    Height = 21
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnDblClick = Label8DblClick
  end
  object Label10: TLabel
    Left = 24
    Top = 264
    Width = 52
    Height = 16
    Caption = 'rubriky:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label1: TLabel
    Left = 296
    Top = 304
    Width = 121
    Height = 16
    Caption = 'Adres�� na Chip CD:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 296
    Top = 320
    Width = 96
    Height = 16
    Caption = 'Spustiteln� pod:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 400
    Top = 320
    Width = 22
    Height = 16
    Caption = 'OS'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label6: TLabel
    Left = 400
    Top = 288
    Width = 49
    Height = 16
    Caption = 'rubrika'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label7: TLabel
    Left = 24
    Top = 441
    Width = 39
    Height = 16
    Caption = 'najdi:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label11: TLabel
    Left = 296
    Top = 288
    Width = 50
    Height = 16
    Caption = 'Rubrika:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label12: TLabel
    Left = 296
    Top = 336
    Width = 27
    Height = 16
    Caption = 'Typ:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label13: TLabel
    Left = 400
    Top = 336
    Width = 22
    Height = 16
    Caption = 'typ'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label14: TLabel
    Left = 88
    Top = 264
    Width = 33
    Height = 14
    Cursor = crUpArrow
    Alignment = taCenter
    AutoSize = False
    Caption = 'v�e'
    Color = clNavy
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    OnClick = Label14Click
  end
  object Label15: TLabel
    Left = 144
    Top = 264
    Width = 33
    Height = 14
    Cursor = crUpArrow
    Alignment = taCenter
    AutoSize = False
    Caption = 'nic'
    Color = clNavy
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    OnClick = Label15Click
  end
  object Image4: TImage
    Left = 556
    Top = 377
    Width = 55
    Height = 31
    Cursor = crUpArrow
    Hint = 'Chip CD'
    AutoSize = True
    ParentShowHint = False
    Picture.Data = {<image001.bmp>}
    ShowHint = True
    Transparent = True
    OnClick = Image4Click
  end
  object Label9: TLabel
    Left = 296
    Top = 16
    Width = 45
    Height = 16
    Caption = 'Nazev'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ShowAccelChar = False
    Transparent = True
  end
  object Label17: TLabel
    Left = 296
    Top = 264
    Width = 73
    Height = 16
    Caption = 'informace:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Image2: TImage
    Left = 560
    Top = 430
    Width = 32
    Height = 32
    Cursor = crUpArrow
    Hint = 'N�pov�da'
    AutoSize = True
    ParentShowHint = False
    Picture.Data = {<image002.ico>}
    ShowHint = True
    OnClick = Image2Click
  end
  object Label18: TLabel
    Left = 24
    Top = 491
    Width = 61
    Height = 16
    Caption = 'Chip CD:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label19: TLabel
    Left = 512
    Top = 491
    Width = 33
    Height = 14
    Cursor = crUpArrow
    Alignment = taCenter
    AutoSize = False
    Caption = 'v�e'
    Color = clNavy
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    OnClick = Label19Click
  end
  object LabelN: TLabel
    Left = 560
    Top = 491
    Width = 33
    Height = 14
    Cursor = crUpArrow
    Alignment = taCenter
    AutoSize = False
    Caption = 'nic'
    Color = clNavy
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    OnClick = LabelNClick
  end
  object Label16: TLabel
    Left = 512
    Top = 264
    Width = 52
    Height = 16
    Caption = 'Chip CD:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object DBText2: TDBText
    Left = 568
    Top = 264
    Width = 60
    Height = 16
    AutoSize = True
    DataField = 'p'
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Image3: TImage
    Left = 584
    Top = 430
    Width = 32
    Height = 32
    Cursor = crUpArrow
    Hint = 'Datab�ze'
    AutoSize = True
    ParentShowHint = False
    Picture.Data = {<image003.ico>}
    ShowHint = True
    OnClick = Image3Click
  end
  object Label21: TLabel
    Left = 400
    Top = 304
    Width = 56
    Height = 16
    Caption = 'Label21'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label22: TLabel
    Left = 296
    Top = 352
    Width = 46
    Height = 16
    Caption = 'Internet:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label20: TLabel
    Left = 400
    Top = 352
    Width = 5
    Height = 16
    Cursor = crUpArrow
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
    Transparent = True
    OnClick = Label20Click
  end
  object DBMemo1: TDBMemo
    Left = 296
    Top = 60
    Width = 313
    Height = 167
    TabStop = False
    BorderStyle = bsNone
    Color = clWhite
    Ctl3D = False
    DataField = 'popis'
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 5
  end
  object Button1: TButton
    Left = 344
    Top = 439
    Width = 65
    Height = 17
    Cursor = crUpArrow
    Caption = 'naj�t'
    TabOrder = 4
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 64
    Top = 439
    Width = 145
    Height = 17
    AutoSize = False
    Color = clWhite
    Ctl3D = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 1
    OnKeyDown = Edit1KeyDown
  end
  object CheckBox1: TCheckBox
    Left = 216
    Top = 439
    Width = 65
    Height = 17
    Caption = 'v n�zvu'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 2
  end
  object CheckBox2: TCheckBox
    Left = 280
    Top = 439
    Width = 65
    Height = 17
    Caption = 'v popisu'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 3
  end
  object CheckBox3: TCheckBox
    Tag = 1
    Left = 24
    Top = 288
    Width = 105
    Height = 17
    Caption = 'T�ma m�s�ce'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 6
    OnClick = Rubriky
  end
  object CheckBox4: TCheckBox
    Tag = 2
    Left = 24
    Top = 304
    Width = 121
    Height = 17
    Caption = 'Zkuste si sami'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 7
    OnClick = Rubriky
  end
  object CheckBox5: TCheckBox
    Tag = 3
    Left = 24
    Top = 320
    Width = 113
    Height = 17
    Caption = 'Shareware'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 8
    OnClick = Rubriky
  end
  object CheckBox6: TCheckBox
    Tag = 4
    Left = 24
    Top = 336
    Width = 137
    Height = 17
    Caption = 'Od na�ich �ten���'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 9
    OnClick = Rubriky
  end
  object CheckBox7: TCheckBox
    Tag = 5
    Left = 24
    Top = 352
    Width = 105
    Height = 17
    Caption = 'Prezentace firem'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 10
    OnClick = Rubriky
  end
  object CheckBox8: TCheckBox
    Tag = 6
    Left = 24
    Top = 368
    Width = 105
    Height = 17
    Caption = 'Ze sv�ta internetu'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 11
    OnClick = Rubriky
  end
  object CheckBox9: TCheckBox
    Tag = 7
    Left = 24
    Top = 384
    Width = 97
    Height = 17
    Caption = 'Chip Plus'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 12
    OnClick = Rubriky
  end
  object CheckBox10: TCheckBox
    Tag = 8
    Left = 144
    Top = 288
    Width = 105
    Height = 17
    Caption = 'Servis'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 13
    OnClick = Rubriky
  end
  object CheckBox11: TCheckBox
    Tag = 9
    Left = 144
    Top = 304
    Width = 113
    Height = 17
    Caption = 'Pro chv�le oddechu'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 14
    OnClick = Rubriky
  end
  object DBGrid1: TDBGrid
    Left = 24
    Top = 24
    Width = 235
    Height = 201
    BorderStyle = bsNone
    Color = clWhite
    DataSource = DataSource1
    Options = [dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clTeal
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'name'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Width = 215
        Visible = True
      end>
  end
  object CheckBox12: TCheckBox
    Tag = 10
    Left = 144
    Top = 320
    Width = 105
    Height = 17
    Caption = 'St��brn� disky'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 15
    OnClick = Rubriky
  end
  object CheckBox13: TCheckBox
    Tag = 11
    Left = 144
    Top = 336
    Width = 121
    Height = 17
    Caption = 'Z redakce + Obsahy'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 16
    OnClick = Rubriky
  end
  object CheckBox14: TCheckBox
    Tag = 13
    Left = 144
    Top = 352
    Width = 97
    Height = 17
    Caption = 'Ostatn�'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 17
    OnClick = Rubriky
  end
  object Button2: TButton
    Left = 472
    Top = 439
    Width = 81
    Height = 17
    Cursor = crUpArrow
    Caption = 'zru�it hled�n�'
    TabOrder = 18
    OnClick = Button2Click
  end
  object CheckBox17: TCheckBox
    Tag = 1
    Left = 88
    Top = 489
    Width = 97
    Height = 17
    Hint = '1/'
    Caption = '1'
    TabOrder = 19
    OnClick = Rubriky
  end
  object CheckBox18: TCheckBox
    Tag = 2
    Left = 120
    Top = 489
    Width = 97
    Height = 17
    Hint = '2/'
    Caption = '2'
    TabOrder = 20
    OnClick = Rubriky
  end
  object CheckBox19: TCheckBox
    Tag = 3
    Left = 152
    Top = 489
    Width = 97
    Height = 17
    Hint = '3/'
    Caption = '3'
    TabOrder = 21
    OnClick = Rubriky
  end
  object CheckBox20: TCheckBox
    Tag = 4
    Left = 184
    Top = 489
    Width = 97
    Height = 17
    Hint = '4/'
    Caption = '4'
    TabOrder = 22
    OnClick = Rubriky
  end
  object CheckBox21: TCheckBox
    Tag = 5
    Left = 216
    Top = 489
    Width = 97
    Height = 17
    Hint = '5/'
    Caption = '5'
    TabOrder = 23
    OnClick = Rubriky
  end
  object CheckBox22: TCheckBox
    Tag = 6
    Left = 248
    Top = 489
    Width = 97
    Height = 17
    Hint = '6/'
    Caption = '6'
    TabOrder = 24
    OnClick = Rubriky
  end
  object CheckBox23: TCheckBox
    Tag = 7
    Left = 280
    Top = 489
    Width = 97
    Height = 17
    Hint = '7/'
    Caption = '7'
    Enabled = False
    TabOrder = 25
    OnClick = Rubriky
  end
  object CheckBox24: TCheckBox
    Tag = 8
    Left = 312
    Top = 489
    Width = 97
    Height = 17
    Hint = '8/'
    Caption = '8'
    Enabled = False
    TabOrder = 26
    OnClick = Rubriky
  end
  object CheckBox25: TCheckBox
    Tag = 9
    Left = 344
    Top = 489
    Width = 97
    Height = 17
    Hint = '9/'
    Caption = '9'
    Enabled = False
    TabOrder = 27
    OnClick = Rubriky
  end
  object CheckBox26: TCheckBox
    Tag = 10
    Left = 376
    Top = 489
    Width = 97
    Height = 17
    Hint = '10'
    Caption = '10'
    Enabled = False
    TabOrder = 28
    OnClick = Rubriky
  end
  object CheckBox27: TCheckBox
    Tag = 11
    Left = 416
    Top = 489
    Width = 41
    Height = 17
    Hint = '11'
    Caption = '11'
    Enabled = False
    TabOrder = 29
    OnClick = Rubriky
  end
  object CheckBox28: TCheckBox
    Tag = 12
    Left = 456
    Top = 489
    Width = 33
    Height = 17
    Hint = '12'
    Caption = '12'
    Enabled = False
    TabOrder = 30
    OnClick = Rubriky
  end
  object Button3: TButton
    Left = 419
    Top = 439
    Width = 43
    Height = 17
    Cursor = crUpArrow
    Caption = 'typ'
    TabOrder = 31
    OnClick = Button3Click
  end
  object CheckBox15: TCheckBox
    Tag = 14
    Left = 144
    Top = 368
    Width = 97
    Height = 17
    Caption = 'Ovlada�e'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 32
    OnClick = Rubriky
  end
  object CheckBox16: TCheckBox
    Tag = 15
    Left = 144
    Top = 384
    Width = 97
    Height = 17
    Caption = 'Bonus'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 33
    OnClick = Rubriky
  end
  object DataSource1: TDataSource
    DataSet = DBISAMQuery1
    OnDataChange = DataSource1DataChange
    Left = 560
    Top = 544
  end
  object DBISAMQuery1: TDBISAMQuery
    AutoDisplayLabels = False
    CopyOnAppend = False
    BeforeOpen = DBISAMQuery1BeforeOpen
    AfterOpen = DBISAMQuery1AfterOpen
    AfterScroll = DBISAMQuery1AfterScroll
    OnFilterRecord = DBISAMQuery1FilterRecord
    SessionName = 'DBCHIP'
    EngineVersion = '2.03'
    LanguageID = 1029
    SortID = 0
    MaxRowCount = -1
    ScriptLanguageID = 0
    ScriptSortID = 0
    OnQueryProgress = DBISAMQuery1QueryProgress
    Left = 528
    Top = 544
  end
  object DBISAMSession1: TDBISAMSession
    EngineVersion = '2.03'
    Active = True
    KeepConnections = False
    LockRetryCount = 15
    LockWaitTime = 100
    PrivateDir = 'C:\'
    SessionName = 'DBCHIP'
    Left = 496
    Top = 544
  end
end