babaev-an/lasarus_compotents
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Александр Бабаев
2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

103
RXLib/.svn/pristine/4a/4a3015b1fa2dd1d8d3a8cc07cc9b8aef139023ac.svn-base Normal file
View 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.

68
RXLib/.svn/pristine/4a/4a960cabb9c6ab0877e93afa4bf3608b6a3642e0.svn-base Normal file
View File

@@ -0,0 +1,68 @@
<?xml version="1.0" encoding="UTF-8"?>
<fpdoc-descriptions>
<package name="rxnew">
<module name="rxdbcomb">
<element name="TRxDBComboBox"/>
<element name="TRxDBComboBox.Create"/>
<element name="TRxDBComboBox.Destroy"/>
<element name="TRxDBComboBox.ExecuteAction"/>
<element name="TRxDBComboBox.UpdateAction"/>
<element name="TRxDBComboBox.UseRightToLeftAlignment"/>
<element name="TRxDBComboBox.Field"/>
<element name="TRxDBComboBox.Items"/>
<element name="TRxDBComboBox.Text"/>
<element name="TRxDBComboBox.Anchors"/>
<element name="TRxDBComboBox.ArrowKeysTraverseList"/>
<element name="TRxDBComboBox.AutoDropDown"/>
<element name="TRxDBComboBox.AutoSize"/>
<element name="TRxDBComboBox.BorderSpacing"/>
<element name="TRxDBComboBox.Style"/>
<element name="TRxDBComboBox.Color"/>
<element name="TRxDBComboBox.DataField"/>
<element name="TRxDBComboBox.DataSource"/>
<element name="TRxDBComboBox.DragMode"/>
<element name="TRxDBComboBox.DragCursor"/>
<element name="TRxDBComboBox.DropDownCount"/>
<element name="TRxDBComboBox.Enabled"/>
<element name="TRxDBComboBox.EnableValues"/>
<element name="TRxDBComboBox.Font"/>
<element name="TRxDBComboBox.Constraints"/>
<element name="TRxDBComboBox.DragKind"/>
<element name="TRxDBComboBox.ItemHeight"/>
<element name="TRxDBComboBox.Items"/>
<element name="TRxDBComboBox.ItemWidth"/>
<element name="TRxDBComboBox.MaxLength"/>
<element name="TRxDBComboBox.ParentColor"/>
<element name="TRxDBComboBox.ParentFont"/>
<element name="TRxDBComboBox.ParentShowHint"/>
<element name="TRxDBComboBox.PopupMenu"/>
<element name="TRxDBComboBox.ReadOnly"/>
<element name="TRxDBComboBox.ShowHint"/>
<element name="TRxDBComboBox.Sorted"/>
<element name="TRxDBComboBox.TabOrder"/>
<element name="TRxDBComboBox.TabStop"/>
<element name="TRxDBComboBox.Values"/>
<element name="TRxDBComboBox.Visible"/>
<element name="TRxDBComboBox.OnChange"/>
<element name="TRxDBComboBox.OnClick"/>
<element name="TRxDBComboBox.OnDblClick"/>
<element name="TRxDBComboBox.OnDragDrop"/>
<element name="TRxDBComboBox.OnDragOver"/>
<element name="TRxDBComboBox.OnDrawItem"/>
<element name="TRxDBComboBox.OnDropDown"/>
<element name="TRxDBComboBox.OnEndDrag"/>
<element name="TRxDBComboBox.OnEnter"/>
<element name="TRxDBComboBox.OnExit"/>
<element name="TRxDBComboBox.OnKeyDown"/>
<element name="TRxDBComboBox.OnKeyPress"/>
<element name="TRxDBComboBox.OnKeyUp"/>
<element name="TRxDBComboBox.OnMeasureItem"/>
<element name="TRxDBComboBox.OnStartDrag"/>
<element name="TRxDBComboBox.OnContextPopup"/>
<element name="TRxDBComboBox.OnEndDock"/>
<element name="TRxDBComboBox.OnStartDock"/>
</module>
</package>
</fpdoc-descriptions>