home *** CD-ROM | disk | FTP | other *** search
- object MainWin: TMainWin
- Left = 249
- Top = 114
- BorderStyle = bsSingle
- Caption = 'Capture Express 2000'
- ClientHeight = 231
- ClientWidth = 480
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- OldCreateOrder = True
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 16
- object MyAd: TAdImage
- Left = 8
- Top = 4
- Width = 468
- Height = 60
- Cursor = crHandPoint
- AutoLoad = False
- Options = []
- ProgramID = 405
- BandwidthThrottle = 2147483647
- MinimumAdDisplayTime = 0
- NetworkIsUp = False
- Size = ADS468x60
- end
- object MainPanel: TPanel
- Left = 8
- Top = 70
- Width = 469
- Height = 159
- BevelOuter = bvNone
- TabOrder = 1
- object MyImage: TImage
- Left = 220
- Top = 8
- Width = 149
- Height = 101
- OnDblClick = ViewButtonClick
- end
- object SavePrintPanel: TPanel
- Left = 0
- Top = 4
- Width = 381
- Height = 149
- TabOrder = 0
- object ThumbImage: TImage
- Left = 240
- Top = 8
- Width = 133
- Height = 125
- PopupMenu = PictMenu
- OnDblClick = ViewButtonClick
- end
- object SaveBit: TRadioButton
- Left = 8
- Top = 8
- Width = 113
- Height = 17
- Caption = 'Save As &Bitmap'
- TabOrder = 0
- OnClick = SaveBitClick
- end
- object SaveGIF: TRadioButton
- Left = 8
- Top = 28
- Width = 137
- Height = 17
- Caption = 'Save As &GIF'
- TabOrder = 1
- OnClick = SaveGIFClick
- end
- object PrintPixel: TRadioButton
- Left = 8
- Top = 68
- Width = 197
- Height = 17
- Caption = 'Print Using Pi&xel Size'
- TabOrder = 3
- OnClick = PrintPixelClick
- end
- object PrintFilled: TRadioButton
- Left = 8
- Top = 88
- Width = 181
- Height = 17
- Caption = 'Print &Filling Page'
- TabOrder = 4
- OnClick = PrintFilledClick
- end
- object SaveJPEG: TRadioButton
- Left = 8
- Top = 48
- Width = 137
- Height = 17
- Caption = 'Save As &JPEG'
- TabOrder = 2
- OnClick = SaveJPEGClick
- end
- object CopyClip: TRadioButton
- Left = 8
- Top = 108
- Width = 181
- Height = 17
- Caption = 'Copy &To Clipboard'
- TabOrder = 5
- OnClick = CopyClipClick
- end
- object EMailIt: TRadioButton
- Left = 8
- Top = 128
- Width = 181
- Height = 17
- Caption = 'E-&Mail Image'
- TabOrder = 6
- OnClick = EMailItClick
- end
- end
- object CapturePanel: TPanel
- Left = 0
- Top = 4
- Width = 381
- Height = 113
- TabOrder = 1
- object ShapeLabel: TLabel
- Left = 236
- Top = 64
- Width = 121
- Height = 16
- Alignment = taCenter
- AutoSize = False
- Caption = 'Shape'
- end
- object CapScreen: TRadioButton
- Left = 8
- Top = 8
- Width = 113
- Height = 17
- Caption = 'Capture &Screen'
- TabOrder = 0
- OnClick = CapScreenClick
- end
- object CapWindow: TRadioButton
- Left = 8
- Top = 28
- Width = 137
- Height = 17
- Caption = 'Capture &Window'
- TabOrder = 1
- OnClick = CapWindowClick
- end
- object CapClient: TRadioButton
- Left = 8
- Top = 48
- Width = 197
- Height = 17
- Caption = 'Capture Wi&ndow Client Area'
- TabOrder = 2
- OnClick = CapClientClick
- end
- object CapArea: TRadioButton
- Left = 8
- Top = 68
- Width = 181
- Height = 17
- Caption = 'Capture &Rectangular Area'
- TabOrder = 3
- OnClick = CapAreaClick
- end
- object CapShape: TRadioButton
- Left = 8
- Top = 88
- Width = 181
- Height = 17
- Caption = 'Capture S&haped Area'
- TabOrder = 4
- OnClick = CapShapeClick
- end
- object ShapeBox: TComboBox
- Left = 224
- Top = 84
- Width = 145
- Height = 24
- Style = csDropDownList
- ItemHeight = 16
- TabOrder = 5
- OnChange = ShapeBoxChange
- end
- end
- object AbortButton: TButton
- Left = 392
- Top = 88
- Width = 65
- Height = 25
- Caption = '&Abort'
- TabOrder = 4
- OnClick = AbortButtonClick
- end
- object DoItButton: TButton
- Left = 392
- Top = 56
- Width = 65
- Height = 25
- Caption = '&Capture'
- Default = True
- TabOrder = 3
- OnClick = DoItButtonClick
- end
- object ViewButton: TButton
- Left = 392
- Top = 24
- Width = 65
- Height = 25
- Caption = '&View'
- TabOrder = 2
- OnClick = ViewButtonClick
- end
- object ConfigButton: TButton
- Left = 0
- Top = 124
- Width = 73
- Height = 17
- Caption = 'C&onfigure'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- OnClick = PopOpenClick
- end
- end
- object TaskIcon1: TTaskIcon
- Left = 420
- Top = 68
- Width = 0
- Height = 0
- Active = False
- Icon.Data = {<image000.ico>}
- ToolTip = 'Capture Express 2000'
- TaskIconID = 0
- OnClick = TaskIcon1Click
- OnRightClick = TaskIcon1RightClick
- end
- object MyPrintSetup: TPrinterSetupDialog
- Left = 372
- Top = 12
- end
- object MyPopUp: TPopupMenu
- Left = 404
- Top = 12
- object CaptureImage1: TMenuItem
- Caption = 'Capt&ure Image'
- OnClick = CaptureImage1Click
- end
- object PopView: TMenuItem
- Caption = '&Open Image'
- OnClick = PopViewClick
- end
- object PopOpen: TMenuItem
- Caption = '&Configure'
- OnClick = PopOpenClick
- end
- object MenuTools: TMenuItem
- Caption = 'Too&ls'
- object MenuHooks: TMenuItem
- Caption = '&Restore Keyboard and Mouse Hooks'
- OnClick = MenuHooksClick
- end
- end
- object PopHelp: TMenuItem
- Caption = '&Help'
- OnClick = PopHelpClick
- end
- object MenuItem1: TMenuItem
- Caption = '&About'
- OnClick = MenuAboutClick
- end
- object MenuItem2: TMenuItem
- Caption = '-'
- end
- object MenuHomePage: TMenuItem
- Caption = 'Capture &Express 2000 Home Page'
- OnClick = MenuHomePageClick
- end
- object MenuItem3: TMenuItem
- Caption = 'O&rder Software'
- OnClick = MenuOrderClick
- end
- object N11: TMenuItem
- Caption = '-'
- end
- object PopTerm: TMenuItem
- Caption = '&Terminate Capture Express 2000'
- OnClick = PopTermClick
- end
- end
- object HookTimer: TTimer
- Interval = 30000
- OnTimer = HookTimerTimer
- Left = 436
- Top = 12
- end
- object MySaveBMP: TSaveDialog
- DefaultExt = '*.BMP'
- Filter = 'Bitmap File (*.BMP)|*.BMP'
- Title = 'Save As Bitmap'
- Left = 340
- Top = 12
- end
- object MySaveGIF: TSaveDialog
- DefaultExt = '*.GIF'
- Filter = 'GIF File (*.GIF)|*.GIF'
- Title = 'Save As GIF'
- Left = 304
- Top = 12
- end
- object MySaveJPEG: TSaveDialog
- DefaultExt = '*.JPG'
- Filter = 'JPEG File (*.JPG)|*.JPG'
- Title = 'Save As JPEG'
- Left = 268
- Top = 12
- end
- object MyPrintDialog: TPrintDialog
- Left = 232
- Top = 12
- end
- object OpenGraphic: TOpenDialog
- DefaultExt = '*.BMP;*.JPG'
- Filter =
- 'Graphic Files (*.BMP, *.JPG)|*.BMP;*.JPG|Bitmap File (*.BMP)|*.B' +
- 'MP|JPEG File (*.JPG)|*.JPG'
- Title = 'Open Graphic File'
- Left = 200
- Top = 12
- end
- object OpenGraphicWGIF: TOpenDialog
- DefaultExt = '*.BMP;*.GIF;*.JPG'
- Filter =
- 'Graphic Files (*.BMP, *.GIF, *.JPG)|*.BMP;*.GIF;*.JPG|Bitmap Fil' +
- 'e (*.BMP)|*.BMP|GIF File (*.GIF)|*.GIF|JPEG File (*.JPG)|*.JPG'
- Title = 'Open Graphic File'
- Left = 164
- Top = 12
- end
- object PictMenu: TPopupMenu
- Left = 412
- Top = 190
- object ViewImageActualSize1: TMenuItem
- Caption = '&View Image Actual Size'
- OnClick = ViewButtonClick
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object MenuBit: TMenuItem
- Caption = 'Save As &Bitmap'
- OnClick = MenuBitClick
- end
- object MenuGif: TMenuItem
- Caption = 'Save As &GIF'
- OnClick = MenuGifClick
- end
- object MenuJPEG: TMenuItem
- Caption = 'Save As &JPEG'
- OnClick = MenuJPEGClick
- end
- object MenuPixel: TMenuItem
- Caption = '&Print Using Pixel Size'
- OnClick = MenuPixelClick
- end
- object MenuFull: TMenuItem
- Caption = 'Print &Filling Page'
- OnClick = MenuFullClick
- end
- object MenuCopy: TMenuItem
- Caption = '&Copy To Clipboard'
- OnClick = MenuCopyClick
- end
- object MenuEmail: TMenuItem
- Caption = '&E-Mail Image'
- OnClick = MenuEmailClick
- end
- end
- end
-