Class TframeStreamLink

Unit

frameStreamLinkUnit

Declaration

type TframeStreamLink = class(TFrame)

Description

Hierarchy

• TFrame
• TframeStreamLink

Overview

Fields

	shpStreamColor: TShape;
	dlgLinkColor: TColorDialog;
	btnStreamColor: TButton;
	shpDiversionColor: TShape;
	btnDiversionColor: TButton;
	rgItemsToPlot: TRadioGroup;
	cbStreams: TCheckBox;
	cbPlotDiversions: TCheckBox;
	lblTimeToPlot: TLabel;
	comboTimeToPlot: TJvComboBox;
	cbPlotUnconnected: TCheckBox;
	btnUnconnectedColor: TButton;
	shpUnconnectedColor: TShape;
	FSfrStreamLinkPlot: TSfrStreamLinkPlot;

Methods

	procedure btnStreamColorClick(Sender: TObject);
	procedure btnDiversionColorClick(Sender: TObject);
	procedure cbStreamsClick(Sender: TObject);
	procedure cbPlotDiversionsClick(Sender: TObject);
	procedure btnUnconnectedColorClick(Sender: TObject);
	procedure cbPlotUnconnectedClick(Sender: TObject);
	procedure SetShapeColor(AShape: TShape);
	destructor Destroy; override;
	procedure GetData;
	procedure SetData;

Description

Fields

	shpStreamColor: TShape;

	dlgLinkColor: TColorDialog;

	btnStreamColor: TButton;

	shpDiversionColor: TShape;

	btnDiversionColor: TButton;

	rgItemsToPlot: TRadioGroup;

	cbStreams: TCheckBox;

	cbPlotDiversions: TCheckBox;

	lblTimeToPlot: TLabel;

	comboTimeToPlot: TJvComboBox;

	cbPlotUnconnected: TCheckBox;

	btnUnconnectedColor: TButton;

	shpUnconnectedColor: TShape;

	FSfrStreamLinkPlot: TSfrStreamLinkPlot;

Methods

	procedure btnStreamColorClick(Sender: TObject);

	procedure btnDiversionColorClick(Sender: TObject);

	procedure cbStreamsClick(Sender: TObject);

	procedure cbPlotDiversionsClick(Sender: TObject);

	procedure btnUnconnectedColorClick(Sender: TObject);

	procedure cbPlotUnconnectedClick(Sender: TObject);

	procedure SetShapeColor(AShape: TShape);

	destructor Destroy; override;
Private declarations

	procedure GetData;

	procedure SetData;