You've already forked lazarus-ccr
31a6f90915
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8209 8e941d3f-bd1b-0410-a28a-d453659cc2b4
61 lines
1010 B
ObjectPascal
61 lines
1010 B
ObjectPascal
unit Main;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
|
|
AdvLed;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
AdvLed1: TAdvLed;
|
|
Button1: TButton;
|
|
RadioGroup1: TRadioGroup;
|
|
procedure Button1Click(Sender: TObject);
|
|
procedure RadioGroup1Click(Sender: TObject);
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.Button1Click(Sender: TObject);
|
|
begin
|
|
case AdvLed1.State of
|
|
lsOFF: AdvLed1.FlashMode := fmFlashOffToOn;
|
|
lsON: AdvLed1.FlashMode := fmFlashOnToOff;
|
|
else exit;
|
|
end;
|
|
AdvLed1.Flash(100);
|
|
end;
|
|
|
|
procedure TForm1.RadioGroup1Click(Sender: TObject);
|
|
begin
|
|
AdvLed1.BlinkDuration := 500;
|
|
AdvLed1.Blink := false;
|
|
case RadioGroup1.ItemIndex of
|
|
0: AdvLed1.State := lsDisabled;
|
|
1: AdvLed1.State := lsOFF;
|
|
2: AdvLed1.State := lsON;
|
|
3: AdvLed1.Blink := true;
|
|
end;
|
|
Button1.Enabled := RadioGroup1.ItemIndex > 0;
|
|
end;
|
|
|
|
end.
|
|
|