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

270
RXLib/demos/Text90/project1.lpi Normal file
View File

@@ -0,0 +1,270 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/>
</General>
<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>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="3">
<Item1>
<PackageName Value="rxnew"/>
<MinVersion Major="1" Release="11" Build="35" Valid="True"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
<Item3>
<PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/>
</Item3>
</RequiredPackages>
<Units Count="26">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<UsageCount Value="26"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<CursorPos X="34" Y="9"/>
<UsageCount Value="26"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="C:\lazarus\lcl\extctrls.pp"/>
<UnitName Value="ExtCtrls"/>
<TopLine Value="451"/>
<CursorPos X="83" Y="456"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<Filename Value="C:\lazarus\lcl\controls.pp"/>
<UnitName Value="Controls"/>
<TopLine Value="224"/>
<CursorPos X="26" Y="228"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<Filename Value="C:\lazarus\lcl\graphics.pp"/>
<UnitName Value="Graphics"/>
<TopLine Value="586"/>
<CursorPos X="102" Y="589"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="C:\lazarus\lcl\lclproc.pas"/>
<UnitName Value="LCLProc"/>
<TopLine Value="577"/>
<CursorPos X="70" Y="578"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="C:\lazarus\lcl\include\canvas.inc"/>
<TopLine Value="771"/>
<CursorPos X="58" Y="776"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<Filename Value="C:\lazarus\lcl\include\paintbox.inc"/>
<TopLine Value="16"/>
<CursorPos X="81" Y="18"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="C:\lazarus\lcl\include\graphiccontrol.inc"/>
<TopLine Value="21"/>
<CursorPos X="101" Y="26"/>
<UsageCount Value="10"/>
</Unit8>
<Unit9>
<Filename Value="C:\lazarus\lcl\include\controlcanvas.inc"/>
<TopLine Value="36"/>
<CursorPos X="59" Y="43"/>
<UsageCount Value="10"/>
</Unit9>
<Unit10>
<Filename Value="C:\lazarus\lcl\include\bitmap.inc"/>
<TopLine Value="138"/>
<CursorPos X="29" Y="141"/>
<UsageCount Value="10"/>
</Unit10>
<Unit11>
<Filename Value="C:\lazarus\fpcsrc\rtl\objpas\classes\classes.inc"/>
<TopLine Value="238"/>
<CursorPos X="69" Y="241"/>
<UsageCount Value="10"/>
</Unit11>
<Unit12>
<Filename Value="C:\lazarus\lcl\include\brush.inc"/>
<TopLine Value="178"/>
<CursorPos X="56" Y="181"/>
<UsageCount Value="10"/>
</Unit12>
<Unit13>
<Filename Value="C:\lazarus\lcl\include\winapi.inc"/>
<TopLine Value="226"/>
<CursorPos X="52" Y="228"/>
<UsageCount Value="10"/>
</Unit13>
<Unit14>
<Filename Value="C:\lazarus\lcl\interfaces\win32\win32winapi.inc"/>
<TopLine Value="1316"/>
<CursorPos X="67" Y="1319"/>
<UsageCount Value="10"/>
</Unit14>
<Unit15>
<Filename Value="C:\lazarus\fpcsrc\fcl\image\fpcanvas.pp"/>
<UnitName Value="FPCanvas"/>
<TopLine Value="117"/>
<CursorPos X="101" Y="117"/>
<UsageCount Value="10"/>
</Unit15>
<Unit16>
<Filename Value="C:\lazarus\components\lazreport\source\LR_BarC.pas"/>
<ComponentName Value="frBarCodeForm"/>
<HasResources Value="True"/>
<TopLine Value="400"/>
<CursorPos X="57" Y="405"/>
<UsageCount Value="10"/>
</Unit16>
<Unit17>
<Filename Value="C:\lazarus\components\lazreport\source\Barcode.pas"/>
<TopLine Value="149"/>
<CursorPos X="38" Y="150"/>
<UsageCount Value="10"/>
</Unit17>
<Unit18>
<Filename Value="C:\lazarus\components\lazreport\source\LR_Class.pas"/>
<TopLine Value="210"/>
<CursorPos Y="228"/>
<UsageCount Value="10"/>
</Unit18>
<Unit19>
<Filename Value="C:\lazarus\components\rxnew\rxdbgrid.pas"/>
<TopLine Value="931"/>
<CursorPos X="46" Y="954"/>
<UsageCount Value="11"/>
</Unit19>
<Unit20>
<Filename Value="C:\lazarus\components\rxnew\vclutils.pas"/>
<CursorPos X="22" Y="27"/>
<UsageCount Value="11"/>
</Unit20>
<Unit21>
<Filename Value="C:\lazarus\lcl\dbgrids.pas"/>
<UnitName Value="DBGrids"/>
<TopLine Value="151"/>
<CursorPos X="23" Y="152"/>
<UsageCount Value="11"/>
</Unit21>
<Unit22>
<Filename Value="C:\lazarus\lcl\grids.pas"/>
<UnitName Value="Grids"/>
<TopLine Value="3715"/>
<CursorPos X="3" Y="3719"/>
<UsageCount Value="11"/>
</Unit22>
<Unit23>
<Filename Value="..\..\vclutils.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="286"/>
<CursorPos X="30" Y="289"/>
<UsageCount Value="10"/>
</Unit23>
<Unit24>
<Filename Value="..\..\rxdbgrid.pas"/>
<TopLine Value="1105"/>
<CursorPos X="75" Y="1122"/>
<UsageCount Value="10"/>
</Unit24>
<Unit25>
<Filename Value="..\..\rx.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="18"/>
<CursorPos Y="52"/>
<UsageCount Value="10"/>
</Unit25>
</Units>
<JumpHistory Count="5" HistoryIndex="4">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="46" Column="47" TopLine="27"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="56" Column="12" TopLine="39"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
<Caret Line="71" Column="52" TopLine="51"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="71" Column="52" TopLine="29"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
<Caret Line="40" TopLine="40"/>
</Position5>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="project1"/>
</Target>
<SearchPaths>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
<SrcPath Value="$(LazarusDir)\lcl;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>
</Item1>
<Item2>
<Name Value="EFOpenError"/>
</Item2>
</Exceptions>
</Debugging>
</CONFIG>

15
RXLib/demos/Text90/project1.lpr Normal file
View File

@@ -0,0 +1,15 @@
program project1;
{$mode objfpc}{$H+}
uses
Interfaces, // this includes the LCL widgetset
Forms
{ add your units here }, Unit1, rxnew;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

202
RXLib/demos/Text90/unit1.lfm Normal file
View File

@@ -0,0 +1,202 @@
object Form1: TForm1
Left = 369
Height = 500
Top = 228
Width = 536
ActiveControl = RadioGroup1.RadioButton4
Caption = 'Form1'
ClientHeight = 500
ClientWidth = 536
OnCreate = FormCreate
SessionProperties = 'Edit1.Text'
LCLVersion = '1.7'
object PaintBox1: TPaintBox
Left = 16
Height = 129
Top = 16
Width = 184
OnPaint = PaintBox1Paint
end
object Edit1: TEdit
Left = 8
Height = 37
Top = 152
Width = 192
OnChange = Edit1Change
TabOrder = 0
Text = 'Edit1'
end
object RadioGroup1: TRadioGroup
Left = 208
Height = 153
Top = 8
Width = 78
AutoFill = True
AutoSize = True
Caption = 'Direction'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 132
ClientWidth = 76
ItemIndex = 4
Items.Strings = (
'0 %'
'90 %'
'180 %'
'270 %'
'360 %'
)
OnClick = CheckBox1Change
TabOrder = 1
end
object RxDBGrid1: TRxDBGrid
Left = 0
Height = 308
Top = 192
Width = 536
ColumnDefValues.BlobText = '(данные)'
TitleButtons = False
AutoSort = False
Columns = <
item
Title.Alignment = taCenter
Title.Orientation = toHorizontal
Title.Caption = 'DEMO_1'
FieldName = 'DEMO_1'
EditButtons = <>
Filter.IsNull = False
Filter.IsAll = True
Filter.DropDownRows = 0
Filter.EmptyValue = '(Пусто)'
Filter.AllValue = '(All values)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
Footers = <>
end>
KeyStrokes = <
item
Command = rxgcShowFindDlg
ShortCut = 16454
Enabled = True
end
item
Command = rxgcShowColumnsDlg
ShortCut = 16471
Enabled = True
end
item
Command = rxgcShowFilterDlg
ShortCut = 16468
Enabled = True
end
item
Command = rxgcShowSortDlg
ShortCut = 16467
Enabled = True
end
item
Command = rxgcShowQuickFilter
ShortCut = 16465
Enabled = True
end
item
Command = rxgcHideQuickFilter
ShortCut = 16456
Enabled = True
end
item
Command = rxgcSelectAll
ShortCut = 16449
Enabled = True
end
item
Command = rxgcDeSelectAll
ShortCut = 16429
Enabled = True
end
item
Command = rxgcInvertSelection
ShortCut = 16426
Enabled = True
end
item
Command = rxgcOptimizeColumnsWidth
ShortCut = 16427
Enabled = True
end
item
Command = rxgcCopyCellValue
ShortCut = 16451
Enabled = True
end>
FooterOptions.DrawFullLine = False
OptionsRx = []
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
Color = clWindow
DrawFullLine = False
FocusColor = clRed
SelectedColor = clHighlight
GridLineStyle = psSolid
DataSource = Datasource1
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentColor = False
TabOrder = 2
TitleStyle = tsNative
end
object RxMemoryData1: TRxMemoryData
AutoCalcFields = False
FieldDefs = <
item
Name = 'DEMO_1'
DataType = ftInteger
Precision = -1
end
item
Name = 'Demo2'
DataType = ftString
Precision = -1
Size = 40
end>
PacketRecords = 0
left = 312
top = 64
object RxMemoryData1DEMO_11: TLongintField
DisplayWidth = 10
FieldKind = fkData
FieldName = 'DEMO_1'
Index = 0
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
end
object RxMemoryData1Demo21: TStringField
DisplayWidth = 40
FieldKind = fkData
FieldName = 'Demo2'
Index = 1
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
Size = 40
end
end
object Datasource1: TDataSource
DataSet = RxMemoryData1
left = 312
top = 32
end
object IniPropStorage1: TIniPropStorage
StoredValues = <>
left = 447
top = 19
end
end

88
RXLib/demos/Text90/unit1.pas Normal file
View File

@@ -0,0 +1,88 @@
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
Buttons, StdCtrls, rxdbgrid, rxvclutils, rxmemds, db, IniPropStorage;
type
{ TForm1 }
TForm1 = class(TForm)
Datasource1: TDatasource;
Edit1: TEdit;
IniPropStorage1: TIniPropStorage;
PaintBox1: TPaintBox;
RadioGroup1: TRadioGroup;
RxDBGrid1: TRxDBGrid;
RxMemoryData1: TRxMemoryData;
RxMemoryData1Demo21: TStringField;
RxMemoryData1DEMO_11: TLongintField;
procedure CheckBox1Change(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PaintBox1Paint(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.PaintBox1Paint(Sender: TObject);
var
FOri:TTextOrientation;
begin
PaintBox1.Canvas.TextOut(1,1, 'Text for test');
case RadioGroup1.ItemIndex of
0:FOri:=toHorizontal;
1:FOri:=toVertical90;
2:FOri:=toHorizontal180;
3:FOri:=toVertical270;
4:FOri:=toHorizontal360;
end;
OutTextXY90(PaintBox1.Canvas, 1, 20, Edit1.Text, FOri);
end;
procedure TForm1.CheckBox1Change(Sender: TObject);
var
FOri:TTextOrientation;
begin
PaintBox1.Invalidate;
case RadioGroup1.ItemIndex of
0:FOri:=toHorizontal;
1:FOri:=toVertical90;
2:FOri:=toHorizontal180;
3:FOri:=toVertical270;
4:FOri:=toHorizontal360;
end;
(RxDBGrid1.Columns[0].Title as TRxColumnTitle).Orientation:=FOri;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
PaintBox1.Invalidate;
(RxDBGrid1.Columns[0].Title as TRxColumnTitle).Caption:=Edit1.Text;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
RxMemoryData1.Open;
end;
end.