mirror of
https://github.com/Laex/Delphi-OpenCV.git
synced 2024-11-15 15:55:53 +01:00
80 lines
1.8 KiB
ObjectPascal
80 lines
1.8 KiB
ObjectPascal
unit uMainForm;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
|
|
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
|
|
FMX.StdCtrls, ocv.comp.ViewFMX, ocv.comp.Types, ocv.comp.Source,
|
|
ocv.comp.ImageOperation;
|
|
|
|
type
|
|
TMainForm = class(TForm)
|
|
ocvcmrsrc1: TocvCameraSource;
|
|
ocvwfmx1: TocvViewFMX;
|
|
chk1: TCheckBox;
|
|
ocvpcmsrc1: TocvIPCamSource;
|
|
ocvfmpgpcmsrc1: TocvFFMpegIPCamSource;
|
|
ocvflsrc1: TocvFileSource;
|
|
ocvmgprtn1: TocvImageOperation;
|
|
ocvwfmx2: TocvViewFMX;
|
|
ocvwfmx3: TocvViewFMX;
|
|
ocvwfmx4: TocvViewFMX;
|
|
chk2: TCheckBox;
|
|
chk3: TCheckBox;
|
|
chk4: TCheckBox;
|
|
chk5: TCheckBox;
|
|
procedure chk1Change(Sender: TObject);
|
|
procedure chk5Change(Sender: TObject);
|
|
procedure chk2Change(Sender: TObject);
|
|
procedure chk3Change(Sender: TObject);
|
|
procedure chk4Change(Sender: TObject);
|
|
procedure FormActivate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
MainForm: TMainForm;
|
|
|
|
implementation
|
|
|
|
{$R *.fmx}
|
|
|
|
procedure TMainForm.chk1Change(Sender: TObject);
|
|
begin
|
|
ocvcmrsrc1.Enabled := chk1.IsChecked;
|
|
end;
|
|
|
|
procedure TMainForm.chk2Change(Sender: TObject);
|
|
begin
|
|
ocvpcmsrc1.Enabled := chk2.IsChecked;
|
|
end;
|
|
|
|
procedure TMainForm.chk3Change(Sender: TObject);
|
|
begin
|
|
ocvflsrc1.Enabled := chk3.IsChecked;
|
|
end;
|
|
|
|
procedure TMainForm.chk4Change(Sender: TObject);
|
|
begin
|
|
ocvfmpgpcmsrc1.Enabled := chk4.IsChecked;
|
|
end;
|
|
|
|
procedure TMainForm.chk5Change(Sender: TObject);
|
|
begin
|
|
ocvmgprtn1.Enabled := chk5.IsChecked;
|
|
end;
|
|
|
|
procedure TMainForm.FormActivate(Sender: TObject);
|
|
begin
|
|
ocvcmrsrc1.Enabled := True;
|
|
ocvpcmsrc1.Enabled := True;
|
|
ocvflsrc1.Enabled := True;
|
|
ocvfmpgpcmsrc1.Enabled := True;
|
|
end;
|
|
|
|
end.
|