Shirase 11/SHIRASE11.iso/Shirase.exe/0/RCDATA/TVISORFRM/TVISORFRM.txt

Text File | 2001-09-05 | 9KB | 274 lines

object VisorFrm: TVisorFrm
  Left = 244
  Top = 124
  BorderStyle = bsNone
  Caption = 'Visor'
  ClientHeight = 468
  ClientWidth = 660
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnKeyDown = FormKeyDown
  OnMouseMove = FormMouseMove
  OnPaint = FormPaint
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object Box: TPaintBox
    Left = 24
    Top = 16
    Width = 593
    Height = 333
    PopupMenu = PopupMenu
    OnMouseDown = BoxMouseDown
    OnMouseMove = BoxMouseMove
    OnMouseUp = BoxMouseUp
    OnPaint = BoxPaint
  end
  object RxGIFAnimator: TRxGIFAnimator
    Left = 120
    Top = 296
    Width = 105
    Height = 105
    Animate = True
    AutoSize = False
    Center = True
    Transparent = False
    PopupMenu = PopupMenu
    Visible = False
  end
  object Image1: TImage
    Left = 584
    Top = 400
    Width = 48
    Height = 48
    AutoSize = True
    Picture.Data = {<image000.bmp>}
    Visible = False
  end
  object BtnPrev: TSpeedButton
    Left = 68
    Top = 436
    Width = 40
    Height = 20
    Cursor = crHandPoint
    Flat = True
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333333333333333
      0000333333333333333333333333333333333333000033333333333333333333
      333333333333333300003333333333333BB33333333333333330033300003333
      3333333BBBB3333333333333300003330000333333333BBBBBB3333333333330
      0000033300003333333BBBBBBBB333333333300000000333000033333BBBBBBB
      BBB33333333000000000033300003333BBBBBBBBBBB333333300000000000333
      000033333BBBBBBBBBB33333333000000000033300003333333BBBBBBBB33333
      33333000000003330000333333333BBBBBB33333333333300000033300003333
      3333333BBBB33333333333333000033300003333333333333BB3333333333333
      3330033300003333333333333333333333333333333333330000333333333333
      3333333333333333333333330000333333333333333333333333333333333333
      0000}
    Margin = 10
    NumGlyphs = 2
    Spacing = 0
    OnClick = BtnPrevClick
  end
  object BtnNext: TSpeedButton
    Left = 120
    Top = 436
    Width = 40
    Height = 20
    Cursor = crHandPoint
    Flat = True
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      04000000000068010000120B0000120B00001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333333333333333
      0000333333333333333333333333333333333333000033333333333333333333
      33333333333333330000333BB33333333333333330033333333333330000333B
      BBB333333333333330000333333333330000333BBBBBB3333333333330000003
      333333330000333BBBBBBBB33333333330000000033333330000333BBBBBBBBB
      B333333330000000000333330000333BBBBBBBBBBB3333333000000000003333
      0000333BBBBBBBBBB333333330000000000333330000333BBBBBBBB333333333
      30000000033333330000333BBBBBB3333333333330000003333333330000333B
      BBB333333333333330000333333333330000333BB33333333333333330033333
      3333333300003333333333333333333333333333333333330000333333333333
      3333333333333333333333330000333333333333333333333333333333333333
      0000}
    Margin = 10
    NumGlyphs = 2
    Spacing = 0
    OnClick = BtnNextClick
  end
  object BtnSalir: TSpeedButton
    Left = 536
    Top = 432
    Width = 20
    Height = 20
    Cursor = crHandPoint
    Flat = True
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      BBB00000BBB000000077700000777000000000000BBB000BBB00000000077700
      077700000000000000BBB0BBB0000000000077707770000000000000000BBBBB
      000000000000077777000000000000000000BBB0000000000000007770000000
      00000000000BBBBB0000000000000777770000000000000000BBB0BBB0000000
      0000777077700000000000000BBB000BBB000000000777000777000000000000
      BBB00000BBB00000007770000077700000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000}
    Margin = 0
    NumGlyphs = 2
    Spacing = 0
    OnClick = BtnSalirClick
  end
  object LblInfo2: TLabel
    Left = 432
    Top = 432
    Width = 57
    Height = 17
    AutoSize = False
    Caption = 'Archivo'
    Color = clBtnFace
    ParentColor = False
    Transparent = True
  end
  object LblInfo1: TLabel
    Left = 388
    Top = 432
    Width = 49
    Height = 17
    AutoSize = False
    Caption = '0/0'
    Color = clBtnFace
    ParentColor = False
    Transparent = True
    OnClick = LblInfo1Click
  end
  object BtnOpc: TSpeedButton
    Left = 508
    Top = 432
    Width = 20
    Height = 20
    Cursor = crHandPoint
    Flat = True
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333333333333333
      0000333333333333333333333333333333333333000033333333333333333333
      333333333333333300003333BBBBBBBBBBB33333330000000000033300003333
      BBBBBBBBBBB33333330000000000033300003333BB3333333BB3333333003333
      3330033300003333BB3333333BB33333330033333330033300003333BB333333
      3BB33333330033333330033300003333BB3333333BB333333300333333300333
      00003333BB3333333BB33333330033333330033300003333BB3333333BB33333
      330033333330033300003333BB3333333BB33333330033333330033300003333
      BBBBBBBBBBB33333330000000000033300003333BBBBBBBBBBB3333333000000
      0000033300003333333333333333333333333333333333330000333333333333
      3333333333333333333333330000333333333333333333333333333333333333
      0000}
    Margin = 0
    NumGlyphs = 2
    Spacing = 0
    OnClick = BtnOpcClick
  end
  object Edit1: TEdit
    Left = 220
    Top = 432
    Width = 37
    Height = 21
    AutoSize = False
    Ctl3D = False
    MaxLength = 3
    ParentCtl3D = False
    TabOrder = 0
    Text = '0'
    OnKeyPress = Edit1KeyPress
  end
  object PopupMenu: TPopupMenu
    OnPopup = PopupMenuPopup
    Left = 12
    Top = 104
    object miAjustar: TMenuItem
      Caption = 'Ajustar a pantalla'
      OnClick = miAjustarClick
    end
    object miAuto: TMenuItem
      Caption = 'Modo Autom�tico'
      object miAutoOff: TMenuItem
        Caption = 'Parar'
        OnClick = miAutoOffClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object miAuto2S: TMenuItem
        Caption = '2 segundos'
        OnClick = miAutoClick
      end
      object miAuto5S: TMenuItem
        Caption = '5 segundos'
        OnClick = miAutoClick
      end
      object miAuto20S: TMenuItem
        Caption = '20 segundos'
        OnClick = miAutoClick
      end
      object miAuto1M: TMenuItem
        Caption = '1 minuto'
        OnClick = miAutoClick
      end
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object miMusica: TMenuItem
      Caption = 'M�sica'
      OnClick = miMusicaClick
    end
    object miTema: TMenuItem
      Caption = 'Nuevo tema'
      OnClick = miTemaClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object miGuardar: TMenuItem
      Caption = 'Guardar imagen ...'
      OnClick = miGuardarClick
    end
  end
  object SaveDialog: TSaveDialog
    Left = 16
    Top = 436
  end
  object Timer: TTimer
    Enabled = False
    Interval = 5000
    OnTimer = TimerTimer
    Left = 628
    Top = 48
  end
end