mainform.pas

TVideoGrabber 7.5 TVideoGrabber 7.5 TVideoGrabber 7.5

    procedure chk2ndAutoSizeClick(Sender: TObject);
    procedure chk2ndEmbeddedClick(Sender: TObject);
    procedure chk2ndFullScreenClick(Sender: TObject);
    procedure chk2ndMouseMovesWindowClick(Sender: TObject);
    procedure chk2ndStayOnTopClick(Sender: TObject);
    procedure chk2ndUseVideoPortClick(Sender: TObject);
    procedure chk2ndVideoWindowActiveClick(Sender: TObject);
    procedure chkRecordingCanPauseClick(Sender: TObject);
    procedure chkBorderClick(Sender: TObject);
    procedure chkFlipHorizontalClick(Sender: TObject);
    procedure chkFlipVerticalClick(Sender: TObject);
    procedure chkGreyScaleClick(Sender: TObject);
    procedure chkInvertColorsClick(Sender: TObject);
    procedure chkOpenDMLClick(Sender: TObject);
    procedure chkPlayerAudioRenderingClick(Sender: TObject);
    procedure chkPreallocFileClick(Sender: TObject);
    procedure chkReduceDVFrameRateClick(Sender: TObject);
    procedure chkRenderAudioDeviceClick(Sender: TObject);
    procedure chkShapeOverlayEnabledClick(Sender: TObject);
    procedure chkStretchPreferredVideoSizeClick(Sender: TObject);
    procedure chkTextOverlayEnabledClick(Sender: TObject);
    procedure chkTextOverlayTransparentClick(Sender: TObject);
    procedure chkTransparencyClick(Sender: TObject);
    procedure chkUseThisFileNameClick(Sender: TObject);
    procedure edtAVIAutoFilePrefixChange(Sender: TObject);
    procedure edtBurstCountChange(Sender: TObject);
    procedure edtBurstIntervalChange(Sender: TObject);
    procedure edtPreallocSizeChange(Sender: TObject);
    procedure edtShapeOverlayHeightChange(Sender: TObject);
    procedure edtShapeOverlayLeftChange(Sender: TObject);
    procedure edtShapeOverlayTopChange(Sender: TObject);
    procedure edtShapeOverlayWidthChange(Sender: TObject);
    procedure edtStoragePathChange(Sender: TObject);
    procedure edtTextOverlayLeftChange(Sender: TObject);
    procedure edtTextOverlayTopChange(Sender: TObject);
    procedure edtTextOverlayWidthChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure mmoTextOverlayStringChange(Sender: TObject);
    procedure mnuAboutClick(Sender: TObject);
    procedure mnuExitClick(Sender: TObject);
    procedure SetPriority(Sender: TObject);
    procedure rdg1stDisplayedOnClick(Sender: TObject);
    procedure rdg2ndDisplayedOnClick(Sender: TObject);
    procedure rdgAutoFileNameClick(Sender: TObject);
    procedure rdgCompressModeClick(Sender: TObject);
    procedure rdgCompressTypeClick(Sender: TObject);
    procedure rdgPreferredVideoSizeClick(Sender: TObject);
    procedure rdgTextOverlayAlignClick(Sender: TObject);
    procedure rdgTunerInputTypeClick(Sender: TObject);
    procedure rdgVideoRendererClick(Sender: TObject);
    procedure rgdFrameGrabberClick(Sender: TObject);
    procedure rgdFrameGrabberFormatClick(Sender: TObject);
    procedure SendVCRCommand (Sender: TObject);
    procedure tbrAudioBalanceChange(Sender: TObject);
    procedure tbrBrightnessChange(Sender: TObject);
    procedure tbrCaptureZoomSizeChange(Sender: TObject);
    procedure tbrConstrastChange(Sender: TObject);
    procedure tbrHueChange(Sender: TObject);
    procedure tbrSaturationChange(Sender: TObject);
    procedure updPlayerFastSeekSpeedClick(Sender: TObject; Button: TUDBtnType);
    procedure updPlayerSpeedRatioClick(Sender: TObject; Button: TUDBtnType);
    procedure VideoGrabberDeviceArrivalOrRemoval(Sender: TObject; IsDeviceArrival, IsVideoDevice: Boolean; DeviceName: String; DeviceIndex: Integer);
    procedure VideoGrabberDeviceLost(Sender: TObject);
    procedure VideoGrabberDiskFull(Sender: TObject);
    procedure VideoGrabberMouseDown(Sender: TObject; VideoWindow: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure VideoGrabberMouseMove(Sender: TObject; VideoWindow: Integer; Shift: TShiftState; X, Y: Integer);
    procedure VideoGrabberMouseUp(Sender: TObject; VideoWindow: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure VideoGrabberPlayerEndOfStream(Sender: TObject);
    procedure VideoGrabberPreviewStarted(Sender: TObject);
    procedure VideoGrabberResize(Sender: TObject);
    procedure VideoGrabberResizeVideo(Sender: TObject; SourceWidth, SourceHeight: Integer);
    procedure VideoGrabberTVChannelScanCompleted(Sender: TObject);
    procedure VideoGrabberTVChannelScanStarted(Sender: TObject; MinChannel, MaxChannel: Integer);
    procedure tbrAudioInputLevelChange(Sender: TObject);
    procedure btnCreatePreallocFileNowClick(Sender: TObject);
    procedure chkSetFrequencyOverrideClick(Sender: TObject);
    procedure VideoGrabberDVCommandCompleted(Sender: TObject;
      NewStateValue: Integer; NewStateLabel: String);
    procedure chkEnableFrequencyOverridesClick(Sender: TObject);
    procedure rdgVideoRotationClick(Sender: TObject);
    procedure rdgDeinterlacingClick(Sender: TObject);
    procedure rdgNetworkStreamingClick(Sender: TObject);
    procedure rdgRecordingMethodClick(Sender: TObject);
    procedure edtPublishingPointChange(Sender: TObject);
    procedure edtNetworkPortChange(Sender: TObject);
    procedure edtNetworkMaxUsersChange(Sender: TObject);
    procedure btnShowProfilesListClick(Sender: TObject);
    procedure lsbProfilesClick(Sender: TObject);
    procedure edtProfileIndexChange(Sender: TObject);
    procedure chkCompareRedClick(Sender: TObject);
    procedure chkCompareGreenClick(Sender: TObject);
    procedure chkCompareBlueClick(Sender: TObject);
    procedure chk_GreyScaleClick(Sender: TObject);
    procedure chkReduceVideoNoiseClick(Sender: TObject);
    procedure edtGridChange(Sender: TObject);
    procedure updGlobalGridSensitivityClick(Sender: TObject;
      Button: TUDBtnType);
    procedure btnApplyGridSizeClick(Sender: TObject);
    procedure btnSetCellsSensitivityClick(Sender: TObject);
    procedure btnShowGridDialogClick(Sender: TObject);
    procedure chkMotionDetectionEnabledClick(Sender: TObject);
    procedure VideoGrabberPlayerBufferingData(Sender: TObject;
      StartingToBuffer: Boolean);
    procedure VideoGrabberAudioDeviceSelected(Sender: TObject);
    procedure VideoGrabberLog(Sender: TObject; LogType: TLogType; Severity,
      InfoMsg: String);
    procedure VideoGrabberVideoDeviceSelected(Sender: TObject);
    procedure tbrAudioInputBalanceChange(Sender: TObject);
    procedure chkAudioInputMonoClick(Sender: TObject);
    procedure VideoGrabberReinitializing(Sender: TObject);
    procedure VideoGrabberCopyPreallocDataStarted(Sender: TObject;
      SourceFile, DestFile: String);
    procedure VideoGrabberCopyPreallocDataCompleted(Sender: TObject;
      SourceFile, DestFile: String; Success: Boolean);
    procedure VideoGrabberCreatePreallocFileStarted(Sender: TObject;
      FileName: String);
    procedure VideoGrabberCreatePreallocFileCompleted(Sender: TObject;
      FileName: String; Success: Boolean);
    procedure VideoGrabberRecordingCompleted(Sender: TObject;
      FileName: String; Success: Boolean);
    procedure VideoGrabberRecordingStarted(Sender: TObject;
      FileName: String);
    procedure edtASFVideoWidthChange(Sender: TObject);
    procedure edtASFVideoHeightChange(Sender: TObject);
    procedure edtASFVideoBitRateChange(Sender: TObject);
    procedure edtASFVideoMaxKeyFrameSpacingChange(Sender: TObject);
    procedure edtASFVideoQualityChange(Sender: TObject);
    procedure edtASFAudioChannelsChange(Sender: TObject);
    procedure VideoGrabberReencodingStarted(Sender: TObject; SourceFile,
      DestFile: String);
    procedure VideoGrabberReencodingCompleted(Sender: TObject; SourceFile,
      DestFile: String; Success: Boolean);
    procedure btnViewDirectNetworkStreamingClick(Sender: TObject);
    procedure VideoGrabberInactive(Sender: TObject);
    procedure btnSourceVideoClipClick(Sender: TObject);
    procedure btnStartReencodingClick(Sender: TObject);
    procedure btnStopReencodingClick(Sender: TObject);
    procedure btnDurationClick(Sender: TObject);
    procedure VideoGrabberRecordingReadyToStart(Sender: TObject);
    procedure btnStartRecordingControlledClick(Sender: TObject);
    procedure chkRefreshPausedDisplayClick(Sender: TObject);
    procedure VideoGrabberPlayerOpened(Sender: TObject);
    procedure chkPreserveNativeFormatClick(Sender: TObject);
    procedure chkSetLogoClick(Sender: TObject);
    procedure VideoGrabberDirectNetworkStreamingHostUrl(Sender: TObject;
      HostUrl, HostName: String; HostPort: Integer);
    procedure btnOpenLastClipPlayedClick(Sender: TObject);
    procedure chkASFFixedFrameRateClick(Sender: TObject);
    procedure cmbASFDeinterlaceModeChange(Sender: TObject);
    procedure cboVideoSourceChange(Sender: TObject);
    procedure chkScreenRecordingWithCursorClick(Sender: TObject);
    procedure chkCroppingEnabledClick(Sender: TObject);
    procedure chkCroppingOutboundsClick(Sender: TObject);
    procedure edtCroppingWidthChange(Sender: TObject);
    procedure edtCroppingHeightChange(Sender: TObject);
    procedure trkCroppingZoomChange(Sender: TObject);
    procedure btnCroppingZoomResetClick(Sender: TObject);
    procedure trkCroppingYChange(Sender: TObject);
    procedure trkCroppingXChange(Sender: TObject);
    procedure tbrVMR9BrightnessChange(Sender: TObject);
    procedure tbrVMR9ContrastChange(Sender: TObject);
    procedure tbrVMR9SaturationChange(Sender: TObject);
    procedure tbrVMR9HueChange(Sender: TObject);
    procedure VideoGrabberGraphBuilt(Sender: TObject);
    procedure vmr9FixRangeClick(Sender: TObject);
    procedure chkChangeCursorClick(Sender: TObject);
    procedure btnSelectFileOrUrlClick(Sender: TObject);
    procedure edtVideoSourceFileOrUrlChange(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure chkAudioRecordingClick(Sender: TObject);
    procedure tbrAudioVolumeChange(Sender: TObject);
    procedure chkMuteAudioRenderingClick(Sender: TObject);
    procedure btnRenewRecordingFileClick(Sender: TObject);
    procedure VideoGrabberCopyPreallocDataProgress(Sender: TObject;
      Percent: Integer; Position, Duration: Int64);
    procedure VideoGrabberCreatePreallocFileProgress(Sender: TObject;
      Percent: Integer; Position, Duration: Int64);
    procedure VideoGrabberReencodingProgress(Sender: TObject;
      Percent: Integer; Position, Duration: Int64);
    procedure VideoGrabberTVChannelSelected(Sender: TObject;
      Channel: Integer; Locked: Boolean; DefaultVideoFrequency,
      OverriddenVideoFrequency, TunerVideoFrequency,
      TunerAudioFrequency: Integer);
    procedure VideoGrabberFrameCaptureCompleted(Sender: TObject;
      FrameBitmap: TBitmap; BitmapWidth, BitmapHeight: Integer;
      FrameNumber: Cardinal; FrameTime: Int64; DestType: TFrameCaptureDest;
      FileName: String; Success: Boolean; FrameId: Integer);
    procedure VideoGrabberFrameOverlayUsingDC(Sender: TObject; Dc: HDC;
      FrameNumber: Cardinal; FrameTime: Int64; FrameId: Integer);
    procedure VideoGrabberMotionDetected(Sender: TObject;
      GlobalMotionRatio: Double; MaxMotionCellX, MaxMotionCellY: Integer;
      FrameBitmap: TBitmap; FrameNumber: Cardinal; FrameTime: Int64;
      FrameId: Integer; var CaptureFrame: Boolean);
    procedure VideoGrabberMotionNotDetected(Sender: TObject;
      FrameBitmap: TBitmap; FrameNumber: Cardinal; FrameTime: Int64;
      FrameId: Integer; var CaptureFrame: Boolean);
    procedure VideoGrabberFrameProgress(Sender: TObject;
      FrameNumber: Cardinal; FrameTime: Int64; FrameId: Integer);
    procedure btnNativeFormatClick(Sender: TObject);
    procedure btnLoadImageOverlayFromFileClick(Sender: TObject);
    procedure chkMultiplexedAutoSwitchClick(Sender: TObject);
    procedure btnOpenClipClick(Sender: TObject);
    procedure btnGetClipDurationClick(Sender: TObject);
    procedure chkMultiplexedInputEmulationClick(Sender: TObject);
    procedure chkTriggeredClick(Sender: TObject);
    procedure btnTriggerNowClick(Sender: TObject);
    procedure chkRecordingPauseCreatesNewFileClick(Sender: TObject);
    procedure btnForceMPEG2DecoderClick(Sender: TObject);
    procedure btnGeneralInfoClick(Sender: TObject);
    procedure btnHeaderInfoClick(Sender: TObject);
    procedure rdgVUMetersClick(Sender: TObject);
    procedure chkTextOverlayShadowClick(Sender: TObject);
    procedure rgdTextOverlayShadowDirectionClick(Sender: TObject);
    procedure updTextOverlaySizeClick(Sender: TObject; Button: TUDBtnType);
    procedure btnDlgAudioDeviceClick(Sender: TObject);
    procedure btnShowTunerDialogClick(Sender: TObject);
    procedure btnAboutFrameRateClick(Sender: TObject);
    procedure btnStartAudioRenderingClick(Sender: TObject);
    procedure btnStartMP3RecordingClick(Sender: TObject);
    procedure btnStartWAVRecordingClick(Sender: TObject);
    procedure btnStopAudioClick(Sender: TObject);
    procedure chkUseAudioOfVideoCaptureDeviceClick(Sender: TObject);
    procedure rdgNetworkStreamingTypeClick(Sender: TObject);
    procedure btnStartASFRecordingClick(Sender: TObject);
    procedure chkRecordingOnMotionClick(Sender: TObject);
    procedure chkUseClockClick(Sender: TObject);
    procedure VideoGrabberVideoFromBitmapsNextFrameNeeded(Sender: TObject;
      FirstSample: Boolean; var BitmapHandle: HBITMAP;
      var CanFreeBitmapHandle: Boolean; var BMPorJPEGFile: String;
      var EndOfData: Boolean);
    procedure rdgRecordingSizeClick(Sender: TObject);
    procedure btnScreenRecordingWindowClick(Sender: TObject);
    procedure chkVideoVisibleWhenStoppedClick(Sender: TObject);
    procedure btnAddToPlaylistClick(Sender: TObject);
    procedure btnPlaylistPlayClick(Sender: TObject);
    procedure btnPlaylistNextClick(Sender: TObject);
    procedure btnPlaylistPreviousClick(Sender: TObject);
    procedure btnPlaylistStopClick(Sender: TObject);
    procedure chkPlaylistLoopClick(Sender: TObject);
    procedure chkPlaylistRandomClick(Sender: TObject);
    procedure VideoGrabberPlayerEndOfPlaylist(Sender: TObject);
    procedure lstPlaylistClick(Sender: TObject);
    procedure btnClosePlaylistClick(Sender: TObject);
    procedure VideoGrabberDVDiscontinuity(Sender: TObject;
      var DeliverNewFrame: Boolean);
    procedure rdg1AspectRatioClick(Sender: TObject);
    procedure rdg2AspectRatioClick(Sender: TObject);
    procedure btnOneShotClipboardClick(Sender: TObject);
    procedure btnBurstModeClipboardClick(Sender: TObject);
    procedure cboAudioRenderersChange(Sender: TObject);
    procedure rdgTunerModeClick(Sender: TObject);
    procedure VideoGrabberClientConnection(Sender: TObject;
      Connected: Boolean; ClientInfo: String);
    procedure btnSpecialControlsClick(Sender: TObject);
    procedure updPixellizationClick(Sender: TObject; Button: TUDBtnType);
    procedure rdgTextOverlaySelectorClick(Sender: TObject);
    procedure btnTextOverlayColorClick(Sender: TObject);
    procedure btnBkgndColorClick(Sender: TObject);
    procedure chk1stVisibleClick(Sender: TObject);
    procedure chk2ndVisibleClick(Sender: TObject);
    procedure edtCustomRotationAngleChange(Sender: TObject);
    procedure edtFrameCaptureWidthChange(Sender: TObject);
    procedure edtFrameCaptureHeightChange(Sender: TObject);
    procedure tbr1PanScanChange(Sender: TObject);
    procedure tbr2PanScanChange(Sender: TObject);
    procedure btnTestPanScanClick(Sender: TObject);
    procedure btnOpenAtFramesClick(Sender: TObject);
    procedure btnOpenAtTimesClick(Sender: TObject);
    procedure edtMonitorNumberChange(Sender: TObject);
    procedure btnMonitorNumberInfoClick(Sender: TObject);
    procedure btnSelectWMV9ProfileClick(Sender: TObject);
    procedure rdgProfileVersionClick(Sender: TObject);
    procedure edtWM9ProfileChange(Sender: TObject);
    procedure tbsIPCamerasShow(Sender: TObject);
    procedure btnIPCamStartPreviewClick(Sender: TObject);
    procedure edtIPCameraURLChange(Sender: TObject);
    procedure edtIPCamConnectionTimeoutChange(Sender: TObject);
    procedure edtIPCamReceiveTimeoutChange(Sender: TObject);
    procedure btnCurrentIPCameraURLClick(Sender: TObject);
    procedure btnUrlConfClick(Sender: TObject);
    procedure chkImageOverlayEnabledClick(Sender: TObject);
    procedure rdgImageOverlaySelectorClick(Sender: TObject);
    procedure chkImageOverlayTransparentClick(Sender: TObject);
    procedure chkImageOverlayUseTransparentColorClick(Sender: TObject);
    procedure chkImageOverlayAlphaBlendClick(Sender: TObject);
    procedure updImageAlphaBendClick(Sender: TObject; Button: TUDBtnType);
    procedure edtImageOverlayTransparentColorValueChange(Sender: TObject);
    procedure edtImageOverlayLeftChange(Sender: TObject);
    procedure edtImageOverlayTopChange(Sender: TObject);
    procedure edtImageOverlayWidthChange(Sender: TObject);
    procedure edtImageOverlayHeightChange(Sender: TObject);
    procedure btnImageOverlayPickupColorClick(Sender: TObject);
    procedure btnImageOverlayPickupHelpClick(Sender: TObject);
    procedure btnIPCamSendCommandClick(Sender: TObject);
    procedure VideoSourceFileOrUrl_UserNameChange(Sender: TObject);
    procedure VideoSourceFileOrUrl_PasswordChange(Sender: TObject);
    procedure edtIPCamUserNameChange(Sender: TObject);
    procedure edtIPCamPasswordChange(Sender: TObject);
    procedure edtPublishingPointUsernameChange(Sender: TObject);
    procedure edtPublishingPointPasswordChange(Sender: TObject);
    procedure btnDemoURLClick(Sender: TObject);
  private
    FStartupWidth: Integer;
    FStartupHeight: Integer;

    FTransparentForm: TForm;
    FTransparentPanel: TPanel;
    FSnapForm: TForm;