pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:add property Enabled for all RxDBGrid tools

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6167 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-02-02 10:42:27 +00:00
parent cf916d308e
commit 55c15c19b3
7 changed files with 976 additions and 944 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
components/rx/trunk/demos/rxdbgrid/RxDBGrid/RxDBGridDemo.lpi
View File

@@ -74,8 +74,7 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGridMainUnit"/> <UnitName Value="RxDBGridMainUnit"/>
<TopLine Value="152"/> <CursorPos X="31" Y="28"/>
<CursorPos X="138" Y="188"/>
<UsageCount Value="130"/> <UsageCount Value="130"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@@ -477,13 +476,14 @@
</Unit56> </Unit56>
<Unit57> <Unit57>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="5415"/> <TopLine Value="1143"/>
<CursorPos Y="5428"/> <CursorPos X="15" Y="1162"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
<Bookmarks Count="2"> <Bookmarks Count="2">
<Item0 X="3" Y="7315" ID="1"/> <Item0 X="3" Y="7324" ID="1"/>
<Item1 X="17" Y="4357" ID="2"/> <Item1 X="17" Y="4366" ID="2"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit57> </Unit57>
@@ -514,7 +514,6 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGrid_PopUpFilterUnit"/> <UnitName Value="RxDBGrid_PopUpFilterUnit"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="6"/> <EditorIndex Value="6"/>
<TopLine Value="216"/> <TopLine Value="216"/>
<CursorPos X="3" Y="224"/> <CursorPos X="3" Y="224"/>
@@ -634,8 +633,8 @@
<Filename Value="../../../rxdbgrid_export_spreadsheet/rxdbgridexportspreadsheet.pas"/> <Filename Value="../../../rxdbgrid_export_spreadsheet/rxdbgridexportspreadsheet.pas"/>
<UnitName Value="RxDBGridExportSpreadSheet"/> <UnitName Value="RxDBGridExportSpreadSheet"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<TopLine Value="160"/> <TopLine Value="40"/>
<CursorPos X="3" Y="142"/> <CursorPos X="3" Y="59"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit76> </Unit76>
@@ -643,123 +642,122 @@
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="232" TopLine="216"/> <Caret Line="234" TopLine="216"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="234" TopLine="216"/> <Caret Line="235" TopLine="216"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="235" TopLine="216"/> <Caret Line="236" TopLine="216"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="236" TopLine="216"/> <Caret Line="232" TopLine="216"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="232" TopLine="216"/> <Caret Line="234" TopLine="216"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="234" TopLine="216"/> <Caret Line="235" TopLine="216"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="235" TopLine="216"/> <Caret Line="236" TopLine="216"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="236" TopLine="216"/> <Caret Line="232" TopLine="216"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="232" TopLine="216"/> <Caret Line="234" TopLine="216"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="234" TopLine="216"/> <Caret Line="235" TopLine="216"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="235" TopLine="216"/> <Caret Line="236" TopLine="216"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="236" TopLine="216"/> <Caret Line="232" TopLine="216"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="232" TopLine="216"/> <Caret Line="234" TopLine="216"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="234" TopLine="216"/> <Caret Line="235" TopLine="216"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="235" TopLine="216"/> <Caret Line="236" TopLine="216"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="236" TopLine="216"/> <Caret Line="232" TopLine="216"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="232" TopLine="216"/> <Caret Line="240" TopLine="216"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="234" TopLine="216"/> <Caret Line="243" TopLine="216"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="235" TopLine="216"/> <Caret Line="246" TopLine="216"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="236" TopLine="216"/> <Caret Line="241" Column="22" TopLine="216"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="232" TopLine="216"/> <Caret Line="248" Column="39" TopLine="216"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="234" TopLine="216"/> <Caret Line="188" Column="138" TopLine="152"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="235" TopLine="216"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="236" TopLine="216"/> <Caret Line="28" Column="31"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdbgrid_export_spreadsheet/rxdbgridexportspreadsheet.pas"/>
<Caret Line="232" TopLine="216"/> <Caret Line="59" Column="3" TopLine="40"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="240" TopLine="216"/> <Caret Line="1182" Column="61" TopLine="1151"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="243" TopLine="216"/> <Caret Line="2340" Column="3" TopLine="2338"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="246" TopLine="216"/> <Caret Line="1182" Column="15" TopLine="1164"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="241" Column="22" TopLine="216"/> <Caret Line="1162" Column="15" TopLine="1143"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="248" Column="39" TopLine="216"/> <Caret Line="2341" Column="3" TopLine="2338"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

9
components/rx/trunk/demos/rxdbgrid/RxDbGridExportToPDF/project1.lpi
View File

@@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="11"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
@@ -17,9 +17,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="3"> <RequiredPackages Count="3">
<Item1> <Item1>

423
components/rx/trunk/demos/rxdbgrid/RxDbGridExportToPDF/project1.lps
View File

@@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectSession> <ProjectSession>
<Version Value="10"/> <Version Value="11"/>
<BuildModes Active="Default"/> <BuildModes Active="Default"/>
<Units Count="92"> <Units Count="92">
<Unit0> <Unit0>
@@ -18,8 +18,9 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="132"/> <TopLine Value="132"/>
<CursorPos X="35" Y="137"/> <CursorPos X="48" Y="146"/>
<UsageCount Value="120"/> <UsageCount Value="120"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@@ -138,17 +139,16 @@
<Filename Value="../../../lazutils/lazfreetypefontcollection.pas"/> <Filename Value="../../../lazutils/lazfreetypefontcollection.pas"/>
<UnitName Value="LazFreeTypeFontCollection"/> <UnitName Value="LazFreeTypeFontCollection"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="331"/> <TopLine Value="127"/>
<CursorPos Y="352"/> <CursorPos X="50" Y="141"/>
<UsageCount Value="34"/> <UsageCount Value="4"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="../../../lazutils/easylazfreetype.pas"/> <Filename Value="../../../lazutils/easylazfreetype.pas"/>
<UnitName Value="EasyLazFreeType"/> <UnitName Value="EasyLazFreeType"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1214"/> <CursorPos X="14" Y="160"/>
<CursorPos X="13" Y="1224"/> <UsageCount Value="4"/>
<UsageCount Value="36"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="../../../../examples/lazfreetype/mainform.pas"/> <Filename Value="../../../../examples/lazfreetype/mainform.pas"/>
@@ -242,42 +242,27 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit29> </Unit29>
<Unit30> <Unit30>
<Filename Value="../../../lazutils/easylazfreetype.pas"/>
<UnitName Value="EasyLazFreeType"/>
<EditorIndex Value="-1"/>
<CursorPos X="14" Y="160"/>
<UsageCount Value="4"/>
</Unit30>
<Unit31>
<Filename Value="../../../lazutils/lazfreetypefontcollection.pas"/>
<UnitName Value="LazFreeTypeFontCollection"/>
<EditorIndex Value="-1"/>
<TopLine Value="127"/>
<CursorPos X="50" Y="141"/>
<UsageCount Value="4"/>
</Unit31>
<Unit32>
<Filename Value="../../../install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="76"/> <TopLine Value="76"/>
<CursorPos X="56" Y="91"/> <CursorPos X="56" Y="91"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit32> </Unit30>
<Unit33> <Unit31>
<Filename Value="../../../install/source/fpcsrc/rtl/objpas/sysutils/sysinth.inc"/> <Filename Value="../../../install/source/fpcsrc/rtl/objpas/sysutils/sysinth.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="122"/> <TopLine Value="122"/>
<CursorPos X="58" Y="137"/> <CursorPos X="58" Y="137"/>
<UsageCount Value="4"/> <UsageCount Value="4"/>
</Unit33> </Unit31>
<Unit34> <Unit32>
<Filename Value="../../vclutils.pas"/> <Filename Value="../../vclutils.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="257"/> <TopLine Value="257"/>
<CursorPos X="11" Y="269"/> <CursorPos X="11" Y="269"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit34> </Unit32>
<Unit35> <Unit33>
<Filename Value="../../rxshortcutunit.pas"/> <Filename Value="../../rxshortcutunit.pas"/>
<ComponentName Value="rxShortCutForm"/> <ComponentName Value="rxShortCutForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
@@ -286,42 +271,42 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="13"/> <TopLine Value="13"/>
<UsageCount Value="4"/> <UsageCount Value="4"/>
</Unit35> </Unit33>
<Unit36> <Unit34>
<Filename Value="../../rxctrls.pas"/> <Filename Value="../../rxctrls.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="40"/> <TopLine Value="40"/>
<UsageCount Value="4"/> <UsageCount Value="4"/>
</Unit36> </Unit34>
<Unit37> <Unit35>
<Filename Value="../../rxapputils.pas"/> <Filename Value="../../rxapputils.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="28"/> <TopLine Value="28"/>
<CursorPos X="83" Y="64"/> <CursorPos X="83" Y="64"/>
<UsageCount Value="4"/> <UsageCount Value="4"/>
</Unit37> </Unit35>
<Unit38> <Unit36>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/sqldb/sqldb.pp"/> <Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/sqldb/sqldb.pp"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="439"/> <TopLine Value="439"/>
<CursorPos X="3" Y="454"/> <CursorPos X="3" Y="454"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit38> </Unit36>
<Unit39> <Unit37>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/base/db.pas"/> <Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/base/db.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1339"/> <TopLine Value="1339"/>
<CursorPos X="3" Y="1354"/> <CursorPos X="3" Y="1354"/>
<UsageCount Value="5"/> <UsageCount Value="5"/>
</Unit39> </Unit37>
<Unit40> <Unit38>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/base/dataset.inc"/> <Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/base/dataset.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="473"/> <TopLine Value="473"/>
<CursorPos X="3" Y="476"/> <CursorPos X="3" Y="476"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit40> </Unit38>
<Unit41> <Unit39>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/base/bufdataset.pas"/> <Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/base/bufdataset.pas"/>
<UnitName Value="BufDataset"/> <UnitName Value="BufDataset"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
@@ -331,21 +316,21 @@
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="3" Y="3449" ID="1"/> <Item0 X="3" Y="3449" ID="1"/>
</Bookmarks> </Bookmarks>
</Unit41> </Unit39>
<Unit42> <Unit40>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/base/bufdataset_parser.pp"/> <Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/base/bufdataset_parser.pp"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="20" Y="18"/> <CursorPos X="20" Y="18"/>
<UsageCount Value="5"/> <UsageCount Value="5"/>
</Unit42> </Unit40>
<Unit43> <Unit41>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/dbase/dbf_prscore.pas"/> <Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/dbase/dbf_prscore.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="34"/> <TopLine Value="34"/>
<CursorPos X="3" Y="43"/> <CursorPos X="3" Y="43"/>
<UsageCount Value="5"/> <UsageCount Value="5"/>
</Unit43> </Unit41>
<Unit44> <Unit42>
<Filename Value="../../rxmemds.pas"/> <Filename Value="../../rxmemds.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="25"/> <TopLine Value="25"/>
@@ -354,104 +339,103 @@
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="33" Y="131" ID="2"/> <Item0 X="33" Y="131" ID="2"/>
</Bookmarks> </Bookmarks>
</Unit44> </Unit42>
<Unit45> <Unit43>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/memds/memds.pp"/> <Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/memds/memds.pp"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="136"/> <TopLine Value="136"/>
<CursorPos X="14" Y="155"/> <CursorPos X="14" Y="155"/>
<UsageCount Value="4"/> <UsageCount Value="4"/>
</Unit45> </Unit43>
<Unit46> <Unit44>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/dbase/dbf.pas"/> <Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/dbase/dbf.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="2336"/> <TopLine Value="2336"/>
<CursorPos X="3" Y="2338"/> <CursorPos X="3" Y="2338"/>
<UsageCount Value="4"/> <UsageCount Value="4"/>
</Unit46> </Unit44>
<Unit47> <Unit45>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/dbase/dbf_parser.pas"/> <Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/dbase/dbf_parser.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="162"/> <TopLine Value="162"/>
<CursorPos X="5" Y="87"/> <CursorPos X="5" Y="87"/>
<UsageCount Value="4"/> <UsageCount Value="4"/>
</Unit47> </Unit45>
<Unit48> <Unit46>
<Filename Value="../../rxdb/rxmemds_parser.pas"/> <Filename Value="../../rxdb/rxmemds_parser.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="186"/> <TopLine Value="186"/>
<CursorPos X="3" Y="189"/> <CursorPos X="3" Y="189"/>
<UsageCount Value="5"/> <UsageCount Value="5"/>
</Unit48> </Unit46>
<Unit49> <Unit47>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/dbase/dbf_common.pas"/> <Filename Value="../../../install/source/fpcsrc/packages/fcl-db/src/dbase/dbf_common.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="95"/> <TopLine Value="95"/>
<CursorPos X="10" Y="110"/> <CursorPos X="10" Y="110"/>
<UsageCount Value="5"/> <UsageCount Value="5"/>
</Unit49> </Unit47>
<Unit50> <Unit48>
<Filename Value="../../../../lcl/grids.pas"/> <Filename Value="../../../../lcl/grids.pas"/>
<UnitName Value="Grids"/> <UnitName Value="Grids"/>
<EditorIndex Value="2"/> <EditorIndex Value="-1"/>
<TopLine Value="11502"/> <TopLine Value="11502"/>
<CursorPos Y="11522"/> <CursorPos Y="11522"/>
<UsageCount Value="14"/> <UsageCount Value="14"/>
<Loaded Value="True"/> </Unit48>
</Unit50> <Unit49>
<Unit51>
<Filename Value="../../../lazutils/lazfreetype.pas"/> <Filename Value="../../../lazutils/lazfreetype.pas"/>
<UnitName Value="LazFreeType"/> <UnitName Value="LazFreeType"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="814"/> <TopLine Value="814"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit51> </Unit49>
<Unit52> <Unit50>
<Filename Value="../../../lazutils/ttobjs.pas"/> <Filename Value="../../../lazutils/ttobjs.pas"/>
<UnitName Value="TTObjs"/> <UnitName Value="TTObjs"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="364"/> <TopLine Value="364"/>
<CursorPos X="3" Y="382"/> <CursorPos X="3" Y="382"/>
<UsageCount Value="13"/> <UsageCount Value="13"/>
</Unit52> </Unit50>
<Unit53> <Unit51>
<Filename Value="../../../lazutils/tttables.pas"/> <Filename Value="../../../lazutils/tttables.pas"/>
<UnitName Value="TTTables"/> <UnitName Value="TTTables"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<UsageCount Value="5"/> <UsageCount Value="5"/>
</Unit53> </Unit51>
<Unit54> <Unit52>
<Filename Value="../../../../lcl/dbgrids.pas"/> <Filename Value="../../../../lcl/dbgrids.pas"/>
<UnitName Value="DBGrids"/> <UnitName Value="DBGrids"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="4071"/> <TopLine Value="4071"/>
<CursorPos Y="4090"/> <CursorPos Y="4090"/>
<UsageCount Value="7"/> <UsageCount Value="7"/>
</Unit54> </Unit52>
<Unit55> <Unit53>
<Filename Value="../../../../lcl/graphics.pp"/> <Filename Value="../../../../lcl/graphics.pp"/>
<UnitName Value="Graphics"/> <UnitName Value="Graphics"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="14" Y="17"/> <CursorPos X="14" Y="17"/>
<UsageCount Value="13"/> <UsageCount Value="13"/>
</Unit55> </Unit53>
<Unit56> <Unit54>
<Filename Value="../../../../lcl/lcltype.pp"/> <Filename Value="../../../../lcl/lcltype.pp"/>
<UnitName Value="LCLType"/> <UnitName Value="LCLType"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1629"/> <TopLine Value="1629"/>
<CursorPos X="3" Y="1644"/> <CursorPos X="3" Y="1644"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit56> </Unit54>
<Unit57> <Unit55>
<Filename Value="../../../install/source/fpcsrc/packages/fcl-image/src/fpimage.pp"/> <Filename Value="../../../install/source/fpcsrc/packages/fcl-image/src/fpimage.pp"/>
<UnitName Value="FPimage"/> <UnitName Value="FPimage"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="37"/> <TopLine Value="37"/>
<CursorPos X="4" Y="45"/> <CursorPos X="4" Y="45"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit57> </Unit55>
<Unit58> <Unit56>
<Filename Value="../../rxdbgridexportpdfsetupunit.pas"/> <Filename Value="../../rxdbgridexportpdfsetupunit.pas"/>
<ComponentName Value="RxDBGridExportPdfSetupForm"/> <ComponentName Value="RxDBGridExportPdfSetupForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
@@ -461,8 +445,8 @@
<TopLine Value="88"/> <TopLine Value="88"/>
<CursorPos X="78" Y="60"/> <CursorPos X="78" Y="60"/>
<UsageCount Value="22"/> <UsageCount Value="22"/>
</Unit58> </Unit56>
<Unit59> <Unit57>
<Filename Value="../../rxdbgridexportspreadsheet_paramsunit.pas"/> <Filename Value="../../rxdbgridexportspreadsheet_paramsunit.pas"/>
<ComponentName Value="RxDBGridExportSpreadSheet_ParamsForm"/> <ComponentName Value="RxDBGridExportSpreadSheet_ParamsForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
@@ -472,167 +456,167 @@
<TopLine Value="31"/> <TopLine Value="31"/>
<CursorPos X="3" Y="46"/> <CursorPos X="3" Y="46"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit59> </Unit57>
<Unit60> <Unit58>
<Filename Value="../../../../lcl/controls.pp"/> <Filename Value="../../../../lcl/controls.pp"/>
<UnitName Value="Controls"/> <UnitName Value="Controls"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="5"/> <TopLine Value="5"/>
<CursorPos X="14" Y="19"/> <CursorPos X="14" Y="19"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit60> </Unit58>
<Unit61> <Unit59>
<Filename Value="/home/OPTORG/alexs/1/1/testfppdf.lpr"/> <Filename Value="/home/OPTORG/alexs/1/1/testfppdf.lpr"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<UsageCount Value="39"/> <UsageCount Value="39"/>
</Unit61> </Unit59>
<Unit62> <Unit60>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/src/fppdf.pp"/> <Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/src/fppdf.pp"/>
<UnitName Value="fpPDF"/> <UnitName Value="fpPDF"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="3194"/> <TopLine Value="3194"/>
<CursorPos X="3" Y="3196"/> <CursorPos X="3" Y="3196"/>
<UsageCount Value="32"/> <UsageCount Value="32"/>
</Unit62> </Unit60>
<Unit63> <Unit61>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/> <Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="236"/> <TopLine Value="236"/>
<CursorPos X="3" Y="215"/> <CursorPos X="3" Y="215"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit63> </Unit61>
<Unit64> <Unit62>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-base/src/contnrs.pp"/> <Filename Value="/home/install/source/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="16"/> <TopLine Value="16"/>
<CursorPos X="3" Y="31"/> <CursorPos X="3" Y="31"/>
<UsageCount Value="8"/> <UsageCount Value="8"/>
</Unit64> </Unit62>
<Unit65> <Unit63>
<Filename Value="../../../../lcl/stdctrls.pp"/> <Filename Value="../../../../lcl/stdctrls.pp"/>
<UnitName Value="StdCtrls"/> <UnitName Value="StdCtrls"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="951"/> <TopLine Value="951"/>
<CursorPos X="14" Y="964"/> <CursorPos X="14" Y="964"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit65> </Unit63>
<Unit66> <Unit64>
<Filename Value="../../../lazutils/tterror.pas"/> <Filename Value="../../../lazutils/tterror.pas"/>
<UnitName Value="TTError"/> <UnitName Value="TTError"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="34"/> <TopLine Value="34"/>
<CursorPos X="3" Y="49"/> <CursorPos X="3" Y="49"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit66> </Unit64>
<Unit67> <Unit65>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/src/fpparsettf.pp"/> <Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/src/fpparsettf.pp"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="893"/> <TopLine Value="893"/>
<CursorPos X="3" Y="896"/> <CursorPos X="3" Y="896"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
</Unit67> </Unit65>
<Unit68> <Unit66>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/src/fpttfencodings.pp"/> <Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/src/fpttfencodings.pp"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
</Unit68> </Unit66>
<Unit69> <Unit67>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/src/fpttf.pp"/> <Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/src/fpttf.pp"/>
<UnitName Value="fpTTF"/> <UnitName Value="fpTTF"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="17"/> <TopLine Value="17"/>
<CursorPos X="29" Y="21"/> <CursorPos X="29" Y="21"/>
<UsageCount Value="25"/> <UsageCount Value="25"/>
</Unit69> </Unit67>
<Unit70> <Unit68>
<Filename Value="../../../../lcl/include/canvas.inc"/> <Filename Value="../../../../lcl/include/canvas.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1756"/> <TopLine Value="1756"/>
<CursorPos X="3" Y="1765"/> <CursorPos X="3" Y="1765"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit70> </Unit68>
<Unit71> <Unit69>
<Filename Value="../../../../lcl/include/winapih.inc"/> <Filename Value="../../../../lcl/include/winapih.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="136"/> <TopLine Value="136"/>
<CursorPos X="10" Y="151"/> <CursorPos X="10" Y="151"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit71> </Unit69>
<Unit72> <Unit70>
<Filename Value="../../../../lcl/include/intfbasewinapi.inc"/> <Filename Value="../../../../lcl/include/intfbasewinapi.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1161"/> <TopLine Value="1161"/>
<CursorPos X="3" Y="1165"/> <CursorPos X="3" Y="1165"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit72> </Unit70>
<Unit73> <Unit71>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/tests/fpttf_test.pas"/> <Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/tests/fpttf_test.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="143"/> <TopLine Value="143"/>
<CursorPos X="13" Y="151"/> <CursorPos X="13" Y="151"/>
<UsageCount Value="15"/> <UsageCount Value="15"/>
</Unit73> </Unit71>
<Unit74> <Unit72>
<Filename Value="/home/install/source/fpcsrc/rtl/unix/sysunixh.inc"/> <Filename Value="/home/install/source/fpcsrc/rtl/unix/sysunixh.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="14"/> <TopLine Value="14"/>
<CursorPos X="2" Y="29"/> <CursorPos X="2" Y="29"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit74> </Unit72>
<Unit75> <Unit73>
<Filename Value="../../../lazutils/tttypes.pas"/> <Filename Value="../../../lazutils/tttypes.pas"/>
<UnitName Value="TTTypes"/> <UnitName Value="TTTypes"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="357"/> <TopLine Value="357"/>
<CursorPos X="12" Y="372"/> <CursorPos X="12" Y="372"/>
<UsageCount Value="13"/> <UsageCount Value="13"/>
</Unit75> </Unit73>
<Unit76> <Unit74>
<Filename Value="../../../lazutils/lazutf8.pas"/> <Filename Value="../../../lazutils/lazutf8.pas"/>
<UnitName Value="LazUTF8"/> <UnitName Value="LazUTF8"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="483"/> <TopLine Value="483"/>
<CursorPos X="3" Y="430"/> <CursorPos X="3" Y="430"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit76> </Unit74>
<Unit77> <Unit75>
<Filename Value="/home/install/source/fpcsrc/rtl/inc/ustringh.inc"/> <Filename Value="/home/install/source/fpcsrc/rtl/inc/ustringh.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="125"/> <TopLine Value="125"/>
<CursorPos X="10" Y="140"/> <CursorPos X="10" Y="140"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit77> </Unit75>
<Unit78> <Unit76>
<Filename Value="/home/install/source/fpcsrc/rtl/inc/ustrings.inc"/> <Filename Value="/home/install/source/fpcsrc/rtl/inc/ustrings.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1781"/> <TopLine Value="1781"/>
<CursorPos X="10" Y="1796"/> <CursorPos X="10" Y="1796"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit78> </Unit76>
<Unit79> <Unit77>
<Filename Value="/home/install/source/fpcsrc/rtl/inc/systemh.inc"/> <Filename Value="/home/install/source/fpcsrc/rtl/inc/systemh.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="550"/> <TopLine Value="550"/>
<CursorPos X="3" Y="565"/> <CursorPos X="3" Y="565"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit79> </Unit77>
<Unit80> <Unit78>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-image/src/fpimage.pp"/> <Filename Value="/home/install/source/fpcsrc/packages/fcl-image/src/fpimage.pp"/>
<UnitName Value="FPimage"/> <UnitName Value="FPimage"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="10"/> <TopLine Value="10"/>
<CursorPos X="3" Y="25"/> <CursorPos X="3" Y="25"/>
<UsageCount Value="15"/> <UsageCount Value="15"/>
</Unit80> </Unit78>
<Unit81> <Unit79>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-image/src/fpreadbmp.pp"/> <Filename Value="/home/install/source/fpcsrc/packages/fcl-image/src/fpreadbmp.pp"/>
<UnitName Value="FPReadBMP"/> <UnitName Value="FPReadBMP"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="25"/> <TopLine Value="25"/>
<CursorPos X="15" Y="33"/> <CursorPos X="15" Y="33"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit81> </Unit79>
<Unit82> <Unit80>
<Filename Value="../../rxdbgridprintgrid_setupunit.pas"/> <Filename Value="../../rxdbgridprintgrid_setupunit.pas"/>
<ComponentName Value="RxDBGridPrintGrid_SetupForm"/> <ComponentName Value="RxDBGridPrintGrid_SetupForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
@@ -642,198 +626,203 @@
<TopLine Value="17"/> <TopLine Value="17"/>
<CursorPos Y="99"/> <CursorPos Y="99"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
</Unit82> </Unit80>
<Unit83> <Unit81>
<Filename Value="../../../../lcl/include/customcombobox.inc"/> <Filename Value="../../../../lcl/include/customcombobox.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="927"/> <TopLine Value="927"/>
<CursorPos Y="946"/> <CursorPos Y="946"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit83> </Unit81>
<Unit84> <Unit82>
<Filename Value="../../../wst/type_lib_edtr/edit_helper.pas"/> <Filename Value="../../../wst/type_lib_edtr/edit_helper.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="412"/> <TopLine Value="412"/>
<CursorPos X="19" Y="428"/> <CursorPos X="19" Y="428"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit84> </Unit82>
<Unit85> <Unit83>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-passrc/src/pastree.pp"/> <Filename Value="/home/install/source/fpcsrc/packages/fcl-passrc/src/pastree.pp"/>
<UnitName Value="PasTree"/> <UnitName Value="PasTree"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="572"/> <TopLine Value="572"/>
<CursorPos X="3" Y="575"/> <CursorPos X="3" Y="575"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit85> </Unit83>
<Unit86> <Unit84>
<Filename Value="../../../wst/type_lib_edtr/uinterfaceedit.pas"/> <Filename Value="../../../wst/type_lib_edtr/uinterfaceedit.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="11" Y="13"/> <CursorPos X="11" Y="13"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit86> </Unit84>
<Unit87> <Unit85>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../rxdb/rxdbgridexportpdf.pas"/>
<UnitName Value="RxDBGridExportPdf"/> <UnitName Value="RxDBGridExportPdf"/>
<IsVisibleTab Value="True"/> <EditorIndex Value="-1"/>
<EditorIndex Value="1"/>
<TopLine Value="409"/> <TopLine Value="409"/>
<CursorPos X="24" Y="412"/> <CursorPos X="24" Y="412"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
<Loaded Value="True"/> </Unit85>
</Unit87> <Unit86>
<Unit88>
<Filename Value="E:/install/source/fpcsrc/packages/fcl-pdf/src/fppdf.pp"/> <Filename Value="E:/install/source/fpcsrc/packages/fcl-pdf/src/fppdf.pp"/>
<UnitName Value="fpPDF"/> <UnitName Value="fpPDF"/>
<EditorIndex Value="3"/> <EditorIndex Value="-1"/>
<TopLine Value="1026"/> <TopLine Value="1026"/>
<CursorPos X="15" Y="1039"/> <CursorPos X="15" Y="1039"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
<Loaded Value="True"/> </Unit86>
</Unit88> <Unit87>
<Unit89>
<Filename Value="../../../../../1/fcl-pdf/fpmake.pp"/> <Filename Value="../../../../../1/fcl-pdf/fpmake.pp"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit89> </Unit87>
<Unit90> <Unit88>
<Filename Value="../../../../../1/fcl-pdf/examples/testfppdf.lpr"/> <Filename Value="../../../../../1/fcl-pdf/examples/testfppdf.lpr"/>
<EditorIndex Value="4"/> <EditorIndex Value="-1"/>
<TopLine Value="75"/> <TopLine Value="75"/>
<CursorPos Y="81"/> <CursorPos Y="81"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
<Loaded Value="True"/> </Unit88>
</Unit90> <Unit89>
<Unit91>
<Filename Value="E:/install/source/fpcsrc/packages/fcl-pdf/src/fpttf.pp"/> <Filename Value="E:/install/source/fpcsrc/packages/fcl-pdf/src/fpttf.pp"/>
<UnitName Value="fpTTF"/> <UnitName Value="fpTTF"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="433"/> <TopLine Value="433"/>
<CursorPos X="3" Y="438"/> <CursorPos X="3" Y="438"/>
<UsageCount Value="10"/> <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> </Unit91>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="27" HistoryIndex="26">
<Position1> <Position1>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="463" TopLine="438"/> <Caret Line="135" Column="9" TopLine="14"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgridexportpdf.pas"/>
<Caret Line="464" TopLine="438"/> <Caret Line="129" Column="3" TopLine="110"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="465" TopLine="439"/> <Caret Line="1173" Column="35" TopLine="1154"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="../../../../../1/fcl-pdf/examples/testfppdf.lpr"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="204" Column="3" TopLine="136"/> <Caret Line="2350" Column="18" TopLine="2343"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="../../../../../1/fcl-pdf/examples/testfppdf.lpr"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="53" Column="17" TopLine="27"/> <Caret Line="1173" Column="17" TopLine="1154"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="../../../../../1/fcl-pdf/examples/testfppdf.lpr"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="776" Column="3" TopLine="757"/> <Caret Line="1167" Column="15" TopLine="1154"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="../../../../../1/fcl-pdf/examples/testfppdf.lpr"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="40" Column="17" TopLine="39"/> <Caret Line="2301" Column="3" TopLine="2299"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="457" Column="21" TopLine="441"/> <Caret Line="877" Column="15" TopLine="860"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="159" Column="15" TopLine="148"/> <Caret Line="4083" Column="3" TopLine="4071"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="795" TopLine="783"/> <Caret Line="879" Column="63" TopLine="860"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="670" Column="18" TopLine="644"/> <Caret Line="4113" Column="5" TopLine="4109"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="162" Column="15" TopLine="157"/> <Caret Line="877" Column="15" TopLine="862"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="410" Column="3" TopLine="420"/> <Caret Line="4092" Column="28" TopLine="4072"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="163" Column="15" TopLine="147"/> <Caret Line="879" Column="15" TopLine="860"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="465" Column="27" TopLine="449"/> <Caret Line="4122" TopLine="4094"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="162" Column="15" TopLine="148"/> <Caret Line="879" Column="15" TopLine="862"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="441" Column="43" TopLine="418"/> <Caret Line="55" Column="3" TopLine="35"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="163" Column="15" TopLine="148"/> <Caret Line="56" Column="25" TopLine="35"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="459" Column="3" TopLine="449"/> <Caret Line="878" Column="53" TopLine="848"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="164" Column="15" TopLine="148"/> <Caret Line="880" Column="61" TopLine="850"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="477" Column="3" TopLine="470"/> <Caret Line="1154" Column="27" TopLine="1121"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="164" Column="15" TopLine="149"/> <Caret Line="1168" Column="25" TopLine="1148"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="512" Column="49" TopLine="487"/> <Caret Line="2305" TopLine="2300"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="163" Column="15" TopLine="150"/> <Caret Line="1163" Column="15" TopLine="1149"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="465" Column="24" TopLine="449"/> <Caret Line="135" Column="9" TopLine="14"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="169" Column="15" TopLine="148"/> <Caret Line="137" Column="9" TopLine="100"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="551" Column="8" TopLine="542"/> <Caret Line="146" Column="48" TopLine="133"/>
</Position27> </Position27>
<Position28>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/>
<Caret Line="170" Column="15" TopLine="156"/>
</Position28>
<Position29>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/>
<Caret Line="663" Column="71" TopLine="638"/>
</Position29>
<Position30>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/>
<Caret Line="162" Column="15" TopLine="146"/>
</Position30>
</JumpHistory> </JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0" ActiveMode="default"/>
</RunParams>
</ProjectSession> </ProjectSession>
<Debugging> <Debugging>
<BreakPoints Count="2"> <BreakPoints Count="2">

BIN
components/rx/trunk/demos/rxdbgrid/RxDbGridExportToPDF/project1.res
View File

Binary file not shown.

65
components/rx/trunk/demos/rxdbgrid/RxDbGridExportToPDF/unit1.lfm
View File

@@ -11,32 +11,47 @@ object Form1: TForm1
LCLVersion = '1.9.0.0' LCLVersion = '1.9.0.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 37 Height = 50
Top = 360 Top = 347
Width = 1043 Width = 1043
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
ClientHeight = 37 ClientHeight = 50
ClientWidth = 1043 ClientWidth = 1043
TabOrder = 0 TabOrder = 0
object Button1: TButton object Button1: TButton
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 481 Left = 477
Height = 23 Height = 36
Top = 7 Top = 7
Width = 81 Width = 88
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Create PDF' Caption = 'Create PDF'
OnClick = Button1Click OnClick = Button1Click
TabOrder = 0 TabOrder = 0
end end
object CheckBox1: TCheckBox
AnchorSideLeft.Control = Button1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 571
Height = 24
Top = 13
Width = 105
Caption = 'Enable tools'
Checked = True
OnChange = CheckBox1Change
State = cbChecked
TabOrder = 1
end
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 360 Height = 347
Top = 0 Top = 0
Width = 1043 Width = 1043
ActivePage = TabSheet1 ActivePage = TabSheet1
@@ -45,13 +60,13 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Test data' Caption = 'Test data'
ClientHeight = 334 ClientHeight = 313
ClientWidth = 1035 ClientWidth = 1033
object RxDBGrid1: TRxDBGrid object RxDBGrid1: TRxDBGrid
Left = 0 Left = 0
Height = 334 Height = 313
Top = 0 Top = 0
Width = 1035 Width = 1033
ColumnDefValues.BlobText = '(данные)' ColumnDefValues.BlobText = '(данные)'
TitleButtons = True TitleButtons = True
AutoSort = True AutoSort = True
@@ -63,10 +78,9 @@ object Form1: TForm1
Width = 50 Width = 50
FieldName = 'ID' FieldName = 'ID'
EditButtons = <> EditButtons = <>
Filter.IsNull = False
Filter.IsAll = True
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Нет)' Filter.EmptyValue = '(Нет)'
Filter.NotEmptyValue = '(Не пусто)'
Filter.AllValue = '(All values)' Filter.AllValue = '(All values)'
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
@@ -80,10 +94,9 @@ object Form1: TForm1
Width = 120 Width = 120
FieldName = 'PDATE' FieldName = 'PDATE'
EditButtons = <> EditButtons = <>
Filter.IsNull = False
Filter.IsAll = True
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Нет)' Filter.EmptyValue = '(Нет)'
Filter.NotEmptyValue = '(Не пусто)'
Filter.AllValue = '(All values)' Filter.AllValue = '(All values)'
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
@@ -98,10 +111,9 @@ object Form1: TForm1
Width = 364 Width = 364
FieldName = 'NAME' FieldName = 'NAME'
EditButtons = <> EditButtons = <>
Filter.IsNull = False
Filter.IsAll = True
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Нет)' Filter.EmptyValue = '(Нет)'
Filter.NotEmptyValue = '(Не пусто)'
Filter.AllValue = '(All values)' Filter.AllValue = '(All values)'
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
@@ -133,10 +145,9 @@ object Form1: TForm1
Width = 100 Width = 100
FieldName = 'SUM' FieldName = 'SUM'
EditButtons = <> EditButtons = <>
Filter.IsNull = False
Filter.IsAll = True
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Нет)' Filter.EmptyValue = '(Нет)'
Filter.NotEmptyValue = '(Не пусто)'
Filter.AllValue = '(All values)' Filter.AllValue = '(All values)'
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
@@ -172,10 +183,9 @@ object Form1: TForm1
Width = 60 Width = 60
FieldName = 'FLAG' FieldName = 'FLAG'
EditButtons = <> EditButtons = <>
Filter.IsNull = False
Filter.IsAll = True
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Нет)' Filter.EmptyValue = '(Нет)'
Filter.NotEmptyValue = '(Не пусто)'
Filter.AllValue = '(All values)' Filter.AllValue = '(All values)'
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
@@ -196,10 +206,9 @@ object Form1: TForm1
Width = 200 Width = 200
FieldName = 'Country' FieldName = 'Country'
EditButtons = <> EditButtons = <>
Filter.IsNull = False
Filter.IsAll = True
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Нет)' Filter.EmptyValue = '(Нет)'
Filter.NotEmptyValue = '(Не пусто)'
Filter.AllValue = '(All values)' Filter.AllValue = '(All values)'
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
@@ -212,10 +221,9 @@ object Form1: TForm1
Width = 200 Width = 200
FieldName = 'Sity' FieldName = 'Sity'
EditButtons = <> EditButtons = <>
Filter.IsNull = False
Filter.IsAll = True
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Нет)' Filter.EmptyValue = '(Нет)'
Filter.NotEmptyValue = '(Не пусто)'
Filter.AllValue = '(All values)' Filter.AllValue = '(All values)'
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
@@ -295,7 +303,6 @@ object Form1: TForm1
DataSource = DataSource1 DataSource = DataSource1
Flat = True Flat = True
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgHeaderPushedLook] Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgHeaderPushedLook]
ParentColor = False
TabOrder = 0 TabOrder = 0
TitleStyle = tsNative TitleStyle = tsNative
end end
@@ -396,8 +403,6 @@ object Form1: TForm1
ProviderFlags = [pfInUpdate, pfInWhere] ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False ReadOnly = False
Required = False Required = False
MaxValue = 0
MinValue = 0
Precision = 2 Precision = 2
end end
object RxMemoryData1Country: TStringField object RxMemoryData1Country: TStringField
@@ -438,6 +443,7 @@ object Form1: TForm1
object RxDBGridExportPDF1: TRxDBGridExportPDF object RxDBGridExportPDF1: TRxDBGridExportPDF
RxDBGrid = RxDBGrid1 RxDBGrid = RxDBGrid1
Caption = 'Export to PDF file' Caption = 'Export to PDF file'
Enabled = True
FileName = 'test111.pdf' FileName = 'test111.pdf'
Options = [repExportTitle, repExportColors, repExportFooter, repOverwriteExisting, repExportImages] Options = [repExportTitle, repExportColors, repExportFooter, repOverwriteExisting, repExportImages]
PdfOptions.PaperOrientation = ppoLandscape PdfOptions.PaperOrientation = ppoLandscape
@@ -554,5 +560,8 @@ object Form1: TForm1
0000000000000000000000000000000000FF0000000000000000000000000000 0000000000000000000000000000000000FF0000000000000000000000000000
0000000000000000000000000000 0000000000000000000000000000
} }
BitmapAdv = {
4C6900000000
}
end end
end end

7
components/rx/trunk/demos/rxdbgrid/RxDbGridExportToPDF/unit1.pas
View File

@@ -15,6 +15,7 @@ type
TForm1 = class(TForm) TForm1 = class(TForm)
Button1: TButton; Button1: TButton;
CheckBox1: TCheckBox;
DataSource1: TDataSource; DataSource1: TDataSource;
ImageList1: TImageList; ImageList1: TImageList;
Memo1: TMemo; Memo1: TMemo;
@@ -33,6 +34,7 @@ type
TabSheet1: TTabSheet; TabSheet1: TTabSheet;
TabSheet2: TTabSheet; TabSheet2: TTabSheet;
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure CheckBox1Change(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
private private
@@ -139,6 +141,11 @@ begin
RxDBGridExportPDF1.ShowSetupForm:=true; RxDBGridExportPDF1.ShowSetupForm:=true;
end; end;
procedure TForm1.CheckBox1Change(Sender: TObject);
begin
RxDBGridExportPDF1.Enabled:=CheckBox1.Checked;
end;
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin begin
FreeAndNil(FontDirList); FreeAndNil(FontDirList);

28
components/rx/trunk/rxdb/rxdbgrid.pas
View File

@@ -876,6 +876,7 @@ type
procedure DoSetColEdtBtn; procedure DoSetColEdtBtn;
procedure AddTools(ATools:TRxDBGridAbstractTools); procedure AddTools(ATools:TRxDBGridAbstractTools);
procedure RemoveTools(ATools:TRxDBGridAbstractTools); procedure RemoveTools(ATools:TRxDBGridAbstractTools);
procedure UpdateToolsState(ATools:TRxDBGridAbstractTools);
procedure OnDataSetScrolled(aDataSet:TDataSet; Distance: Integer); procedure OnDataSetScrolled(aDataSet:TDataSet; Distance: Integer);
procedure FillFilterData; procedure FillFilterData;
@@ -1154,10 +1155,12 @@ type
TRxDBGridAbstractTools = class(TComponent) TRxDBGridAbstractTools = class(TComponent)
private private
FEnabled: boolean;
FOnAfterExecute: TNotifyEvent; FOnAfterExecute: TNotifyEvent;
FOnBeforeExecute: TNotifyEvent; FOnBeforeExecute: TNotifyEvent;
FShowSetupForm: boolean; FShowSetupForm: boolean;
procedure ExecTools(Sender:TObject); procedure ExecTools(Sender:TObject);
procedure SetEnabled(AValue: boolean);
protected protected
FRxDBGrid: TRxDBGrid; FRxDBGrid: TRxDBGrid;
FCaption:string; FCaption:string;
@@ -1177,6 +1180,7 @@ type
property ShowSetupForm:boolean read FShowSetupForm write FShowSetupForm default false; property ShowSetupForm:boolean read FShowSetupForm write FShowSetupForm default false;
property OnBeforeExecute:TNotifyEvent read FOnBeforeExecute write FOnBeforeExecute; property OnBeforeExecute:TNotifyEvent read FOnBeforeExecute write FOnBeforeExecute;
property OnAfterExecute:TNotifyEvent read FOnAfterExecute write FOnAfterExecute; property OnAfterExecute:TNotifyEvent read FOnAfterExecute write FOnAfterExecute;
property Enabled:boolean read FEnabled write SetEnabled default true;
end; end;
procedure RegisterRxDBGridSortEngine(RxDBGridSortEngineClass: TRxDBGridSortEngineClass; procedure RegisterRxDBGridSortEngine(RxDBGridSortEngineClass: TRxDBGridSortEngineClass;
@@ -2332,12 +2336,20 @@ begin
Execute; Execute;
end; end;
procedure TRxDBGridAbstractTools.SetEnabled(AValue: boolean);
begin
if FEnabled=AValue then Exit;
FEnabled:=AValue;
FRxDBGrid.UpdateToolsState(Self);
end;
constructor TRxDBGridAbstractTools.Create(AOwner: TComponent); constructor TRxDBGridAbstractTools.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
FToolsEvents:=[]; FToolsEvents:=[];
FCaption:=Name; FCaption:=Name;
FShowSetupForm:=false; FShowSetupForm:=false;
FEnabled:=true;
end; end;
destructor TRxDBGridAbstractTools.Destroy; destructor TRxDBGridAbstractTools.Destroy;
@@ -4065,6 +4077,8 @@ var
i:integer; i:integer;
R: TMenuItem; R: TMenuItem;
begin begin
if not Assigned(ATools) then Exit;
for i:=8 to F_PopupMenu.Items.Count - 1 do for i:=8 to F_PopupMenu.Items.Count - 1 do
if F_PopupMenu.Items[i].Tag = IntPtr(ATools) then if F_PopupMenu.Items[i].Tag = IntPtr(ATools) then
exit; exit;
@@ -4074,6 +4088,7 @@ begin
R.Caption := ATools.FCaption; R.Caption := ATools.FCaption;
R.OnClick := @(ATools.ExecTools); R.OnClick := @(ATools.ExecTools);
R.Tag:=IntPtr(ATools); R.Tag:=IntPtr(ATools);
R.Enabled:=ATools.Enabled;
if Assigned(FToolsList) and (FToolsList.IndexOf(ATools)<0) then if Assigned(FToolsList) and (FToolsList.IndexOf(ATools)<0) then
FToolsList.Add(ATools); FToolsList.Add(ATools);
@@ -4097,6 +4112,19 @@ begin
FToolsList.Remove(ATools); FToolsList.Remove(ATools);
end; end;
procedure TRxDBGrid.UpdateToolsState(ATools: TRxDBGridAbstractTools);
var
i: Integer;
begin
if not Assigned(ATools) then Exit;
for i:=8 to F_PopupMenu.Items.Count - 1 do
if F_PopupMenu.Items[i].Tag = IntPtr(ATools) then
begin
F_PopupMenu.Items[i].Enabled:=ATools.Enabled;
exit;
end;
end;
procedure TRxDBGrid.OnDataSetScrolled(aDataSet: TDataSet; Distance: Integer); procedure TRxDBGrid.OnDataSetScrolled(aDataSet: TDataSet; Distance: Integer);
begin begin
if Assigned(FSaveOnDataSetScrolled) then if Assigned(FSaveOnDataSetScrolled) then