You've already forked lazarus-ccr
5cfe05ca7b
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7300 8e941d3f-bd1b-0410-a28a-d453659cc2b4
740 lines
24 KiB
ObjectPascal
740 lines
24 KiB
ObjectPascal
unit main;
|
|
|
|
//{$DEFINE TICKER}
|
|
|
|
{$IFDEF LCL}
|
|
{$MODE DELPHI}
|
|
{$IFNDEF WINDOWS}{$UNDEF TICKER}{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
interface
|
|
|
|
uses
|
|
{$IFDEF LCL}
|
|
LCLIntf,
|
|
{$ELSE}
|
|
Windows, Messages, ShellApi,
|
|
{$ENDIF}
|
|
SysUtils, Classes, Graphics, Controls,
|
|
Forms, Dialogs, ExtCtrls, StdCtrls, Spin, A3nalogGauge;
|
|
|
|
type
|
|
|
|
{ TMainForm }
|
|
|
|
TMainForm = class(TForm)
|
|
ScaleMinEdit: TSpinEdit;
|
|
ScaleMinLabel: TLabel;
|
|
StartStopButton: TButton;
|
|
Panel1: TPanel;
|
|
Panel2: TPanel;
|
|
Panel3: TPanel;
|
|
StyleBox: TComboBox;
|
|
AAModeLabel1: TLabel;
|
|
Timer: TTimer;
|
|
ColorDialog: TColorDialog;
|
|
FPSLabel: TLabel;
|
|
FreqLabel: TLabel;
|
|
FreqEdit: TSpinEdit;
|
|
|
|
FaceColorButton: TButton;
|
|
CenterColorButton: TButton;
|
|
CircleColorButton: TButton;
|
|
MinimLabel: TLabel;
|
|
MinimEdit: TSpinEdit;
|
|
MaximLabel: TLabel;
|
|
MaximEdit: TSpinEdit;
|
|
MinColorButton: TButton;
|
|
MidColorButton: TButton;
|
|
MaxColorButton: TButton;
|
|
TicksColorButton: TButton;
|
|
ValueColorButton: TButton;
|
|
CaptionColorButton: TButton;
|
|
ArrowColorButton: TButton;
|
|
MarginColorButton: TButton;
|
|
MarginLabel: TLabel;
|
|
MarginEdit: TSpinEdit;
|
|
CenterLabel: TLabel;
|
|
CenterRadEdit: TSpinEdit;
|
|
CircleLabel: TLabel;
|
|
CircleRadEdit: TSpinEdit;
|
|
ScaleMaxLabel: TLabel;
|
|
ScaleMaxEdit: TSpinEdit;
|
|
AngleLabel: TLabel;
|
|
AngleEdit: TSpinEdit;
|
|
WidthLabel: TLabel;
|
|
WidthEdit: TSpinEdit;
|
|
NumMainLabel: TLabel;
|
|
NumMainEdit: TSpinEdit;
|
|
MainLenLabel: TLabel;
|
|
MainLenEdit: TSpinEdit;
|
|
SubLenLabel: TLabel;
|
|
SubLenEdit: TSpinEdit;
|
|
MarginBox: TCheckBox;
|
|
MainTicksBox: TCheckBox;
|
|
SubticksBox: TCheckBox;
|
|
IndMinBox: TCheckBox;
|
|
IndMidBox: TCheckBox;
|
|
IndMaxBox: TCheckBox;
|
|
CirclesBox: TCheckBox;
|
|
ValuesBox: TCheckBox;
|
|
CenterBox: TCheckBox;
|
|
FrameBox: TCheckBox;
|
|
Draw3DBox: TCheckBox;
|
|
CaptionBox: TCheckBox;
|
|
CaptionLabel: TLabel;
|
|
CaptionEdit: TEdit;
|
|
CloseButton: TButton;
|
|
AboutLabel: TLabel;
|
|
AAModeBox: TComboBox;
|
|
AAModeLabel: TLabel;
|
|
procedure AboutLabelMouseLeave(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure ScaleMinEditChange(Sender: TObject);
|
|
procedure StartStopButtonClick(Sender: TObject);
|
|
procedure StyleBoxChange(Sender: TObject);
|
|
procedure TimerTimer(Sender: TObject);
|
|
{$IFDEF TICKER}
|
|
procedure FramesChanged(Sender: TObject);
|
|
{$ENDIF}
|
|
|
|
procedure AAModeBoxChange(Sender: TObject);
|
|
procedure FreqEditChange(Sender: TObject);
|
|
procedure FaceColorButtonClick(Sender: TObject);
|
|
procedure CenterColorButtonClick(Sender: TObject);
|
|
procedure CircleColorButtonClick(Sender: TObject);
|
|
procedure MinimEditChange(Sender: TObject);
|
|
procedure MaximEditChange(Sender: TObject);
|
|
procedure MinColorButtonClick(Sender: TObject);
|
|
procedure MidColorButtonClick(Sender: TObject);
|
|
procedure MaxColorButtonClick(Sender: TObject);
|
|
procedure TicksColorButtonClick(Sender: TObject);
|
|
procedure ValueColorButtonClick(Sender: TObject);
|
|
procedure CaptionColorButtonClick(Sender: TObject);
|
|
procedure ArrowColorButtonClick(Sender: TObject);
|
|
procedure MarginColorButtonClick(Sender: TObject);
|
|
procedure MarginEditChange(Sender: TObject);
|
|
procedure CenterRadEditChange(Sender: TObject);
|
|
procedure CircleRadEditChange(Sender: TObject);
|
|
procedure ScaleMaxEditChange(Sender: TObject);
|
|
procedure AngleEditChange(Sender: TObject);
|
|
procedure WidthEditChange(Sender: TObject);
|
|
procedure NumMainEditChange(Sender: TObject);
|
|
procedure MainLenEditChange(Sender: TObject);
|
|
procedure SubLenEditChange(Sender: TObject);
|
|
procedure MarginBoxClick(Sender: TObject);
|
|
procedure MainTicksBoxClick(Sender: TObject);
|
|
procedure SubticksBoxClick(Sender: TObject);
|
|
procedure IndMinBoxClick(Sender: TObject);
|
|
procedure IndMidBoxClick(Sender: TObject);
|
|
procedure IndMaxBoxClick(Sender: TObject);
|
|
procedure CirclesBoxClick(Sender: TObject);
|
|
procedure ValuesBoxClick(Sender: TObject);
|
|
procedure CenterBoxClick(Sender: TObject);
|
|
procedure FrameBoxClick(Sender: TObject);
|
|
procedure Draw3DBoxClick(Sender: TObject);
|
|
procedure CaptionBoxClick(Sender: TObject);
|
|
procedure CaptionEditChange(Sender: TObject);
|
|
procedure CloseButtonClick(Sender: TObject);
|
|
procedure AboutLabelMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
|
|
procedure AboutLabelClick(Sender: TObject);
|
|
private
|
|
AnalogGauge1: TA3nalogGauge;
|
|
AnalogGauge2: TA3nalogGauge;
|
|
AnalogGauge3: TA3nalogGauge;
|
|
FDelta: Double;
|
|
FStartTime: TDateTime;
|
|
end;
|
|
|
|
var
|
|
MainForm: TMainForm;
|
|
|
|
implementation
|
|
|
|
{$IFDEF FPC}
|
|
{$R *.lfm}
|
|
{$ELSE}
|
|
{$R *.dfm}
|
|
{$DEFINE TICKER}
|
|
{$ENDIF}
|
|
|
|
const
|
|
BASE_CAPTION = 'AntiAliased Analog Gauge demo';
|
|
|
|
procedure TMainForm.FormCreate(Sender: TObject);
|
|
begin
|
|
AnalogGauge1 := TA3nalogGauge.Create(self);
|
|
with AnalogGauge1 do begin
|
|
Parent := Panel3;
|
|
Left := 8;
|
|
Top := 16;
|
|
Width := 278;
|
|
Height := 200; //245;
|
|
Anchors := [akLeft, akTop, akBottom];
|
|
Angle := 90;
|
|
Caption := 'mV';
|
|
AntiAliased := aaNone;
|
|
CaptionFont.Style := [fsBold];
|
|
end;
|
|
AnalogGauge2 := TA3nalogGauge.Create(self);
|
|
with AnalogGauge2 do begin
|
|
Parent := Panel3;
|
|
Left := 295;
|
|
Top := 16;
|
|
Width := 185;
|
|
Height := 200;
|
|
Anchors := [akLeft, akRight, akTop, akBottom];
|
|
Caption := 'mV';
|
|
AntiAliased := aaNone;
|
|
CaptionFont.Style := [fsBold];
|
|
end;
|
|
AnalogGauge3 := TA3nalogGauge.Create(self);
|
|
with AnalogGauge3 do begin
|
|
Parent := Panel3;
|
|
Left := 490;
|
|
Top := 16;
|
|
Width := 278;
|
|
Height := 200;
|
|
Anchors := [akRight, akTop, akBottom];
|
|
Angle := 180;
|
|
Caption := 'mV';
|
|
AntiAliased := aaNone;
|
|
CaptionFont.Style := [fsBold];
|
|
end;
|
|
|
|
CenterRadEdit.Value := AnalogGauge1.CenterRadius;
|
|
CircleRadEdit.Value := AnalogGauge1.CircleRadius;
|
|
MarginEdit.Value := AnalogGauge1.Margin;
|
|
ScaleMaxEdit.Value := AnalogGauge1.ScaleMax;
|
|
AngleEdit.Value := AnalogGauge1.Angle;
|
|
MinimEdit.Value := AnalogGauge1.IndMinimum;
|
|
MaximEdit.Value := AnalogGauge1.IndMaximum;
|
|
WidthEdit.Value := AnalogGauge1.ArrowWidth;
|
|
NumMainEdit.Value := AnalogGauge1.NumberMainTicks;
|
|
MainLenEdit.Value := AnalogGauge1.LengthMainTicks;
|
|
SubLenEdit.Value := AnalogGauge1.LengthSubTicks;
|
|
MarginBox.Checked := foShowMargin in AnalogGauge1.FaceOptions;
|
|
CirclesBox.Checked := foShowCircles in AnalogGauge1.FaceOptions;
|
|
MainTicksBox.Checked := foShowMainTicks in AnalogGauge1.FaceOptions;
|
|
SubTicksBox.Checked := foShowSubTicks in AnalogGauge1.FaceOptions;
|
|
IndMinBox.Checked := foShowIndicatorMin in AnalogGauge1.FaceOptions;
|
|
IndMidBox.Checked := foShowIndicatorMid in AnalogGauge1.FaceOptions;
|
|
IndMaxBox.Checked := foShowIndicatorMax in AnalogGauge1.FaceOptions;
|
|
ValuesBox.Checked := foShowValues in AnalogGauge1.FaceOptions;
|
|
CenterBox.Checked := foShowCenter in AnalogGauge1.FaceOptions;
|
|
FrameBox.Checked := foShowFrame in AnalogGauge1.FaceOptions;
|
|
Draw3DBox.Checked := foShow3D in AnalogGauge1.FaceOptions;
|
|
CaptionBox.Checked := foShowCaption in AnalogGauge1.FaceOptions;
|
|
CaptionEdit.Text := AnalogGauge1.Caption;
|
|
FreqEdit.Value := Timer.Interval;
|
|
AAModeBox.ItemIndex := 0;
|
|
{$IFDEF TICKER}
|
|
AnalogGauge1.OnFrames := FramesChanged;
|
|
{$ENDIF}
|
|
|
|
FStartTime := Now;
|
|
end;
|
|
|
|
procedure TMainForm.StartStopButtonClick(Sender: TObject);
|
|
begin
|
|
Timer.Enabled := not Timer.Enabled;
|
|
if Timer.Enabled then begin
|
|
FStartTime := now;
|
|
StartStopButton.Caption := 'Stop';
|
|
AnalogGauge1.Position := 0;
|
|
end else begin
|
|
Caption := BASE_CAPTION + ' (' + FormatDateTime('n:ss.zzz', Now - FStartTime) + ')';
|
|
StartStopButton.Caption := 'Start';
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.StyleBoxChange(Sender: TObject);
|
|
begin
|
|
AnalogGauge1.Style := TStyle(StyleBox.ItemIndex);
|
|
AnalogGauge2.Style := TStyle(StyleBox.ItemIndex);
|
|
AnalogGauge3.Style := TStyle(StyleBox.ItemIndex);
|
|
end;
|
|
|
|
procedure TMainForm.TimerTimer(Sender: TObject);
|
|
var
|
|
V: Double;
|
|
begin
|
|
V := AnalogGauge1.Position;
|
|
if FDelta = 0 then FDelta := 1;
|
|
V := V + FDelta;
|
|
if V < 0 then begin
|
|
V := 0;
|
|
FDelta := -FDelta
|
|
end else
|
|
if V > AnalogGauge1.ScaleMax then begin
|
|
V := AnalogGauge1.ScaleMax;
|
|
FDelta := -FDelta
|
|
end;
|
|
AnalogGauge1.Position := V;
|
|
AnalogGauge2.Position := V;
|
|
AnalogGauge3.Position := V;
|
|
end;
|
|
|
|
{$IFDEF TICKER}
|
|
procedure TMainForm.FramesChanged(Sender: TObject);
|
|
begin
|
|
FPSLabel.Caption := Format('FPS: %d', [AnalogGauge1.Frames]);
|
|
end;
|
|
{$ENDIF}
|
|
|
|
procedure TMainForm.AAModeBoxChange(Sender: TObject);
|
|
var
|
|
AA: TAntialiased;
|
|
begin
|
|
case AAModeBox.ItemIndex of
|
|
1: AA := aaBiline;
|
|
2: AA := aaTriline;
|
|
3: AA := aaQuadral;
|
|
else AA := aaNone
|
|
end;
|
|
AnalogGauge1.AntiAliased := AA;
|
|
AnalogGauge2.AntiAliased := AA;
|
|
AnalogGauge3.AntiAliased := AA;
|
|
end;
|
|
|
|
procedure TMainForm.FreqEditChange(Sender: TObject);
|
|
begin
|
|
Timer.Interval := FreqEdit.Value
|
|
end;
|
|
|
|
procedure TMainForm.FaceColorButtonClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := AnalogGauge1.FaceColor;
|
|
if ColorDialog.Execute then begin
|
|
AnalogGauge1.FaceColor := ColorDialog.Color;
|
|
AnalogGauge2.FaceColor := ColorDialog.Color;
|
|
AnalogGauge3.FaceColor := ColorDialog.Color;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.CenterColorButtonClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := AnalogGauge1.CenterColor;
|
|
if ColorDialog.Execute then begin
|
|
AnalogGauge1.CenterColor := ColorDialog.Color;
|
|
AnalogGauge2.CenterColor := ColorDialog.Color;
|
|
AnalogGauge3.CenterColor := ColorDialog.Color;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.CircleColorButtonClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := AnalogGauge1.CircleColor;
|
|
if ColorDialog.Execute then begin
|
|
AnalogGauge1.CircleColor := ColorDialog.Color;
|
|
AnalogGauge2.CircleColor := ColorDialog.Color;
|
|
AnalogGauge3.CircleColor := ColorDialog.Color;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.MinimEditChange(Sender: TObject);
|
|
begin
|
|
if MinimEdit.Text <> '' then begin
|
|
AnalogGauge1.IndMinimum := MinimEdit.Value;
|
|
AnalogGauge2.IndMinimum := MinimEdit.Value;
|
|
AnalogGauge3.IndMinimum := MinimEdit.Value;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.MaximEditChange(Sender: TObject);
|
|
begin
|
|
if MaximEdit.Text <> '' then begin
|
|
AnalogGauge1.IndMaximum := MaximEdit.Value;
|
|
AnalogGauge2.IndMaximum := MaximEdit.Value;
|
|
AnalogGauge3.IndMaximum := MaximEdit.Value;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.MinColorButtonClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := AnalogGauge1.MinColor;
|
|
if ColorDialog.Execute then begin
|
|
AnalogGauge1.MinColor := ColorDialog.Color;
|
|
AnalogGauge2.MinColor := ColorDialog.Color;
|
|
AnalogGauge3.MinColor := ColorDialog.Color;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.MidColorButtonClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := AnalogGauge1.MidColor;
|
|
if ColorDialog.Execute then begin
|
|
AnalogGauge1.MidColor := ColorDialog.Color;
|
|
AnalogGauge2.MidColor := ColorDialog.Color;
|
|
AnalogGauge3.MidColor := ColorDialog.Color;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.MaxColorButtonClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := AnalogGauge1.MaxColor;
|
|
if ColorDialog.Execute then begin
|
|
AnalogGauge1.MaxColor := ColorDialog.Color;
|
|
AnalogGauge2.MaxColor := ColorDialog.Color;
|
|
AnalogGauge3.MaxColor := ColorDialog.Color;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.TicksColorButtonClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := AnalogGauge1.TicksColor;
|
|
if ColorDialog.Execute then begin
|
|
AnalogGauge1.TicksColor := ColorDialog.Color;
|
|
AnalogGauge2.TicksColor := ColorDialog.Color;
|
|
AnalogGauge3.TicksColor := ColorDialog.Color;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.ValueColorButtonClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := AnalogGauge1.ValueColor;
|
|
if ColorDialog.Execute then begin
|
|
AnalogGauge1.ValueColor := ColorDialog.Color;
|
|
AnalogGauge2.ValueColor := ColorDialog.Color;
|
|
AnalogGauge3.ValueColor := ColorDialog.Color;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.CaptionColorButtonClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := AnalogGauge1.CaptionColor;
|
|
if ColorDialog.Execute then begin
|
|
AnalogGauge1.CaptionColor := ColorDialog.Color;
|
|
AnalogGauge2.CaptionColor := ColorDialog.Color;
|
|
AnalogGauge3.CaptionColor := ColorDialog.Color;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.ArrowColorButtonClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := AnalogGauge1.ArrowColor;
|
|
if ColorDialog.Execute then begin
|
|
AnalogGauge1.ArrowColor := ColorDialog.Color;
|
|
AnalogGauge2.ArrowColor := ColorDialog.Color;
|
|
AnalogGauge3.ArrowColor := ColorDialog.Color;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.MarginColorButtonClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := AnalogGauge1.MarginColor;
|
|
if ColorDialog.Execute then begin
|
|
AnalogGauge1.MarginColor := ColorDialog.Color;
|
|
AnalogGauge2.MarginColor := ColorDialog.Color;
|
|
AnalogGauge3.MarginColor := ColorDialog.Color;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.MarginEditChange(Sender: TObject);
|
|
begin
|
|
if MarginEdit.Text <> '' then begin
|
|
AnalogGauge1.Margin := MarginEdit.Value;
|
|
AnalogGauge2.Margin := MarginEdit.Value;
|
|
AnalogGauge3.Margin := MarginEdit.Value;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.CenterRadEditChange(Sender: TObject);
|
|
begin
|
|
if CenterRadEdit.Text <> '' then begin
|
|
AnalogGauge1.CenterRadius := CenterRadEdit.Value;
|
|
AnalogGauge2.CenterRadius := CenterRadEdit.Value;
|
|
AnalogGauge3.CenterRadius := CenterRadEdit.Value;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.CircleRadEditChange(Sender: TObject);
|
|
begin
|
|
if CircleRadEdit.Text <> '' then begin
|
|
AnalogGauge1.CircleRadius := CircleRadEdit.Value;
|
|
AnalogGauge2.CircleRadius := CircleRadEdit.Value;
|
|
AnalogGauge3.CircleRadius := CircleRadEdit.Value;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.ScaleMaxEditChange(Sender: TObject);
|
|
begin
|
|
if ScaleMaxEdit.Text <> '' then begin
|
|
AnalogGauge1.ScaleMax := ScaleMaxEdit.Value;
|
|
AnalogGauge2.ScaleMax := ScaleMaxEdit.Value;
|
|
AnalogGauge3.ScaleMax := ScaleMaxEdit.Value;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.ScaleMinEditChange(Sender: TObject);
|
|
begin
|
|
if ScaleMinEdit.Text <> '' then begin
|
|
AnalogGauge1.ScaleMin := ScaleMinEdit.Value;
|
|
AnalogGauge2.ScaleMin := ScaleMinEdit.Value;
|
|
AnalogGauge3.ScaleMin := ScaleMinEdit.Value;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.AngleEditChange(Sender: TObject);
|
|
begin
|
|
if AngleEdit.Text <> '' then begin
|
|
AnalogGauge1.Angle := AngleEdit.Value;
|
|
AnalogGauge2.Angle := AngleEdit.Value;
|
|
AnalogGauge3.Angle := AngleEdit.Value;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.WidthEditChange(Sender: TObject);
|
|
begin
|
|
if WidthEdit.Text <> '' then begin
|
|
AnalogGauge1.ArrowWidth := WidthEdit.Value;
|
|
AnalogGauge2.ArrowWidth := WidthEdit.Value;
|
|
AnalogGauge3.ArrowWidth := WidthEdit.Value;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.NumMainEditChange(Sender: TObject);
|
|
begin
|
|
if NumMainEdit.Text <> '' then begin
|
|
AnalogGauge1.NumberMainTicks := NumMainEdit.Value;
|
|
AnalogGauge2.NumberMainTicks := NumMainEdit.Value;
|
|
AnalogGauge3.NumberMainTicks := NumMainEdit.Value;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.MainLenEditChange(Sender: TObject);
|
|
begin
|
|
if MainLenEdit.Text <> '' then begin
|
|
AnalogGauge1.LengthMainTicks := MainLenEdit.Value;
|
|
AnalogGauge2.LengthMainTicks := MainLenEdit.Value;
|
|
AnalogGauge3.LengthMainTicks := MainLenEdit.Value;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.SubLenEditChange(Sender: TObject);
|
|
begin
|
|
if SubLenEdit.Text <> '' then begin
|
|
AnalogGauge1.LengthSubTicks := SubLenEdit.Value;
|
|
AnalogGauge2.LengthSubTicks := SubLenEdit.Value;
|
|
AnalogGauge3.LengthSubTicks := SubLenEdit.Value;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.MarginBoxClick(Sender: TObject);
|
|
begin
|
|
if MarginBox.Checked then begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions + [foShowMargin];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions + [foShowMargin];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions + [foShowMargin];
|
|
end else begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions - [foShowMargin];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions - [foShowMargin];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions - [foShowMargin];
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.MainTicksBoxClick(Sender: TObject);
|
|
begin
|
|
if MainTicksBox.Checked then begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions + [foShowMainTicks];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions + [foShowMainTicks];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions + [foShowMainTicks];
|
|
end else begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions - [foShowMainTicks];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions - [foShowMainTicks];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions - [foShowMainTicks];
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.SubTicksBoxClick(Sender: TObject);
|
|
begin
|
|
if SubTicksBox.Checked then begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions + [foShowSubTicks];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions + [foShowSubTicks];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions + [foShowSubTicks];
|
|
end else begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions - [foShowSubTicks];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions - [foShowSubTicks];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions - [foShowSubTicks];
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.IndMinBoxClick(Sender: TObject);
|
|
begin
|
|
if IndMinBox.Checked then begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions + [foShowIndicatorMin];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions + [foShowIndicatorMin];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions + [foShowIndicatorMin];
|
|
end else begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions - [foShowIndicatorMin];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions - [foShowIndicatorMin];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions - [foShowIndicatorMin];
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.IndMidBoxClick(Sender: TObject);
|
|
begin
|
|
if IndMidBox.Checked then begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions + [foShowIndicatorMid];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions + [foShowIndicatorMid];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions + [foShowIndicatorMid];
|
|
end else begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions - [foShowIndicatorMid];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions - [foShowIndicatorMid];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions - [foShowIndicatorMid];
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.IndMaxBoxClick(Sender: TObject);
|
|
begin
|
|
if IndMaxBox.Checked then begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions + [foShowIndicatorMax];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions + [foShowIndicatorMax];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions + [foShowIndicatorMax];
|
|
end else begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions - [foShowIndicatorMax];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions - [foShowIndicatorMax];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions - [foShowIndicatorMax];
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.CirclesBoxClick(Sender: TObject);
|
|
begin
|
|
if CirclesBox.Checked then begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions + [foShowCircles];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions + [foShowCircles];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions + [foShowCircles];
|
|
end else begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions - [foShowCircles];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions - [foShowCircles];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions - [foShowCircles];
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.ValuesBoxClick(Sender: TObject);
|
|
begin
|
|
if ValuesBox.Checked then begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions + [foShowValues];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions + [foShowValues];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions + [foShowValues];
|
|
end else begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions - [foShowValues];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions - [foShowValues];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions - [foShowValues];
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.CenterBoxClick(Sender: TObject);
|
|
begin
|
|
if CenterBox.Checked then begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions + [foShowCenter];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions + [foShowCenter];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions + [foShowCenter];
|
|
end else begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions - [foShowCenter];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions - [foShowCenter];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions - [foShowCenter];
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.FrameBoxClick(Sender: TObject);
|
|
begin
|
|
if FrameBox.Checked then begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions + [foShowFrame];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions + [foShowFrame];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions + [foShowFrame];
|
|
end else begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions - [foShowFrame];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions - [foShowFrame];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions - [foShowFrame];
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.Draw3DBoxClick(Sender: TObject);
|
|
begin
|
|
if Draw3DBox.Checked then begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions + [foShow3D];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions + [foShow3D];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions + [foShow3D];
|
|
end else begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions - [foShow3D];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions - [foShow3D];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions - [foShow3D];
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.CaptionBoxClick(Sender: TObject);
|
|
begin
|
|
if CaptionBox.Checked then begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions + [foShowCaption];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions + [foShowCaption];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions + [foShowCaption];
|
|
end else begin
|
|
AnalogGauge1.FaceOptions := AnalogGauge1.FaceOptions - [foShowCaption];
|
|
AnalogGauge2.FaceOptions := AnalogGauge2.FaceOptions - [foShowCaption];
|
|
AnalogGauge3.FaceOptions := AnalogGauge3.FaceOptions - [foShowCaption];
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.CaptionEditChange(Sender: TObject);
|
|
begin
|
|
AnalogGauge1.Caption := CaptionEdit.Text;
|
|
AnalogGauge2.Caption := CaptionEdit.Text;
|
|
AnalogGauge3.Caption := CaptionEdit.Text;
|
|
end;
|
|
|
|
procedure TMainForm.CloseButtonClick(Sender: TObject);
|
|
begin
|
|
Close
|
|
end;
|
|
|
|
procedure TMainForm.AboutLabelMouseMove(Sender: TObject;
|
|
Shift: TShiftState; X, Y: Integer);
|
|
var
|
|
Control: TLabel;
|
|
begin
|
|
Control := Sender as TLabel;
|
|
if (X > 0) and (X < Control.Width) and
|
|
(Y > 0) and (Y < Control.Height) then begin
|
|
{$IFDEF LCL}
|
|
Screen.Cursor := crHandPoint
|
|
{$ELSE}
|
|
Control.Font.Style := Control.Font.Style + [fsUnderLine];
|
|
Control.Cursor := crHandPoint;
|
|
Windows.SetCursor(Screen.Cursors[Control.Cursor]);
|
|
SetCaptureControl(Control);
|
|
{$ENDIF}
|
|
end else begin
|
|
{$IFDEF LCL}
|
|
Screen.Cursor := crDefault;
|
|
{$ELSE}
|
|
Control.Font.Style := Control.Font.Style - [fsUnderLine];
|
|
Control.Cursor := crDefault;
|
|
SetCaptureControl(nil);
|
|
{$ENDIF}
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TMainForm.AboutLabelClick(Sender: TObject);
|
|
var
|
|
Control: TLabel;
|
|
begin
|
|
Control := Sender as TLabel;
|
|
Control.Font.Style := Control.Font.Style - [fsUnderLine];
|
|
Control.Cursor := crDefault; SetCaptureControl(nil);
|
|
{$IFDEF LCL}
|
|
OpenURL('http://irnis.net/');
|
|
{$ELSE}
|
|
ShellExecute(0, nil, PChar('http://www.irnis.net/'), nil, nil, SW_SHOWDEFAULT);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
procedure TMainForm.AboutLabelMouseLeave(Sender: TObject);
|
|
begin
|
|
Screen.Cursor := crDefault;
|
|
end;
|
|
|
|
end.
|
|
|