object Form1: TForm1 Left = 243 Top = 114 Width = 435 Height = 300 Caption = 'Form1' Font.Color = clWindowText Font.Height = -14 Font.Style = [] Menu = MainMenu1 Position = poDefault OnCreate = FormCreate OnMouseDown = FormMouseDown OnMouseMove = FormMouseMove OnMouseUp = FormMouseUp PixelsPerInch = 120 TextHeight = 16 object Panel1: TPanel Left = 0 Top = 0 Width = 427 Height = 50 Align = alTop TabOrder = 0 object LineButton: TSpeedButton Left = 10 Top = 10 Width = 31 Height = 31 GroupIndex = 1 Down = True Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003333333333333333300300003333333333333333003300003333 3333333333300333000033333333333333003333000033333333333330033333 0000333333333333003333330000333333333330033333330000333333333300 3333333300003333333330033333333300003333333300333333333300003333 3330033333333333000033333300333333333333000033333003333333333333 0000333300333333333333330000333003333333333333330000330033333333 3333333300003003333333333333333300003033333333333333333300003333 33333333333333330000} OnClick = LineButtonClick end object RectangleButton: TSpeedButton Left = 49 Top = 10 Width = 31 Height = 31 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003033333333333333330300003033 3333333333333303000030333333333333333303000030333333333333333303 0000303333333333333333030000303333333333333333030000303333333333 3333330300003033333333333333330300003033333333333333330300003033 3333333333333303000030333333333333333303000030333333333333333303 0000303333333333333333030000303333333333333333030000303333333333 3333330300003033333333333333330300003000000000000000000300003333 33333333333333330000} OnClick = RectangleButtonClick end object EllipseButton: TSpeedButton Left = 89 Top = 10 Width = 30 Height = 31 GroupIndex = 1 Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 3333330000003333003333330033330000003330333333333303330000003303 3333333333303300000030333333333333330300000030333333333333330300 0000033333333333333330000000033333333333333330000000033333333333 3333300000000333333333333333300000000333333333333333300000000333 3333333333333000000030333333333333330300000030333333333333330300 0000330333333333333033000000333033333333330333000000333300333333 003333000000333333000000333333000000} OnClick = EllipseButtonClick end object RoundRectButton: TSpeedButton Left = 128 Top = 10 Width = 31 Height = 31 GroupIndex = 1 Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000 0033330000003300333333333300330000003033333333333333030000003033 3333333333330300000003333333333333333000000003333333333333333000 0000033333333333333330000000033333333333333330000000033333333333 3333300000000333333333333333300000000333333333333333300000000333 3333333333333000000003333333333333333000000003333333333333333000 0000303333333333333303000000303333333333333303000000330033333333 330033000000333300000000003333000000} OnClick = RoundRectButtonClick end object PenButton: TSpeedButton Left = 217 Top = 10 Width = 30 Height = 31 AllowAllUp = True GroupIndex = 2 Glyph.Data = { 66010000424D6601000000000000760000002800000015000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333339003333333333333333003334003333333333333330F00334003333 33333333330F0003300033333333333330F00033300033333333333300000333 3C00333333333330F0003333380033333333330F0003333330003333333330F0 003333333700333333330F0003333333370033333330F000333333333F003333 330F0003333333333700333330F00033333333333F0033330F00033333333333 37003330F0003333333333333700333000033333333333333000330F00333333 3333333337003300333333333333333337003033333333333333333337003333 33333333333333333700} OnClick = PenButtonClick end object BrushButton: TSpeedButton Left = 256 Top = 10 Width = 31 Height = 31 AllowAllUp = True GroupIndex = 3 Glyph.Data = { 66010000424D6601000000000000760000002800000013000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333F000030030000003333333337000033333330F0003333333B00003333 33330F000333333000003333333330F00033333700003333333330F000333330 00003333333300F00003333A0000333333300FF0000333370000333333300F00 00033337000033333300FF000000333E00003333330FF0000000333700003333 330FF00000003337000033333300F0000000333F000033333330000000033337 0000333333330FFF003333370000333333330FFF0033333F0000333333330FFF 0033333E0000333333330FFF0033333700003333333330000333333F00003333 33333333333333300000} OnClick = BrushButtonClick end end object PenBar: TPanel Left = 0 Top = 50 Width = 427 Height = 51 Align = alTop TabOrder = 1 Visible = False object SolidPen: TSpeedButton Left = 10 Top = 10 Width = 31 Height = 31 GroupIndex = 4 Down = True Glyph.Data = { B2000000424DB200000000000000760000002800000015000000050000000100 0400000000003C00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333700333333333333333333333000300000000000000000003F003333 33333333333333333000333333333333333333333000} OnClick = SetPenStyle end object DashPen: TSpeedButton Left = 41 Top = 10 Width = 30 Height = 31 GroupIndex = 4 Glyph.Data = { B2000000424DB200000000000000760000002800000015000000050000000100 0400000000003C00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333700333333333333333333333000300000300000030000033F003333 33333333333333333000333333333333333333333000} OnClick = SetPenStyle end object DotPen: TSpeedButton Left = 71 Top = 10 Width = 31 Height = 31 GroupIndex = 4 Glyph.Data = { B2000000424DB200000000000000760000002800000015000000050000000100 0400000000003C00000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333003333333333333333333333003030303030303030303033003333 33333333333333333300333333333333333333333300} OnClick = SetPenStyle end object DashDotPen: TSpeedButton Left = 102 Top = 10 Width = 31 Height = 31 GroupIndex = 4 Glyph.Data = { B2000000424DB200000000000000760000002800000015000000050000000100 0400000000003C00000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333330003333333333333333333330003000003030000030300030003333 33333333333333333F00333333333333333333333700} OnClick = SetPenStyle end object DashDotDotPen: TSpeedButton Left = 133 Top = 10 Width = 31 Height = 31 GroupIndex = 4 Glyph.Data = { B2000000424DB200000000000000760000002800000015000000050000000100 0400000000003C00000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333003333333333333333333333003000003030300000303033003333 33333333333333333300333333333333333333333300} OnClick = SetPenStyle end object ClearPen: TSpeedButton Left = 164 Top = 10 Width = 30 Height = 31 GroupIndex = 4 Glyph.Data = { B2000000424DB200000000000000760000002800000015000000050000000100 0400000000003C00000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333003333333333333333333333003FFFFFFFFFFFFFFFFFFF33003333 33333333333333333300333333333333333333333300} OnClick = SetPenStyle end object PenColor: TSpeedButton Left = 214 Top = 10 Width = 31 Height = 31 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00999BBBBFAAAA 4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B BBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF 0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA 4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B BBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF 0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA 4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B BBFFAAAFFCCCFFFF0000} OnClick = PenColorClick end object PenWidth: TUpDown Left = 380 Top = 15 Width = 11 Height = 24 Associate = PenSize ArrowKeys = False Min = 0 Position = 1 TabOrder = 0 Wrap = False end object PenSize: TEdit Left = 345 Top = 15 Width = 35 Height = 24 TabOrder = 1 Text = '1' OnChange = PenSizeChange end end object BrushBar: TPanel Left = 0 Top = 101 Width = 427 Height = 50 Align = alTop TabOrder = 2 Visible = False object SolidBrush: TSpeedButton Left = 10 Top = 10 Width = 31 Height = 31 GroupIndex = 1 Down = True Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003000000000000000000300003000 0000000000000003000030000000000000000003000030000000000000000003 0000300000000000000000030000300000000000000000030000300000000000 0000000300003000000000000000000300003000000000000000000300003000 0000000000000003000030000000000000000003000030000000000000000003 0000300000000000000000030000300000000000000000030000300000000000 0000000300003000000000000000000300003000000000000000000300003333 33333333333333330000} OnClick = SetBrushStyle end object ClearBrush: TSpeedButton Left = 49 Top = 10 Width = 31 Height = 31 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003033333333333333330300003033 3333333333333303000030333333333333333303000030333333333333333303 0000303333333333333333030000303333333333333333030000303333333333 3333330300003033333333333333330300003033333333333333330300003033 3333333333333303000030333333333333333303000030333333333333333303 0000303333333333333333030000303333333333333333030000303333333333 3333330300003033333333333333330300003000000000000000000300003333 33333333333333330000} OnClick = SetBrushStyle end object HorizontalBrush: TSpeedButton Left = 89 Top = 10 Width = 30 Height = 31 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003033333333333333330300003000 0000000000000003000030333333333333333303000030333333333333333303 0000300000000000000000030000303333333333333333030000303333333333 3333330300003000000000000000000300003033333333333333330300003033 3333333333333303000030000000000000000003000030333333333333333303 0000303333333333333333030000300000000000000000030000303333333333 3333330300003033333333333333330300003000000000000000000300003333 33333333333333330000} OnClick = SetBrushStyle end object VerticalBrush: TSpeedButton Left = 128 Top = 10 Width = 31 Height = 31 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003033033033033033030300003033 0330330330330303000030330330330330330303000030330330330330330303 0000303303303303303303030000303303303303303303030000303303303303 3033030300003033033033033033030300003033033033033033030300003033 0330330330330303000030330330330330330303000030330330330330330303 0000303303303303303303030000303303303303303303030000303303303303 3033030300003033033033033033030300003000000000000000000300003333 33333333333333330000} OnClick = SetBrushStyle end object FDiagonalBrush: TSpeedButton Left = 167 Top = 10 Width = 31 Height = 31 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003033303330333033300300003033 0333033303330303000030303330333033303303000030033303330333033303 0000303330333033303330030000303303330333033303030000303033303330 3330330300003003330333033303330300003033303330333033300300003033 0333033303330303000030303330333033303303000030033303330333033303 0000303330333033303330030000303303330333033303030000303033303330 3330330300003003330333033303330300003000000000000000000300003333 33333333333333330000} OnClick = SetBrushStyle end object BDiagonalBrush: TSpeedButton Left = 207 Top = 10 Width = 31 Height = 31 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003003330333033303330300003030 3330333033303303000030330333033303330303000030333033303330333003 0000300333033303330333030000303033303330333033030000303303330333 0333030300003033303330333033300300003003330333033303330300003030 3330333033303303000030330333033303330303000030333033303330333003 0000300333033303330333030000303033303330333033030000303303330333 0333030300003033303330333033300300003000000000000000000300003333 33333333333333330000} OnClick = SetBrushStyle end object CrossBrush: TSpeedButton Left = 246 Top = 10 Width = 31 Height = 31 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003033033033033033030300003000 0000000000000003000030330330330330330303000030330330330330330303 0000300000000000000000030000303303303303303303030000303303303303 3033030300003000000000000000000300003033033033033033030300003033 0330330330330303000030000000000000000003000030330330330330330303 0000303303303303303303030000300000000000000000030000303303303303 3033030300003033033033033033030300003000000000000000000300003333 33333333333333330000} OnClick = SetBrushStyle end object DiagCrossBrush: TSpeedButton Left = 286 Top = 10 Width = 30 Height = 31 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003033303330333033300300003003 0303030303030303000030303330333033303303000030030303030303030303 0000303330333033303330030000300303030303030303030000303033303330 3330330300003003030303030303030300003033303330333033300300003003 0303030303030303000030303330333033303303000030030303030303030303 0000303330333033303330030000300303030303030303030000303033303330 3330330300003003030303030303030300003000000000000000000300003333 33333333333333330000} OnClick = SetBrushStyle end object BrushColor: TSpeedButton Left = 343 Top = 10 Width = 31 Height = 31 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00999BBBBFAAAA 4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B BBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF 0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA 4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B BBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF 0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA 4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B BBFFAAAFFCCCFFFF0000} OnClick = BrushColorClick end end object StatusBar1: TStatusBar Left = 0 Top = 231 Width = 427 Height = 23 Panels = < item Width = 150 end item Width = 50 end> SimplePanel = False end object ScrollBox1: TScrollBox Left = 0 Top = 151 Width = 427 Height = 80 Align = alClient TabOrder = 4 object Image: TImage Left = 0 Top = 0 Width = 129 Height = 129 AutoSize = True OnMouseDown = FormMouseDown OnMouseMove = FormMouseMove OnMouseUp = FormMouseUp end end object ColorDialog1: TColorDialog Ctl3D = True Left = 377 Top = 148 end object MainMenu1: TMainMenu Left = 337 Top = 148 object File1: TMenuItem Caption = '&File' object New1: TMenuItem Caption = '&New' OnClick = New1Click end object Open1: TMenuItem Caption = '&Open...' OnClick = Open1Click end object Save1: TMenuItem Caption = '&Save' OnClick = Save1Click end object Saveas1: TMenuItem Caption = 'Save &as...' OnClick = Saveas1Click end object Print1: TMenuItem Caption = '&Print' end object N1: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = 'E&xit' OnClick = Exit1Click end end object Edit1: TMenuItem Caption = '&Edit' object Cut1: TMenuItem Caption = 'Cu&t' ShortCut = 16472 OnClick = Cut1Click end object Copy1: TMenuItem Caption = '&Copy' ShortCut = 16451 OnClick = Copy1Click end object Paste1: TMenuItem Caption = '&Paste' ShortCut = 16470 OnClick = Paste1Click end end end object OpenDialog1: TOpenDialog DefaultExt = 'bmp' Filter = 'Bitmap files (*.bmp)|*.bmp|All files|*.*' Left = 337 Top = 188 end object SaveDialog1: TSaveDialog DefaultExt = 'bmp' Filter = 'Bitmap files (*.bmp)|*.bmp|All files|*.*' Left = 377 Top = 188 end end