PC World Komputer 1998 July & August/Pcwk78a98.iso/E-MAIL/Pronto/P32FAM.EXE/Family.z/FAMILY.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1997-03-10 | 17KB | 815 lines

object Form1: TForm1
  Left = 211
  Top = 112
  BorderStyle = bsNone
  Caption = 'Pronto Family'
  ClientHeight = 574
  ClientWidth = 792
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClick = FormClick
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 640
    Height = 480
    AutoSize = True
    DragCursor = crHourGlass
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = Image1MouseDown
  end
  object imgHelpBoard: TImage
    Left = 173
    Top = 99
    Width = 333
    Height = 217
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = imgHelpBoardMouseDown
  end
  object lblHelpMode: TLabel
    Left = 179
    Top = 106
    Width = 348
    Height = 140
    Cursor = 18
    AutoSize = False
    Caption = 'Help Mode, Click the Bear to Exit.'
    Font.Color = clYellow
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    Transparent = True
    Visible = False
    WordWrap = True
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = lblHelpModeMouseDown
  end
  object Note4: TImage
    Tag = 2
    Left = 340
    Top = 212
    Width = 163
    Height = 99
    Cursor = 18
    DragCursor = crArrow
    Stretch = True
    Visible = False
    OnClick = Note4Click
    OnDblClick = Note4DblClick
    OnDragOver = NotAcceptedDragOver
    OnEndDrag = NoteEndDrag
    OnMouseDown = NoteMouseDown
    OnMouseMove = Note4MouseMove
  end
  object Image4: TImage
    Left = 671
    Top = 501
    Width = 34
    Height = 30
    Visible = False
  end
  object Image5: TImage
    Left = 671
    Top = 377
    Width = 61
    Height = 50
    Visible = False
  end
  object Image6: TImage
    Left = 673
    Top = 444
    Width = 43
    Height = 48
    Visible = False
  end
  object NoteDown: TImage
    Left = 507
    Top = 493
    Width = 42
    Height = 25
    Cursor = 18
    Picture.Data = {<image000.bmp>}
    Visible = False
  end
  object NoteUp: TImage
    Left = 599
    Top = 491
    Width = 41
    Height = 24
    Cursor = 18
    Picture.Data = {<image001.bmp>}
    Visible = False
  end
  object Note3: TImage
    Tag = 2
    Left = 340
    Top = 109
    Width = 161
    Height = 101
    Cursor = 18
    DragCursor = crArrow
    Stretch = True
    Visible = False
    OnClick = Note3Click
    OnDblClick = Note3DblClick
    OnDragOver = NotAcceptedDragOver
    OnEndDrag = NoteEndDrag
    OnMouseDown = NoteMouseDown
    OnMouseMove = Note3MouseMove
  end
  object Note1: TImage
    Tag = 2
    Left = 177
    Top = 109
    Width = 161
    Height = 100
    Cursor = 18
    DragCursor = crArrow
    Stretch = True
    Visible = False
    OnClick = Note1Click
    OnDblClick = Note1DblClick
    OnDragOver = NotAcceptedDragOver
    OnEndDrag = NoteEndDrag
    OnMouseDown = NoteMouseDown
    OnMouseMove = Note1MouseMove
  end
  object FromField1: TLabel
    Tag = 2
    Left = 186
    Top = 170
    Width = 145
    Height = 13
    Cursor = 18
    AutoSize = False
    Caption = 'From'
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
    Visible = False
    OnClick = Note1Click
    OnDblClick = Note1DblClick
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = NoteMouseDown
    OnMouseMove = Note1MouseMove
  end
  object FromField3: TLabel
    Tag = 2
    Left = 349
    Top = 170
    Width = 150
    Height = 13
    Cursor = 18
    AutoSize = False
    Caption = 'From'
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ShowAccelChar = False
    Transparent = True
    Visible = False
    OnClick = Note3Click
    OnDblClick = Note3DblClick
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = NoteMouseDown
    OnMouseMove = Note3MouseMove
  end
  object SubjectField3: TLabel
    Tag = 2
    Left = 349
    Top = 185
    Width = 150
    Height = 13
    Cursor = 18
    AutoSize = False
    Caption = 'Subject'
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ShowAccelChar = False
    Transparent = True
    Visible = False
    OnClick = Note3Click
    OnDblClick = Note3DblClick
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = NoteMouseDown
    OnMouseMove = Note3MouseMove
  end
  object SubjectField1: TLabel
    Tag = 2
    Left = 187
    Top = 185
    Width = 145
    Height = 13
    Cursor = 18
    AutoSize = False
    Caption = 'Subject'
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ShowAccelChar = False
    Transparent = True
    Visible = False
    OnClick = Note1Click
    OnDblClick = Note1DblClick
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = NoteMouseDown
    OnMouseMove = Note1MouseMove
  end
  object Icon1: TImage
    Tag = 2
    Left = 276
    Top = 124
    Width = 40
    Height = 40
    Cursor = 18
    OnClick = Note1Click
    OnDblClick = Note1DblClick
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = NoteMouseDown
    OnMouseMove = Note1MouseMove
  end
  object icon3: TImage
    Tag = 2
    Left = 439
    Top = 125
    Width = 40
    Height = 40
    Cursor = 18
    OnClick = Note3Click
    OnDblClick = Note2DblClick
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = NoteMouseDown
    OnMouseMove = Note3MouseMove
  end
  object icon4: TImage
    Tag = 2
    Left = 441
    Top = 226
    Width = 40
    Height = 40
    Cursor = 18
    OnClick = Note4Click
    OnDblClick = Note4DblClick
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = NoteMouseDown
    OnMouseMove = Note4MouseMove
  end
  object FromField4: TLabel
    Tag = 2
    Left = 349
    Top = 274
    Width = 150
    Height = 13
    Cursor = 18
    AutoSize = False
    Caption = 'From'
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ShowAccelChar = False
    Transparent = True
    Visible = False
    OnClick = Note4Click
    OnDblClick = Note4DblClick
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = NoteMouseDown
    OnMouseMove = Note4MouseMove
  end
  object SubjectField4: TLabel
    Tag = 2
    Left = 349
    Top = 289
    Width = 150
    Height = 13
    Cursor = 18
    AutoSize = False
    Caption = 'Subject'
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ShowAccelChar = False
    Transparent = True
    Visible = False
    OnClick = Note4Click
    OnDblClick = Note4DblClick
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = NoteMouseDown
    OnMouseMove = Note4MouseMove
  end
  object imgUnread: TImage
    Left = 662
    Top = 69
    Width = 26
    Height = 18
    Picture.Data = {<image002.bmp>}
  end
  object imgRead: TImage
    Left = 662
    Top = 105
    Width = 20
    Height = 19
    Picture.Data = {<image003.bmp>}
  end
  object imgIsRead1: TImage
    Tag = 2
    Left = 239
    Top = 118
    Width = 24
    Height = 16
    Cursor = 18
    OnClick = Note1Click
    OnDblClick = Note1DblClick
  end
  object imgIsRead3: TImage
    Tag = 2
    Left = 402
    Top = 118
    Width = 24
    Height = 16
    Cursor = 18
    OnClick = Note3Click
    OnDblClick = Note3DblClick
  end
  object imgIsRead4: TImage
    Tag = 2
    Left = 403
    Top = 222
    Width = 24
    Height = 16
    Cursor = 18
    OnClick = Note4Click
    OnDblClick = Note4DblClick
    OnDragOver = NotAcceptedDragOver
  end
  object imgUnreadSelected: TImage
    Left = 692
    Top = 35
    Width = 24
    Height = 18
    Picture.Data = {<image004.bmp>}
  end
  object imgReadSelected: TImage
    Left = 702
    Top = 93
    Width = 20
    Height = 19
    Picture.Data = {<image005.bmp>}
  end
  object imgInBox: TImage
    Left = 515
    Top = 111
    Width = 125
    Height = 130
    Cursor = 18
    Picture.Data = {<image006.bmp>}
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = ImgInBoxMouseDown
  end
  object imgViewMessage1: TImage
    Tag = 2
    Left = 184
    Top = 113
    Width = 51
    Height = 35
    Cursor = 18
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = imgViewMessage1MouseDown
  end
  object imgViewMessage3: TImage
    Tag = 2
    Left = 347
    Top = 112
    Width = 51
    Height = 36
    Cursor = 18
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = imgViewMessage3MouseDown
  end
  object imgViewMessage4: TImage
    Tag = 2
    Left = 345
    Top = 214
    Width = 51
    Height = 37
    Cursor = 18
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = imgViewMessage4MouseDown
  end
  object ImgSafe: TImage
    Left = 564
    Top = 294
    Width = 63
    Height = 29
    Cursor = 18
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = ImgSafeMouseDown
  end
  object imgUserIcon: TImage
    Left = 520
    Top = 267
    Width = 40
    Height = 40
    Cursor = 18
    Picture.Data = {<image007.bmp>}
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = imgUserIconMouseDown
  end
  object Image2: TImage
    Left = 16
    Top = 17
    Width = 129
    Height = 61
    Cursor = 18
    OnDragDrop = Image2DragDrop
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = Image2MouseDown
  end
  object AddressBook: TImage
    Left = 44
    Top = 228
    Width = 79
    Height = 92
    Cursor = 18
    OnClick = AddressBookClick
    OnDragDrop = AddressBookDragDrop
    OnDragOver = NotAcceptedDragOver
  end
  object Note2: TImage
    Tag = 2
    Left = 178
    Top = 212
    Width = 161
    Height = 100
    Cursor = 18
    DragCursor = crDefault
    Stretch = True
    Visible = False
    OnClick = Note2Click
    OnDblClick = Note2DblClick
    OnDragOver = NotAcceptedDragOver
    OnEndDrag = NoteEndDrag
    OnMouseDown = NoteMouseDown
    OnMouseMove = Note2MouseMove
  end
  object icon2: TImage
    Tag = 2
    Left = 276
    Top = 224
    Width = 40
    Height = 40
    Cursor = 18
    OnClick = Note2Click
    OnDblClick = Note2DblClick
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = NoteMouseDown
    OnMouseMove = Note2MouseMove
  end
  object imgIsRead2: TImage
    Tag = 2
    Left = 235
    Top = 222
    Width = 24
    Height = 16
    Cursor = 18
    OnClick = Note2Click
    OnDblClick = Note2DblClick
    OnDragOver = NotAcceptedDragOver
  end
  object imgViewMessage2: TImage
    Tag = 2
    Left = 182
    Top = 213
    Width = 51
    Height = 41
    Cursor = 18
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = imgViewMessage2MouseDown
  end
  object FromField2: TLabel
    Tag = 2
    Left = 186
    Top = 273
    Width = 145
    Height = 13
    Cursor = 18
    AutoSize = False
    Caption = 'From'
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ShowAccelChar = False
    Transparent = True
    Visible = False
    OnClick = Note2Click
    OnDblClick = Note2DblClick
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = NoteMouseDown
    OnMouseMove = Note2MouseMove
  end
  object SubjectField2: TLabel
    Tag = 2
    Left = 187
    Top = 288
    Width = 145
    Height = 13
    Cursor = 18
    AutoSize = False
    Caption = 'Subject'
    DragCursor = crHSplit
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ShowAccelChar = False
    Transparent = True
    Visible = False
    OnClick = Note2Click
    OnDblClick = Note2DblClick
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = NoteMouseDown
    OnMouseMove = Note2MouseMove
  end
  object lblHelpImgFileName: TLabel
    Left = 647
    Top = 8
    Width = 100
    Height = 13
    Color = clWhite
    ParentColor = False
    Visible = False
  end
  object ArrowLeft: TImage
    Tag = 2
    Left = 220
    Top = 329
    Width = 43
    Height = 27
    Cursor = 18
    AutoSize = True
    Picture.Data = {<image008.bmp>}
    Visible = False
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = ArrowLeftMouseDown
  end
  object ArrowRight: TImage
    Tag = 2
    Left = 373
    Top = 329
    Width = 43
    Height = 27
    Cursor = 18
    AutoSize = True
    Picture.Data = {<image009.bmp>}
    Visible = False
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = ArrowRightMouseDown
  end
  object imgTaskBar: TImage
    Tag = 2
    Left = 263
    Top = 332
    Width = 109
    Height = 24
    Cursor = 18
    AutoSize = True
    Picture.Data = {<image010.bmp>}
    Visible = False
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = imgTaskBarMouseDown
  end
  object FileCabinet: TImage
    Left = 478
    Top = 318
    Width = 99
    Height = 162
    Cursor = 18
    OnDragDrop = FileCabinetDragDrop
    OnDragOver = FileCabinetDragOver
    OnMouseDown = FileCabinetMouseDown
  end
  object imgHelpSleep: TImage
    Left = 54
    Top = 315
    Width = 145
    Height = 77
    Cursor = 18
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = imgHelpSleepMouseDown
    OnMouseMove = imgHelpSleepMouseMove
  end
  object imgExit: TImage
    Left = 7
    Top = 408
    Width = 188
    Height = 66
    Cursor = 18
    OnClick = imgExitClick
    OnDragOver = NotAcceptedDragOver
  end
  object Envelope1: TImage
    Left = 16
    Top = 488
    Width = 49
    Height = 65
    Picture.Data = {<image011.bmp>}
  end
  object envelope2: TImage
    Left = 72
    Top = 488
    Width = 57
    Height = 65
    Picture.Data = {<image012.bmp>}
  end
  object imgOutbox1: TImage
    Left = 29
    Top = 130
    Width = 40
    Height = 59
    Cursor = 18
    AutoSize = True
    OnMouseDown = imgOutbox1MouseDown
  end
  object imgHelp: TImage
    Left = 620
    Top = 2
    Width = 18
    Height = 17
    Cursor = 18
    AutoSize = True
    Picture.Data = {<image013.bmp>}
    OnMouseDown = imgHelpMouseDown
    OnMouseUp = imgHelpMouseUp
  end
  object imgMinimize: TImage
    Left = 600
    Top = 2
    Width = 18
    Height = 17
    Cursor = 18
    AutoSize = True
    Picture.Data = {<image014.bmp>}
    OnMouseDown = imgMinimizeMouseDown
    OnMouseUp = imgMinimizeMouseUp
  end
  object ImgPrevAdd: TImage
    Left = 144
    Top = 32
    Width = 30
    Height = 33
    Cursor = 18
    AutoSize = True
    Stretch = True
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = ImgPrevAddMouseDown
  end
  object ImgNextAdd: TImage
    Left = 508
    Top = 32
    Width = 21
    Height = 33
    Cursor = 18
    AutoSize = True
    OnDragOver = NotAcceptedDragOver
    OnMouseDown = ImgNextAddMouseDown
  end
  object imgOpenDrawer: TImage
    Tag = 2
    Left = 409
    Top = 315
    Width = 180
    Height = 165
    Cursor = 18
    Visible = False
    OnDragDrop = imgOpenDrawerDragDrop
    OnDragOver = imgOpenDrawerDragOver
    OnMouseDown = imgOpenDrawerMouseDown
  end
  object DragedEnvelop: TImage
    Left = 710
    Top = 224
    Width = 45
    Height = 28
    Picture.Data = {<image015.bmp>}
    Stretch = True
    Visible = False
  end
  object NotAccepted: TImage
    Left = 714
    Top = 258
    Width = 45
    Height = 28
    Picture.Data = {<image016.bmp>}
    Stretch = True
    Visible = False
  end
  object Accepted: TImage
    Left = 714
    Top = 298
    Width = 45
    Height = 28
    Picture.Data = {<image017.bmp>}
    Stretch = True
    Visible = False
  end
  object Bascet: TImage
    Left = 571
    Top = 408
    Width = 75
    Height = 76
    Cursor = 18
    OnClick = BascetClick
    OnDragDrop = BascetDragDrop
    OnDragOver = AcceptedDragOver
  end
  object FlicPlayer1: TFlicPlayer
    Left = 92
    Top = 228
    Width = 1
    Height = 1
    Cursor = 18
    FlicTransIndex = 144
    FlicTransparent = True
    FlicAutoSpeed = True
    FlicFrameDelay = 0
    FlicPlayLoop = False
    TabOrder = 1
    OnMouseDown = FlicPlayer1MouseDown
    OnMouseMove = imgHelpSleepMouseMove
  end
  object StringGrid1: TStringGrid
    Left = 661
    Top = 133
    Width = 87
    Height = 66
    ColCount = 7
    RowCount = 7
    TabOrder = 0
    Visible = False
    RowHeights = (
      24
      18
      24
      24
      24
      24
      24)
  end
  object flcseta: TFlicPlayer
    Left = 0
    Top = 0
    Width = 2
    Height = 2
    Cursor = 18
    FlicTransIndex = 144
    FlicTransparent = True
    FlicAutoSpeed = True
    FlicFrameDelay = 72
    FlicPlayLoop = False
    TabOrder = 2
    OnMouseDown = flcSetaMouseDown
  end
  object Shockdll1: TShockdll
    Left = 178
    Top = 18
    Width = 320
    Height = 65
    Cursor = 18
  end
  object timerPronto: TTimer
    Enabled = False
    Interval = 500
    OnTimer = timerProntoTimer
    Left = 668
    Top = 220
  end
end