Стартовый пул

RXLib/.svn/pristine/8f/8ffc31de98f6cc166ab8d8f4fcc4f137b2b64c4c.svn-base

@@ -0,0 +1,58 @@
+unit Unit1;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, FileUtil, rxspin, rxtooledit, RxRangeSel, Forms, Controls,
+  Graphics, Dialogs, Buttons, StdCtrls, ComCtrls, ExtCtrls;
+
+type
+
+  { TForm1 }
+
+  TForm1 = class(TForm)
+    Label1: TLabel;
+    RadioGroup1: TRadioGroup;
+    RadioGroup2: TRadioGroup;
+    RxRangeSelector1: TRxRangeSelector;
+    procedure RadioGroup1Click(Sender: TObject);
+    procedure RadioGroup2Click(Sender: TObject);
+    procedure RxRangeSelector1Change(Sender: TObject);
+  private
+  public
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+uses Themes;
+
+{$R *.lfm}
+
+{ TForm1 }
+
+procedure TForm1.RadioGroup1Click(Sender: TObject);
+begin
+  RxRangeSelector1.Style:=TRxRangeSelectorStyle(RadioGroup1.ItemIndex);
+end;
+
+procedure TForm1.RadioGroup2Click(Sender: TObject);
+var
+  W: Integer;
+begin
+  RxRangeSelector1.Orientation:=TTrackBarOrientation(RadioGroup2.ItemIndex);
+  W:=RxRangeSelector1.Width;
+  RxRangeSelector1.Width:=RxRangeSelector1.Height;
+  RxRangeSelector1.Height:=W;
+end;
+
+procedure TForm1.RxRangeSelector1Change(Sender: TObject);
+begin
+  Label1.Caption:=FloatToStr(RxRangeSelector1.SelectedStart) + ' - ' + FloatToStr(RxRangeSelector1.SelectedEnd);
+end;
+
+end.
+