Стартовый пул
This commit is contained in:
BIN
RXLib/demos/RxDateEdit/project1.ico
Normal file
BIN
RXLib/demos/RxDateEdit/project1.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 134 KiB |
422
RXLib/demos/RxDateEdit/project1.lpi
Normal file
422
RXLib/demos/RxDateEdit/project1.lpi
Normal file
@@ -0,0 +1,422 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="11"/>
|
||||
<General>
|
||||
<MainUnit Value="0"/>
|
||||
<ResourceType Value="res"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<Icon Value="0"/>
|
||||
</General>
|
||||
<VersionInfo>
|
||||
<Language Value=""/>
|
||||
<CharSet Value=""/>
|
||||
</VersionInfo>
|
||||
<BuildModes Count="1">
|
||||
<Item1 Name="default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IgnoreBinaries Value="False"/>
|
||||
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<FormatVersion Value="2"/>
|
||||
<Modes Count="1">
|
||||
<Mode0 Name="default">
|
||||
<local>
|
||||
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
</Mode0>
|
||||
</Modes>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="4">
|
||||
<Item1>
|
||||
<PackageName Value="LazControls"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="rxnew"/>
|
||||
<MinVersion Major="2" Minor="1" Release="1" Build="103" Valid="True"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<PackageName Value="FCL"/>
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item3>
|
||||
<Item4>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item4>
|
||||
</RequiredPackages>
|
||||
<Units Count="28">
|
||||
<Unit0>
|
||||
<Filename Value="project1.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos Y="14"/>
|
||||
<UsageCount Value="21"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit1"/>
|
||||
<TopLine Value="78"/>
|
||||
<CursorPos X="5" Y="94"/>
|
||||
<UsageCount Value="21"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="../../curredit.pas"/>
|
||||
<TopLine Value="469"/>
|
||||
<CursorPos Y="485"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="../../tooledit.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="794"/>
|
||||
<CursorPos X="5" Y="797"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="../../rx.inc"/>
|
||||
<CursorPos X="20" Y="11"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="../../../../lcl/maskedit.pp"/>
|
||||
<UnitName Value="MaskEdit"/>
|
||||
<TopLine Value="149"/>
|
||||
<CursorPos X="30" Y="145"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="../../../../lcl/stdctrls.pp"/>
|
||||
<UnitName Value="StdCtrls"/>
|
||||
<TopLine Value="677"/>
|
||||
<CursorPos X="3" Y="693"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="../../../../lcl/controls.pp"/>
|
||||
<UnitName Value="Controls"/>
|
||||
<TopLine Value="1720"/>
|
||||
<CursorPos X="15" Y="1736"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="../../../../lcl/include/wincontrol.inc"/>
|
||||
<TopLine Value="4997"/>
|
||||
<CursorPos Y="5013"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="../../../../lcl/dbctrls.pp"/>
|
||||
<UnitName Value="DbCtrls"/>
|
||||
<TopLine Value="196"/>
|
||||
<CursorPos X="15" Y="212"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="../../../../lcl/include/dbedit.inc"/>
|
||||
<TopLine Value="263"/>
|
||||
<CursorPos X="3" Y="265"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="../../../../lcl/graphics.pp"/>
|
||||
<UnitName Value="Graphics"/>
|
||||
<TopLine Value="1099"/>
|
||||
<CursorPos X="15" Y="1115"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="../../../../lcl/include/canvas.inc"/>
|
||||
<TopLine Value="1057"/>
|
||||
<CursorPos Y="1073"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
<Filename Value="../../../../lcl/include/control.inc"/>
|
||||
<TopLine Value="1615"/>
|
||||
<CursorPos Y="1631"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit13>
|
||||
<Unit14>
|
||||
<Filename Value="../../../../lcl/lclmessageglue.pas"/>
|
||||
<UnitName Value="LCLMessageGlue"/>
|
||||
<TopLine Value="105"/>
|
||||
<CursorPos Y="121"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit14>
|
||||
<Unit15>
|
||||
<Filename Value="../../../../lcl/interfaces/gtk/gtkproc.inc"/>
|
||||
<TopLine Value="3696"/>
|
||||
<CursorPos Y="3712"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit15>
|
||||
<Unit16>
|
||||
<Filename Value="../../../../lcl/interfaces/gtk/gtkcallback.inc"/>
|
||||
<TopLine Value="660"/>
|
||||
<CursorPos Y="676"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit16>
|
||||
<Unit17>
|
||||
<Filename Value="../../../../lcl/interfaces/gtk/gtkwidgetset.inc"/>
|
||||
<TopLine Value="1200"/>
|
||||
<CursorPos Y="1226"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit17>
|
||||
<Unit18>
|
||||
<Filename Value="../../dbdateedit.pas"/>
|
||||
<TopLine Value="211"/>
|
||||
<CursorPos Y="227"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit18>
|
||||
<Unit19>
|
||||
<Filename Value="../../../../../../../alexs/install/fpcsrc/rtl/objpas/sysutils/sysinth.inc"/>
|
||||
<TopLine Value="77"/>
|
||||
<CursorPos X="37" Y="93"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit19>
|
||||
<Unit20>
|
||||
<Filename Value="../../../../lcl/editbtn.pas"/>
|
||||
<UnitName Value="EditBtn"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="774"/>
|
||||
<CursorPos Y="792"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit20>
|
||||
<Unit21>
|
||||
<Filename Value="../../../rxnet/registerrxnet.pas"/>
|
||||
<UnitName Value="RegisterRxNet"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<CursorPos X="34" Y="19"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit21>
|
||||
<Unit22>
|
||||
<Filename Value="../../registerrxtools.pas"/>
|
||||
<UnitName Value="RegisterRxTools"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="22"/>
|
||||
<CursorPos Y="48"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit22>
|
||||
<Unit23>
|
||||
<Filename Value="../../rxcontrols/rxdaterangeeditunit.pas"/>
|
||||
<UnitName Value="rxDateRangeEditUnit"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="66"/>
|
||||
<CursorPos X="15" Y="82"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit23>
|
||||
<Unit24>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<UnitName Value="RxTimeEdit"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<TopLine Value="225"/>
|
||||
<CursorPos X="22" Y="243"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit24>
|
||||
<Unit25>
|
||||
<Filename Value="/usr/local/share/lazarus/lcl/stdctrls.pp"/>
|
||||
<UnitName Value="StdCtrls"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<TopLine Value="819"/>
|
||||
<CursorPos X="14" Y="831"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit25>
|
||||
<Unit26>
|
||||
<Filename Value="/usr/local/share/lazarus/lcl/controls.pp"/>
|
||||
<UnitName Value="Controls"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<TopLine Value="1410"/>
|
||||
<CursorPos X="15" Y="1422"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit26>
|
||||
<Unit27>
|
||||
<Filename Value="/usr/local/share/lazarus/lcl/include/control.inc"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<TopLine Value="5039"/>
|
||||
<CursorPos X="3" Y="5044"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit27>
|
||||
</Units>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="188" Column="44" TopLine="181"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="65" Column="15" TopLine="48"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="314" Column="24" TopLine="290"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="60" Column="15" TopLine="58"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="253" Column="22" TopLine="235"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="254" TopLine="235"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="65" Column="15" TopLine="48"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="289" TopLine="275"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="60" Column="15" TopLine="55"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="254" Column="35" TopLine="236"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="290" Column="61" TopLine="273"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="287" Column="36" TopLine="273"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="75" Column="15" TopLine="66"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="94" Column="5" TopLine="78"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="93" Column="5" TopLine="77"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="348" Column="17" TopLine="334"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="65" Column="15" TopLine="54"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="281" Column="3" TopLine="271"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="55" Column="16" TopLine="46"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="156" Column="3" TopLine="154"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="/usr/local/share/lazarus/lcl/stdctrls.pp"/>
|
||||
<Caret Line="831" Column="14" TopLine="819"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="/usr/local/share/lazarus/lcl/controls.pp"/>
|
||||
<Caret Line="1486" Column="14" TopLine="1477"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="/usr/local/share/lazarus/lcl/controls.pp"/>
|
||||
<Caret Line="1254" Column="15" TopLine="1243"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="/usr/local/share/lazarus/lcl/include/control.inc"/>
|
||||
<Caret Line="5064" Column="3" TopLine="5059"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="/usr/local/share/lazarus/lcl/controls.pp"/>
|
||||
<Caret Line="1422" Column="15" TopLine="1410"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="156" Column="3" TopLine="154"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="84" TopLine="80"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="352" Column="12" TopLine="336"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="94" Column="5" TopLine="78"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Caret Line="238" Column="34" TopLine="225"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<Target>
|
||||
<Filename Value="project1"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<UseAnsiStrings Value="False"/>
|
||||
</SyntaxOptions>
|
||||
</Parsing>
|
||||
<Linking>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<BreakPoints Count="1">
|
||||
<Item1>
|
||||
<Kind Value="bpkSource"/>
|
||||
<WatchScope Value="wpsLocal"/>
|
||||
<WatchKind Value="wpkWrite"/>
|
||||
<Source Value="../../rxcontrols/rxtimeedit.pas"/>
|
||||
<Line Value="244"/>
|
||||
</Item1>
|
||||
</BreakPoints>
|
||||
<Exceptions Count="4">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
<Item4>
|
||||
<Name Value="EDBEditError"/>
|
||||
</Item4>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
23
RXLib/demos/RxDateEdit/project1.lpr
Normal file
23
RXLib/demos/RxDateEdit/project1.lpr
Normal file
@@ -0,0 +1,23 @@
|
||||
program project1;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||
cthreads,
|
||||
{$ENDIF}{$ENDIF}
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms, lazcontrols,
|
||||
Unit1,
|
||||
sysutils
|
||||
{ you can add units after this };
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
DefaultFormatSettings.ShortDateFormat:='dd.mm.yyyy';
|
||||
DefaultFormatSettings.DateSeparator:='.';
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
17
RXLib/demos/RxDateEdit/project1.manifest
Normal file
17
RXLib/demos/RxDateEdit/project1.manifest
Normal file
@@ -0,0 +1,17 @@
|
||||
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
|
||||
<assemblyIdentity version="1.0.0.0" processorArchitecture="*" name="CompanyName.ProductName.YourApp" type="win32"/>
|
||||
<description>Your application description here.</description>
|
||||
<dependency>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="*" publicKeyToken="6595b64144ccf1df" language="*"/>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||
<security>
|
||||
<requestedPrivileges>
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
|
||||
</requestedPrivileges>
|
||||
</security>
|
||||
</trustInfo>
|
||||
</assembly>
|
||||
7
RXLib/demos/RxDateEdit/project1.rc
Normal file
7
RXLib/demos/RxDateEdit/project1.rc
Normal file
@@ -0,0 +1,7 @@
|
||||
#define RT_MANIFEST 24
|
||||
#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1
|
||||
#define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2
|
||||
#define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3
|
||||
|
||||
CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "project1.manifest"
|
||||
MAINICON ICON "project1.ico"
|
||||
302
RXLib/demos/RxDateEdit/unit1.lfm
Normal file
302
RXLib/demos/RxDateEdit/unit1.lfm
Normal file
@@ -0,0 +1,302 @@
|
||||
object Form1: TForm1
|
||||
Left = 502
|
||||
Height = 397
|
||||
Top = 390
|
||||
Width = 590
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 397
|
||||
ClientWidth = 590
|
||||
OnCreate = FormCreate
|
||||
LCLVersion = '1.9.0.0'
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Height = 397
|
||||
Top = 0
|
||||
Width = 590
|
||||
ActivePage = TabSheet3
|
||||
Align = alClient
|
||||
TabIndex = 2
|
||||
TabOrder = 0
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'RxDBDateEdit demo'
|
||||
ClientHeight = 366
|
||||
ClientWidth = 580
|
||||
object Label1: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
Left = 6
|
||||
Height = 17
|
||||
Top = 6
|
||||
Width = 38
|
||||
Caption = 'Label1'
|
||||
ParentColor = False
|
||||
end
|
||||
object RxDBDateEdit1: TRxDBDateEdit
|
||||
AnchorSideLeft.Control = Label1
|
||||
AnchorSideTop.Control = Label1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 34
|
||||
Top = 32
|
||||
Width = 151
|
||||
BorderSpacing.Around = 6
|
||||
ButtonWidth = 23
|
||||
Enabled = False
|
||||
MaxLength = 10
|
||||
PasswordChar = #0
|
||||
PopupColor = clWindow
|
||||
TabOrder = 0
|
||||
Text = 't1. . '
|
||||
DataField = 'DOC_DATE'
|
||||
DataSource = dsData
|
||||
end
|
||||
object Label2: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = RxDBDateEdit1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 17
|
||||
Top = 75
|
||||
Width = 77
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Currency edit'
|
||||
ParentColor = False
|
||||
end
|
||||
object CurrencyEdit1: TCurrencyEdit
|
||||
AnchorSideLeft.Control = Label2
|
||||
AnchorSideTop.Control = Label2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 34
|
||||
Top = 101
|
||||
Width = 148
|
||||
Alignment = taCenter
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 1
|
||||
end
|
||||
object RxDateEdit1: TRxDateEdit
|
||||
Left = 12
|
||||
Height = 34
|
||||
Top = 160
|
||||
Width = 80
|
||||
ButtonWidth = 23
|
||||
MaxLength = 10
|
||||
PasswordChar = #0
|
||||
PopupColor = clWindow
|
||||
TabOrder = 2
|
||||
Text = ' . . '
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 248
|
||||
Height = 33
|
||||
Top = 80
|
||||
Width = 69
|
||||
AutoSize = True
|
||||
Caption = 'Invalidate'
|
||||
OnClick = Button1Click
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
object TabSheet2: TTabSheet
|
||||
Caption = 'RxDateRangeEdit demo'
|
||||
ClientHeight = 366
|
||||
ClientWidth = 580
|
||||
object CheckBox1: TCheckBox
|
||||
AnchorSideLeft.Control = TabSheet2
|
||||
AnchorSideTop.Control = TabSheet2
|
||||
Left = 6
|
||||
Height = 23
|
||||
Top = 6
|
||||
Width = 84
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'reoMonth'
|
||||
Checked = True
|
||||
OnChange = CheckBox1Change
|
||||
State = cbChecked
|
||||
TabOrder = 0
|
||||
end
|
||||
object RxDateRangeEdit1: TRxDateRangeEdit
|
||||
AnchorSideLeft.Control = TabSheet2
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = CheckBox3
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 159
|
||||
Height = 34
|
||||
Top = 93
|
||||
Width = 262
|
||||
BorderSpacing.Around = 6
|
||||
Month = 5
|
||||
TabOrder = 1
|
||||
Year = 2017
|
||||
OnChange = RxDateRangeEdit1Change
|
||||
end
|
||||
object CheckBox2: TCheckBox
|
||||
AnchorSideLeft.Control = TabSheet2
|
||||
AnchorSideTop.Control = CheckBox1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 23
|
||||
Top = 35
|
||||
Width = 91
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'reoQuarter'
|
||||
Checked = True
|
||||
OnChange = CheckBox1Change
|
||||
State = cbChecked
|
||||
TabOrder = 2
|
||||
end
|
||||
object CheckBox3: TCheckBox
|
||||
AnchorSideLeft.Control = TabSheet2
|
||||
AnchorSideTop.Control = CheckBox2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 23
|
||||
Top = 64
|
||||
Width = 95
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'reoHalfYear'
|
||||
Checked = True
|
||||
OnChange = CheckBox1Change
|
||||
State = cbChecked
|
||||
TabOrder = 3
|
||||
end
|
||||
object Label3: TLabel
|
||||
AnchorSideLeft.Control = TabSheet2
|
||||
AnchorSideTop.Control = RxDateRangeEdit1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 17
|
||||
Top = 133
|
||||
Width = 87
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Start of period'
|
||||
ParentColor = False
|
||||
end
|
||||
object Edit1: TEdit
|
||||
AnchorSideLeft.Control = Label3
|
||||
AnchorSideTop.Control = Label3
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Label5
|
||||
Left = 12
|
||||
Height = 34
|
||||
Top = 156
|
||||
Width = 272
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ReadOnly = True
|
||||
TabOrder = 4
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object Label4: TLabel
|
||||
AnchorSideLeft.Control = Label5
|
||||
AnchorSideTop.Control = RxDateRangeEdit1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 296
|
||||
Height = 17
|
||||
Top = 133
|
||||
Width = 79
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'End of period'
|
||||
ParentColor = False
|
||||
end
|
||||
object Edit2: TEdit
|
||||
AnchorSideLeft.Control = Label4
|
||||
AnchorSideTop.Control = Label4
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet2
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 302
|
||||
Height = 34
|
||||
Top = 156
|
||||
Width = 272
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ReadOnly = True
|
||||
TabOrder = 5
|
||||
Text = 'Edit2'
|
||||
end
|
||||
object Label5: TLabel
|
||||
AnchorSideLeft.Control = TabSheet2
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = TabSheet2
|
||||
Left = 290
|
||||
Height = 1
|
||||
Top = 0
|
||||
Width = 1
|
||||
ParentColor = False
|
||||
end
|
||||
end
|
||||
object TabSheet3: TTabSheet
|
||||
Caption = 'RxTimeEdit demo'
|
||||
ClientHeight = 366
|
||||
ClientWidth = 580
|
||||
object Label6: TLabel
|
||||
AnchorSideLeft.Control = TabSheet3
|
||||
AnchorSideTop.Control = TabSheet3
|
||||
Left = 6
|
||||
Height = 17
|
||||
Top = 6
|
||||
Width = 65
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'RxTimeEdit'
|
||||
ParentColor = False
|
||||
end
|
||||
object CheckBox4: TCheckBox
|
||||
AnchorSideLeft.Control = RxTimeEdit1
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = RxTimeEdit1
|
||||
Left = 154
|
||||
Height = 23
|
||||
Top = 35
|
||||
Width = 104
|
||||
BorderSpacing.Left = 32
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Show second'
|
||||
Checked = True
|
||||
OnChange = CheckBox4Change
|
||||
State = cbChecked
|
||||
TabOrder = 0
|
||||
end
|
||||
object RxTimeEdit1: TRxTimeEdit
|
||||
AnchorSideLeft.Control = Label6
|
||||
AnchorSideTop.Control = Label6
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 34
|
||||
Top = 29
|
||||
Width = 104
|
||||
ShowSecond = True
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
CharCase = ecNormal
|
||||
MaxLength = 8
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
end
|
||||
object dsData: TDataSource
|
||||
DataSet = rxData
|
||||
Left = 264
|
||||
Top = 21
|
||||
end
|
||||
object rxData: TRxMemoryData
|
||||
FieldDefs = <
|
||||
item
|
||||
Name = 'DOC_DATE'
|
||||
DataType = ftDate
|
||||
end>
|
||||
PacketRecords = 0
|
||||
Left = 304
|
||||
Top = 21
|
||||
object rxDataDOC_DATE: TDateField
|
||||
DisplayWidth = 10
|
||||
FieldKind = fkData
|
||||
FieldName = 'DOC_DATE'
|
||||
Index = 0
|
||||
LookupCache = False
|
||||
ProviderFlags = [pfInUpdate, pfInWhere]
|
||||
ReadOnly = False
|
||||
Required = False
|
||||
end
|
||||
end
|
||||
end
|
||||
103
RXLib/demos/RxDateEdit/unit1.pas
Normal file
103
RXLib/demos/RxDateEdit/unit1.pas
Normal file
@@ -0,0 +1,103 @@
|
||||
unit Unit1;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, db, FileUtil, DividerBevel, LResources, Forms, Controls,
|
||||
Graphics, Dialogs, StdCtrls, ComCtrls, rxmemds, rxdbdateedit, rxcurredit,
|
||||
rxtooledit, rxDateRangeEditUnit, RxTimeEdit;
|
||||
|
||||
type
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
Button1: TButton;
|
||||
CheckBox1: TCheckBox;
|
||||
CheckBox2: TCheckBox;
|
||||
CheckBox3: TCheckBox;
|
||||
CheckBox4: TCheckBox;
|
||||
CurrencyEdit1: TCurrencyEdit;
|
||||
dsData: TDatasource;
|
||||
Edit1: TEdit;
|
||||
Edit2: TEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
PageControl1: TPageControl;
|
||||
rxData: TRxMemoryData;
|
||||
rxDataDOC_DATE: TDateField;
|
||||
RxDateEdit1: TRxDateEdit;
|
||||
RxDateRangeEdit1: TRxDateRangeEdit;
|
||||
RxDBDateEdit1: TRxDBDateEdit;
|
||||
RxTimeEdit1: TRxTimeEdit;
|
||||
TabSheet1: TTabSheet;
|
||||
TabSheet2: TTabSheet;
|
||||
TabSheet3: TTabSheet;
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure CheckBox1Change(Sender: TObject);
|
||||
procedure CheckBox4Change(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure RxDateRangeEdit1Change(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
begin
|
||||
rxData.Open;
|
||||
rxData.Append;
|
||||
rxDataDOC_DATE.AsDateTime:=Now;
|
||||
CurrencyEdit1.Value:=1214.55;
|
||||
|
||||
CheckBox1Change(nil);
|
||||
end;
|
||||
|
||||
procedure TForm1.RxDateRangeEdit1Change(Sender: TObject);
|
||||
begin
|
||||
Edit1.Text:=DateToStr(RxDateRangeEdit1.Period);
|
||||
Edit2.Text:=DateToStr(RxDateRangeEdit1.PeriodEnd);
|
||||
end;
|
||||
|
||||
procedure TForm1.Button1Click(Sender: TObject);
|
||||
begin
|
||||
CurrencyEdit1.Invalidate;
|
||||
end;
|
||||
|
||||
procedure TForm1.CheckBox1Change(Sender: TObject);
|
||||
var
|
||||
R: TRxDateRangeEditOptions;
|
||||
begin
|
||||
R:=[];
|
||||
if CheckBox1.Checked then
|
||||
R:=R + [reoMonth];
|
||||
if CheckBox2.Checked then
|
||||
R:=R + [reoQuarter];
|
||||
if CheckBox3.Checked then
|
||||
R:=R + [reoHalfYear];
|
||||
RxDateRangeEdit1.Options:=R;
|
||||
end;
|
||||
|
||||
procedure TForm1.CheckBox4Change(Sender: TObject);
|
||||
begin
|
||||
RxTimeEdit1.ShowSecond:=CheckBox4.Checked;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user