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

181
RXLib/.svn/pristine/dc/dc452cb1d4012fbf8441a547a48c489890360100.svn-base Normal file
View File

@@ -0,0 +1,181 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<Version Value="10"/>
<BuildModes Active="Default"/>
<Units Count="5">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<WindowIndex Value="-1"/>
<TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/>
<UsageCount Value="20"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<TopLine Value="15"/>
<CursorPos X="73" Y="55"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../rxcontrols/rxinipropstorage.pas"/>
<UnitName Value="RxIniPropStorage"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="60"/>
<CursorPos X="15" Y="92"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="../../../../lcl/inipropstorage.pas"/>
<UnitName Value="IniPropStorage"/>
<EditorIndex Value="2"/>
<TopLine Value="22"/>
<CursorPos X="14" Y="39"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-base/src/inifiles.pp"/>
<UnitName Value="IniFiles"/>
<EditorIndex Value="3"/>
<TopLine Value="214"/>
<CursorPos X="26" Y="235"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit4>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="46" Column="5" TopLine="12"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="47" Column="5" TopLine="12"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
<Caret Line="48" Column="5" TopLine="12"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="49" Column="5" TopLine="12"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
<Caret Line="50" Column="5" TopLine="13"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
<Caret Line="55" Column="73" TopLine="15"/>
</Position6>
<Position7>
<Filename Value="../../rxcontrols/rxinipropstorage.pas"/>
<Caret Line="49" Column="28" TopLine="28"/>
</Position7>
<Position8>
<Filename Value="../../rxcontrols/rxinipropstorage.pas"/>
<Caret Line="65" Column="3" TopLine="48"/>
</Position8>
<Position9>
<Filename Value="../../rxcontrols/rxinipropstorage.pas"/>
<Caret Line="49" Column="14" TopLine="31"/>
</Position9>
<Position10>
<Filename Value="../../../../lcl/inipropstorage.pas"/>
<Caret Line="53" Column="3" TopLine="35"/>
</Position10>
<Position11>
<Filename Value="../../../../lcl/inipropstorage.pas"/>
<Caret Line="41" Column="49" TopLine="16"/>
</Position11>
<Position12>
<Filename Value="../../../../lcl/inipropstorage.pas"/>
<Caret Line="86" Column="3" TopLine="84"/>
</Position12>
<Position13>
<Filename Value="../../../../lcl/inipropstorage.pas"/>
<Caret Line="41" Column="15" TopLine="23"/>
</Position13>
<Position14>
<Filename Value="../../../../lcl/inipropstorage.pas"/>
<Caret Line="86" Column="3" TopLine="84"/>
</Position14>
<Position15>
<Filename Value="../../../../lcl/inipropstorage.pas"/>
<Caret Line="42" Column="15" TopLine="23"/>
</Position15>
<Position16>
<Filename Value="../../../../lcl/inipropstorage.pas"/>
<Caret Line="103" Column="3" TopLine="101"/>
</Position16>
<Position17>
<Filename Value="../../../../lcl/inipropstorage.pas"/>
<Caret Line="41" Column="15" TopLine="24"/>
</Position17>
<Position18>
<Filename Value="../../../../lcl/inipropstorage.pas"/>
<Caret Line="86" Column="3" TopLine="84"/>
</Position18>
<Position19>
<Filename Value="../../rxcontrols/rxinipropstorage.pas"/>
<Caret Line="51" Column="15" TopLine="31"/>
</Position19>
<Position20>
<Filename Value="../../../../lcl/inipropstorage.pas"/>
<Caret Line="41" Column="27" TopLine="23"/>
</Position20>
<Position21>
<Filename Value="../../rxcontrols/rxinipropstorage.pas"/>
<Caret Line="86" Column="22" TopLine="55"/>
</Position21>
<Position22>
<Filename Value="../../rxcontrols/rxinipropstorage.pas"/>
<Caret Line="91" Column="13" TopLine="57"/>
</Position22>
<Position23>
<Filename Value="../../../../lcl/inipropstorage.pas"/>
<Caret Line="39" Column="14" TopLine="22"/>
</Position23>
<Position24>
<Filename Value="../../rxcontrols/rxinipropstorage.pas"/>
<Caret Line="92" Column="28" TopLine="58"/>
</Position24>
<Position25>
<Filename Value="../../../../lcl/inipropstorage.pas"/>
<Caret Line="39" Column="14" TopLine="22"/>
</Position25>
<Position26>
<Filename Value="../../rxcontrols/rxinipropstorage.pas"/>
<Caret Line="92" Column="40" TopLine="61"/>
</Position26>
<Position27>
<Filename Value="../../rxcontrols/rxinipropstorage.pas"/>
<Caret Line="58" Column="59" TopLine="40"/>
</Position27>
<Position28>
<Filename Value="../../rxcontrols/rxinipropstorage.pas"/>
<Caret Line="92" TopLine="61"/>
</Position28>
<Position29>
<Filename Value="../../rxcontrols/rxinipropstorage.pas"/>
<Caret Line="93" TopLine="61"/>
</Position29>
<Position30>
<Filename Value="unit1.pas"/>
<Caret Line="55" Column="73" TopLine="15"/>
</Position30>
</JumpHistory>
</ProjectSession>
</CONFIG>

30
RXLib/.svn/pristine/dc/dc6227ed0e27292f96fd07396c45425bd929d592.svn-base Normal file
View File

@@ -0,0 +1,30 @@
/* XPM */
static char *TRXLABEL[]={
"24 24 3 1",
". c None",
"# c #000000",
"a c #ffffff",
"........................",
"........................",
"........................",
"........................",
"........................",
"........................",
".........####aa.........",
"..........####aa........",
".........#####aa........",
".........##a###aa.......",
"........##aa.##aa.......",
"........##aa.###aa......",
".......##aa...##aa......",
".......##########aa.....",
"......##aaaaaaa##aa.....",
"......##aa.....###aa....",
".....##aa.......##aa....",
"....####aa.....####aa...",
".....aaaaa......aaaaa...",
"........................",
"........................",
"........................",
"........................",
"........................"};

187
RXLib/.svn/pristine/dc/dc7f9fa4c7bf5acc93611df345685d60e22bca27.svn-base Normal file
View File

@@ -0,0 +1,187 @@
{ rxShortCutUnit unit
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by
the Free Software Foundation; either version 2 of the License, or (at your
option) any later version with the following modification:
As a special exception, the copyright holders of this library give you
permission to link this library with independent modules to produce an
executable, regardless of the license terms of these independent modules,and
to copy and distribute the resulting executable under terms of your choice,
provided that you also meet, for each linked independent module, the terms
and conditions of the license of that module. An independent module is a
module which is not derived from or based on this library. If you modify
this library, you may extend this exception to your version of the library,
but you are not obligated to do so. If you do not wish to do so, delete this
exception statement from your version.
This program is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
for more details.
You should have received a copy of the GNU Library General Public License
along with this library; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}
unit rxShortCutUnit;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
StdCtrls;
type
{ TrxShortCutForm }
TrxShortCutForm = class(TForm)
Button1: TButton;
ButtonPanel1: TButtonPanel;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
ComboBox1: TComboBox;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
function GetShortCut: TShortCut;
procedure SetShortCut(AValue: TShortCut);
public
property ShortCut:TShortCut read GetShortCut write SetShortCut;
end;
function RxSelectShortCut(var AShortCut:TShortCut):boolean;
implementation
uses LCLProc, LCLType, LCLStrConsts;
{$R *.lfm}
function RxSelectShortCut(var AShortCut: TShortCut): boolean;
var
rxShortCutForm: TrxShortCutForm;
begin
rxShortCutForm:=TrxShortCutForm.Create(Application);
rxShortCutForm.ShortCut:=AShortCut;
if rxShortCutForm.ShowModal = mrOk then
AShortCut:=rxShortCutForm.ShortCut;
rxShortCutForm.Free;
end;
type
{ TGrabForm }
TGrabForm = class(TForm)
private
FShortCutEdt:TShortCut;
protected
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
public
constructor CreateNew(AOwner: TComponent; Num: Integer = 0); override;
end;
{ TGrabForm }
procedure TGrabForm.KeyDown(var Key: Word; Shift: TShiftState);
begin
inherited KeyDown(Key, Shift);
if (Key = VK_ESCAPE) and (Shift = []) then
ModalResult:=mrCancel
else
if (Key <> VK_CONTROL) and (Key <> VK_SHIFT) and (Key <> VK_MENU) then
begin
FShortCutEdt:=KeyToShortCut(Key, Shift);
ModalResult:=mrOK;
end;
end;
constructor TGrabForm.CreateNew(AOwner: TComponent; Num: Integer);
var
L: TLabel;
begin
inherited CreateNew(AOwner, Num);
Position:=poScreenCenter;
Width:=200;
Height:=80;
Caption:='Press the key';
BorderStyle:=bsDialog;
KeyPreview:=true;
L:=TLabel.Create(Self);
L.Parent:=Self;
L.Caption:=Caption;
L.AnchorSide[akTop].Control:=Self;
L.AnchorSide[akTop].Side:=asrCenter;
L.AnchorSide[akLeft].Control:=Self;
L.AnchorSide[akLeft].Side:=asrCenter;
end;
{ TrxShortCutForm }
procedure TrxShortCutForm.FormCreate(Sender: TObject);
var
S: String;
i:Word;
begin
for i:=0 to $FF do
begin
S:=ShortCutToText(i);
if S<>'' then
ComboBox1.Items.Add(S);
end;
end;
procedure TrxShortCutForm.Button1Click(Sender: TObject);
var
F:TGrabForm;
begin
F:=TGrabForm.CreateNew(Self);
if F.ShowModal = mrOk then
SetShortCut(F.FShortCutEdt);
F.Free;
end;
procedure TrxShortCutForm.SetShortCut(AValue: TShortCut);
begin
ComboBox1.Text:=ShortCutToText(AValue and $FF);
CheckBox1.Checked:=AValue and scShift <> 0;
CheckBox2.Checked:=AValue and scAlt <> 0;
CheckBox3.Checked:=AValue and scCtrl <> 0;
///if ShortCut and scMeta <> 0 then Result := Result + MenuKeyCaps[mkcMeta];
end;
function TrxShortCutForm.GetShortCut: TShortCut;
var
S: String;
begin
S:='';
if CheckBox1.Checked then
S:=SmkcShift + S;
if CheckBox2.Checked then
S:=SmkcAlt + S;
if CheckBox3.Checked then
S:=SmkcCtrl + S;
//SmkcMeta = 'Meta+';
S:=S + ComboBox1.Text;
Result:=TextToShortCut(S);
end;
end.

2
RXLib/.svn/pristine/dc/dcc737cddaea436bfabc06b6ea8815c1ebaf2033.svn-base Normal file
View File

@@ -0,0 +1,2 @@
rm rxdbgridexportspreadsheet.res
/usr/local/share/lazarus/tools/lazres rxdbgridexportspreadsheet.res TRxDBGridExportSpreadSheet.png