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

Text File | 1997-03-10 | 16KB | 821 lines

object PaintForm: TPaintForm
  Left = 409
  Top = 78
  BorderStyle = bsNone
  Caption = 'PaintForm'
  ClientHeight = 620
  ClientWidth = 751
  Font.Color = clBlack
  Font.Height = -16
  Font.Name = 'Courier New'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 18
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 640
    Height = 460
    AutoSize = True
  end
  object EraseDownImage: TImage
    Left = 85
    Top = 344
    Width = 48
    Height = 46
    Picture.Data = {<image000.bmp>}
    Visible = False
  end
  object CutFeelImage: TImage
    Left = 138
    Top = 318
    Width = 48
    Height = 32
    Picture.Data = {<image001.bmp>}
    Visible = False
    OnMouseDown = CutFeelImageMouseDown
    OnMouseUp = CutFeelImageMouseUp
  end
  object CopyFeelImage: TImage
    Left = 138
    Top = 360
    Width = 48
    Height = 30
    AutoSize = True
    Picture.Data = {<image002.bmp>}
    Visible = False
    OnMouseDown = CopyFeelImageMouseDown
    OnMouseUp = CopyFeelImageMouseUp
  end
  object PasteFeelImage: TImage
    Left = 138
    Top = 396
    Width = 48
    Height = 32
    AutoSize = True
    Picture.Data = {<image003.bmp>}
    OnMouseDown = PasteFeelImageMouseDown
    OnMouseUp = PasteFeelImageMouseUp
  end
  object CutDownImage: TImage
    Left = 138
    Top = 318
    Width = 48
    Height = 32
    Cursor = 18
    AutoSize = True
    Picture.Data = {<image004.bmp>}
    Visible = False
  end
  object CopyDownImage: TImage
    Left = 138
    Top = 360
    Width = 48
    Height = 30
    Cursor = 18
    AutoSize = True
    Picture.Data = {<image005.bmp>}
    Visible = False
  end
  object PasteDownImage: TImage
    Left = 138
    Top = 396
    Width = 48
    Height = 33
    Cursor = 18
    AutoSize = True
    Picture.Data = {<image006.bmp>}
    Visible = False
  end
  object ImageForLb: TImage
    Left = 8
    Top = 464
    Width = 8
    Height = 8
    Picture.Data = {<image007.bmp>}
    Stretch = True
  end
  object SzLblBevel: TBevel
    Left = 640
    Top = 460
    Width = 17
    Height = 17
    Shape = bsFrame
    Style = bsRaised
  end
  object SelDownImage: TImage
    Left = 30
    Top = 22
    Width = 46
    Height = 45
    Picture.Data = {<image008.bmp>}
    Visible = False
  end
  object PensilDownImage: TImage
    Left = 29
    Top = 74
    Width = 49
    Height = 47
    Picture.Data = {<image009.bmp>}
    Stretch = True
  end
  object BrushDownImage: TImage
    Left = 29
    Top = 128
    Width = 48
    Height = 46
    Picture.Data = {<image010.bmp>}
    Visible = False
  end
  object FloodDownImage: TImage
    Left = 29
    Top = 183
    Width = 48
    Height = 46
    Picture.Data = {<image011.bmp>}
    Visible = False
  end
  object CircleDownImage: TImage
    Left = 29
    Top = 234
    Width = 48
    Height = 49
    AutoSize = True
    Picture.Data = {<image012.bmp>}
    Visible = False
  end
  object RectDownImage: TImage
    Left = 29
    Top = 289
    Width = 48
    Height = 49
    AutoSize = True
    Picture.Data = {<image013.bmp>}
    Visible = False
  end
  object RectFellImage: TImage
    Left = 29
    Top = 289
    Width = 48
    Height = 50
    Cursor = 18
    OnMouseDown = RectFellImageMouseDown
  end
  object LineDownImage: TImage
    Left = 29
    Top = 343
    Width = 48
    Height = 46
    Picture.Data = {<image014.bmp>}
    Visible = False
  end
  object LineFeelImage: TImage
    Left = 29
    Top = 343
    Width = 50
    Height = 49
    Cursor = 18
    OnMouseDown = LineFeelImageMouseDown
  end
  object ZoomDownImage: TImage
    Left = 85
    Top = 291
    Width = 48
    Height = 47
    AutoSize = True
    Picture.Data = {<image015.bmp>}
    Visible = False
  end
  object ZoomFeelImage: TImage
    Left = 85
    Top = 291
    Width = 50
    Height = 50
    Cursor = 18
    OnMouseDown = ZoomFeelImageMouseDown
  end
  object ErseFeelImage: TImage
    Left = 85
    Top = 344
    Width = 48
    Height = 50
    Cursor = 18
    OnMouseDown = ErseFeelImageMouseDown
  end
  object IconDownImage: TImage
    Left = 85
    Top = 397
    Width = 48
    Height = 46
    Picture.Data = {<image016.bmp>}
    Visible = False
  end
  object IconFeelImage: TImage
    Left = 85
    Top = 397
    Width = 48
    Height = 49
    Cursor = 18
    OnMouseDown = IconFeelImageMouseDown
  end
  object AquaDownImage: TImage
    Left = 444
    Top = 386
    Width = 28
    Height = 28
    Picture.Data = {<image017.bmp>}
    Visible = False
  end
  object AquaFeelImage: TImage
    Left = 444
    Top = 386
    Width = 29
    Height = 30
    Cursor = 18
    OnMouseDown = AquaFeelImageMouseDown
  end
  object TealDownImage: TImage
    Left = 417
    Top = 404
    Width = 28
    Height = 28
    Picture.Data = {<image018.bmp>}
    Visible = False
  end
  object TealFeelImage: TImage
    Left = 417
    Top = 404
    Width = 29
    Height = 28
    Cursor = 18
    OnMouseDown = TealFeelImageMouseDown
  end
  object GreenDownImage: TImage
    Left = 380
    Top = 402
    Width = 28
    Height = 28
    Picture.Data = {<image019.bmp>}
    Visible = False
  end
  object GreenFeelImage: TImage
    Left = 380
    Top = 402
    Width = 29
    Height = 27
    Cursor = 18
    OnMouseDown = GreenFeelImageMouseDown
  end
  object LimeDownImage: TImage
    Left = 345
    Top = 392
    Width = 28
    Height = 28
    Picture.Data = {<image020.bmp>}
    Visible = False
  end
  object LimeFeelImage: TImage
    Left = 345
    Top = 392
    Width = 29
    Height = 29
    Cursor = 18
    OnMouseDown = LimeFeelImageMouseDown
  end
  object OliveDownImage: TImage
    Left = 317
    Top = 374
    Width = 28
    Height = 28
    Picture.Data = {<image021.bmp>}
    Visible = False
  end
  object OliveFeelImage: TImage
    Left = 317
    Top = 374
    Width = 29
    Height = 28
    Cursor = 18
    OnMouseDown = OliveFeelImageMouseDown
  end
  object NavyDownImage: TImage
    Left = 410
    Top = 374
    Width = 28
    Height = 28
    Picture.Data = {<image022.bmp>}
    Visible = False
  end
  object NavyFeelImage: TImage
    Left = 410
    Top = 374
    Width = 28
    Height = 28
    Cursor = 18
    OnMouseDown = NavyFeelImageMouseDown
  end
  object BlueDownImage: TImage
    Left = 374
    Top = 369
    Width = 28
    Height = 28
    Picture.Data = {<image023.bmp>}
    Visible = False
  end
  object BlueFeelImage: TImage
    Left = 374
    Top = 369
    Width = 29
    Height = 28
    Cursor = 18
    OnMouseDown = BlueFeelImageMouseDown
  end
  object YellowDownImage: TImage
    Left = 301
    Top = 341
    Width = 28
    Height = 28
    Picture.Data = {<image024.bmp>}
    Visible = False
  end
  object YellowFeelImage: TImage
    Left = 301
    Top = 341
    Width = 28
    Height = 27
    Cursor = 18
    OnMouseDown = YellowFeelImageMouseDown
  end
  object PurpleDownImage: TImage
    Left = 341
    Top = 356
    Width = 28
    Height = 28
    Picture.Data = {<image025.bmp>}
    Visible = False
  end
  object PurpleFeelImage: TImage
    Left = 341
    Top = 356
    Width = 29
    Height = 28
    Cursor = 18
    OnMouseDown = PurpleFeelImageMouseDown
  end
  object MaroonDownImage: TImage
    Left = 334
    Top = 328
    Width = 28
    Height = 28
    Picture.Data = {<image026.bmp>}
    Visible = False
  end
  object MaroonFeelImage: TImage
    Left = 334
    Top = 328
    Width = 29
    Height = 28
    Cursor = 18
    OnMouseDown = MaroonFeelImageMouseDown
  end
  object WhiteDownImage: TImage
    Left = 308
    Top = 311
    Width = 28
    Height = 28
    Picture.Data = {<image027.bmp>}
    Visible = False
  end
  object WhiteFeelImage: TImage
    Left = 308
    Top = 311
    Width = 28
    Height = 28
    Cursor = 18
    OnMouseDown = WhiteFeelImageMouseDown
  end
  object SilverDownImage: TImage
    Left = 336
    Top = 293
    Width = 28
    Height = 28
    Picture.Data = {<image028.bmp>}
    Visible = False
  end
  object SilverFeelImage: TImage
    Left = 336
    Top = 293
    Width = 29
    Height = 30
    Cursor = 18
    OnMouseDown = SilverFeelImageMouseDown
  end
  object GrayDownImage: TImage
    Left = 368
    Top = 291
    Width = 28
    Height = 28
    Picture.Data = {<image029.bmp>}
    Visible = False
  end
  object GrayFeelImage: TImage
    Left = 368
    Top = 291
    Width = 29
    Height = 30
    Cursor = 18
    OnMouseDown = GrayFeelImageMouseDown
  end
  object RedDownImage: TImage
    Left = 365
    Top = 322
    Width = 28
    Height = 28
    Picture.Data = {<image030.bmp>}
    Visible = False
  end
  object RedFeelImage: TImage
    Left = 365
    Top = 322
    Width = 30
    Height = 29
    Cursor = 18
    OnMouseDown = RedFeelImageMouseDown
  end
  object BlackDownImage: TImage
    Left = 397
    Top = 303
    Width = 28
    Height = 28
    Picture.Data = {<image031.bmp>}
  end
  object FuchsiaDownImage: TImage
    Left = 393
    Top = 340
    Width = 28
    Height = 28
    Picture.Data = {<image032.bmp>}
    Visible = False
  end
  object FuchsiaFeelImage: TImage
    Left = 393
    Top = 340
    Width = 30
    Height = 29
    Cursor = 18
    OnMouseDown = FuchsiaFeelImageMouseDown
  end
  object SaveFeelImage: TImage
    Left = 491
    Top = 316
    Width = 104
    Height = 45
    Cursor = 18
    OnMouseDown = SaveFeelImageMouseDown
  end
  object CancelFeelImage: TImage
    Left = 494
    Top = 358
    Width = 102
    Height = 48
    Cursor = 18
    OnMouseDown = CancelFeelImageMouseDown
  end
  object UpScrollFeelImage: TImage
    Left = 597
    Top = 28
    Width = 31
    Height = 25
    Cursor = 18
    Picture.Data = {<image033.bmp>}
    Visible = False
    OnMouseDown = UpScrollFeelImageMouseDown
  end
  object DownScrollFeelImage: TImage
    Left = 595
    Top = 240
    Width = 29
    Height = 26
    Cursor = 18
    Picture.Data = {<image034.bmp>}
    Visible = False
    OnMouseDown = DownScrollFeelImageMouseDown
  end
  object PenFeelImage: TImage
    Left = 29
    Top = 74
    Width = 51
    Height = 50
    Cursor = 18
    OnMouseDown = PenFeelImageMouseDown
  end
  object BrushFeelImage: TImage
    Left = 29
    Top = 128
    Width = 49
    Height = 48
    Cursor = 18
    OnMouseDown = BrushFeelImageMouseDown
  end
  object FloodFellImage: TImage
    Left = 29
    Top = 183
    Width = 50
    Height = 50
    Cursor = 18
    OnMouseDown = FloodFellImageMouseDown
  end
  object CircleFeelImage: TImage
    Left = 29
    Top = 234
    Width = 50
    Height = 50
    Cursor = 18
    OnMouseDown = CircleFeelImageMouseDown
  end
  object SelFeelImage: TImage
    Left = 30
    Top = 22
    Width = 49
    Height = 46
    Cursor = 18
    OnMouseDown = SelFeelImageMouseDown
  end
  object TextDownImage: TImage
    Left = 29
    Top = 397
    Width = 48
    Height = 46
    Picture.Data = {<image035.bmp>}
    Visible = False
  end
  object TextFellImage: TImage
    Left = 29
    Top = 397
    Width = 49
    Height = 50
    Cursor = 18
    OnMouseDown = TextFellImageMouseDown
  end
  object LeftScrollFeelImage: TImage
    Left = 144
    Top = 275
    Width = 22
    Height = 32
    Cursor = 18
    Picture.Data = {<image036.bmp>}
    Visible = False
    OnMouseDown = LeftScrollFeelImageMouseDown
  end
  object RightScrollFellImage: TImage
    Left = 566
    Top = 277
    Width = 20
    Height = 32
    Cursor = 18
    Picture.Data = {<image037.bmp>}
    Visible = False
    OnMouseDown = RightScrollFellImageMouseDown
  end
  object BlackFeelImage: TImage
    Left = 397
    Top = 303
    Width = 29
    Height = 27
    Cursor = 18
    OnMouseDown = BlackFeelImageMouseDown
  end
  object MainPanel: TPanel
    Left = 94
    Top = 25
    Width = 497
    Height = 245
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 0
    object Image: TImage
      Left = 0
      Top = 0
      Width = 497
      Height = 245
      AutoSize = True
      Stretch = True
      OnMouseDown = ImageMouseDown
      OnMouseMove = ImageMouseMove
      OnMouseUp = ImageMouseUp
    end
    object SelImage: TImage
      Left = 0
      Top = 0
      Width = 125
      Height = 125
      AutoSize = True
      Visible = False
      OnMouseDown = SelImageMouseDown
      OnMouseMove = SelImageMouseMove
      OnMouseUp = SelImageMouseUp
    end
  end
  object FocusButton: TButton
    Left = 10
    Top = 570
    Width = 89
    Height = 30
    Caption = 'Focus'
    TabOrder = 1
    OnKeyPress = FocusButtonKeyPress
  end
  object LinePropPanel: TCustBkPanel
    Left = 200
    Top = 304
    Width = 77
    Height = 134
    BevelOuter = bvLowered
    TabOrder = 2
    Visible = False
    BrushImage = ImageForLb
    object lbLineWidth: TListBox
      Left = 9
      Top = 22
      Width = 58
      Height = 90
      BorderStyle = bsNone
      ItemHeight = 18
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5')
      ParentColor = True
      Style = lbOwnerDrawFixed
      TabOrder = 0
      OnDrawItem = lbLineWidthDrawItem
    end
  end
  object ErasePropPanel: TCustBkPanel
    Left = 200
    Top = 304
    Width = 77
    Height = 134
    BevelOuter = bvLowered
    TabOrder = 3
    Visible = False
    BrushImage = ImageForLb
    object lbEraseWidth: TListBox
      Left = 24
      Top = 21
      Width = 29
      Height = 92
      BorderStyle = bsNone
      Color = clBtnFace
      ItemHeight = 23
      Items.Strings = (
        '0'
        '1'
        '2'
        '3')
      Style = lbOwnerDrawFixed
      TabOrder = 0
      OnDrawItem = lbEraseWidthDrawItem
    end
  end
  object EllipsePanel: TCustBkPanel
    Left = 200
    Top = 304
    Width = 77
    Height = 134
    BevelOuter = bvLowered
    TabOrder = 4
    Visible = False
    BrushImage = ImageForLb
    object lbEllipse: TListBox
      Left = 10
      Top = 48
      Width = 58
      Height = 32
      BorderStyle = bsNone
      Color = clBtnFace
      ItemHeight = 16
      Style = lbOwnerDrawFixed
      TabOrder = 0
      OnDrawItem = lbEllipseDrawItem
    end
  end
  object RectPanel: TCustBkPanel
    Left = 200
    Top = 304
    Width = 77
    Height = 134
    BevelOuter = bvLowered
    TabOrder = 5
    Visible = False
    BrushImage = ImageForLb
    object lbRects: TListBox
      Left = 10
      Top = 51
      Width = 58
      Height = 32
      BorderStyle = bsNone
      Color = clBtnFace
      ItemHeight = 16
      Style = lbOwnerDrawFixed
      TabOrder = 0
      OnDrawItem = lbRectsDrawItem
    end
  end
  object ZoomPanel: TCustBkPanel
    Left = 200
    Top = 304
    Width = 77
    Height = 134
    BevelOuter = bvLowered
    TabOrder = 6
    Visible = False
    BrushImage = ImageForLb
    object lbZoom: TListBox
      Left = 5
      Top = 35
      Width = 67
      Height = 64
      BorderStyle = bsNone
      Color = clBtnFace
      ItemHeight = 16
      Style = lbOwnerDrawFixed
      TabOrder = 0
      OnClick = lbZoomClick
      OnDrawItem = lbZoomDrawItem
    end
  end
  object BrushPropPanel: TCustBkPanel
    Left = 200
    Top = 304
    Width = 77
    Height = 134
    BevelOuter = bvLowered
    TabOrder = 7
    Visible = False
    BrushImage = ImageForLb
    object Bevel1: TBevel
      Left = 10
      Top = 35
      Width = 57
      Height = 64
      Visible = False
    end
  end
  object TextPanel: TCustBkPanel
    Left = 190
    Top = 304
    Width = 99
    Height = 137
    BevelOuter = bvLowered
    TabOrder = 8
    Visible = False
    BrushImage = ImageForLb
    object cbFontName: TComboBox
      Left = 7
      Top = 30
      Width = 86
      Height = 26
      Style = csDropDownList
      ItemHeight = 18
      Sorted = True
      TabOrder = 0
      OnChange = cbFontNameChange
    end
    object cbFontSize: TComboBox
      Left = 21
      Top = 87
      Width = 58
      Height = 26
      Style = csDropDownList
      ItemHeight = 18
      Items.Strings = (
        '8'
        '9'
        '10'
        '11'
        '12'
        '14'
        '16'
        '18'
        '20'
        '22'
        '24'
        '26'
        '28'
        '36'
        '48'
        '72')
      TabOrder = 1
      OnChange = cbFontNameChange
    end
  end
end