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

BIN
RXLib/demos/RxViewsPanel/project1.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 134 KiB

287
RXLib/demos/RxViewsPanel/project1.lpi Normal file
View File

@@ -0,0 +1,287 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<General>
<MainUnit Value="0"/>
<Title Value="RxViewsPanel demo"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<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"/>
</local>
</RunParams>
<RequiredPackages Count="3">
<Item1>
<PackageName Value="LazControls"/>
<MinVersion Valid="True"/>
</Item1>
<Item2>
<PackageName Value="rxnew"/>
<MinVersion Major="2" Minor="1" Release="2" Build="105" Valid="True"/>
</Item2>
<Item3>
<PackageName Value="LCL"/>
</Item3>
</RequiredPackages>
<Units Count="14">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<CursorPos Y="15"/>
<UsageCount Value="23"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="15"/>
<CursorPos X="7" Y="34"/>
<UsageCount Value="23"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../rxviewspanel.pas"/>
<UnitName Value="RxViewsPanel"/>
<EditorIndex Value="-1"/>
<TopLine Value="167"/>
<CursorPos X="36" Y="201"/>
<UsageCount Value="11"/>
<Bookmarks Count="2">
<Item0 Y="295" ID="1"/>
<Item1 X="3" Y="330" ID="2"/>
</Bookmarks>
</Unit2>
<Unit3>
<Filename Value="../../registerrx.pas"/>
<TopLine Value="40"/>
<CursorPos X="30" Y="50"/>
<UsageCount Value="11"/>
</Unit3>
<Unit4>
<Filename Value="../../rxtoolbar.pas"/>
<TopLine Value="1113"/>
<CursorPos X="45" Y="1143"/>
<UsageCount Value="11"/>
</Unit4>
<Unit5>
<Filename Value="../../rxaboutdialog.pas"/>
<UnitName Value="RxAboutDialog"/>
<TopLine Value="27"/>
<CursorPos X="3" Y="46"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="../../../../lcl/extctrls.pp"/>
<UnitName Value="ExtCtrls"/>
<TopLine Value="1147"/>
<CursorPos X="13" Y="1179"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<Filename Value="../../../../lcl/buttons.pp"/>
<UnitName Value="Buttons"/>
<TopLine Value="331"/>
<CursorPos X="17" Y="350"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="../../../../lcl/stdctrls.pp"/>
<UnitName Value="StdCtrls"/>
<TopLine Value="1420"/>
<CursorPos X="3" Y="1439"/>
<UsageCount Value="11"/>
</Unit8>
<Unit9>
<Filename Value="../../../install/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<TopLine Value="411"/>
<CursorPos X="24" Y="435"/>
<UsageCount Value="10"/>
</Unit9>
<Unit10>
<Filename Value="../../../install/fpcsrc/rtl/objpas/classes/collect.inc"/>
<TopLine Value="18"/>
<CursorPos X="3" Y="21"/>
<UsageCount Value="10"/>
</Unit10>
<Unit11>
<Filename Value="../../../../lcl/controls.pp"/>
<UnitName Value="Controls"/>
<TopLine Value="1265"/>
<CursorPos X="15" Y="1280"/>
<UsageCount Value="10"/>
</Unit11>
<Unit12>
<Filename Value="../../../../lcl/include/control.inc"/>
<TopLine Value="3131"/>
<CursorPos Y="3151"/>
<UsageCount Value="10"/>
</Unit12>
<Unit13>
<Filename Value="../../../../lcl/include/untabbednotebook.inc"/>
<TopLine Value="176"/>
<CursorPos X="17" Y="204"/>
<UsageCount Value="10"/>
</Unit13>
</Units>
<JumpHistory Count="27" HistoryIndex="26">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="18" Column="29"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="18" Column="29"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
<Caret Line="40" Column="3" TopLine="15"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="41" Column="3" TopLine="15"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
<Caret Line="42" Column="3" TopLine="15"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
<Caret Line="43" Column="3" TopLine="15"/>
</Position6>
<Position7>
<Filename Value="unit1.pas"/>
<Caret Line="42" Column="3" TopLine="15"/>
</Position7>
<Position8>
<Filename Value="unit1.pas"/>
<Caret Line="36" Column="3" TopLine="7"/>
</Position8>
<Position9>
<Filename Value="unit1.pas"/>
<Caret Line="42" Column="41" TopLine="17"/>
</Position9>
<Position10>
<Filename Value="unit1.pas"/>
<Caret Line="43" Column="41" TopLine="17"/>
</Position10>
<Position11>
<Filename Value="unit1.pas"/>
<Caret Line="44" Column="41" TopLine="17"/>
</Position11>
<Position12>
<Filename Value="unit1.pas"/>
<Caret Line="45" Column="41" TopLine="17"/>
</Position12>
<Position13>
<Filename Value="unit1.pas"/>
<Caret Line="46" Column="41" TopLine="17"/>
</Position13>
<Position14>
<Filename Value="unit1.pas"/>
<Caret Line="47" Column="41" TopLine="18"/>
</Position14>
<Position15>
<Filename Value="unit1.pas"/>
<Caret Line="48" Column="41" TopLine="19"/>
</Position15>
<Position16>
<Filename Value="unit1.pas"/>
<Caret Line="49" Column="41" TopLine="20"/>
</Position16>
<Position17>
<Filename Value="unit1.pas"/>
<Caret Line="50" Column="41" TopLine="21"/>
</Position17>
<Position18>
<Filename Value="unit1.pas"/>
<Caret Line="51" Column="41" TopLine="22"/>
</Position18>
<Position19>
<Filename Value="unit1.pas"/>
<Caret Line="52" Column="41" TopLine="27"/>
</Position19>
<Position20>
<Filename Value="unit1.pas"/>
<Caret Line="58" Column="29" TopLine="33"/>
</Position20>
<Position21>
<Filename Value="unit1.pas"/>
<Caret Line="58" Column="29" TopLine="9"/>
</Position21>
<Position22>
<Filename Value="unit1.pas"/>
<Caret Line="53" Column="3" TopLine="50"/>
</Position22>
<Position23>
<Filename Value="unit1.pas"/>
<Caret Line="54" Column="3" TopLine="51"/>
</Position23>
<Position24>
<Filename Value="unit1.pas"/>
<Caret Line="55" Column="3" TopLine="13"/>
</Position24>
<Position25>
<Filename Value="unit1.pas"/>
<Caret Line="56" Column="3" TopLine="24"/>
</Position25>
<Position26>
<Filename Value="unit1.pas"/>
<Caret Line="57" Column="3" TopLine="25"/>
</Position26>
<Position27>
<Filename Value="unit1.pas"/>
<Caret Line="33" Column="7" TopLine="16"/>
</Position27>
</JumpHistory>
</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="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

21
RXLib/demos/RxViewsPanel/project1.lpr Normal file
View File

@@ -0,0 +1,21 @@
program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, lazcontrols, Unit1
{ you can add units after this };
{$R *.res}
begin
Application.Title:='RxViewsPanel demo';
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

1605
RXLib/demos/RxViewsPanel/unit1.lfm Normal file
View File

File diff suppressed because it is too large Load Diff

67
RXLib/demos/RxViewsPanel/unit1.pas Normal file
View File

@@ -0,0 +1,67 @@
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
Buttons, StdCtrls, Grids, ComCtrls, rxtoolbar, RxViewsPanel, ExtendedNotebook;
type
{ TForm1 }
TForm1 = class(TForm)
ExtendedNotebook1: TExtendedNotebook;
ImageList2: TImageList;
Memo1: TMemo;
Page1: TPage;
Page2: TPage;
Page3: TPage;
Page4: TPage;
PaintBox1: TPaintBox;
RxViewsPanel1: TRxViewsPanel;
Splitter1: TSplitter;
Splitter2: TSplitter;
StatusBar1: TStatusBar;
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
StringGrid3: TStringGrid;
StringGrid4: TStringGrid;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
ToolPanel1: TToolPanel;
procedure FormCreate(Sender: TObject);
procedure RxViewsPanel1SelectViewEvent(Sender: TObject; ItemIndex: integer;
const Item: TRxViewsPanelItem);
private
//
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
RxViewsPanel1.ItemIndex:=1;
end;
procedure TForm1.RxViewsPanel1SelectViewEvent(Sender: TObject;
ItemIndex: integer; const Item: TRxViewsPanelItem);
begin
ExtendedNotebook1.PageIndex:=ItemIndex
end;
end.