diff --git a/components/rx/trunk/demos/RxRangeTrackBar/project1.ico b/components/rx/trunk/demos/RxRangeTrackBar/project1.ico
new file mode 100644
index 000000000..0341321b5
Binary files /dev/null and b/components/rx/trunk/demos/RxRangeTrackBar/project1.ico differ
diff --git a/components/rx/trunk/demos/RxRangeTrackBar/project1.lpi b/components/rx/trunk/demos/RxRangeTrackBar/project1.lpi
new file mode 100644
index 000000000..58387edd6
--- /dev/null
+++ b/components/rx/trunk/demos/RxRangeTrackBar/project1.lpi
@@ -0,0 +1,80 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/components/rx/trunk/demos/RxRangeTrackBar/project1.lpr b/components/rx/trunk/demos/RxRangeTrackBar/project1.lpr
new file mode 100644
index 000000000..cf4602bc6
--- /dev/null
+++ b/components/rx/trunk/demos/RxRangeTrackBar/project1.lpr
@@ -0,0 +1,20 @@
+program project1;
+
+{$mode objfpc}{$H+}
+
+uses
+ {$IFDEF UNIX}{$IFDEF UseCThreads}
+ cthreads,
+ {$ENDIF}{$ENDIF}
+ Interfaces, // this includes the LCL widgetset
+ Forms, rxnew, Unit1;
+
+{$R *.res}
+
+begin
+ RequireDerivedFormResource:=True;
+ Application.Initialize;
+ Application.CreateForm(TForm1, Form1);
+ Application.Run;
+end.
+
diff --git a/components/rx/trunk/demos/RxRangeTrackBar/project1.lps b/components/rx/trunk/demos/RxRangeTrackBar/project1.lps
new file mode 100644
index 000000000..79ad9fbe4
--- /dev/null
+++ b/components/rx/trunk/demos/RxRangeTrackBar/project1.lps
@@ -0,0 +1,529 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/components/rx/trunk/demos/RxRangeTrackBar/project1.res b/components/rx/trunk/demos/RxRangeTrackBar/project1.res
new file mode 100644
index 000000000..f6e849956
Binary files /dev/null and b/components/rx/trunk/demos/RxRangeTrackBar/project1.res differ
diff --git a/components/rx/trunk/demos/RxRangeTrackBar/unit1.lfm b/components/rx/trunk/demos/RxRangeTrackBar/unit1.lfm
new file mode 100644
index 000000000..7f15a0b64
--- /dev/null
+++ b/components/rx/trunk/demos/RxRangeTrackBar/unit1.lfm
@@ -0,0 +1,150 @@
+object Form1: TForm1
+ Left = 488
+ Height = 275
+ Top = 15
+ Width = 563
+ Caption = 'Form1'
+ ClientHeight = 275
+ ClientWidth = 563
+ LCLVersion = '1.9.0.0'
+ object Label1: TLabel
+ AnchorSideLeft.Control = RxRangeSelector1
+ AnchorSideLeft.Side = asrCenter
+ AnchorSideTop.Control = RxRangeSelector1
+ AnchorSideTop.Side = asrBottom
+ Left = 260
+ Height = 20
+ Top = 159
+ Width = 42
+ BorderSpacing.Around = 6
+ Caption = 'Label1'
+ ParentColor = False
+ end
+ object RadioGroup1: TRadioGroup
+ AnchorSideLeft.Control = Owner
+ AnchorSideLeft.Side = asrCenter
+ AnchorSideTop.Control = Owner
+ Left = 225
+ Height = 93
+ Top = 0
+ Width = 112
+ AutoFill = True
+ AutoSize = True
+ Caption = 'Style'
+ ChildSizing.LeftRightSpacing = 6
+ ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+ ChildSizing.EnlargeVertical = crsHomogenousChildResize
+ ChildSizing.ShrinkHorizontal = crsScaleChilds
+ ChildSizing.ShrinkVertical = crsScaleChilds
+ ChildSizing.Layout = cclLeftToRightThenTopToBottom
+ ChildSizing.ControlsPerLine = 1
+ ClientHeight = 72
+ ClientWidth = 110
+ ItemIndex = 0
+ Items.Strings = (
+ 'rxrsSimple'
+ 'rxrsLazarus'
+ 'rxrsNative'
+ )
+ OnClick = RadioGroup1Click
+ TabOrder = 0
+ end
+ object RxRangeSelector1: TRxRangeSelector
+ AnchorSideLeft.Control = Owner
+ AnchorSideTop.Control = RadioGroup1
+ AnchorSideTop.Side = asrBottom
+ AnchorSideRight.Control = Owner
+ AnchorSideRight.Side = asrBottom
+ Left = 0
+ Height = 60
+ Top = 93
+ Width = 563
+ Anchors = [akTop, akLeft, akRight]
+ Min = 0
+ Max = 100
+ SelectedStart = 0
+ SelectedEnd = 50
+ Style = rxrsLazarus
+ OnChange = RxRangeSelector1Change
+ ThumbTopGlyph.Data = {
+ 26040000424D260400000000000036000000280000000E000000120000000100
+ 200000000000F003000064000000640000000000000000000000F0F1F200F0F1
+ F200F0F1F200F0F1F2008080FF024476F3294777F14B4777F14B4979ED2A8080
+ FF02F0F1F200F0F1F200F0F1F200F0F1F200F0F1F200F0F1F200F0F1F2004D80
+ E60A4778F14888A1DBB95675C2FC5675C2FC89A0DEB74778F1484D80E60AF0F1
+ F200F0F1F200F0F1F200F0F1F200F0F1F2004070EF104C7BEF51718CCEF0496C
+ C0FFC2CDE5FFC2CDE5FF486CBFFF728DCFEF4C7BEF514070EF10F0F1F200F0F1
+ F200F0F1F200496DED0E5F86EA616583CBF76483CAFFEAECF1FFF0F0F0FFF0F0
+ F0FFE9EBF1FF6483CAFF6584CBF75B86EC5F496DED0EF0F1F2000000FF014678
+ F042718DD0F37993D1FFF0F1F3FFF0F0F0FFEFEFEFFFEFEFEFFFF0F0F0FFF0F1
+ F3FF7993D1FF718DD1F34678F0420000FF01467BED1D8EA6E1BE5778C9FFEFF1
+ F3FFF1F1F1FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFF1F1F1FFEFF1F3FF5778
+ C9FF8EA6E1BE467BED1D487AEE2E7995D5F2B9C6E7FFF4F4F4FFF1F1F1FFF1F1
+ F1FFF1F1F1FFF1F1F1FFF1F1F1FFF1F1F1FFF4F4F4FFB9C6E7FF7995D5F2487A
+ EE2E4775EE3D6584D0FBD6DDEFFFF3F3F3FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2
+ F2FFF2F2F2FFF2F2F2FFF3F3F3FFD6DDEFFF6584D0FB4775EE3D4777EE4B4B70
+ CAFFEEF0F6FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3
+ F3FFF3F3F3FFEEF0F6FF4B70CAFF4777EE4B4676F2504068C9FFF8F8F8FFF4F4
+ F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF8F8
+ F8FF4068C9FF4676F2504677F24D486FCEFFF4F5F8FFF5F5F5FFF5F5F5FFF5F5
+ F5FFF5F5F5FFF5F5F5FFF5F5F5FFF5F5F5FFF5F5F5FFF4F5F8FF486FCEFF4677
+ F24D4777F14B5075D1FFF1F3F8FFF6F6F6FFF6F6F6FFF6F6F6FFF6F6F6FFF6F6
+ F6FFF6F6F6FFF6F6F6FFF6F6F6FFF1F3F8FF5075D1FF4777F14B4778F148577B
+ D4FFEEF1F8FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7
+ F7FFF7F7F7FFEEF1F8FF577BD4FF4778F1484776EF416B8BDCFDE2E7F6FFF9F9
+ F9FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF9F9F9FFE2E7
+ F6FF6B8BDCFD4776EF414777ED2B90A9E6EDC1CEF0FFFBFBFBFFF9F9F9FFF9F9
+ F9FFF9F9F9FFF9F9F9FFF9F9F9FFF9F9F9FFFBFBFBFFC1CEF0FF90A9E6ED4777
+ ED2B4D73F2149DB1EDAB6B8BDFFFCAD5F3FFEAEEF9FFF2F4FAFFFAFAFCFFFAFA
+ FCFFF2F4FAFFEAEEF9FFCAD5F3FF6B8BDFFF9DB1EDAB4D73F21400FFFF014878
+ F13592ADF08887A2E7F77392E3FD678AE1FE5C81DEFF5C81DEFF678AE1FE7392
+ E3FD87A2E7F792ADF0884878F13500FFFF01F0F1F20000FFFF014976ED1C4678
+ F0334677F23A4776EF414877F1474877F1474776EF414677F23A4678F0334976
+ ED1C00FFFF01F0F1F200
+ }
+ ThumbBottomGlyph.Data = {
+ 26040000424D260400000000000036000000280000000E000000120000000100
+ 200000000000F0030000640000006400000000000000000000000000000000FF
+ FF014976ED1C4678F0334677F23A4776EF414877F1474877F1474776EF414677
+ F23A4678F0334976ED1C00FFFF010000000000FFFF014878F13592ADF08887A2
+ E7F77392E3FD678AE1FE5C81DEFF5C81DEFF678AE1FE7392E3FD87A2E7F792AD
+ F0884878F13500FFFF014D73F2149DB1EDAB6B8BDFFFCAD5F3FFEAEEF9FFF2F4
+ FAFFFAFAFCFFFAFAFCFFF2F4FAFFEAEEF9FFCAD5F3FF6B8BDFFF9DB1EDAB4D73
+ F2144777ED2B90A9E6EDC1CEF0FFFBFBFBFFF9F9F9FFF9F9F9FFF9F9F9FFF9F9
+ F9FFF9F9F9FFF9F9F9FFFBFBFBFFC1CEF0FF90A9E6ED4777ED2B4776EF416B8B
+ DCFDE2E7F6FFF9F9F9FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8
+ F8FFF9F9F9FFE2E7F6FF6B8BDCFD4776EF414778F148577BD4FFEEF1F8FFF7F7
+ F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFEEF1
+ F8FF577BD4FF4778F1484777F14B5075D1FFF1F3F8FFF6F6F6FFF6F6F6FFF6F6
+ F6FFF6F6F6FFF6F6F6FFF6F6F6FFF6F6F6FFF6F6F6FFF1F3F8FF5075D1FF4777
+ F14B4677F24D486FCEFFF4F5F8FFF5F5F5FFF5F5F5FFF5F5F5FFF5F5F5FFF5F5
+ F5FFF5F5F5FFF5F5F5FFF5F5F5FFF4F5F8FF486FCEFF4677F24D4676F2504068
+ C9FFF8F8F8FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4
+ F4FFF4F4F4FFF8F8F8FF4068C9FF4676F2504777EE4B4B70CAFFEEF0F6FFF3F3
+ F3FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFEEF0
+ F6FF4B70CAFF4777EE4B4775EE3D6584D0FBD6DDEFFFF3F3F3FFF2F2F2FFF2F2
+ F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF3F3F3FFD6DDEFFF6584D0FB4775
+ EE3D487AEE2E7995D5F2B9C6E7FFF4F4F4FFF1F1F1FFF1F1F1FFF1F1F1FFF1F1
+ F1FFF1F1F1FFF1F1F1FFF4F4F4FFB9C6E7FF7995D5F2487AEE2E467BED1D8EA6
+ E1BE5778C9FFEFF1F3FFF1F1F1FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFF1F1
+ F1FFEFF1F3FF5778C9FF8EA6E1BE467BED1D0000FF014678F042718DD0F37993
+ D1FFF0F1F3FFF0F0F0FFEFEFEFFFEFEFEFFFF0F0F0FFF0F1F3FF7993D1FF718D
+ D1F34678F0420000FF0100000000496DED0E5F86EA616583CBF76483CAFFEAEC
+ F1FFF0F0F0FFF0F0F0FFE9EBF1FF6483CAFF6584CBF75B86EC5F496DED0E0000
+ 000000000000000000004070EF104C7BEF51718CCEF0496CC0FFC2CDE5FFC2CD
+ E5FF486CBFFF728DCFEF4C7BEF514070EF100000000000000000000000000000
+ 0000000000004D80E60A4778F14888A1DBB95675C2FC5675C2FC89A0DEB74778
+ F1484D80E60A0000000000000000000000000000000000000000000000000000
+ 00008080FF024476F3294777F14B4777F14B4979ED2A8080FF02000000000000
+ 00000000000000000000
+ }
+ SelectedGlyph.Data = {
+ BA000000424DBA000000000000003600000028000000030000000B0000000100
+ 20000000000084000000640000006400000000000000000000005778CAFF5879
+ CBFF5879CBFF5B82E2FF5B82E2FF5B82E2FF537CE0FF537CE0FF537CE0FF4B76
+ DFFF4B76DFFF4B76DFFF4470DDFF4470DDFF4470DDFF3C6ADBFF3C6ADBFF3C6A
+ DBFF3464D9FF3464D9FF3464D9FF2C5FD8FF2C5FD8FF2C5FD8FF2559D6FF2559
+ D6FF2559D6FF1D53D4FF1D53D4FF1D53D3FF0F3A9EFF0F3A9FFF103BA1FF
+ }
+ end
+end
diff --git a/components/rx/trunk/demos/RxRangeTrackBar/unit1.pas b/components/rx/trunk/demos/RxRangeTrackBar/unit1.pas
new file mode 100644
index 000000000..e75ec6a48
--- /dev/null
+++ b/components/rx/trunk/demos/RxRangeTrackBar/unit1.pas
@@ -0,0 +1,46 @@
+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;
+ RxRangeSelector1: TRxRangeSelector;
+ procedure RadioGroup1Click(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.RxRangeSelector1Change(Sender: TObject);
+begin
+ Label1.Caption:=FloatToStr(RxRangeSelector1.SelectedStart) + ' - ' + FloatToStr(RxRangeSelector1.SelectedEnd);
+end;
+
+end.
+