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

49
RXLib/.svn/pristine/ec/ec4f0d7087bcbb702edc79b583158c4f634e4847.svn-base Normal file
View File

@@ -0,0 +1,49 @@
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Memo1: TMemo;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
uses LazUTF8, rxAppUtils;
{$R *.lfm}
{ TForm1 }
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label2.Caption:=' '+UTF8UpperCase(UTF8Copy(RxGetKeyboardLayoutName, 1, 2)) + ' ';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1Timer(nil);
end;
end.

54
RXLib/.svn/pristine/ec/ec57a99555c827b551b315c7aa880301007a0cf5.svn-base Normal file
View File

@@ -0,0 +1,54 @@
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls, db,
IBQuery, IBDatabase, IBCustomDataSet, rxdbgrid, RxSortIBX;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
DataSource1: TDataSource;
DataSource2: TDataSource;
IBDatabase1: TIBDatabase;
IBDataSet1: TIBDataSet;
IBQuery1: TIBQuery;
IBTransaction1: TIBTransaction;
PageControl1: TPageControl;
RxDBGrid1: TRxDBGrid;
RxDBGrid2: TRxDBGrid;
RxSortIBX1: TRxSortIBX;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
IBDatabase1.Connected:=true;
IBTransaction1.StartTransaction;
IBQuery1.Open;
IBDataSet1.Open;
end;
end.

202
RXLib/.svn/pristine/ec/ec84527602b0c70319cb495e1e7003e964b86fa9.svn-base Normal file
View File

@@ -0,0 +1,202 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/>
<Title Value="FolderLister"/>
</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="2">
<Item1>
<PackageName Value="RxNew"/>
<MinVersion Major="1" Release="1" Build="2" Valid="True"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="15">
<Unit0>
<Filename Value="FolderLister.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="24" Y="2"/>
<UsageCount Value="23"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<CursorPos X="12" Y="9"/>
<UsageCount Value="23"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="C:\lazarus\components\RxNew\FolderLister.pas"/>
<TopLine Value="70"/>
<CursorPos Y="88"/>
<UsageCount Value="11"/>
</Unit2>
<Unit3>
<Filename Value="c:\lazarus\fpcsrc\rtl\objpas\sysutils\filutilh.inc"/>
<TopLine Value="110"/>
<CursorPos X="64" Y="123"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<Filename Value="C:\lazarus\fpcsrc\rtl\win32\system.pp"/>
<UnitName Value="System"/>
<TopLine Value="314"/>
<CursorPos X="52" Y="331"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="C:\lazarus\components\RxNew\RxAppUtils.pas"/>
<CursorPos X="6"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="AboutUnit.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="AboutForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="-1"/>
<CursorPos Y="30"/>
<UsageCount Value="22"/>
</Unit6>
<Unit7>
<Filename Value="C:\lazarus\lcl\include\customform.inc"/>
<TopLine Value="1695"/>
<CursorPos X="43" Y="1700"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="unit1.lrs"/>
<CursorPos X="49" Y="2"/>
<UsageCount Value="10"/>
</Unit8>
<Unit9>
<Filename Value="C:\lazarus\lcl\Forms.pp"/>
<TopLine Value="1166"/>
<CursorPos X="37" Y="1169"/>
<UsageCount Value="10"/>
</Unit9>
<Unit10>
<Filename Value="C:\lazarus\lcl\include\application.inc"/>
<TopLine Value="142"/>
<CursorPos X="50" Y="146"/>
<UsageCount Value="10"/>
</Unit10>
<Unit11>
<Filename Value="C:\lazarus\lcl\Dialogs.pp"/>
<TopLine Value="37"/>
<CursorPos X="38" Y="48"/>
<UsageCount Value="10"/>
</Unit11>
<Unit12>
<Filename Value="C:\lazarus\lcl\Controls.pp"/>
<TopLine Value="1176"/>
<CursorPos X="2" Y="1182"/>
<UsageCount Value="10"/>
</Unit12>
<Unit13>
<Filename Value="C:\lazarus\components\RxNew\RX.INC"/>
<UsageCount Value="10"/>
</Unit13>
<Unit14>
<Filename Value="C:\lazarus\components\RxNew\RXStrutils.pas"/>
<UnitName Value="RxStrUtils"/>
<CursorPos Y="15"/>
<UsageCount Value="10"/>
</Unit14>
</Units>
<JumpHistory Count="9" HistoryIndex="8">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="36" Column="5" TopLine="32"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="67" Column="33" TopLine="51"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
<Caret Line="19" Column="5" TopLine="19"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="23" Column="12" TopLine="23"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
<Caret Line="53" Column="20" TopLine="47"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
<Caret Line="36" Column="47" TopLine="36"/>
</Position6>
<Position7>
<Filename Value="unit1.pas"/>
<Caret Line="64" Column="8" TopLine="53"/>
</Position7>
<Position8>
<Filename Value="unit1.pas"/>
<Caret Line="35" Column="43" TopLine="35"/>
</Position8>
<Position9>
<Filename Value="unit1.pas"/>
<Caret Line="53" TopLine="20"/>
</Position9>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="FolderLister"/>
</Target>
<SearchPaths>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
<SrcPath Value="$(LazarusDir)\lcl;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>
</Item1>
<Item2>
<Name Value="EFOpenError"/>
</Item2>
</Exceptions>
</Debugging>
</CONFIG>