You've already forked lazarus-ccr
5296af1508
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6969 8e941d3f-bd1b-0410-a28a-d453659cc2b4
103 lines
2.0 KiB
ObjectPascal
103 lines
2.0 KiB
ObjectPascal
unit JvDialButtonDemoForm;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ColorBox,
|
|
JvDialButton, JvLED;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
cmbPointerShape: TComboBox;
|
|
cmbBorderStyle: TComboBox;
|
|
cbColor: TColorBox;
|
|
JvDialButton1: TJvDialButton;
|
|
JvLED1: TJvLED;
|
|
JvLED10: TJvLED;
|
|
JvLED2: TJvLED;
|
|
JvLED3: TJvLED;
|
|
JvLED4: TJvLED;
|
|
JvLED5: TJvLED;
|
|
JvLED6: TJvLED;
|
|
JvLED7: TJvLED;
|
|
JvLED8: TJvLED;
|
|
JvLED9: TJvLED;
|
|
Label1: TLabel;
|
|
lblPointerShape: TLabel;
|
|
lblBorderStyle: TLabel;
|
|
procedure cmbBorderStyleChange(Sender: TObject);
|
|
procedure cmbPointerShapeChange(Sender: TObject);
|
|
procedure cbColorChange(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure JvDialButton1Change(Sender: TObject);
|
|
private
|
|
FLEDs: array[0..9] of TJvLED;
|
|
FReady: Boolean;
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.JvDialButton1Change(Sender: TObject);
|
|
var
|
|
i: Integer;
|
|
begin
|
|
if not FReady then
|
|
exit;
|
|
for i := Low(FLEDs) to High(FLEDs) do
|
|
FLEDs[i].Status := JvDialButton1.Position > i*10;
|
|
end;
|
|
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
begin
|
|
FLEDs[0] := JvLED10;
|
|
FLEDs[1] := JvLED9;
|
|
FLEDs[2] := JvLED8;
|
|
FLEDs[3] := JvLED7;
|
|
FLEDs[4] := JvLED6;
|
|
FLEDs[5] := JvLED5;
|
|
FLEDs[6] := JvLED4;
|
|
FLEDs[7] := JvLED3;
|
|
FLEDs[8] := JvLED2;
|
|
FLEDs[9] := JVLED1;
|
|
FReady := true;
|
|
|
|
cmbPointerShapeChange(nil);
|
|
JvDialButton1Change(nil);
|
|
end;
|
|
|
|
procedure TForm1.cmbPointerShapeChange(Sender: TObject);
|
|
begin
|
|
JvDialButton1.PointerShape := TJvDialPointerShape(cmbPointerShape.ItemIndex);
|
|
end;
|
|
|
|
procedure TForm1.cbColorChange(Sender: TObject);
|
|
begin
|
|
JvDialButton1.Color := cbColor.Selected;
|
|
end;
|
|
|
|
procedure TForm1.cmbBorderStyleChange(Sender: TObject);
|
|
begin
|
|
case cmbBorderStyle.ItemIndex of
|
|
0: JvDialButton1.BorderStyle := bsNone;
|
|
1: JvDialButton1.BorderStyle := bsSingle;
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|