Fun CD 26/OTACD26.ISO/archive/etc/cur015/cur015.lzh/Cursor.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1998-07-28 | 15KB | 553 lines

object Form1: TForm1
  Left = 63
  Top = 123
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'ｿｽJｿｽ[ｿｽ\ｿｽｿｽ ｿｽGｿｽfｿｽBｿｽbｿｽ^'
  ClientHeight = 351
  ClientWidth = 513
  Font.Charset = SHIFTJIS_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
  Font.Style = []
  Menu = MainMenu1
  Scaled = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 12
  object PalImg: TImage
    Left = 344
    Top = 168
    Width = 160
    Height = 160
    Hint = 'ｿｽVｿｽtｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽIｿｽｿｽｿｽｿｽﾏｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ'
    ParentShowHint = False
    ShowHint = True
    OnDblClick = PalImgDblClick
    OnMouseDown = PalImgMouseDown
    OnMouseMove = PalImgMouseMove
    OnMouseUp = PalImgMouseUp
  end
  object HotButton: TSpeedButton
    Left = 474
    Top = 8
    Width = 25
    Height = 25
    Hint = 'ｿｽzｿｽbｿｽgｿｽXｿｽ|ｿｽbｿｽgｿｽﾏ更'
    AllowAllUp = True
    GroupIndex = 1
    Glyph.Data = {
      72010000424D7201000000000000760000002800000014000000150000000100
      0400000000000000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
      111111110000111111111111111111F10000111111111111F1111F1100001111
      11111111FF11F11100001111111CCCCCFFFF11110000111111C11C1FCFFF1111
      000011111C111CFFFCFFF11100001111C1111CFFFFCFFF110000111C11111CFF
      FFFC11110000111C11111CFFFF1C11110000111CCCCCCCCCCCCC11110000111C
      11111C11111C11110000111C11111C11111C111100001111C1111C1111C11111
      000011111C111C111C1111110000111111C11C11C111111100001111111CCCCC
      1111111100001111111111111111111100001111111111111111111100001111
      11111111111111110000111111111111111111110000}
    ParentShowHint = False
    ShowHint = True
    OnClick = HotButtonClick
  end
  object PenButton: TSpeedButton
    Left = 424
    Top = 8
    Width = 25
    Height = 25
    Hint = 'ｿｽyｿｽｿｽ'
    AllowAllUp = True
    GroupIndex = 1
    Glyph.Data = {
      72010000424D7201000000000000760000002800000014000000150000000100
      0400000000000000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
      111A1111000011111111111111AAA11100001111111111111AAAAA1100001111
      11111111AAABAAA1000011111111111AAABAAAAA00001111111111AAABAAAAA1
      0000111111111AAAAAAAAA11000011111111AAAAAAAAA11100001111111AAAAA
      AAAA11110000111111AAAAAAAAA11111000011111AAAAAAAAA11111100001111
      AAAAAAAAA11111110000111AAAAAAAAA11111111000011AAAAAAAAA111111111
      000011BAAAAAAA111111111100001BBBAAAAA1111111111100001BBBBAAA1111
      111111110000100BBBA11111111111110000100BB11111111111111100001111
      11111111111111110000111111111111111111110000}
    ParentShowHint = False
    ShowHint = True
    OnClick = PenButtonClick
  end
  object FillButton: TSpeedButton
    Left = 449
    Top = 8
    Width = 25
    Height = 25
    Hint = 'ｿｽhｿｽｿｽﾗゑｿｽ'
    AllowAllUp = True
    GroupIndex = 1
    Glyph.Data = {
      72010000424D7201000000000000760000002800000014000000150000000100
      0400000000000000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
      111111110000111C1111111111111111000011CC1111111111111111000011CC
      C111111111111111000011CCCC11111111111111000011CCCCC1111111111111
      0000111CCCCC111EEE1111110000111CCCCCC1EEEEE111110000111CCCCCCEEE
      EEEE11110000111CCCCCEEEEEEEEE11100001111CCCCEEEEEEEEEE1100001111
      CCCCCEEEEEEEEEE100001111111CCCEEEEEEEEEE000011111111111EEEEEEEEE
      0000111111111111EEEEEEEE00001111111111111EEEEEE10000111111111111
      11EEEE110000111111111111111EE11100001111111111111111111100001111
      11111111111111110000111111111111111111110000}
    ParentShowHint = False
    ShowHint = True
    OnClick = FillButtonClick
  end
  object TipImg: TImage
    Left = 344
    Top = 8
    Width = 64
    Height = 64
    OnMouseDown = TipImgMouseDown
    OnMouseMove = TipImgMouseMove
    OnMouseUp = TipImgMouseUp
  end
  object MaskSta: TLabel
    Left = 336
    Top = 80
    Width = 36
    Height = 12
    Caption = 'ｿｽwｿｽiｿｽF'
  end
  object SelSta: TLabel
    Left = 416
    Top = 128
    Width = 36
    Height = 12
    Caption = 'ｿｽIｿｽｿｽF'
  end
  object DataBack: TImage
    Left = 432
    Top = 48
    Width = 17
    Height = 17
    Visible = False
  end
  object DataImg: TImage
    Left = 8
    Top = 8
    Width = 320
    Height = 320
    AutoSize = True
    OnMouseDown = DataImgMouseDown
    OnMouseMove = DataImgMouseMove
    OnMouseUp = DataImgMouseUp
  end
  object SpoitButton: TSpeedButton
    Left = 424
    Top = 58
    Width = 25
    Height = 25
    Hint = 'ｿｽXｿｽ|ｿｽCｿｽg'
    AllowAllUp = True
    GroupIndex = 1
    Glyph.Data = {
      72010000424D7201000000000000760000002800000014000000150000000100
      0400000000000000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
      111111110000111EE111111111111111000011EEEE1111111111111100001EEE
      EEE111111111111100001EEEEEEE111EEE111111000011EEEEEEE1EEEE111111
      0000111EEEEEEEEEECEE111100001111EEEEEEEECEEE1111000011111EEEEEEC
      EEECEE110000111111EEEECEEECEEE11000011111EEEECEEECEEECEE00001111
      EEEECEEECEEECEEE00001111EEECEEECEEECEEEE00001111EECEEECEEECEEEE1
      0000111111EEECEEECEEEE110000111111EECEEECEEEE111000011111111EEEC
      EEEE1111000011111111EECEEEE1111100001111111111EEEE11111100001111
      111111EEE11111110000111111111111111111110000}
    ParentShowHint = False
    ShowHint = True
    OnClick = SpoitButtonClick
  end
  object CircleButton: TSpeedButton
    Left = 474
    Top = 58
    Width = 25
    Height = 25
    Hint = 'ｿｽ~'
    AllowAllUp = True
    GroupIndex = 1
    Glyph.Data = {
      92000000424D92000000000000003E0000002800000014000000150000000100
      010000000000540000000000000000000000000000000000000000000000FFFF
      FF00FFFFF000FE07F000F9F9F000E7FE7000DFFFB000DFFFB000BFFFD000BFFF
      D0007FFFE0007FFFE0007FFFE0007FFFE0007FFFE0007FFFE000BFFFD000BFFF
      D000DFFFB000DFFFB000E7FE7000F9F9F000FE07F000}
    ParentShowHint = False
    ShowHint = True
    OnClick = CircleButtonClick
  end
  object CircleFillButton: TSpeedButton
    Left = 449
    Top = 58
    Width = 25
    Height = 25
    Hint = 'ｿｽ~ｿｽｿｽhｿｽｿｽﾗゑｿｽ'
    AllowAllUp = True
    GroupIndex = 1
    Glyph.Data = {
      92000000424D92000000000000003E0000002800000014000000150000000100
      010000000000540000000000000000000000000000000000000000000000FFFF
      FF00FFFFF000FE07F000F801F000E0007000C0003000C0003000800010008000
      1000000000000000000000000000000000000000000000000000800010008000
      1000C0003000C0003000E0007000F801F000FE07F000}
    ParentShowHint = False
    ShowHint = True
    OnClick = CircleFillButtonClick
  end
  object LineButton: TSpeedButton
    Left = 424
    Top = 33
    Width = 25
    Height = 25
    Hint = 'ｿｽｿｽｿｽｿｽ'
    AllowAllUp = True
    GroupIndex = 1
    Glyph.Data = {
      92000000424D92000000000000003E0000002800000014000000150000000100
      010000000000540000000000000000000000000000000000000000000000FFFF
      FF00FFFFF000FFFFF000FFFFF0007FFFF000BFFFF000DFFFF000EFFFF000F7FF
      F000FBFEF000FDFD7000FEFBB000FF77D000FFAFF000FFDFF000FFFFF000FFFF
      F000FFFFF000FFFFF000FFFFF000FFFFF000FFFFF000}
    ParentShowHint = False
    ShowHint = True
    OnClick = LineButtonClick
  end
  object BoxButton: TSpeedButton
    Left = 474
    Top = 33
    Width = 25
    Height = 25
    Hint = 'ｿｽlｿｽp'
    AllowAllUp = True
    GroupIndex = 1
    Glyph.Data = {
      92000000424D92000000000000003E0000002800000014000000150000000100
      010000000000540000000000000000000000000000000000000000000000FFFF
      FF00FFFFF000000000007FFFE0007FFFE0007FFFE0007FFFE0007FFFE0007FFF
      E0007FFFE0007FFFE0007FFFE0007FFFE0007FFFE0007FFFE0007FFFE0007FFF
      E0007FFFE0007FFFE0007FFFE0007FFFE00000000000}
    ParentShowHint = False
    ShowHint = True
    OnClick = BoxButtonClick
  end
  object BoxFillButton: TSpeedButton
    Left = 449
    Top = 33
    Width = 25
    Height = 25
    Hint = 'ｿｽlｿｽpｿｽｿｽhｿｽｿｽﾗゑｿｽ'
    AllowAllUp = True
    GroupIndex = 1
    Glyph.Data = {
      92000000424D92000000000000003E0000002800000014000000150000000100
      010000000000540000000000000000000000000000000000000000000000FFFF
      FF00FFFFF0000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000}
    ParentShowHint = False
    ShowHint = True
    OnClick = BoxFillButtonClick
  end
  object LColor: TLabel
    Left = 416
    Top = 144
    Width = 25
    Height = 17
    Alignment = taCenter
    AutoSize = False
    Caption = 'L'
    Color = clWhite
    ParentColor = False
  end
  object CColor: TLabel
    Left = 448
    Top = 144
    Width = 25
    Height = 17
    Alignment = taCenter
    AutoSize = False
    Caption = 'C'
    Color = clWhite
    ParentColor = False
  end
  object RColor: TLabel
    Left = 480
    Top = 144
    Width = 25
    Height = 17
    Alignment = taCenter
    AutoSize = False
    Caption = 'R'
    Color = clWhite
    ParentColor = False
  end
  object M_Color: TLabel
    Left = 344
    Top = 96
    Width = 25
    Height = 17
    Color = clWhite
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    OnClick = M_ColorClick
    OnDblClick = M_ColorDblClick
  end
  object Lab0: TLabel
    Left = 344
    Top = 144
    Width = 25
    Height = 17
    Hint = 'ｿｽｿｽﾚｯｿｽ0ｿｽｿｽﾏｽｿｽ'
    Alignment = taCenter
    AutoSize = False
    Caption = '&0'
    Color = clWhite
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    OnMouseDown = Lab0MouseDown
  end
  object LabLast: TLabel
    Left = 376
    Top = 144
    Width = 25
    Height = 17
    Hint = 'ｿｽﾅ終ｿｽｿｽﾚｯﾄゑｿｽﾏｽｿｽ'
    Alignment = taCenter
    AutoSize = False
    Color = clWhite
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    OnMouseDown = LabLastMouseDown
  end
  object Label1: TLabel
    Left = 336
    Top = 128
    Width = 63
    Height = 12
    Caption = 'ｿｽｿｽﾚｯﾄゑｿｽﾏｽｿｽ'
  end
  object DataBackUp: TImage
    Left = 424
    Top = 104
    Width = 73
    Height = 17
    Visible = False
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 332
    Width = 513
    Height = 19
    Panels = <
      item
        Width = 160
      end
      item
        Width = 80
      end
      item
        Width = 80
      end
      item
        Width = 50
      end>
    SimplePanel = False
    SizeGrip = False
  end
  object GridBox: TCheckBox
    Left = 424
    Top = 88
    Width = 49
    Height = 17
    Caption = 'Grid'
    TabOrder = 1
    OnClick = GridBoxClick
  end
  object MainMenu1: TMainMenu
    Left = 352
    Top = 240
    object MFile: TMenuItem
      Caption = 'ﾌｧｿｽｿｽ(&F)'
      ShortCut = 0
      object MNew: TMenuItem
        Caption = 'ｿｽVｿｽKｿｽ成(&N)...'
        ShortCut = 0
        OnClick = MNewClick
      end
      object MOpen: TMenuItem
        Caption = 'ｿｽJｿｽｿｽ(&O)..'
        ShortCut = 0
        OnClick = MOpenClick
      end
      object MSave: TMenuItem
        Caption = 'ｿｽ繽托ｿｽｿｽｿｽﾛ托ｿｽ(S)'
        ShortCut = 0
        OnClick = MSaveClick
      end
      object SaveAs: TMenuItem
        Caption = 'ｿｽｿｽｿｽOｿｽｿｽtｿｽｿｽｿｽﾄ保托ｿｽ(&A)...'
        ShortCut = 0
        OnClick = SaveAsClick
      end
    end
    object Edit1: TMenuItem
      Caption = 'ｿｽﾒ集(&E)'
      ShortCut = 0
      object Repeat1: TMenuItem
        Caption = 'ｿｽｿｽ闥ｼｿｽｿｽ(&R)'
        ShortCut = 16474
        OnClick = Repeat1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object K1: TMenuItem
        Caption = 'ｿｽｿｽ]'
        ShortCut = 0
        object K2: TMenuItem
          Caption = 'ｿｽｿｽｿｽE'
          ShortCut = 0
          OnClick = K2Click
        end
        object K3: TMenuItem
          Caption = 'ｿｽ繪ｺ'
          ShortCut = 0
          OnClick = K3Click
        end
        object K9: TMenuItem
          Caption = 'ｿｽﾐゑｿｽｿｽｿｽｿｽｿｽﾔゑｿｽ'
          ShortCut = 0
          OnClick = K9Click
        end
        object K901: TMenuItem
          Caption = '90ｿｽｿｽ(ｿｽｿｽｿｽvｿｽｿｽｿｽｿｽ)'
          ShortCut = 0
          OnClick = K901Click
        end
        object K1801: TMenuItem
          Caption = '180ｿｽｿｽ'
          ShortCut = 0
          OnClick = K1801Click
        end
        object K2701: TMenuItem
          Caption = '270ｿｽｿｽ'
          ShortCut = 0
          OnClick = K2701Click
        end
      end
      object K4: TMenuItem
        Caption = 'ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽ'
        ShortCut = 0
        object K6: TMenuItem
          Caption = 'ｿｽｿｽ'
          ShortCut = 16467
          OnClick = K6Click
        end
        object K5: TMenuItem
          Caption = 'ｿｽE'
          ShortCut = 16452
          OnClick = K5Click
        end
        object K7: TMenuItem
          Caption = 'ｿｽｿｽ'
          ShortCut = 16453
          OnClick = K7Click
        end
        object K8: TMenuItem
          Caption = 'ｿｽｿｽ'
          ShortCut = 16472
          OnClick = K8Click
        end
      end
    end
    object P1: TMenuItem
      Caption = 'ｿｽｿｽﾚｯｿｽ(&P)'
      ShortCut = 0
      object Open1: TMenuItem
        Caption = 'ｿｽJｿｽｿｽ(&O)...'
        ShortCut = 0
        OnClick = Open1Click
      end
      object KS1: TMenuItem
        Caption = 'ｿｽﾛ托ｿｽ&S)...'
        ShortCut = 0
        OnClick = KS1Click
      end
    end
    object MHelp: TMenuItem
      Caption = 'ｿｽｿｽｿｽｿｽ(&H)'
      ShortCut = 0
      object h1: TMenuItem
        Caption = 'ｿｽｿｽｿｽｿｽ(&h)...'
        ShortCut = 0
        OnClick = h1Click
      end
      object AboutA1: TMenuItem
        Caption = 'About(&A)...'
        ShortCut = 0
        OnClick = AboutA1Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object K10: TMenuItem
        Caption = 'ｿｽﾝ抵ｿｽﾌｱﾝｲﾝｽﾄｰｿｽ'
        ShortCut = 0
        OnClick = K10Click
      end
    end
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'Cur'
    FileEditStyle = fsEdit
    Filter = 'ｿｽｿｽｿｽﾙ､ｿｽｿｽｿｽｿｽ|*.Cur;*.Ico|ｿｽｿｽｿｽｿｽ(*.Cur)|*.Cur|ｿｽｿｽｿｽｿｽ(*.Ico)|*.Ico'
    Options = [ofPathMustExist, ofFileMustExist]
    Left = 352
    Top = 176
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'Cur'
    FileEditStyle = fsEdit
    Filter = 'ｿｽJｿｽ[ｿｽ\ｿｽｿｽ(*.Cur)|*.Cur|ｿｽAｿｽCｿｽRｿｽｿｽ(*.Ico)|*.Ico'
    Options = [ofNoReadOnlyReturn]
    Left = 352
    Top = 208
  end
  object ColorDialog: TColorDialog
    Ctl3D = True
    Left = 352
    Top = 272
  end
  object OpenPal: TOpenDialog
    FileEditStyle = fsEdit
    Left = 384
    Top = 176
  end
  object SavePal: TSaveDialog
    FileEditStyle = fsEdit
    Left = 384
    Top = 208
  end
end