CaptureSelectedObject Example for Delphi 4.0

This is also the example for the CaptureObjectSelectCursorIndex, CaptureObjectInvert, CaptureObjectEnableKeyboard, CaptureObjectBorderWidth properties.

    {set cursor}
    LEADScr1.CaptureObjectSelectCursor := crArrow;

    {disable invert colors}
    LEADScr1.CaptureObjectInvert := False;

    {disable keyboard}
    LEADScr1.CaptureObjectEnableKeyboard := False;

    {set object border width}
    LEADScr1.CaptureObjectBorderWidth := 3;

    {do the capture}
    LEADScr1.CaptureSelectedObject();

    {copy the captured image to a Main Control}
    LEAD1.Bitmap := LEADScr1.Bitmap;

    {reset options}
    LEADScr1.ResetObjectOptions();