RxFPC:demo for RxRangeSelector

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6021 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-09-20 11:22:51 +00:00
parent a1ec0df6e6
commit 6638c51f7b
7 changed files with 825 additions and 0 deletions

Binary file not shown.

After

Width:  |  Height:  |  Size: 134 KiB

View File

@ -0,0 +1,80 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="10"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="project1"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="rxnew"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="project1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="4">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
<Item4>
<Name Value="EConvertError"/>
</Item4>
</Exceptions>
</Debugging>
</CONFIG>

View File

@ -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.

View File

@ -0,0 +1,529 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<Version Value="10"/>
<BuildModes Active="Default"/>
<Units Count="58">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<CursorPos Y="20"/>
<UsageCount Value="42"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<TopLine Value="6"/>
<CursorPos X="34" Y="19"/>
<UsageCount Value="42"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="rangeselector.pas"/>
<UnitName Value="RangeSelector"/>
<EditorIndex Value="-1"/>
<CursorPos Y="10"/>
<UsageCount Value="42"/>
</Unit2>
<Unit3>
<Filename Value="../../rxcontrols/rxrangesel.pas"/>
<UnitName Value="RxRangeSel"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="64"/>
<CursorPos X="14" Y="80"/>
<UsageCount Value="33"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="../../rxcontrols/rxclock.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="33"/>
<CursorPos X="3" Y="52"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="../../rxcontrols/rxspin.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="939"/>
<CursorPos X="5" Y="975"/>
<UsageCount Value="12"/>
</Unit5>
<Unit6>
<Filename Value="../../../../lcl/controls.pp"/>
<UnitName Value="Controls"/>
<EditorIndex Value="-1"/>
<TopLine Value="2011"/>
<CursorPos X="15" Y="2027"/>
<UsageCount Value="12"/>
</Unit6>
<Unit7>
<Filename Value="../../../../lcl/lmessages.pp"/>
<UnitName Value="LMessages"/>
<EditorIndex Value="-1"/>
<CursorPos X="15" Y="20"/>
<UsageCount Value="12"/>
</Unit7>
<Unit8>
<Filename Value="../../../../lcl/include/winapih.inc"/>
<EditorIndex Value="-1"/>
<CursorPos X="10" Y="84"/>
<UsageCount Value="9"/>
</Unit8>
<Unit9>
<Filename Value="../../../../lcl/include/winapi.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="20"/>
<CursorPos Y="20"/>
<UsageCount Value="9"/>
</Unit9>
<Unit10>
<Filename Value="../../../../lcl/lclintf.pas"/>
<UnitName Value="LCLIntf"/>
<EditorIndex Value="-1"/>
<TopLine Value="37"/>
<CursorPos X="6" Y="55"/>
<UsageCount Value="9"/>
</Unit10>
<Unit11>
<Filename Value="../../../../lcl/lcltype.pp"/>
<UnitName Value="LCLType"/>
<EditorIndex Value="-1"/>
<TopLine Value="2221"/>
<CursorPos X="17" Y="2252"/>
<UsageCount Value="9"/>
</Unit11>
<Unit12>
<Filename Value="../../../install/source/lazarus/designer/menushortcuts.pas"/>
<UnitName Value="MenuShortcuts"/>
<EditorIndex Value="-1"/>
<TopLine Value="194"/>
<CursorPos X="41" Y="213"/>
<UsageCount Value="9"/>
</Unit12>
<Unit13>
<Filename Value="../../../install/source/fpcsrc/rtl/inc/typshrdh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="127"/>
<CursorPos Y="150"/>
<UsageCount Value="9"/>
</Unit13>
<Unit14>
<Filename Value="../../../install/source/fpcsrc/rtl/inc/typshrd.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="418"/>
<CursorPos X="3" Y="420"/>
<UsageCount Value="9"/>
</Unit14>
<Unit15>
<Filename Value="../../../../lcl/themes.pas"/>
<UnitName Value="Themes"/>
<EditorIndex Value="-1"/>
<TopLine Value="1874"/>
<CursorPos Y="1904"/>
<UsageCount Value="12"/>
</Unit15>
<Unit16>
<Filename Value="../../../../lcl/buttons.pp"/>
<UnitName Value="Buttons"/>
<EditorIndex Value="-1"/>
<UsageCount Value="14"/>
</Unit16>
<Unit17>
<Filename Value="../../../../lcl/include/speedbutton.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="985"/>
<CursorPos X="3" Y="987"/>
<UsageCount Value="11"/>
</Unit17>
<Unit18>
<Filename Value="../../../../lcl/include/graphiccontrol.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="86"/>
<CursorPos X="3" Y="95"/>
<UsageCount Value="9"/>
</Unit18>
<Unit19>
<Filename Value="../../../../lcl/stdctrls.pp"/>
<UnitName Value="StdCtrls"/>
<EditorIndex Value="-1"/>
<TopLine Value="1104"/>
<CursorPos X="3" Y="1111"/>
<UsageCount Value="9"/>
</Unit19>
<Unit20>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<UnitName Value="DBGrids"/>
<EditorIndex Value="-1"/>
<TopLine Value="282"/>
<CursorPos X="3" Y="292"/>
<UsageCount Value="9"/>
</Unit20>
<Unit21>
<Filename Value="../../../../lcl/grids.pas"/>
<UnitName Value="Grids"/>
<EditorIndex Value="-1"/>
<TopLine Value="964"/>
<CursorPos Y="994"/>
<UsageCount Value="12"/>
</Unit21>
<Unit22>
<Filename Value="../../../../lcl/include/canvas.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="1579"/>
<CursorPos Y="1600"/>
<UsageCount Value="9"/>
</Unit22>
<Unit23>
<Filename Value="../../../../lcl/interfaces/gtk2/gtk2themes.pas"/>
<UnitName Value="Gtk2Themes"/>
<EditorIndex Value="-1"/>
<TopLine Value="741"/>
<CursorPos X="4" Y="747"/>
<UsageCount Value="10"/>
</Unit23>
<Unit24>
<Filename Value="../../../../lcl/spin.pp"/>
<UnitName Value="Spin"/>
<EditorIndex Value="-1"/>
<TopLine Value="54"/>
<CursorPos X="17" Y="41"/>
<UsageCount Value="10"/>
</Unit24>
<Unit25>
<Filename Value="../../../../lcl/include/bitbtn.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="131"/>
<CursorPos X="3" Y="133"/>
<UsageCount Value="9"/>
</Unit25>
<Unit26>
<Filename Value="../../../../lcl/comctrls.pp"/>
<UnitName Value="ComCtrls"/>
<EditorIndex Value="-1"/>
<TopLine Value="336"/>
<CursorPos X="16" Y="367"/>
<UsageCount Value="10"/>
</Unit26>
<Unit27>
<Filename Value="../../rxcontrols/rxaboutdialog.pas"/>
<UnitName Value="RxAboutDialog"/>
<EditorIndex Value="-1"/>
<TopLine Value="13"/>
<UsageCount Value="9"/>
</Unit27>
<Unit28>
<Filename Value="../../rxcontrols/rxaboutformunit.pas"/>
<UnitName Value="rxAboutFormUnit"/>
<EditorIndex Value="-1"/>
<TopLine Value="13"/>
<UsageCount Value="9"/>
</Unit28>
<Unit29>
<Filename Value="../../rxcontrols/rxapputils.pas"/>
<EditorIndex Value="-1"/>
<CursorPos Y="35"/>
<UsageCount Value="9"/>
</Unit29>
<Unit30>
<Filename Value="../../registerrx.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="47"/>
<CursorPos X="72" Y="64"/>
<UsageCount Value="10"/>
</Unit30>
<Unit31>
<Filename Value="../../../../install/source/fpcsrc/rtl/inc/typshrdh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="34"/>
<CursorPos X="3" Y="38"/>
<UsageCount Value="9"/>
</Unit31>
<Unit32>
<Filename Value="../../../../lcl/include/control.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="3919"/>
<CursorPos X="3" Y="3924"/>
<UsageCount Value="12"/>
</Unit32>
<Unit33>
<Filename Value="../../../../lcl/include/buttonglyph.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="273"/>
<CursorPos X="41" Y="304"/>
<UsageCount Value="9"/>
</Unit33>
<Unit34>
<Filename Value="../../../../lcl/imagelistcache.pas"/>
<UnitName Value="ImageListCache"/>
<EditorIndex Value="-1"/>
<TopLine Value="52"/>
<CursorPos X="3" Y="59"/>
<UsageCount Value="9"/>
</Unit34>
<Unit35>
<Filename Value="../../rxcontrols/rxtooledit.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="41"/>
<CursorPos X="3" Y="60"/>
<UsageCount Value="10"/>
</Unit35>
<Unit36>
<Filename Value="../../../../lcl/editbtn.pas"/>
<UnitName Value="EditBtn"/>
<EditorIndex Value="-1"/>
<TopLine Value="68"/>
<CursorPos X="4" Y="87"/>
<UsageCount Value="12"/>
</Unit36>
<Unit37>
<Filename Value="../../../../lcl/groupededit.pp"/>
<UnitName Value="GroupedEdit"/>
<EditorIndex Value="-1"/>
<TopLine Value="154"/>
<CursorPos X="3" Y="62"/>
<UsageCount Value="10"/>
</Unit37>
<Unit38>
<Filename Value="../../../../lcl/include/customcontrol.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="100"/>
<CursorPos X="3" Y="110"/>
<UsageCount Value="10"/>
</Unit38>
<Unit39>
<Filename Value="../../../../install/source/fpcsrc/packages/fcl-image/src/fphandler.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="214"/>
<CursorPos Y="233"/>
<UsageCount Value="9"/>
</Unit39>
<Unit40>
<Filename Value="../../../../lcl/include/graphic.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="221"/>
<CursorPos Y="240"/>
<UsageCount Value="9"/>
</Unit40>
<Unit41>
<Filename Value="../../../../lcl/include/customform.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="922"/>
<CursorPos Y="943"/>
<UsageCount Value="9"/>
</Unit41>
<Unit42>
<Filename Value="rxrangesel.pas"/>
<UnitName Value="RxRangeSel"/>
<EditorIndex Value="-1"/>
<TopLine Value="15"/>
<CursorPos X="2" Y="34"/>
<UsageCount Value="9"/>
</Unit42>
<Unit43>
<Filename Value="../../../../lcl/include/wincontrol.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="3798"/>
<CursorPos X="3" Y="3817"/>
<UsageCount Value="10"/>
</Unit43>
<Unit44>
<Filename Value="../../../../lazarus/components/rxnew/rxcontrols/rxrangesel.pas"/>
<UnitName Value="RxRangeSel"/>
<EditorIndex Value="-1"/>
<TopLine Value="451"/>
<CursorPos X="48" Y="481"/>
<UsageCount Value="12"/>
</Unit44>
<Unit45>
<Filename Value="../../../../lazarus/lcl/themes.pas"/>
<UnitName Value="Themes"/>
<EditorIndex Value="-1"/>
<TopLine Value="1574"/>
<CursorPos X="3" Y="1541"/>
<UsageCount Value="12"/>
</Unit45>
<Unit46>
<Filename Value="../../../../lazarus/lcl/interfaces/win32/win32themes.pas"/>
<UnitName Value="Win32Themes"/>
<EditorIndex Value="-1"/>
<CursorPos X="6"/>
<UsageCount Value="12"/>
</Unit46>
<Unit47>
<Filename Value="E:/install/source/fpcsrc/packages/winunits-base/src/uxtheme.pp"/>
<UnitName Value="UxTheme"/>
<EditorIndex Value="-1"/>
<TopLine Value="19"/>
<CursorPos X="10" Y="59"/>
<UsageCount Value="12"/>
</Unit47>
<Unit48>
<Filename Value="../../../../lazarus/lcl/include/winapih.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="67"/>
<CursorPos X="10" Y="84"/>
<UsageCount Value="10"/>
</Unit48>
<Unit49>
<Filename Value="../../../../lcl/tmschema.pas"/>
<UnitName Value="TmSchema"/>
<EditorIndex Value="-1"/>
<TopLine Value="2791"/>
<CursorPos X="3" Y="1605"/>
<UsageCount Value="10"/>
</Unit49>
<Unit50>
<Filename Value="../../../../lcl/interfaces/qt5/qtthemes.pas"/>
<UnitName Value="QtThemes"/>
<EditorIndex Value="-1"/>
<TopLine Value="847"/>
<CursorPos Y="882"/>
<UsageCount Value="10"/>
</Unit50>
<Unit51>
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/types.pp"/>
<UnitName Value="Types"/>
<EditorIndex Value="-1"/>
<TopLine Value="476"/>
<CursorPos Y="498"/>
<UsageCount Value="10"/>
</Unit51>
<Unit52>
<Filename Value="../../../../lcl/interfaces/qt5/qt56.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="12778"/>
<CursorPos X="21" Y="12786"/>
<UsageCount Value="10"/>
</Unit52>
<Unit53>
<Filename Value="../../rxcontrols/rxctrls.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="658"/>
<CursorPos X="44" Y="15"/>
<UsageCount Value="10"/>
</Unit53>
<Unit54>
<Filename Value="../../../../lcl/include/spinedit.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="159"/>
<CursorPos X="3" Y="161"/>
<UsageCount Value="10"/>
</Unit54>
<Unit55>
<Filename Value="../../../../lcl/lresources.pp"/>
<UnitName Value="LResources"/>
<EditorIndex Value="-1"/>
<TopLine Value="5340"/>
<CursorPos Y="5359"/>
<UsageCount Value="10"/>
</Unit55>
<Unit56>
<Filename Value="../../backup/rxvclutils.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="110"/>
<CursorPos X="5" Y="129"/>
<UsageCount Value="10"/>
</Unit56>
<Unit57>
<Filename Value="../../rxcontrols/rxlclutils.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="642"/>
<CursorPos X="46" Y="656"/>
<UsageCount Value="10"/>
</Unit57>
</Units>
<JumpHistory Count="21" HistoryIndex="20">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="20" Column="5"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="9" Column="50"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
<Caret Line="23" Column="43"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="46" Column="3" TopLine="43"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
<Caret Line="23" Column="15" TopLine="4"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
<Caret Line="67" Column="28" TopLine="43"/>
</Position6>
<Position7>
<Filename Value="unit1.pas"/>
<Caret Line="52" Column="3" TopLine="43"/>
</Position7>
<Position8>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="27" TopLine="43"/>
</Position8>
<Position9>
<Filename Value="unit1.pas"/>
<Caret Line="32" TopLine="27"/>
</Position9>
<Position10>
<Filename Value="unit1.pas"/>
<Caret Line="11" Column="49"/>
</Position10>
<Position11>
<Filename Value="unit1.pas"/>
<Caret Line="30" Column="40"/>
</Position11>
<Position12>
<Filename Value="unit1.pas"/>
<Caret Line="31" Column="40"/>
</Position12>
<Position13>
<Filename Value="unit1.pas"/>
<Caret Line="30" Column="40"/>
</Position13>
<Position14>
<Filename Value="unit1.pas"/>
<Caret Line="29" Column="40"/>
</Position14>
<Position15>
<Filename Value="unit1.pas"/>
<Caret Line="24"/>
</Position15>
<Position16>
<Filename Value="unit1.pas"/>
<Caret Line="44" TopLine="14"/>
</Position16>
<Position17>
<Filename Value="unit1.pas"/>
<Caret Line="19" Column="34" TopLine="6"/>
</Position17>
<Position18>
<Filename Value="../../rxcontrols/rxrangesel.pas"/>
<Caret Line="80" Column="26" TopLine="71"/>
</Position18>
<Position19>
<Filename Value="../../rxcontrols/rxrangesel.pas"/>
<Caret Line="203" Column="3" TopLine="199"/>
</Position19>
<Position20>
<Filename Value="../../rxcontrols/rxrangesel.pas"/>
<Caret Line="81" Column="14" TopLine="63"/>
</Position20>
<Position21>
<Filename Value="../../rxcontrols/rxrangesel.pas"/>
<Caret Line="208" Column="3" TopLine="204"/>
</Position21>
</JumpHistory>
</ProjectSession>
</CONFIG>

Binary file not shown.

View File

@ -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

View File

@ -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.