object CWnd: TCWnd Left = 228 Top = 355 Width = 301 Height = 147 BorderIcons = [biSystemMenu, biMinimize] Caption = 'Capture' Font.Color = clWindowText Font.Height = -18 Font.Name = 'System' Font.Style = [] FormStyle = fsStayOnTop Icon.Data = {} KeyPreview = True PixelsPerInch = 120 Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnResize = FormResize OnShow = FormShow TextHeight = 20 object Bevel1: TBevel Left = 0 Top = 51 Width = 293 Height = 10 Align = alTop Style = bsRaised end object Roll1: TRoll Left = 0 Top = 61 Width = 293 Height = 54 Hint = 'The Capture Destination (Rolling List : Click to roll.)' Align = alClient Color = clBlack Font.Color = clWhite Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [fsBold] Items.Strings = ( 'Save as Temp. File + Add Link' 'Save + Add Link' 'Save' 'Clipboard' 'Print' 'Print To Fit') ItemIndex = 0 Text3d = True Text3dColor = clBtnShadow end object MRPanel3: TMRPanel Left = 0 Top = 0 Width = 293 Height = 51 Align = alTop BevelOuter = bvNone BevelWidth = 2 PopupMenu = PopupMenu1 TabOrder = 1 OnResize = MRPanel3Resize BevelSides = [sdLeft, sdTop, sdRight] BorderColor = clBlack BorderSides = [] Moveable = False CBorderStyle = cbsNone OnNCHitTest = MRPanel3NCHitTest object BitBtn1: TSpeedButton Left = 100 Top = 0 Width = 41 Height = 41 Hint = 'Captures (or recaptures) ' Glyph.Data = { 58020000424D5802000000000000760000002800000026000000180000000100 04000000000000000000120B0000120B00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444 433333333333F888888833333300333333444444433333333333F88888883333 33003243342222222433333388FF833333338FF3330032244222222222443333 8F88333FFFFF388F330032222222AAAAA22243338F333FF88888F338F3003222 22AA33333A2224338F33F883333383338F00322222223333322224338F33F883 333383338F00322888883333384444338F33833333333FF38F00322C80008888 000004338FFFF8833333388883003AAC8007000C080003338888888333333333 33003AAC800700000800033388888883333333333300333C8008000000700333 333333333333FFFFFF00333C80070F00087004433FFFF333333388888800333C 80080000800004433FFFF3333333888888003A48F8888888888442438888F333 3388F33338003A28F8888888888442438F33F33333338333380033A2228CCC44 4422224338338FFFFF888333380033A2224338832222224338FF388888333FFF 380033A2224444422222224338FF388888333FFF3800333AA222222222AAA243 3388F3333333F888F80033333A2222222A333A3333338FFFFFFF833383003333 33AAAAAAA333333333333888888833333300333333AAAAAAA333333333333888 88883333330033333333333333333333333333333333333333000000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = MinBtnClick end object BitBtn4: TSpeedButton Left = 204 Top = 0 Width = 25 Height = 23 Hint = 'Repaints last captured area.' Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000007000000000000000700000007077770770770770700000007007 7077077077007000000070707777770770707000000070770770707707707000 0000707770770700777070000000707777007777777070000000707777777777 7770700000007077777777700770700000007077777777077070700000007077 7777770770707000000070777777777007707000000070777777777777707000 0000700000000000000070000000777777777777777770000000777777777777 777770000000} ParentShowHint = False ShowHint = True OnClick = ABitbtn2Click end object bitbtn2: TSpeedButton Left = 140 Top = 0 Width = 41 Height = 41 Hint = 'Captures or recaptures ( inside the windows frame)' Glyph.Data = { 10010000424D1001000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF008CCCCCCCCCCC CCC88CFCFCFCFCFCFCC88CCFCFCFCFCFCFC88CFCFCFCFCFCFCC88CCFCFCFCFCF CFC88CFCFCFCFCFCFCC88CCFCFCFCFCFCFC88CFCFCFCFCFCFCC88CCFCFCFCFCF CFC88CFCFCFCFCFCFCC88CCFCFCFCFCFCFC88CFCFCFCFCFCFCC88CCCCCCCCCCC CCC8844444444444444884444444444444488888888888888888000000000000 0000000000000000000000000000000000000000} ParentShowHint = False ShowHint = True OnClick = bitbtn2Click end object BitBtn3: TASpeedButton Left = 196 Top = 0 Width = 45 Height = 36 Hint = 'Capture the screen' Glyph.Data = { 10020000424D1002000000000000760000002800000030000000100000000100 0400000000008001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777777777777777777777777777777777770000000000077777FFFFFFFF FFF777770000000000077777F777777777077777F777777777F77777F8888888 88077777F777777777077777F777777777F777777888888888077700F7777777 770777FFF777777777F77700F8888888880777F7F7777777770777F7F7777777 77F7777878888888880777F7F7777777770777F7F777777777F777F8F8888888 880700F7F77777777707FFF7F777777777F70078788888888807F7F7FCCCCCCC CC07F7F7FFFFFFFFFFF778F8F44444444407F7F7FFFFFFFFFF07F7F7FFFFFFFF FFF7F8787F7F7F7F7F07F7F7777777770777F7F777777777F77778F888888888 0777F7FCCCCCCCCC0777F7FFFFFFFFFFF777F874444444440777F7FFFFFFFFFF 0777F7FFFFFFFFFFF77778F7F7F7F7F70777F777777777077777F777777777F7 7777F888888888077777FCCCCCCCCC077777FFFFFFFFFFF77777744444444407 7777FFFFFFFFFF077777FFFFFFFFFFF77777F7F7F7F7F7077777000000000000 0000000000000000000000000000000000000000} NumGlyphs = 3 ParentShowHint = False ShowHint = True OnClick = BitBtn3Click end object BitBtn5: TASpeedButton Left = 236 Top = 0 Width = 35 Height = 31 Hint = 'capture options' Glyph.Data = { 06020000424D0602000000000000760000002800000028000000140000000100 0400000000009001000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333333333333333333333333333333333FFFFFFFFFFFFFF FFFF300000000000000000033777777777777777777F30FFFFFFFFFFFFFFFF03 37F333F333333333337F30FFF0FFFFFFFFFFFF0337F337FF33333333337F30FF 000FFFFFFFFFFF0337F3777FF3333333337F30F00F00FFFFFFFFFF0337F77377 FF333333337F30FFFFF00FFFFFFFFF0337F333377FF33333337F30FFFFFF00FF FFFFFF0337F333F377333333337F30FFF0FFFFFFFFFFFF0337F337FF33333333 337F30FF000FFFFFFFFFFF0337F3777FF3333333337F30F00F00FFFFFFFFFF03 37F77377FF333333337F30FFFFF00FFFFFFFFF0337F333377FF33333337F30FF FFFF00FFFFFFFF0337F3333377333333337F30FFFFFFFFFFFFFFFF0337FFFFFF FFFFFFFFFF7F300000000000000000033777777777777777777F3080CCCCCCCC CC08080337F777777777777F7F7F300000000000000000033777777777777777 7773333333333333333333333333333333333333333333333333333333333333 33333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = BitBtn5Click end object SelectPanel: TMRPanel Left = 0 Top = 0 Width = 49 Height = 51 Hint = 'Press the right button to turn off hints' Align = alLeft BevelInner = bvRaised BevelOuter = bvNone BevelWidth = 6 BorderWidth = 3 ParentShowHint = False ShowHint = True TabOrder = 0 BorderSides = [] Moveable = False CBorderStyle = cbsNone object Image1: TImage Left = 9 Top = 9 Width = 31 Height = 33 Hint = 'Sets the window you are going to capture: Press the left mouse, ' + 'hold It, move the cursor, and release' Align = alClient Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = ABitbtn1MouseDown OnMouseUp = ABitbtn1MouseUp end end object CapturePanel: TMRPanel Left = 49 Top = 0 Width = 50 Height = 51 Hint = 'Press the right button to turn off hints' Align = alLeft BevelInner = bvRaised BevelOuter = bvNone BevelWidth = 6 BorderWidth = 3 ParentShowHint = False ShowHint = True TabOrder = 1 BorderSides = [] Moveable = False CBorderStyle = cbsNone object Image2: TImage Left = 9 Top = 9 Width = 32 Height = 33 Hint = 'Captures a window: press the left mouse button, hold It, move to' + ' the location, and release' Align = alClient Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = Image2MouseDown OnMouseUp = Image2MouseUp end end end object PopupMenu1: TPopupMenu Left = 464 Top = 8 object About1: TMenuItem Caption = 'About' OnClick = About1Click end object close1: TMenuItem Caption = 'close' OnClick = Close1Click end end object SaveDialog1: TSaveDialog Filter = 'Bitmap (*.BMP)|*.BMP|All Files (*.*)|*.*' Left = 481 Top = 16 end end