RxFPC:RxLockupCombo - new property for lockup list - KeyList and PickList

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6745 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-12-05 10:28:46 +00:00
parent f474ac55d6
commit 8743258b2d
24 changed files with 644 additions and 7293 deletions

File diff suppressed because it is too large Load Diff

View File

@ -1,17 +0,0 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity version="1.0.0.0" processorArchitecture="*" name="CompanyName.ProductName.YourApp" type="win32"/>
<description>Your application description here.</description>
<dependency>
<dependentAssembly>
<assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="*" publicKeyToken="6595b64144ccf1df" language="*"/>
</dependentAssembly>
</dependency>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
<security>
<requestedPrivileges>
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>

View File

@ -1,7 +0,0 @@
#define RT_MANIFEST 24
#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1
#define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2
#define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3
CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "project1.manifest"
MAINICON ICON "project1.ico"

View File

@ -1,43 +0,0 @@
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'`'#2#6'Height'#3','#1#3'Top'#3#239#1#5'Wi'
+'dth'#3#144#1#7'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11'ClientWidth'#3
+#144#1#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.29'#0#6'TLabel'#6
+'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5
+'Owner'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#6#5'Width'#2'.'#18'BorderSpacing'
+'.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#6'Label1'#11'ParentColor'
+#8#0#0#6'TLabel'#6'Label2'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSi'
+'deTop.Control'#7#11'DBDateEdit1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Le'
+'ft'#2#6#6'Height'#2#18#3'Top'#2'?'#5'Width'#2']'#20'BorderSpacing.Around'#2
+#6#7'Caption'#6#13'Currency edit'#11'ParentColor'#8#0#0#11'TDBDateEdit'#11'D'
+'BDateEdit1'#22'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'
+#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2
+#27#3'Top'#2#30#5'Width'#3#148#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing'
+'.Top'#2#6#11'ButtonWidth'#2#23#7'Enabled'#8#10'Glyph.Data'#10':'#1#0#0'6'#1
+#0#0'BM6'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#28#0#0#0#12#0#0#0#1#0#4#0#0#0#0#0
+#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128
+#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255
+#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#221
+#215'wwwww'#221#255#255#255#255#255#255#0#0#221#0'@D'#4#0'G'#215'wwwww'#127#0
+#0#221#255#255#255#255#255'G'#215#253#255#253#255#253#127#0#0#221#240#0#240#0
+#143'G'#215#247'w'#215'w'#223#127#0#0#221#255#15#248#248#15'G'#215#253#127
+#221#221#127#127#0#0#221#255#15#255#255#15'G'#215#253#127#221#255'}'#127#0#0
+#221#255#15#240#0#143'G'#215#253#127#215'w'#221#127#0#0#221#240#15#240#255
+#255'G'#215#247#127#215#255#255#127#0#0#221#255#15#240#0#15'G'#215#253'}'#215
+'w}'#127#0#0#221#255#255#255#255#255'G'#215#253#221#221#221#221#127#0#0#221
+#248#136#136#136#143'G'#215#255#255#255#255#255#127#0#0#221#0#0#0#0#0#221#215
+'wwwww}'#0#0#9'NumGlyphs'#2#2#10'PopupColor'#7#8'clWindow'#8'TabOrder'#2#0#9
+'DataField'#6#8'DOC_DATE'#10'DataSource'#7#6'dsData'#0#0#13'TCurrencyEdit'#13
+'CurrencyEdit1'#22'AnchorSideLeft.Control'#7#6'Label2'#21'AnchorSideTop.Cont'
+'rol'#7#6'Label2'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#12#6'Heigh'
+'t'#2#27#3'Top'#2'W'#5'Width'#3#148#0#9'Alignment'#7#8'taCenter'#20'BorderSp'
+'acing.Around'#2#6#8'MaxValue'#2#0#8'MinValue'#2#0#8'TabOrder'#2#1#5'Value'#2
+#0#0#0#7'TButton'#7'Button1'#4'Left'#3#248#0#6'Height'#2#29#3'Top'#2'P'#5'Wi'
+'dth'#2'L'#8'AutoSize'#9#7'Caption'#6#10'Invalidate'#7'OnClick'#7#12'Button1'
+'Click'#8'TabOrder'#2#2#0#0#11'TDatasource'#6'dsData'#7'DataSet'#7#6'rxData'
+#4'left'#3#8#1#3'top'#2#21#0#0#13'TRxMemoryData'#6'rxData'#9'FieldDefs'#14#1
+#4'Name'#6#8'DOC_DATE'#8'DataType'#7#6'ftDate'#9'Precision'#2#0#4'Size'#2#0#0
+#0#4'left'#3'0'#1#3'top'#2#21#0#10'TDateField'#14'rxDataDOC_DATE'#12'Display'
+'Width'#2#10#9'FieldKind'#7#6'fkData'#9'FieldName'#6#8'DOC_DATE'#5'Index'#2#0
+#11'LookupCache'#8#13'ProviderFlags'#11#10'pfInUpdate'#9'pfInWhere'#0#8'Read'
+'Only'#8#8'Required'#8#0#0#0#0
]);

Binary file not shown.

After

Width:  |  Height:  |  Size: 134 KiB

View File

@ -0,0 +1,80 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="RxLogin demo"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="rxnew"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
</Unit1>
</Units>
</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>

View File

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

Binary file not shown.

View File

@ -0,0 +1,25 @@
object Form1: TForm1
Left = 660
Height = 335
Top = 285
Width = 455
Caption = 'RxLogin demo'
Position = poScreenCenter
LCLVersion = '1.9.0.0'
object RxLoginDialog1: TRxLoginDialog
DetailItems.Strings = (
'Line 1'
'Line 2'
'Line 3'
)
DetailItem = 1
UpdateCaption = ucAppTitle
ShowDetails = False
LoginOptions = [rloMoreBtn, rloHelpBtn]
AfterLogin = RxLoginDialog1AfterLogin
BeforeLogin = RxLoginDialog1BeforeLogin
OnUnlockApp = RxLoginDialog1UnlockApp
Left = 207
Top = 133
end
end

View File

@ -0,0 +1,64 @@
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, rxlogin;
type
{ TForm1 }
TForm1 = class(TForm)
RxLoginDialog1: TRxLoginDialog;
procedure RxLoginDialog1AfterLogin(Sender: TObject);
procedure RxLoginDialog1BeforeLogin(Sender: TObject);
procedure RxLoginDialog1UnlockApp(Sender: TObject; const UserName,
Password: string; var AllowUnlock: Boolean);
private
public
end;
var
Form1: TForm1;
procedure LocalizeApp;
implementation
uses gettext, translations, rxFileUtils;
{$R *.lfm}
procedure LocalizeApp;
var
Lang, FallbackLang: String;
begin
GetLanguageIDs(Lang{%H-},FallbackLang{%H-}); // in unit gettext
TranslateUnitResourceStrings('rxconst', NormalizeDirectoryName('../../languages/rxconst.%s.po'), Lang, FallbackLang);
TranslateUnitResourceStrings('rxdconst', NormalizeDirectoryName('../../languages/rxdconst.%s.po'), Lang, FallbackLang);
end;
{ TForm1 }
procedure TForm1.RxLoginDialog1UnlockApp(Sender: TObject; const UserName,
Password: string; var AllowUnlock: Boolean);
begin
ShowMessage('Password = '+ Password);
AllowUnlock:=true
end;
procedure TForm1.RxLoginDialog1BeforeLogin(Sender: TObject);
begin
//
end;
procedure TForm1.RxLoginDialog1AfterLogin(Sender: TObject);
begin
//
end;
end.

View File

@ -1,258 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<Version Value="11"/>
<BuildModes Active="Default"/>
<Units Count="14">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<CursorPos X="43" Y="10"/>
<UsageCount Value="25"/>
</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="108"/>
<CursorPos X="3" Y="114"/>
<UsageCount Value="25"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="unit2.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form2"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit2"/>
<EditorIndex Value="-1"/>
<TopLine Value="3"/>
<CursorPos X="6" Y="11"/>
<UsageCount Value="25"/>
</Unit2>
<Unit3>
<Filename Value="unit3.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form3"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit3"/>
<EditorIndex Value="-1"/>
<CursorPos Y="19"/>
<UsageCount Value="25"/>
</Unit3>
<Unit4>
<Filename Value="unit4.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form4"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit4"/>
<EditorIndex Value="-1"/>
<CursorPos X="32" Y="8"/>
<UsageCount Value="25"/>
</Unit4>
<Unit5>
<Filename Value="../../rxmdi.pas"/>
<UnitName Value="RxMDI"/>
<EditorIndex Value="-1"/>
<TopLine Value="691"/>
<CursorPos Y="711"/>
<UsageCount Value="11"/>
</Unit5>
<Unit6>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<UnitName Value="RxMDI"/>
<EditorIndex Value="1"/>
<TopLine Value="191"/>
<CursorPos X="6" Y="208"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit6>
<Unit7>
<Filename Value="../../../../lcl/buttons.pp"/>
<UnitName Value="Buttons"/>
<EditorIndex Value="-1"/>
<TopLine Value="219"/>
<CursorPos Y="304"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="1854"/>
<CursorPos X="14" Y="1905"/>
<UsageCount Value="10"/>
</Unit8>
<Unit9>
<Filename Value="../../../../lcl/controls.pp"/>
<UnitName Value="Controls"/>
<EditorIndex Value="-1"/>
<TopLine Value="176"/>
<CursorPos X="44" Y="195"/>
<UsageCount Value="10"/>
</Unit9>
<Unit10>
<Filename Value="../../rxcontrols/RxMDICloseIcon.lrs"/>
<EditorIndex Value="-1"/>
<UsageCount Value="10"/>
</Unit10>
<Unit11>
<Filename Value="../../rxtools/rxconst.pas"/>
<EditorIndex Value="2"/>
<TopLine Value="96"/>
<CursorPos X="3" Y="112"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit11>
<Unit12>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/reader.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="771"/>
<CursorPos X="53" Y="789"/>
<UsageCount Value="10"/>
</Unit12>
<Unit13>
<Filename Value="../../../../lcl/extctrls.pp"/>
<UnitName Value="ExtCtrls"/>
<EditorIndex Value="-1"/>
<TopLine Value="1046"/>
<CursorPos X="14" Y="1064"/>
<UsageCount Value="10"/>
</Unit13>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="147" Column="15" TopLine="128"/>
</Position1>
<Position2>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="300" Column="16" TopLine="295"/>
</Position2>
<Position3>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="66" Column="15" TopLine="47"/>
</Position3>
<Position4>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="826" Column="3" TopLine="824"/>
</Position4>
<Position5>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="71" Column="15" TopLine="47"/>
</Position5>
<Position6>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="863" Column="3" TopLine="861"/>
</Position6>
<Position7>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="66" Column="17" TopLine="53"/>
</Position7>
<Position8>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="826" Column="3" TopLine="823"/>
</Position8>
<Position9>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="91" Column="15" TopLine="72"/>
</Position9>
<Position10>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="587" Column="13" TopLine="579"/>
</Position10>
<Position11>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="595" Column="46" TopLine="575"/>
</Position11>
<Position12>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="154" Column="15" TopLine="135"/>
</Position12>
<Position13>
<Filename Value="unit1.pas"/>
<Caret Line="125" Column="13" TopLine="105"/>
</Position13>
<Position14>
<Filename Value="unit1.pas"/>
<Caret Line="45" Column="15" TopLine="29"/>
</Position14>
<Position15>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="389" Column="3" TopLine="387"/>
</Position15>
<Position16>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="98" Column="15" TopLine="79"/>
</Position16>
<Position17>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="136" TopLine="100"/>
</Position17>
<Position18>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="120" Column="15" TopLine="100"/>
</Position18>
<Position19>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="190" TopLine="183"/>
</Position19>
<Position20>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="191" TopLine="183"/>
</Position20>
<Position21>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="192" TopLine="183"/>
</Position21>
<Position22>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="215" Column="52" TopLine="189"/>
</Position22>
<Position23>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="190" TopLine="183"/>
</Position23>
<Position24>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="210" TopLine="183"/>
</Position24>
<Position25>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="211" TopLine="183"/>
</Position25>
<Position26>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="212" TopLine="183"/>
</Position26>
<Position27>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="214" TopLine="183"/>
</Position27>
<Position28>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="215" TopLine="184"/>
</Position28>
<Position29>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="229" TopLine="211"/>
</Position29>
<Position30>
<Filename Value="../../rxcontrols/rxmdi.pas"/>
<Caret Line="190" TopLine="171"/>
</Position30>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0" ActiveMode="default"/>
</RunParams>
</ProjectSession>
</CONFIG>

Binary file not shown.

After

Width:  |  Height:  |  Size: 134 KiB

View File

@ -0,0 +1,80 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="10"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="project1"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="3">
<Item1>
<PackageName Value="FCL"/>
</Item1>
<Item2>
<PackageName Value="rxnew"/>
</Item2>
<Item3>
<PackageName Value="LCL"/>
</Item3>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
</Unit1>
</Units>
</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>

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, Unit1, rxnew
{ you can add units after this };
{$R *.res}
begin
RequireDerivedFormResource:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

View File

@ -0,0 +1,226 @@
object Form1: TForm1
Left = 405
Height = 631
Top = 232
Width = 1094
Caption = 'Form1'
ClientHeight = 631
ClientWidth = 1094
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.9.0.0'
object Panel1: TPanel
Left = 0
Height = 66
Top = 0
Width = 1094
Align = alTop
ClientHeight = 66
ClientWidth = 1094
TabOrder = 0
object CheckBox1: TCheckBox
Left = 8
Height = 24
Top = 8
Width = 97
Caption = 'CheckBox1'
Checked = True
OnChange = CheckBox1Change
State = cbChecked
TabOrder = 0
end
end
object RxDBGrid1: TRxDBGrid
Left = 0
Height = 565
Top = 66
Width = 1094
ColumnDefValues.BlobText = '(данные)'
TitleButtons = True
AutoSort = True
Columns = <
item
Title.Alignment = taCenter
Title.Orientation = toHorizontal
Title.Caption = 'ID'
Width = 60
FieldName = 'ID'
EditButtons = <>
Filter.DropDownRows = 0
Filter.EmptyValue = '(Пусто)'
Filter.AllValue = '(Все значения)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
Footers = <>
end
item
Title.Alignment = taCenter
Title.Orientation = toHorizontal
Title.Caption = 'NAME'
Width = 264
FieldName = 'NAME'
EditButtons = <>
Filter.DropDownRows = 0
Filter.EmptyValue = '(Пусто)'
Filter.AllValue = '(Все значения)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
Footers = <>
end
item
Title.Alignment = taCenter
Title.Orientation = toHorizontal
Title.Caption = 'SUM'
Width = 164
FieldName = 'SUM'
EditButtons = <>
Filter.DropDownRows = 0
Filter.EmptyValue = '(Пусто)'
Filter.AllValue = '(Все значения)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
Footer.Alignment = taRightJustify
Footer.FieldName = 'SUM'
Footer.ValueType = fvtSum
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.Active = True
FooterOptions.Color = clYellow
FooterOptions.RowCount = 1
FooterOptions.DrawFullLine = True
SearchOptions.QuickSearchOptions = [loCaseInsensitive, loPartialKey]
SearchOptions.FromStart = False
OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgFooterRows, rdgAllowQuickFilter, rdgAllowToolMenu]
FooterColor = clYellow
FooterRowCount = 1
Align = alClient
Color = clWindow
DrawFullLine = True
FocusColor = clRed
SelectedColor = clHighlight
GridLineStyle = psSolid
DataSource = DataSource1
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgHeaderPushedLook]
TabOrder = 1
end
object DataSource1: TDataSource
DataSet = RxMemoryData1
Left = 456
Top = 560
end
object RxMemoryData1: TRxMemoryData
FieldDefs = <
item
Name = 'ID'
DataType = ftInteger
Precision = -1
end
item
Name = 'NAME'
DataType = ftString
Precision = -1
Size = 100
end
item
Name = 'SUM'
DataType = ftCurrency
Precision = 2
end>
PacketRecords = 0
Left = 536
Top = 560
object RxMemoryData1ID: TLongintField
FieldKind = fkData
FieldName = 'ID'
Index = 0
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
end
object RxMemoryData1NAME: TStringField
FieldKind = fkData
FieldName = 'NAME'
Index = 1
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
Size = 100
end
object RxMemoryData1SUM: TCurrencyField
FieldKind = fkData
FieldName = 'SUM'
Index = 2
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
MaxValue = 0
MinValue = 0
Precision = 2
end
end
object RxDBGridFooterTools1: TRxDBGridFooterTools
RxDBGrid = RxDBGrid1
Caption = 'Всего строк'
Left = 240
Top = 560
end
end

View File

@ -0,0 +1,57 @@
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, rxdbgrid, rxmemds, RxDBGridFooterTools,
RxDBGridExportPdf, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, db;
type
{ TForm1 }
TForm1 = class(TForm)
CheckBox1: TCheckBox;
DataSource1: TDataSource;
Panel1: TPanel;
RxDBGrid1: TRxDBGrid;
RxDBGridFooterTools1: TRxDBGridFooterTools;
RxMemoryData1: TRxMemoryData;
RxMemoryData1ID: TLongintField;
RxMemoryData1NAME: TStringField;
RxMemoryData1SUM: TCurrencyField;
procedure CheckBox1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
RxMemoryData1.Open;
for i:=1 to 50 do
RxMemoryData1.AppendRecord([I, 'Line '+IntToStr(i), Random(1000)]);
end;
procedure TForm1.CheckBox1Change(Sender: TObject);
begin
RxDBGrid1.FooterOptions.Active:=CheckBox1.Checked;
end;
end.

View File

@ -1,373 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<Version Value="10"/>
<BuildModes Active="Default"/>
<Units Count="26">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<WindowIndex Value="-1"/>
<TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/>
<UsageCount Value="31"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<TopLine Value="70"/>
<CursorPos X="60" Y="87"/>
<UsageCount Value="31"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<EditorIndex Value="5"/>
<TopLine Value="6312"/>
<CursorPos Y="6333"/>
<UsageCount Value="14"/>
<Bookmarks Count="1">
<Item0 X="54" Y="6391" ID="1"/>
</Bookmarks>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="../../../../../lcl/grids.pas"/>
<UnitName Value="Grids"/>
<EditorIndex Value="9"/>
<TopLine Value="11692"/>
<CursorPos Y="11717"/>
<UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="../../../../../lcl/dbgrids.pas"/>
<UnitName Value="DBGrids"/>
<EditorIndex Value="8"/>
<TopLine Value="475"/>
<CursorPos X="14" Y="491"/>
<UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit4>
<Unit5>
<Filename Value="../../../../install/source/fpcsrc/tests/bench/shootout/src/fannkuch.pp"/>
<EditorIndex Value="-1"/>
<TopLine Value="16"/>
<CursorPos X="11" Y="25"/>
<UsageCount Value="9"/>
</Unit5>
<Unit6>
<Filename Value="../../../../install/source/fpcsrc/rtl/inc/systemh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="834"/>
<CursorPos Y="848"/>
<UsageCount Value="9"/>
</Unit6>
<Unit7>
<Filename Value="../../../rxtools/rxutils.pas"/>
<EditorIndex Value="6"/>
<TopLine Value="64"/>
<CursorPos X="2" Y="91"/>
<UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit7>
<Unit8>
<Filename Value="../../../rxtools/rxstrutils.pas"/>
<EditorIndex Value="7"/>
<UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit8>
<Unit9>
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/objpas.pp"/>
<EditorIndex Value="-1"/>
<TopLine Value="49"/>
<CursorPos X="8" Y="35"/>
<UsageCount Value="9"/>
</Unit9>
<Unit10>
<Filename Value="../../../../install/source/fpcsrc/packages/fcl-db/src/base/db.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="1783"/>
<CursorPos X="15" Y="1801"/>
<UsageCount Value="9"/>
</Unit10>
<Unit11>
<Filename Value="../../../../install/source/fpcsrc/packages/fcl-db/src/base/datasource.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="146"/>
<CursorPos X="48" Y="149"/>
<UsageCount Value="9"/>
</Unit11>
<Unit12>
<Filename Value="../../../../../lcl/include/wincontrol.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="8050"/>
<CursorPos Y="8080"/>
<UsageCount Value="9"/>
</Unit12>
<Unit13>
<Filename Value="../../../../../lcl/lclproc.pas"/>
<UnitName Value="LCLProc"/>
<EditorIndex Value="-1"/>
<TopLine Value="899"/>
<CursorPos Y="918"/>
<UsageCount Value="9"/>
</Unit13>
<Unit14>
<Filename Value="../../../../../lcl/include/control.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="3877"/>
<CursorPos Y="3897"/>
<UsageCount Value="9"/>
</Unit14>
<Unit15>
<Filename Value="../../../../../lcl/include/canvas.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="1195"/>
<CursorPos Y="1212"/>
<UsageCount Value="9"/>
</Unit15>
<Unit16>
<Filename Value="../../../../../lcl/graphics.pp"/>
<UnitName Value="Graphics"/>
<EditorIndex Value="-1"/>
<TopLine Value="1193"/>
<CursorPos X="15" Y="1210"/>
<UsageCount Value="9"/>
</Unit16>
<Unit17>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="72"/>
<CursorPos X="30" Y="91"/>
<UsageCount Value="9"/>
</Unit17>
<Unit18>
<Filename Value="../../../../../lcl/include/winapi.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="197"/>
<CursorPos Y="216"/>
<UsageCount Value="9"/>
</Unit18>
<Unit19>
<Filename Value="../../../../../lcl/interfaces/gtk2/gtk2winapi.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="2377"/>
<CursorPos X="3" Y="2395"/>
<UsageCount Value="9"/>
</Unit19>
<Unit20>
<Filename Value="../../../rxdbgrid_export_spreadsheet/rxdbgridexportspreadsheet.pas"/>
<UnitName Value="RxDBGridExportSpreadSheet"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="3"/>
<TopLine Value="564"/>
<CursorPos X="44" Y="595"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit20>
<Unit21>
<Filename Value="../../../rxdbgrid_export_spreadsheet/rxdbgridexportspreadsheet_paramsunit.pas"/>
<ComponentName Value="RxDBGridExportSpreadSheet_ParamsForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGridExportSpreadSheet_ParamsUnit"/>
<EditorIndex Value="-1"/>
<TopLine Value="58"/>
<CursorPos X="25" Y="89"/>
<UsageCount Value="10"/>
</Unit21>
<Unit22>
<Filename Value="../../../rxtools/rxdconst.pas"/>
<EditorIndex Value="4"/>
<TopLine Value="172"/>
<CursorPos X="14" Y="190"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit22>
<Unit23>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<UnitName Value="RxDBGridPrintGrid"/>
<EditorIndex Value="1"/>
<TopLine Value="298"/>
<CursorPos X="25" Y="301"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit23>
<Unit24>
<Filename Value="../../../../lazreport/source/lr_class.pas"/>
<UnitName Value="LR_Class"/>
<EditorIndex Value="-1"/>
<TopLine Value="11808"/>
<CursorPos Y="11826"/>
<UsageCount Value="12"/>
</Unit24>
<Unit25>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid_setupunit.pas"/>
<ComponentName Value="RxDBGridPrintGrid_SetupForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGridPrintGrid_SetupUnit"/>
<EditorIndex Value="2"/>
<TopLine Value="67"/>
<CursorPos X="36" Y="87"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit25>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="343" TopLine="315"/>
</Position1>
<Position2>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="344" TopLine="316"/>
</Position2>
<Position3>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="345" TopLine="317"/>
</Position3>
<Position4>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="348" TopLine="335"/>
</Position4>
<Position5>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="332" TopLine="312"/>
</Position5>
<Position6>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="334" TopLine="327"/>
</Position6>
<Position7>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="336" TopLine="327"/>
</Position7>
<Position8>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="354" TopLine="327"/>
</Position8>
<Position9>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="334" TopLine="318"/>
</Position9>
<Position10>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="326" Column="7" TopLine="318"/>
</Position10>
<Position11>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="332" TopLine="318"/>
</Position11>
<Position12>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="363" TopLine="304"/>
</Position12>
<Position13>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="332" TopLine="320"/>
</Position13>
<Position14>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="363" TopLine="331"/>
</Position14>
<Position15>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="332" TopLine="326"/>
</Position15>
<Position16>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="334" TopLine="314"/>
</Position16>
<Position17>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="365" TopLine="332"/>
</Position17>
<Position18>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="370" TopLine="353"/>
</Position18>
<Position19>
<Filename Value="unit1.pas"/>
<Caret Line="87" Column="52" TopLine="76"/>
</Position19>
<Position20>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="332" Column="23" TopLine="315"/>
</Position20>
<Position21>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="97" Column="15" TopLine="76"/>
</Position21>
<Position22>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="484" Column="3" TopLine="479"/>
</Position22>
<Position23>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid_setupunit.pas"/>
<Caret Line="46" Column="3" TopLine="29"/>
</Position23>
<Position24>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="536" TopLine="514"/>
</Position24>
<Position25>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="90" Column="14" TopLine="81"/>
</Position25>
<Position26>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="245" Column="3" TopLine="237"/>
</Position26>
<Position27>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="91" Column="15" TopLine="75"/>
</Position27>
<Position28>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="275" Column="3" TopLine="268"/>
</Position28>
<Position29>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Caret Line="93" Column="28" TopLine="69"/>
</Position29>
<Position30>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid_setupunit.pas"/>
<Caret Line="63" Column="32" TopLine="44"/>
</Position30>
</JumpHistory>
</ProjectSession>
<Debugging>
<BreakPoints Count="1">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsLocal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<Line Value="370"/>
</Item1>
</BreakPoints>
<Watches Count="4">
<Item1>
<Expression Value="fRect"/>
</Item1>
<Item2>
<Expression Value="ARect"/>
</Item2>
<Item3>
<Expression Value="X"/>
</Item3>
<Item4>
<Expression Value="Y"/>
</Item4>
</Watches>
</Debugging>
</CONFIG>

View File

@ -1,853 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<Version Value="11"/>
<BuildModes Active="Default"/>
<Units Count="92">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<CursorPos X="81" Y="12"/>
<UsageCount Value="120"/>
</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="132"/>
<CursorPos X="48" Y="146"/>
<UsageCount Value="120"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../rxdbgridexportspreadsheet.pas"/>
<UnitName Value="RxDBGridExportSpreadSheet"/>
<EditorIndex Value="-1"/>
<TopLine Value="23"/>
<CursorPos X="36" Y="39"/>
<UsageCount Value="12"/>
</Unit2>
<Unit3>
<Filename Value="../../rxdbgrid.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="215"/>
<CursorPos X="86" Y="231"/>
<UsageCount Value="33"/>
</Unit3>
<Unit4>
<Filename Value="rxdbgridexportpdf.pas"/>
<UnitName Value="RxDBGridExportPdf"/>
<EditorIndex Value="-1"/>
<TopLine Value="51"/>
<CursorPos X="69" Y="76"/>
<UsageCount Value="13"/>
</Unit4>
<Unit5>
<Filename Value="../../rxdconst.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="170"/>
<CursorPos X="43" Y="197"/>
<UsageCount Value="12"/>
</Unit5>
<Unit6>
<Filename Value="../../../install/source/fpcsrc/rtl/objpas/classes/reader.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="964"/>
<CursorPos Y="986"/>
<UsageCount Value="3"/>
</Unit6>
<Unit7>
<Filename Value="../../../OPTORG/alexs/3/examples/testfppdf.lpr"/>
<EditorIndex Value="-1"/>
<TopLine Value="107"/>
<CursorPos Y="133"/>
<UsageCount Value="4"/>
</Unit7>
<Unit8>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-pdf/src/fppdf.pp"/>
<UnitName Value="fpPDF"/>
<EditorIndex Value="-1"/>
<TopLine Value="530"/>
<CursorPos X="15" Y="544"/>
<UsageCount Value="21"/>
</Unit8>
<Unit9>
<Filename Value="../../registerrxdb.pas"/>
<UnitName Value="RegisterRxDB"/>
<EditorIndex Value="-1"/>
<CursorPos X="23" Y="10"/>
<UsageCount Value="4"/>
</Unit9>
<Unit10>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<UnitName Value="RxDBGridExportPdf"/>
<EditorIndex Value="-1"/>
<TopLine Value="472"/>
<CursorPos X="41" Y="488"/>
<UsageCount Value="57"/>
<Bookmarks Count="5">
<Item0 X="3" Y="457" ID="2"/>
<Item1 Y="421" ID="3"/>
<Item2 Y="610" ID="4"/>
<Item3 X="15" Y="334" ID="5"/>
<Item4 X="12" Y="646" ID="1"/>
</Bookmarks>
</Unit10>
<Unit11>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<UnitName Value="RxDBGridPrintGrid"/>
<EditorIndex Value="-1"/>
<TopLine Value="140"/>
<CursorPos X="3" Y="145"/>
<UsageCount Value="13"/>
</Unit11>
<Unit12>
<Filename Value="../../../OPTORG/alexs/1/1/testfppdf.lpr"/>
<EditorIndex Value="-1"/>
<TopLine Value="145"/>
<CursorPos X="13" Y="166"/>
<UsageCount Value="17"/>
</Unit12>
<Unit13>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-pdf/src/fpparsettf.pp"/>
<EditorIndex Value="-1"/>
<TopLine Value="344"/>
<CursorPos Y="365"/>
<UsageCount Value="9"/>
</Unit13>
<Unit14>
<Filename Value="../../../install/source/fpcsrc/rtl/objpas/sysutils/sysutilh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="97"/>
<CursorPos X="19" Y="112"/>
<UsageCount Value="3"/>
</Unit14>
<Unit15>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-pdf/src/fpttfencodings.pp"/>
<EditorIndex Value="-1"/>
<TopLine Value="2025"/>
<CursorPos X="3" Y="2100"/>
<UsageCount Value="3"/>
</Unit15>
<Unit16>
<Filename Value="../../../lazutils/lazfreetypefontcollection.pas"/>
<UnitName Value="LazFreeTypeFontCollection"/>
<EditorIndex Value="-1"/>
<TopLine Value="127"/>
<CursorPos X="50" Y="141"/>
<UsageCount Value="4"/>
</Unit16>
<Unit17>
<Filename Value="../../../lazutils/easylazfreetype.pas"/>
<UnitName Value="EasyLazFreeType"/>
<EditorIndex Value="-1"/>
<CursorPos X="14" Y="160"/>
<UsageCount Value="4"/>
</Unit17>
<Unit18>
<Filename Value="../../../../examples/lazfreetype/mainform.pas"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="-1"/>
<TopLine Value="51"/>
<CursorPos X="78" Y="61"/>
<UsageCount Value="3"/>
</Unit18>
<Unit19>
<Filename Value="../../../lazutils/ttfile.pas"/>
<UnitName Value="TTFile"/>
<EditorIndex Value="-1"/>
<TopLine Value="234"/>
<CursorPos X="4" Y="242"/>
<UsageCount Value="10"/>
</Unit19>
<Unit20>
<Filename Value="../../../install/source/fpcsrc/rtl/objpas/sysutils/finah.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="10"/>
<CursorPos X="10" Y="25"/>
<UsageCount Value="5"/>
</Unit20>
<Unit21>
<Filename Value="../../../install/source/fpcsrc/rtl/objpas/sysutils/fina.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="100"/>
<CursorPos X="3" Y="105"/>
<UsageCount Value="5"/>
</Unit21>
<Unit22>
<Filename Value="../../../install/source/fpcsrc/rtl/inc/fexpand.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="226"/>
<CursorPos X="10" Y="106"/>
<UsageCount Value="3"/>
</Unit22>
<Unit23>
<Filename Value="../../../tachart/tadraweropengl.pas"/>
<UnitName Value="TADrawerOpenGL"/>
<EditorIndex Value="-1"/>
<TopLine Value="218"/>
<CursorPos Y="220"/>
<UsageCount Value="9"/>
</Unit23>
<Unit24>
<Filename Value="../../../lazutils/fileutil.pas"/>
<UnitName Value="FileUtil"/>
<EditorIndex Value="-1"/>
<UsageCount Value="10"/>
</Unit24>
<Unit25>
<Filename Value="../../../lazutils/fileutil.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="1019"/>
<CursorPos X="3" Y="1024"/>
<UsageCount Value="10"/>
</Unit25>
<Unit26>
<Filename Value="../../../lazutils/lazfileutils.pas"/>
<UnitName Value="LazFileUtils"/>
<EditorIndex Value="-1"/>
<TopLine Value="719"/>
<CursorPos Y="736"/>
<UsageCount Value="3"/>
</Unit26>
<Unit27>
<Filename Value="../../../tachart/backup/tadraweropengl.pas"/>
<UnitName Value="TADrawerOpenGL"/>
<EditorIndex Value="-1"/>
<TopLine Value="208"/>
<CursorPos X="20" Y="224"/>
<UsageCount Value="3"/>
</Unit27>
<Unit28>
<Filename Value="unit1.lfm"/>
<EditorIndex Value="-1"/>
<TopLine Value="231"/>
<UsageCount Value="4"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit28>
<Unit29>
<Filename Value="../../../lazreport/source/lr_class.pas"/>
<UnitName Value="LR_Class"/>
<EditorIndex Value="-1"/>
<TopLine Value="3782"/>
<CursorPos X="13" Y="3780"/>
<UsageCount Value="10"/>
</Unit29>
<Unit30>
<Filename Value="../../../install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="76"/>
<CursorPos X="56" Y="91"/>
<UsageCount Value="6"/>
</Unit30>
<Unit31>
<Filename Value="../../../install/source/fpcsrc/rtl/objpas/sysutils/sysinth.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="122"/>
<CursorPos X="58" Y="137"/>
<UsageCount Value="4"/>
</Unit31>
<Unit32>
<Filename Value="../../vclutils.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="257"/>
<CursorPos X="11" Y="269"/>
<UsageCount Value="10"/>
</Unit32>
<Unit33>
<Filename Value="../../rxshortcutunit.pas"/>
<ComponentName Value="rxShortCutForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="rxShortCutUnit"/>
<EditorIndex Value="-1"/>
<TopLine Value="13"/>
<UsageCount Value="4"/>
</Unit33>
<Unit34>
<Filename Value="../../rxctrls.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="40"/>
<UsageCount Value="4"/>
</Unit34>
<Unit35>
<Filename Value="../../rxapputils.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="28"/>
<CursorPos X="83" Y="64"/>
<UsageCount Value="4"/>
</Unit35>
<Unit36>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/sqldb/sqldb.pp"/>
<EditorIndex Value="-1"/>
<TopLine Value="439"/>
<CursorPos X="3" Y="454"/>
<UsageCount Value="6"/>
</Unit36>
<Unit37>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/base/db.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="1339"/>
<CursorPos X="3" Y="1354"/>
<UsageCount Value="5"/>
</Unit37>
<Unit38>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/base/dataset.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="473"/>
<CursorPos X="3" Y="476"/>
<UsageCount Value="6"/>
</Unit38>
<Unit39>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/base/bufdataset.pas"/>
<UnitName Value="BufDataset"/>
<EditorIndex Value="-1"/>
<TopLine Value="458"/>
<CursorPos X="3" Y="446"/>
<UsageCount Value="6"/>
<Bookmarks Count="1">
<Item0 X="3" Y="3449" ID="1"/>
</Bookmarks>
</Unit39>
<Unit40>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/base/bufdataset_parser.pp"/>
<EditorIndex Value="-1"/>
<CursorPos X="20" Y="18"/>
<UsageCount Value="5"/>
</Unit40>
<Unit41>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/dbase/dbf_prscore.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="34"/>
<CursorPos X="3" Y="43"/>
<UsageCount Value="5"/>
</Unit41>
<Unit42>
<Filename Value="../../rxmemds.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="25"/>
<CursorPos X="47" Y="40"/>
<UsageCount Value="6"/>
<Bookmarks Count="1">
<Item0 X="33" Y="131" ID="2"/>
</Bookmarks>
</Unit42>
<Unit43>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/memds/memds.pp"/>
<EditorIndex Value="-1"/>
<TopLine Value="136"/>
<CursorPos X="14" Y="155"/>
<UsageCount Value="4"/>
</Unit43>
<Unit44>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/dbase/dbf.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="2336"/>
<CursorPos X="3" Y="2338"/>
<UsageCount Value="4"/>
</Unit44>
<Unit45>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/dbase/dbf_parser.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="162"/>
<CursorPos X="5" Y="87"/>
<UsageCount Value="4"/>
</Unit45>
<Unit46>
<Filename Value="../../rxdb/rxmemds_parser.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="186"/>
<CursorPos X="3" Y="189"/>
<UsageCount Value="5"/>
</Unit46>
<Unit47>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/dbase/dbf_common.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="95"/>
<CursorPos X="10" Y="110"/>
<UsageCount Value="5"/>
</Unit47>
<Unit48>
<Filename Value="../../../../lcl/grids.pas"/>
<UnitName Value="Grids"/>
<EditorIndex Value="-1"/>
<TopLine Value="11502"/>
<CursorPos Y="11522"/>
<UsageCount Value="14"/>
</Unit48>
<Unit49>
<Filename Value="../../../lazutils/lazfreetype.pas"/>
<UnitName Value="LazFreeType"/>
<EditorIndex Value="-1"/>
<TopLine Value="814"/>
<UsageCount Value="10"/>
</Unit49>
<Unit50>
<Filename Value="../../../lazutils/ttobjs.pas"/>
<UnitName Value="TTObjs"/>
<EditorIndex Value="-1"/>
<TopLine Value="364"/>
<CursorPos X="3" Y="382"/>
<UsageCount Value="13"/>
</Unit50>
<Unit51>
<Filename Value="../../../lazutils/tttables.pas"/>
<UnitName Value="TTTables"/>
<EditorIndex Value="-1"/>
<UsageCount Value="5"/>
</Unit51>
<Unit52>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<UnitName Value="DBGrids"/>
<EditorIndex Value="-1"/>
<TopLine Value="4071"/>
<CursorPos Y="4090"/>
<UsageCount Value="7"/>
</Unit52>
<Unit53>
<Filename Value="../../../../lcl/graphics.pp"/>
<UnitName Value="Graphics"/>
<EditorIndex Value="-1"/>
<CursorPos X="14" Y="17"/>
<UsageCount Value="13"/>
</Unit53>
<Unit54>
<Filename Value="../../../../lcl/lcltype.pp"/>
<UnitName Value="LCLType"/>
<EditorIndex Value="-1"/>
<TopLine Value="1629"/>
<CursorPos X="3" Y="1644"/>
<UsageCount Value="6"/>
</Unit54>
<Unit55>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-image/src/fpimage.pp"/>
<UnitName Value="FPimage"/>
<EditorIndex Value="-1"/>
<TopLine Value="37"/>
<CursorPos X="4" Y="45"/>
<UsageCount Value="6"/>
</Unit55>
<Unit56>
<Filename Value="../../rxdbgridexportpdfsetupunit.pas"/>
<ComponentName Value="RxDBGridExportPdfSetupForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGridExportPdfSetupUnit"/>
<EditorIndex Value="-1"/>
<TopLine Value="88"/>
<CursorPos X="78" Y="60"/>
<UsageCount Value="22"/>
</Unit56>
<Unit57>
<Filename Value="../../rxdbgridexportspreadsheet_paramsunit.pas"/>
<ComponentName Value="RxDBGridExportSpreadSheet_ParamsForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGridExportSpreadSheet_ParamsUnit"/>
<EditorIndex Value="-1"/>
<TopLine Value="31"/>
<CursorPos X="3" Y="46"/>
<UsageCount Value="10"/>
</Unit57>
<Unit58>
<Filename Value="../../../../lcl/controls.pp"/>
<UnitName Value="Controls"/>
<EditorIndex Value="-1"/>
<TopLine Value="5"/>
<CursorPos X="14" Y="19"/>
<UsageCount Value="6"/>
</Unit58>
<Unit59>
<Filename Value="/home/OPTORG/alexs/1/1/testfppdf.lpr"/>
<EditorIndex Value="-1"/>
<UsageCount Value="39"/>
</Unit59>
<Unit60>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/src/fppdf.pp"/>
<UnitName Value="fpPDF"/>
<EditorIndex Value="-1"/>
<TopLine Value="3194"/>
<CursorPos X="3" Y="3196"/>
<UsageCount Value="32"/>
</Unit60>
<Unit61>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="236"/>
<CursorPos X="3" Y="215"/>
<UsageCount Value="6"/>
</Unit61>
<Unit62>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
<EditorIndex Value="-1"/>
<TopLine Value="16"/>
<CursorPos X="3" Y="31"/>
<UsageCount Value="8"/>
</Unit62>
<Unit63>
<Filename Value="../../../../lcl/stdctrls.pp"/>
<UnitName Value="StdCtrls"/>
<EditorIndex Value="-1"/>
<TopLine Value="951"/>
<CursorPos X="14" Y="964"/>
<UsageCount Value="6"/>
</Unit63>
<Unit64>
<Filename Value="../../../lazutils/tterror.pas"/>
<UnitName Value="TTError"/>
<EditorIndex Value="-1"/>
<TopLine Value="34"/>
<CursorPos X="3" Y="49"/>
<UsageCount Value="10"/>
</Unit64>
<Unit65>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/src/fpparsettf.pp"/>
<EditorIndex Value="-1"/>
<TopLine Value="893"/>
<CursorPos X="3" Y="896"/>
<UsageCount Value="20"/>
</Unit65>
<Unit66>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/src/fpttfencodings.pp"/>
<EditorIndex Value="-1"/>
<UsageCount Value="20"/>
</Unit66>
<Unit67>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/src/fpttf.pp"/>
<UnitName Value="fpTTF"/>
<EditorIndex Value="-1"/>
<TopLine Value="17"/>
<CursorPos X="29" Y="21"/>
<UsageCount Value="25"/>
</Unit67>
<Unit68>
<Filename Value="../../../../lcl/include/canvas.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="1756"/>
<CursorPos X="3" Y="1765"/>
<UsageCount Value="10"/>
</Unit68>
<Unit69>
<Filename Value="../../../../lcl/include/winapih.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="136"/>
<CursorPos X="10" Y="151"/>
<UsageCount Value="9"/>
</Unit69>
<Unit70>
<Filename Value="../../../../lcl/include/intfbasewinapi.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="1161"/>
<CursorPos X="3" Y="1165"/>
<UsageCount Value="9"/>
</Unit70>
<Unit71>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/tests/fpttf_test.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="143"/>
<CursorPos X="13" Y="151"/>
<UsageCount Value="15"/>
</Unit71>
<Unit72>
<Filename Value="/home/install/source/fpcsrc/rtl/unix/sysunixh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="14"/>
<CursorPos X="2" Y="29"/>
<UsageCount Value="9"/>
</Unit72>
<Unit73>
<Filename Value="../../../lazutils/tttypes.pas"/>
<UnitName Value="TTTypes"/>
<EditorIndex Value="-1"/>
<TopLine Value="357"/>
<CursorPos X="12" Y="372"/>
<UsageCount Value="13"/>
</Unit73>
<Unit74>
<Filename Value="../../../lazutils/lazutf8.pas"/>
<UnitName Value="LazUTF8"/>
<EditorIndex Value="-1"/>
<TopLine Value="483"/>
<CursorPos X="3" Y="430"/>
<UsageCount Value="9"/>
</Unit74>
<Unit75>
<Filename Value="/home/install/source/fpcsrc/rtl/inc/ustringh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="125"/>
<CursorPos X="10" Y="140"/>
<UsageCount Value="9"/>
</Unit75>
<Unit76>
<Filename Value="/home/install/source/fpcsrc/rtl/inc/ustrings.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="1781"/>
<CursorPos X="10" Y="1796"/>
<UsageCount Value="9"/>
</Unit76>
<Unit77>
<Filename Value="/home/install/source/fpcsrc/rtl/inc/systemh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="550"/>
<CursorPos X="3" Y="565"/>
<UsageCount Value="9"/>
</Unit77>
<Unit78>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-image/src/fpimage.pp"/>
<UnitName Value="FPimage"/>
<EditorIndex Value="-1"/>
<TopLine Value="10"/>
<CursorPos X="3" Y="25"/>
<UsageCount Value="15"/>
</Unit78>
<Unit79>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-image/src/fpreadbmp.pp"/>
<UnitName Value="FPReadBMP"/>
<EditorIndex Value="-1"/>
<TopLine Value="25"/>
<CursorPos X="15" Y="33"/>
<UsageCount Value="10"/>
</Unit79>
<Unit80>
<Filename Value="../../rxdbgridprintgrid_setupunit.pas"/>
<ComponentName Value="RxDBGridPrintGrid_SetupForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGridPrintGrid_SetupUnit"/>
<EditorIndex Value="-1"/>
<TopLine Value="17"/>
<CursorPos Y="99"/>
<UsageCount Value="12"/>
</Unit80>
<Unit81>
<Filename Value="../../../../lcl/include/customcombobox.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="927"/>
<CursorPos Y="946"/>
<UsageCount Value="10"/>
</Unit81>
<Unit82>
<Filename Value="../../../wst/type_lib_edtr/edit_helper.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="412"/>
<CursorPos X="19" Y="428"/>
<UsageCount Value="10"/>
</Unit82>
<Unit83>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-passrc/src/pastree.pp"/>
<UnitName Value="PasTree"/>
<EditorIndex Value="-1"/>
<TopLine Value="572"/>
<CursorPos X="3" Y="575"/>
<UsageCount Value="10"/>
</Unit83>
<Unit84>
<Filename Value="../../../wst/type_lib_edtr/uinterfaceedit.pas"/>
<EditorIndex Value="-1"/>
<CursorPos X="11" Y="13"/>
<UsageCount Value="10"/>
</Unit84>
<Unit85>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/>
<UnitName Value="RxDBGridExportPdf"/>
<EditorIndex Value="-1"/>
<TopLine Value="409"/>
<CursorPos X="24" Y="412"/>
<UsageCount Value="11"/>
</Unit85>
<Unit86>
<Filename Value="E:/install/source/fpcsrc/packages/fcl-pdf/src/fppdf.pp"/>
<UnitName Value="fpPDF"/>
<EditorIndex Value="-1"/>
<TopLine Value="1026"/>
<CursorPos X="15" Y="1039"/>
<UsageCount Value="11"/>
</Unit86>
<Unit87>
<Filename Value="../../../../../1/fcl-pdf/fpmake.pp"/>
<EditorIndex Value="-1"/>
<UsageCount Value="10"/>
</Unit87>
<Unit88>
<Filename Value="../../../../../1/fcl-pdf/examples/testfppdf.lpr"/>
<EditorIndex Value="-1"/>
<TopLine Value="75"/>
<CursorPos Y="81"/>
<UsageCount Value="11"/>
</Unit88>
<Unit89>
<Filename Value="E:/install/source/fpcsrc/packages/fcl-pdf/src/fpttf.pp"/>
<UnitName Value="fpTTF"/>
<EditorIndex Value="-1"/>
<TopLine Value="433"/>
<CursorPos X="3" Y="438"/>
<UsageCount Value="10"/>
</Unit89>
<Unit90>
<Filename Value="../../../rxdb/rxdbgridexportpdf.pas"/>
<UnitName Value="RxDBGridExportPdf"/>
<EditorIndex Value="1"/>
<TopLine Value="110"/>
<CursorPos X="3" Y="129"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit90>
<Unit91>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<EditorIndex Value="2"/>
<TopLine Value="4085"/>
<CursorPos X="49" Y="4089"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit91>
</Units>
<JumpHistory Count="27" HistoryIndex="26">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="135" Column="9" TopLine="14"/>
</Position1>
<Position2>
<Filename Value="../../../rxdb/rxdbgridexportpdf.pas"/>
<Caret Line="129" Column="3" TopLine="110"/>
</Position2>
<Position3>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="1173" Column="35" TopLine="1154"/>
</Position3>
<Position4>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="2350" Column="18" TopLine="2343"/>
</Position4>
<Position5>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="1173" Column="17" TopLine="1154"/>
</Position5>
<Position6>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="1167" Column="15" TopLine="1154"/>
</Position6>
<Position7>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="2301" Column="3" TopLine="2299"/>
</Position7>
<Position8>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="877" Column="15" TopLine="860"/>
</Position8>
<Position9>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="4083" Column="3" TopLine="4071"/>
</Position9>
<Position10>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="879" Column="63" TopLine="860"/>
</Position10>
<Position11>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="4113" Column="5" TopLine="4109"/>
</Position11>
<Position12>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="877" Column="15" TopLine="862"/>
</Position12>
<Position13>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="4092" Column="28" TopLine="4072"/>
</Position13>
<Position14>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="879" Column="15" TopLine="860"/>
</Position14>
<Position15>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="4122" TopLine="4094"/>
</Position15>
<Position16>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="879" Column="15" TopLine="862"/>
</Position16>
<Position17>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="55" Column="3" TopLine="35"/>
</Position17>
<Position18>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="56" Column="25" TopLine="35"/>
</Position18>
<Position19>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="878" Column="53" TopLine="848"/>
</Position19>
<Position20>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="880" Column="61" TopLine="850"/>
</Position20>
<Position21>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="1154" Column="27" TopLine="1121"/>
</Position21>
<Position22>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="1168" Column="25" TopLine="1148"/>
</Position22>
<Position23>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="2305" TopLine="2300"/>
</Position23>
<Position24>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="1163" Column="15" TopLine="1149"/>
</Position24>
<Position25>
<Filename Value="unit1.pas"/>
<Caret Line="135" Column="9" TopLine="14"/>
</Position25>
<Position26>
<Filename Value="unit1.pas"/>
<Caret Line="137" Column="9" TopLine="100"/>
</Position26>
<Position27>
<Filename Value="unit1.pas"/>
<Caret Line="146" Column="48" TopLine="133"/>
</Position27>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0" ActiveMode="default"/>
</RunParams>
</ProjectSession>
<Debugging>
<BreakPoints Count="2">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsLocal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="../../../lazutils/lazfreetypefontcollection.pas"/>
<Line Value="423"/>
</Item1>
<Item2>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsLocal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="/home/install/source/fpcsrc/packages/fcl-pdf/src/fpttf.pp"/>
<Line Value="320"/>
</Item2>
</BreakPoints>
<Watches Count="2">
<Item1>
<Expression Value="i"/>
</Item1>
<Item2>
<Expression Value="FPosY"/>
</Item2>
</Watches>
</Debugging>
</CONFIG>

View File

@ -1,227 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<Version Value="11"/>
<BuildModes Active="Default"/>
<Units Count="10">
<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"/>
<IsVisibleTab Value="True"/>
<TopLine Value="41"/>
<CursorPos X="78" Y="63"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/sysutils/dati.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="735"/>
<CursorPos Y="754"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<EditorIndex Value="2"/>
<TopLine Value="848"/>
<CursorPos X="17" Y="879"/>
<UsageCount Value="10"/>
<Bookmarks Count="2">
<Item0 Y="311" ID="1"/>
<Item1 X="30" Y="7484" ID="2"/>
</Bookmarks>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="/usr/local/share/lazarus/lcl/dbgrids.pas"/>
<UnitName Value="DBGrids"/>
<EditorIndex Value="4"/>
<TopLine Value="2725"/>
<CursorPos X="3" Y="2730"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit4>
<Unit5>
<Filename Value="/usr/local/share/lazarus/lcl/graphics.pp"/>
<UnitName Value="Graphics"/>
<EditorIndex Value="3"/>
<TopLine Value="557"/>
<CursorPos X="22" Y="580"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit5>
<Unit6>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/>
<UnitName Value="Grids"/>
<EditorIndex Value="5"/>
<TopLine Value="5269"/>
<CursorPos Y="5278"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit6>
<Unit7>
<Filename Value="/usr/local/share/lazarus/lcl/include/font.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="760"/>
<CursorPos X="3" Y="765"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="unit1.lfm"/>
<EditorIndex Value="-1"/>
<CursorPos X="7" Y="12"/>
<FoldState Value=" T0B2}= T1mfEj1;"/>
<UsageCount Value="10"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit8>
<Unit9>
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/sysutils/sysinth.inc"/>
<EditorIndex Value="1"/>
<TopLine Value="84"/>
<CursorPos X="45" Y="103"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit9>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="7455" Column="3" TopLine="7451"/>
</Position1>
<Position2>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="409" Column="14" TopLine="389"/>
</Position2>
<Position3>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="7428" Column="3" TopLine="7426"/>
</Position3>
<Position4>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="410" Column="14" TopLine="392"/>
</Position4>
<Position5>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="7436" Column="3" TopLine="7432"/>
</Position5>
<Position6>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="411" Column="14" TopLine="393"/>
</Position6>
<Position7>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="7441" Column="3" TopLine="7437"/>
</Position7>
<Position8>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="412" Column="14" TopLine="394"/>
</Position8>
<Position9>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="7446" Column="3" TopLine="7442"/>
</Position9>
<Position10>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="569" Column="27" TopLine="558"/>
</Position10>
<Position11>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="1332" Column="3" TopLine="1330"/>
</Position11>
<Position12>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="569" Column="15" TopLine="550"/>
</Position12>
<Position13>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="1332" Column="36" TopLine="1330"/>
</Position13>
<Position14>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="571" Column="15" TopLine="550"/>
</Position14>
<Position15>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="1355" Column="3" TopLine="1353"/>
</Position15>
<Position16>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="572" Column="14" TopLine="552"/>
</Position16>
<Position17>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="1360" Column="3" TopLine="1358"/>
</Position17>
<Position18>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="576" Column="14" TopLine="553"/>
</Position18>
<Position19>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="1385" TopLine="1381"/>
</Position19>
<Position20>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="587" Column="15" TopLine="557"/>
</Position20>
<Position21>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
<Caret Line="1520" Column="3" TopLine="1518"/>
</Position21>
<Position22>
<Filename Value="unit1.pas"/>
<Caret Line="121" Column="12" TopLine="98"/>
</Position22>
<Position23>
<Filename Value="unit1.pas"/>
<Caret Line="42" Column="15" TopLine="20"/>
</Position23>
<Position24>
<Filename Value="unit1.pas"/>
<Caret Line="93" Column="8" TopLine="73"/>
</Position24>
<Position25>
<Filename Value="unit1.pas"/>
<Caret Line="38" Column="14" TopLine="24"/>
</Position25>
<Position26>
<Filename Value="unit1.pas"/>
<Caret Line="101" Column="3" TopLine="98"/>
</Position26>
<Position27>
<Filename Value="unit1.pas"/>
<Caret Line="40" Column="15" TopLine="20"/>
</Position27>
<Position28>
<Filename Value="unit1.pas"/>
<Caret Line="67" TopLine="56"/>
</Position28>
<Position29>
<Filename Value="unit1.pas"/>
<Caret Line="42" Column="14" TopLine="24"/>
</Position29>
<Position30>
<Filename Value="unit1.pas"/>
<Caret Line="93" Column="12" TopLine="41"/>
</Position30>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0" ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>

View File

@ -1,247 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<Version Value="10"/>
<BuildModes Active="Default"/>
<Units Count="12">
<Unit0>
<Filename Value="WordWrapDemo.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<WindowIndex Value="-1"/>
<TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/>
<UsageCount Value="31"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<TopLine Value="57"/>
<CursorPos X="3" Y="63"/>
<UsageCount Value="31"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="504"/>
<CursorPos X="20" Y="518"/>
<UsageCount Value="16"/>
<Bookmarks Count="4">
<Item0 X="7" Y="4721" ID="3"/>
<Item1 Y="616" ID="4"/>
<Item2 X="3" Y="4998" ID="1"/>
<Item3 X="49" Y="362" ID="2"/>
</Bookmarks>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="../../../../../lcl/dbgrids.pas"/>
<UnitName Value="DBGrids"/>
<EditorIndex Value="4"/>
<TopLine Value="2880"/>
<CursorPos Y="2901"/>
<UsageCount Value="16"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="../../../../../lcl/grids.pas"/>
<UnitName Value="Grids"/>
<EditorIndex Value="5"/>
<TopLine Value="2482"/>
<CursorPos X="3" Y="2484"/>
<UsageCount Value="16"/>
<Loaded Value="True"/>
</Unit4>
<Unit5>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-db/src/base/db.pas"/>
<EditorIndex Value="3"/>
<TopLine Value="1560"/>
<CursorPos X="15" Y="1578"/>
<UsageCount Value="16"/>
<Loaded Value="True"/>
</Unit5>
<Unit6>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-db/src/base/datasource.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="199"/>
<CursorPos X="3" Y="202"/>
<UsageCount Value="8"/>
</Unit6>
<Unit7>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-db/src/base/dataset.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="1284"/>
<CursorPos X="3" Y="1287"/>
<UsageCount Value="8"/>
</Unit7>
<Unit8>
<Filename Value="../../../../../lcl/include/wincontrol.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="5739"/>
<CursorPos Y="5757"/>
<UsageCount Value="8"/>
</Unit8>
<Unit9>
<Filename Value="../../../../../lcl/include/winapi.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="929"/>
<CursorPos Y="949"/>
<UsageCount Value="8"/>
</Unit9>
<Unit10>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="473"/>
<CursorPos X="3" Y="480"/>
<UsageCount Value="10"/>
</Unit10>
<Unit11>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/collect.inc"/>
<EditorIndex Value="2"/>
<TopLine Value="289"/>
<CursorPos X="3" Y="291"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit11>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="6448" Column="54" TopLine="6435"/>
</Position1>
<Position2>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="5032" Column="9" TopLine="5000"/>
</Position2>
<Position3>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="4943" Column="17" TopLine="4928"/>
</Position3>
<Position4>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="5053" Column="3" TopLine="5021"/>
</Position4>
<Position5>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="5058" TopLine="5024"/>
</Position5>
<Position6>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="5051" Column="35" TopLine="5041"/>
</Position6>
<Position7>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="796" Column="15" TopLine="780"/>
</Position7>
<Position8>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="362" Column="49" TopLine="342"/>
</Position8>
<Position9>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="589" TopLine="570"/>
</Position9>
<Position10>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="362" Column="49" TopLine="343"/>
</Position10>
<Position11>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="5042" Column="33" TopLine="5037"/>
</Position11>
<Position12>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="5116" Column="40" TopLine="5038"/>
</Position12>
<Position13>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="515" Column="48" TopLine="490"/>
</Position13>
<Position14>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="522" Column="21" TopLine="496"/>
</Position14>
<Position15>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="525" Column="76" TopLine="493"/>
</Position15>
<Position16>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="1173" TopLine="1168"/>
</Position16>
<Position17>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="474" Column="49" TopLine="448"/>
</Position17>
<Position18>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="2057" Column="3" TopLine="2055"/>
</Position18>
<Position19>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="535" Column="56" TopLine="509"/>
</Position19>
<Position20>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="1176" Column="3" TopLine="1173"/>
</Position20>
<Position21>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="471" Column="15" TopLine="466"/>
</Position21>
<Position22>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="2063" TopLine="2060"/>
</Position22>
<Position23>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="535" Column="65" TopLine="470"/>
</Position23>
<Position24>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="530" Column="58" TopLine="528"/>
</Position24>
<Position25>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="1176" Column="3" TopLine="1174"/>
</Position25>
<Position26>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="471" Column="14" TopLine="453"/>
</Position26>
<Position27>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="2069" TopLine="2066"/>
</Position27>
<Position28>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="530" Column="14" TopLine="499"/>
</Position28>
<Position29>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="1176" Column="21" TopLine="1174"/>
</Position29>
<Position30>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="529" Column="3" TopLine="512"/>
</Position30>
</JumpHistory>
</ProjectSession>
<Debugging>
<Watches Count="2">
<Item1>
<Expression Value="H1"/>
</Item1>
<Item2>
<Expression Value="H"/>
</Item2>
</Watches>
</Debugging>
</CONFIG>

View File

@ -7234,8 +7234,6 @@ end;
function TRxColumn.GetKeyList: TStrings;
begin
if FKeyList = nil then
FKeyList := TStringList.Create;
Result := FKeyList;
end;
@ -7299,10 +7297,7 @@ end;
procedure TRxColumn.SetKeyList(const AValue: TStrings);
begin
if AValue = nil then
begin
if FKeyList <> nil then
FKeyList.Clear;
end
FKeyList.Clear
else
KeyList.Assign(AValue);
end;
@ -7340,6 +7335,7 @@ end;
constructor TRxColumn.Create(ACollection: TCollection);
begin
inherited Create(ACollection);
FKeyList := TStringList.Create;
FNotInKeyListIndex := -1;
FConstraints:=TRxDBGridCollumnConstraints.Create(Self);
FFooter := TRxColumnFooterItem.Create(nil);
@ -7359,11 +7355,7 @@ begin
FreeAndNil(FGroupParam);
FreeAndNil(FFooters);
FreeAndNil(FEditButtons);
if FKeyList <> nil then
begin
FKeyList.Free;
FKeyList := nil;
end;
FreeAndNil(FKeyList);
FreeAndNil(FFooter);
FreeAndNil(FFilter);
FreeAndNil(FConstraints);

View File

@ -433,7 +433,6 @@ var
Result := UTF8CompareStr(S, S1) = 0;
end;
end
// else Result := false //(Field.Value = Value);
else Result := (Field.Value = Value);
end;
@ -443,10 +442,15 @@ var
begin
if FieldCount = 1 then
Result := CompareField(TField(Fields.First), KeyValues)
else begin
else
begin
Result := True;
for I := 0 to FieldCount - 1 do
Result := Result and CompareField(TField(Fields[I]), KeyValues[I]);
begin
//Result := Result and CompareField(TField(Fields[I]), KeyValues[I]);
if not CompareField(TField(Fields[I]), KeyValues[I]) then
Exit(false);
end;
end;
end;

View File

@ -104,12 +104,18 @@ type
FValueChecked: string;
FValueUnchecked: string;
FWidth: Integer;
FKeyList: TStrings;
FPickList: TStrings;
function GetKeyList: TStrings;
function GetPickList: TStrings;
procedure SetAlignment(const AValue: TAlignment);
procedure SetColor(const AValue: TColor);
procedure SetDisplayFormat(const AValue: string);
procedure SetFieldName(const AValue: string);
procedure SetFont(const AValue: TFont);
procedure SetImageList(const AValue: TImageList);
procedure SetKeyList(AValue: TStrings);
procedure SetPickList(AValue: TStrings);
procedure SetSizePriority(AValue: Integer);
procedure SetTitle(const AValue: TPopUpColumnTitle);
procedure SetValueChecked(const AValue: string);
@ -132,6 +138,8 @@ type
property SizePriority: Integer read FSizePriority write SetSizePriority default 1;
property Title:TPopUpColumnTitle read FTitle write SetTitle;
property Width: Integer read FWidth write SetWidth;
property KeyList: TStrings read GetKeyList write SetKeyList;
property PickList: TStrings read GetPickList write SetPickList;
end;
{ TPopUpFormColumns }
@ -433,33 +441,35 @@ end;
procedure TPopUpForm.DoSetFieldsFromColList;
var
GK:TRxColumn;
GC:TRxColumn;
i:integer;
Column:TPopUpColumn;
begin
FGrid.BeginUpdate;
for i:=0 to FPopUpFormOptions.Columns.Count - 1 do
begin
GK:=FGrid.Columns.Add as TRxColumn;
GC:=FGrid.Columns.Add as TRxColumn;
Column:=FPopUpFormOptions.Columns[i];
GK.Field:=FGrid.DataSource.DataSet.FieldByName(Column.FieldName);
GK.Alignment:=Column.Alignment;
GK.Color:=Column.Color;
GK.DisplayFormat:=Column.DisplayFormat;
// GK.Font:=Column.Font;
GK.ImageList:=Column.ImageList;
GK.SizePriority:=Column.SizePriority;
GK.ValueChecked:=Column.ValueChecked;
GK.ValueUnchecked:=Column.ValueUnchecked;
GC.Field:=FGrid.DataSource.DataSet.FieldByName(Column.FieldName);
GC.Alignment:=Column.Alignment;
GC.Color:=Column.Color;
GC.DisplayFormat:=Column.DisplayFormat;
// GC.Font:=Column.Font;
GC.ImageList:=Column.ImageList;
GC.SizePriority:=Column.SizePriority;
GC.ValueChecked:=Column.ValueChecked;
GC.ValueUnchecked:=Column.ValueUnchecked;
if Column.Width<>0 then
GK.Width:=Column.Width;
GC.Width:=Column.Width;
GK.Title.Color:=Column.Title.Color;
(GK.Title as TRxColumnTitle).Orientation:=Column.Title.Orientation;
GK.Title.Alignment:=Column.Title.Alignment;
GK.Title.Layout:=Column.Title.Layout;
GK.Title.Caption:=Column.Title.Caption;
GC.Title.Color:=Column.Title.Color;
(GC.Title as TRxColumnTitle).Orientation:=Column.Title.Orientation;
GC.Title.Alignment:=Column.Title.Alignment;
GC.Title.Layout:=Column.Title.Layout;
GC.Title.Caption:=Column.Title.Caption;
GC.KeyList.Assign(Column.KeyList);
GC.PickList.Assign(Column.PickList);
end;
FGrid.EndUpdate;
end;
@ -754,6 +764,16 @@ begin
FAlignment:=AValue;
end;
function TPopUpColumn.GetKeyList: TStrings;
begin
Result := FKeyList;
end;
function TPopUpColumn.GetPickList: TStrings;
begin
Result := FPickList;
end;
procedure TPopUpColumn.SetColor(const AValue: TColor);
begin
if FColor=AValue then exit;
@ -786,6 +806,22 @@ begin
FImageList:=AValue;
end;
procedure TPopUpColumn.SetKeyList(AValue: TStrings);
begin
if AValue = nil then
FKeyList.Clear
else
FKeyList.Assign(AValue);
end;
procedure TPopUpColumn.SetPickList(AValue: TStrings);
begin
if AValue = nil then
FPickList.Clear
else
FPickList.Assign(AValue);
end;
procedure TPopUpColumn.SetSizePriority(AValue: Integer);
begin
if FSizePriority=AValue then Exit;
@ -830,6 +866,8 @@ end;
constructor TPopUpColumn.Create(ACollection: TCollection);
begin
inherited Create(ACollection);
FKeyList:=TStringList.Create;
FPickList:=TStringList.Create;
FTitle:=TPopUpColumnTitle.Create;
FColor:=clWindow;
FWidth:=65;
@ -838,6 +876,8 @@ end;
destructor TPopUpColumn.Destroy;
begin
FreeAndNil(FKeyList);
FreeAndNil(FPickList);
FreeAndNil(FTitle);
inherited Destroy;
end;