Delphi/Delphi-OpenCV
1
0
Fork 0
mirror of https://github.com/Laex/Delphi-OpenCV.git synced 2024-11-15 07:45:53 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Try it now (#115)

Browse Source 
Signed-off-by: Laentir Valetov <laex@bk.ru>
This commit is contained in:
Laentir Valetov 2019-03-04 21:31:03 +04:00
parent bf6d45180f
commit 13a0a73d96
2 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
source/component/ocv.comp.Types.pas
View File

@ -334,7 +334,7 @@ Type
TocvDataReceiver = class(TComponent, IocvDataReceiver)
private
FocvVideoSource: IocvDataSource;
[weak] FocvVideoSource: IocvDataSource;
protected
procedure SetVideoSource(const Value: TObject); virtual;
procedure SetOpenCVVideoSource(const Value: IocvDataSource); virtual;
@ -348,7 +348,7 @@ Type
TocvDataSourceAndReceiver = class(TocvDataSource, IocvDataReceiver)
private
FocvVideoSource: IocvDataSource;
[weak] FocvVideoSource: IocvDataSource;
protected
procedure SetVideoSource(const Value: TObject); virtual;
procedure SetOpenCVVideoSource(const Value: IocvDataSource); virtual;

13
source/component/ocv.comp.View.pas
View File

@ -85,7 +85,7 @@ type
TocvViewFrame = class(TCollectionItem, IocvDataReceiver)
private
FocvVideoSource: IocvDataSource;
[weak] FocvVideoSource: IocvDataSource;
FImage: IocvImage;
FLock: TCriticalSection;
FDrawRect: TocvPersistentRect;
@ -113,7 +113,7 @@ type
TocvView = class(TWinControl, IocvDataReceiver)
private
FocvVideoSource: IocvDataSource;
[weak] FocvVideoSource: IocvDataSource;
FImage: IocvImage;
FOnAfterPaint: TOnOcvAfterViewPaint;
FOnBeforePaint: TOnOcvNotify;
@ -180,8 +180,9 @@ end;
destructor TocvView.Destroy;
begin
if Assigned(FocvVideoSource) then
FocvVideoSource.RemoveReceiver(Self);
// if Assigned(FocvVideoSource) then
// FocvVideoSource.RemoveReceiver(Self);
VideoSource := nil;
FCanvas.Free;
FFrames.Free;
inherited;
@ -191,10 +192,10 @@ procedure TocvView.SetOpenCVVideoSource(const Value: IocvDataSource);
begin
if FocvVideoSource <> Value then
begin
if Assigned(FocvVideoSource) then
if Assigned(FocvVideoSource) and (not(csDesigning in ComponentState)) then
FocvVideoSource.RemoveReceiver(Self);
FocvVideoSource := Value;
if Assigned(FocvVideoSource) then
if Assigned(FocvVideoSource) and (not(csDesigning in ComponentState)) then
FocvVideoSource.AddReceiver(Self);
end;
end;