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 = {} Visible = False end object CutFeelImage: TImage Left = 138 Top = 318 Width = 48 Height = 32 Picture.Data = {} Visible = False OnMouseDown = CutFeelImageMouseDown OnMouseUp = CutFeelImageMouseUp end object CopyFeelImage: TImage Left = 138 Top = 360 Width = 48 Height = 30 AutoSize = True Picture.Data = {} Visible = False OnMouseDown = CopyFeelImageMouseDown OnMouseUp = CopyFeelImageMouseUp end object PasteFeelImage: TImage Left = 138 Top = 396 Width = 48 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = PasteFeelImageMouseDown OnMouseUp = PasteFeelImageMouseUp end object CutDownImage: TImage Left = 138 Top = 318 Width = 48 Height = 32 Cursor = 18 AutoSize = True Picture.Data = {} Visible = False end object CopyDownImage: TImage Left = 138 Top = 360 Width = 48 Height = 30 Cursor = 18 AutoSize = True Picture.Data = {} Visible = False end object PasteDownImage: TImage Left = 138 Top = 396 Width = 48 Height = 33 Cursor = 18 AutoSize = True Picture.Data = {} Visible = False end object ImageForLb: TImage Left = 8 Top = 464 Width = 8 Height = 8 Picture.Data = {} 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 = {} Visible = False end object PensilDownImage: TImage Left = 29 Top = 74 Width = 49 Height = 47 Picture.Data = {} Stretch = True end object BrushDownImage: TImage Left = 29 Top = 128 Width = 48 Height = 46 Picture.Data = {} Visible = False end object FloodDownImage: TImage Left = 29 Top = 183 Width = 48 Height = 46 Picture.Data = {} Visible = False end object CircleDownImage: TImage Left = 29 Top = 234 Width = 48 Height = 49 AutoSize = True Picture.Data = {} Visible = False end object RectDownImage: TImage Left = 29 Top = 289 Width = 48 Height = 49 AutoSize = True Picture.Data = {} 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 = {} 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 = {} 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 = {} 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 = {} 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 = {} 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 = {} 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 = {} 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 = {} 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 = {} 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 = {} 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 = {} 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 = {} 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 = {} 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 = {} 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 = {} 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 = {} 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 = {} 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 = {} end object FuchsiaDownImage: TImage Left = 393 Top = 340 Width = 28 Height = 28 Picture.Data = {} 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 = {} Visible = False OnMouseDown = UpScrollFeelImageMouseDown end object DownScrollFeelImage: TImage Left = 595 Top = 240 Width = 29 Height = 26 Cursor = 18 Picture.Data = {} 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 = {} 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 = {} Visible = False OnMouseDown = LeftScrollFeelImageMouseDown end object RightScrollFellImage: TImage Left = 566 Top = 277 Width = 20 Height = 32 Cursor = 18 Picture.Data = {} 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