RxFPC:RxDBGrid fix set DefaultRowHeight = 0

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5158 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-09-14 07:27:19 +00:00
parent 75ccd9a393
commit e55cc71598
5 changed files with 234 additions and 1099 deletions

View File

@ -55,7 +55,7 @@
<MinVersion Major="1" Release="18" Build="56" Valid="True"/>
</Item5>
</RequiredPackages>
<Units Count="138">
<Units Count="2">
<Unit0>
<Filename Value="RxDBGridDemo.lpr"/>
<IsPartOfProject Value="True"/>
@ -75,949 +75,8 @@
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../../fpcsrc/fcl/db/db.pp"/>
<TopLine Value="1112"/>
<CursorPos X="17" Y="1116"/>
<UsageCount Value="5"/>
</Unit2>
<Unit3>
<Filename Value="../../../fpcsrc/fcl/db/dataset.inc"/>
<TopLine Value="1134"/>
<CursorPos X="21" Y="1139"/>
<UsageCount Value="5"/>
</Unit3>
<Unit4>
<Filename Value="../../rxmemds.pas"/>
<TopLine Value="337"/>
<CursorPos Y="356"/>
<UsageCount Value="5"/>
</Unit4>
<Unit5>
<Filename Value="../../rxdbgrid.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="734"/>
<CursorPos Y="756"/>
<UsageCount Value="21"/>
<Bookmarks Count="3">
<Item0 X="37" Y="1738" ID="1"/>
<Item1 Y="588" ID="2"/>
<Item2 Y="5619" ID="3"/>
</Bookmarks>
</Unit5>
<Unit6>
<Filename Value="../../../lcl/lresources.pp"/>
<TopLine Value="2626"/>
<CursorPos Y="2644"/>
<UsageCount Value="5"/>
</Unit6>
<Unit7>
<Filename Value="../../../lcl/grids.pas"/>
<TopLine Value="385"/>
<CursorPos X="33" Y="394"/>
<UsageCount Value="6"/>
</Unit7>
<Unit8>
<Filename Value="../../../lcl/dbgrids.pas"/>
<TopLine Value="187"/>
<CursorPos X="30" Y="199"/>
<UsageCount Value="6"/>
</Unit8>
<Unit9>
<Filename Value="../../rxpopupunit.pas"/>
<TopLine Value="246"/>
<CursorPos X="15" Y="249"/>
<UsageCount Value="6"/>
</Unit9>
<Unit10>
<Filename Value="../../../lcl/include/wincontrol.inc"/>
<TopLine Value="7217"/>
<CursorPos Y="7236"/>
<UsageCount Value="5"/>
</Unit10>
<Unit11>
<Filename Value="../../../lcl/include/control.inc"/>
<UsageCount Value="5"/>
</Unit11>
<Unit12>
<Filename Value="../../../lcl/lclmessageglue.pas"/>
<TopLine Value="92"/>
<CursorPos X="46" Y="96"/>
<UsageCount Value="5"/>
</Unit12>
<Unit13>
<Filename Value="../../../lcl/controls.pp"/>
<TopLine Value="1779"/>
<CursorPos X="60" Y="1798"/>
<UsageCount Value="5"/>
</Unit13>
<Unit14>
<Filename Value="../../../install/2/rxdbgrid.diff"/>
<CursorPos Y="21"/>
<UsageCount Value="5"/>
<DefaultSyntaxHighlighter Value="Diff"/>
</Unit14>
<Unit15>
<Filename Value="../../../lcl/interfaces/gtk/gtkdevicecontext.inc"/>
<TopLine Value="626"/>
<CursorPos Y="644"/>
<UsageCount Value="5"/>
</Unit15>
<Unit16>
<Filename Value="../../../lcl/interfaces/gtk2/gtk2winapi.inc"/>
<TopLine Value="559"/>
<CursorPos Y="577"/>
<UsageCount Value="5"/>
</Unit16>
<Unit17>
<Filename Value="../../rxdbgrid_columsunit.pas"/>
<ComponentName Value="rxDBGridColumsForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<TopLine Value="103"/>
<CursorPos X="55" Y="103"/>
<UsageCount Value="11"/>
</Unit17>
<Unit18>
<Filename Value="../../rxdconst.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="159"/>
<CursorPos X="3" Y="177"/>
<UsageCount Value="12"/>
</Unit18>
<Unit19>
<Filename Value="../../../lcl/include/winapih.inc"/>
<TopLine Value="211"/>
<CursorPos X="10" Y="223"/>
<UsageCount Value="5"/>
</Unit19>
<Unit20>
<Filename Value="../../backup/rxdbgrid.pas"/>
<TopLine Value="1207"/>
<CursorPos Y="1227"/>
<UsageCount Value="5"/>
</Unit20>
<Unit21>
<Filename Value="../../rxaboutdialog.pas"/>
<TopLine Value="10"/>
<CursorPos X="73" Y="30"/>
<UsageCount Value="6"/>
</Unit21>
<Unit22>
<Filename Value="../../registerrx.pas"/>
<TopLine Value="174"/>
<CursorPos X="18" Y="201"/>
<UsageCount Value="6"/>
</Unit22>
<Unit23>
<Filename Value="../../../ideintf/idewindowintf.pas"/>
<TopLine Value="31"/>
<UsageCount Value="5"/>
</Unit23>
<Unit24>
<Filename Value="../../../lcl/extdlgs.pas"/>
<TopLine Value="105"/>
<CursorPos X="35" Y="122"/>
<UsageCount Value="5"/>
</Unit24>
<Unit25>
<Filename Value="../../../lcl/dialogs.pp"/>
<TopLine Value="62"/>
<CursorPos X="21" Y="79"/>
<UsageCount Value="5"/>
</Unit25>
<Unit26>
<Filename Value="../../../lcl/include/commondialog.inc"/>
<TopLine Value="80"/>
<CursorPos X="17" Y="84"/>
<UsageCount Value="5"/>
</Unit26>
<Unit27>
<Filename Value="../../../lcl/widgetset/wsdialogs.pp"/>
<TopLine Value="132"/>
<CursorPos X="3" Y="136"/>
<UsageCount Value="5"/>
</Unit27>
<Unit28>
<Filename Value="../../rxaboutformunit.pas"/>
<ComponentName Value="rxAboutFormForm"/>
<ResourceBaseClass Value="Form"/>
<TopLine Value="41"/>
<CursorPos X="26" Y="55"/>
<UsageCount Value="6"/>
</Unit28>
<Unit29>
<Filename Value="../../rxversinfo.pas"/>
<UnitName Value="RxVersInfo"/>
<EditorIndex Value="-1"/>
<TopLine Value="103"/>
<CursorPos X="88" Y="112"/>
<UsageCount Value="10"/>
</Unit29>
<Unit30>
<Filename Value="../../../lcl/buttonpanel.pas"/>
<TopLine Value="11"/>
<CursorPos X="6" Y="15"/>
<UsageCount Value="6"/>
</Unit30>
<Unit31>
<Filename Value="../../../lcl/extctrls.pp"/>
<TopLine Value="604"/>
<CursorPos X="15" Y="607"/>
<UsageCount Value="6"/>
</Unit31>
<Unit32>
<Filename Value="../../../lcl/include/customimage.inc"/>
<TopLine Value="67"/>
<CursorPos X="3" Y="69"/>
<UsageCount Value="6"/>
</Unit32>
<Unit33>
<Filename Value="../../../install/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<TopLine Value="426"/>
<CursorPos X="17" Y="448"/>
<UsageCount Value="13"/>
</Unit33>
<Unit34>
<Filename Value="../../../smsprog/sms_send_deamon/smsSendGui/smssendaboutunit.pas"/>
<ComponentName Value="smsSendAboutForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<TopLine Value="28"/>
<CursorPos Y="57"/>
<UsageCount Value="6"/>
</Unit34>
<Unit35>
<Filename Value="../../../smsprog/sms_shared/smsabstarctconstunit.pas"/>
<CursorPos X="42" Y="11"/>
<UsageCount Value="6"/>
</Unit35>
<Unit36>
<Filename Value="../../rxconst.pas"/>
<TopLine Value="34"/>
<CursorPos X="3" Y="51"/>
<UsageCount Value="6"/>
</Unit36>
<Unit37>
<Filename Value="../../../rxnet/demo/send_demo/smssendparamsunit.pas"/>
<ComponentName Value="smssendParamsForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<TopLine Value="49"/>
<CursorPos X="34" Y="60"/>
<UsageCount Value="6"/>
</Unit37>
<Unit38>
<Filename Value="../../../rxnet/demo/send_demo/smssenddemomainunit.pas"/>
<ComponentName Value="smsSendDemoMainForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<TopLine Value="41"/>
<CursorPos X="105" Y="29"/>
<UsageCount Value="6"/>
</Unit38>
<Unit39>
<Filename Value="../../../rxnet/demo/send_demo/send_demo.lpr"/>
<UsageCount Value="6"/>
</Unit39>
<Unit40>
<Filename Value="../../../doceditor/lazdeopts.pp"/>
<TopLine Value="43"/>
<CursorPos Y="56"/>
<UsageCount Value="6"/>
</Unit40>
<Unit41>
<Filename Value="../../rxfileutils.pas"/>
<TopLine Value="18"/>
<CursorPos X="33" Y="42"/>
<UsageCount Value="6"/>
</Unit41>
<Unit42>
<Filename Value="../../registerrxdb.pas"/>
<TopLine Value="2"/>
<CursorPos X="20" Y="17"/>
<UsageCount Value="6"/>
</Unit42>
<Unit43>
<Filename Value="../../../ideintf/dbpropedits.pas"/>
<TopLine Value="13"/>
<CursorPos X="6" Y="19"/>
<UsageCount Value="6"/>
</Unit43>
<Unit44>
<Filename Value="../../../ideintf/propedits.pp"/>
<CursorPos X="6" Y="26"/>
<UsageCount Value="6"/>
</Unit44>
<Unit45>
<Filename Value="../../rxdbgrid_findunit.pas"/>
<ComponentName Value="rxDBGridFindForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="-1"/>
<TopLine Value="148"/>
<CursorPos Y="179"/>
<UsageCount Value="10"/>
</Unit45>
<Unit46>
<Filename Value="../../rxtoolbar.pas"/>
<CursorPos X="52" Y="26"/>
<UsageCount Value="8"/>
</Unit46>
<Unit47>
<Filename Value="../../../synedit/synedit.pp"/>
<TopLine Value="5699"/>
<CursorPos Y="5702"/>
<UsageCount Value="13"/>
</Unit47>
<Unit48>
<Filename Value="../../../synedit/syneditkeycmds.pp"/>
<TopLine Value="750"/>
<CursorPos X="3" Y="752"/>
<UsageCount Value="9"/>
</Unit48>
<Unit49>
<Filename Value="../../../install/fpcsrc/rtl/objpas/classes/classes.inc"/>
<TopLine Value="429"/>
<CursorPos X="33" Y="447"/>
<UsageCount Value="6"/>
</Unit49>
<Unit50>
<Filename Value="../../../lcl/actnlist.pas"/>
<TopLine Value="206"/>
<CursorPos X="33" Y="224"/>
<UsageCount Value="6"/>
</Unit50>
<Unit51>
<Filename Value="../../../lcl/lclproc.pas"/>
<TopLine Value="1154"/>
<CursorPos X="10" Y="1165"/>
<UsageCount Value="6"/>
</Unit51>
<Unit52>
<Filename Value="rxdbgridmainunit.lfm"/>
<TopLine Value="133"/>
<CursorPos X="5" Y="103"/>
<UsageCount Value="7"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit52>
<Unit53>
<Filename Value="../../../install/fpcsrc/rtl/objpas/classes/collect.inc"/>
<TopLine Value="286"/>
<CursorPos Y="288"/>
<UsageCount Value="12"/>
</Unit53>
<Unit54>
<Filename Value="../../../wine/1/1/rx.diff"/>
<CursorPos Y="9"/>
<UsageCount Value="7"/>
<DefaultSyntaxHighlighter Value="Diff"/>
</Unit54>
<Unit55>
<Filename Value="../../../install/fpcsrc/packages/fcl-db/src/base/db.pas"/>
<TopLine Value="541"/>
<CursorPos Y="569"/>
<UsageCount Value="7"/>
</Unit55>
<Unit56>
<Filename Value="../../../lcl/include/canvas.inc"/>
<TopLine Value="1116"/>
<CursorPos Y="1132"/>
<UsageCount Value="8"/>
</Unit56>
<Unit57>
<Filename Value="../../exsortsql.pas"/>
<TopLine Value="69"/>
<CursorPos X="49" Y="3"/>
<UsageCount Value="7"/>
</Unit57>
<Unit58>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<UnitName Value="DBGrids"/>
<EditorIndex Value="-1"/>
<TopLine Value="1339"/>
<CursorPos X="3" Y="1339"/>
<UsageCount Value="22"/>
</Unit58>
<Unit59>
<Filename Value="../../../../lcl/grids.pas"/>
<UnitName Value="Grids"/>
<EditorIndex Value="-1"/>
<TopLine Value="1031"/>
<CursorPos X="15" Y="1047"/>
<UsageCount Value="23"/>
</Unit59>
<Unit60>
<Filename Value="../../../../../../install/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<TopLine Value="1554"/>
<CursorPos X="38" Y="1569"/>
<UsageCount Value="7"/>
</Unit60>
<Unit61>
<Filename Value="../../../../lcl/buttons.pp"/>
<UnitName Value="Buttons"/>
<EditorIndex Value="-1"/>
<TopLine Value="66"/>
<CursorPos X="15" Y="84"/>
<UsageCount Value="10"/>
</Unit61>
<Unit62>
<Filename Value="../../../../../../install/fpcsrc/packages/fcl-db/src/base/db.pas"/>
<TopLine Value="1588"/>
<CursorPos X="15" Y="1609"/>
<UsageCount Value="7"/>
</Unit62>
<Unit63>
<Filename Value="../../vclutils.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="618"/>
<CursorPos X="10" Y="629"/>
<UsageCount Value="12"/>
</Unit63>
<Unit64>
<Filename Value="../../../../lcl/include/canvas.inc"/>
<TopLine Value="1317"/>
<CursorPos Y="1338"/>
<UsageCount Value="7"/>
</Unit64>
<Unit65>
<Filename Value="../../../../lcl/graphics.pp"/>
<UnitName Value="Graphics"/>
<EditorIndex Value="-1"/>
<TopLine Value="2254"/>
<CursorPos X="3" Y="2258"/>
<UsageCount Value="10"/>
</Unit65>
<Unit66>
<Filename Value="../../../../lcl/include/lclintf.inc"/>
<TopLine Value="132"/>
<CursorPos Y="155"/>
<UsageCount Value="7"/>
</Unit66>
<Unit67>
<Filename Value="../../../../lcl/interfaces/gtk2/gtk2lclintf.inc"/>
<TopLine Value="167"/>
<CursorPos Y="190"/>
<UsageCount Value="7"/>
</Unit67>
<Unit68>
<Filename Value="../../rxsortby.pas"/>
<ComponentName Value="rxSortByForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="-1"/>
<TopLine Value="190"/>
<CursorPos X="49" Y="255"/>
<UsageCount Value="10"/>
</Unit68>
<Unit69>
<Filename Value="../../rxfilterby.pas"/>
<ComponentName Value="rxFilterByForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<TopLine Value="315"/>
<CursorPos Y="350"/>
<UsageCount Value="7"/>
</Unit69>
<Unit70>
<Filename Value="../../../../../../install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<TopLine Value="72"/>
<CursorPos X="30" Y="95"/>
<UsageCount Value="11"/>
</Unit70>
<Unit71>
<Filename Value="../../../../../../install/source/fpcsrc/rtl/objpas/classes/stringl.inc"/>
<TopLine Value="593"/>
<CursorPos X="3" Y="598"/>
<UsageCount Value="7"/>
</Unit71>
<Unit72>
<Filename Value="../../rxstrutils.pas"/>
<TopLine Value="140"/>
<CursorPos X="23" Y="168"/>
<UsageCount Value="7"/>
</Unit72>
<Unit73>
<Filename Value="../../rxlookup.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="1574"/>
<CursorPos X="3" Y="1566"/>
<UsageCount Value="14"/>
</Unit73>
<Unit74>
<Filename Value="../../../../../../install/source/fpcsrc/packages/fcl-db/src/base/db.pas"/>
<TopLine Value="1776"/>
<CursorPos X="14" Y="1796"/>
<UsageCount Value="14"/>
</Unit74>
<Unit75>
<Filename Value="../../../../../../install/source/fpcsrc/rtl/objpas/classes/collect.inc"/>
<TopLine Value="397"/>
<CursorPos X="3" Y="399"/>
<UsageCount Value="11"/>
</Unit75>
<Unit76>
<Filename Value="../../../../../../install/source/fpcsrc/rtl/objpas/classes/lists.inc"/>
<TopLine Value="131"/>
<CursorPos X="3" Y="133"/>
<UsageCount Value="11"/>
</Unit76>
<Unit77>
<Filename Value="../../rxsortmemds.pas"/>
<TopLine Value="16"/>
<UsageCount Value="8"/>
</Unit77>
<Unit78>
<Filename Value="../../../../lcl/controls.pp"/>
<UnitName Value="Controls"/>
<EditorIndex Value="-1"/>
<TopLine Value="2211"/>
<CursorPos X="15" Y="2233"/>
<UsageCount Value="11"/>
</Unit78>
<Unit79>
<Filename Value="../../../../lcl/stdctrls.pp"/>
<TopLine Value="233"/>
<CursorPos X="3" Y="254"/>
<UsageCount Value="9"/>
</Unit79>
<Unit80>
<Filename Value="../../../../lcl/lcltype.pp"/>
<TopLine Value="439"/>
<CursorPos X="3" Y="433"/>
<UsageCount Value="10"/>
</Unit80>
<Unit81>
<Filename Value="../../../../lcl/include/customcontrol.inc"/>
<TopLine Value="70"/>
<CursorPos X="3" Y="79"/>
<UsageCount Value="9"/>
</Unit81>
<Unit82>
<Filename Value="../../../../lcl/include/wincontrol.inc"/>
<TopLine Value="7862"/>
<CursorPos X="3" Y="7901"/>
<UsageCount Value="11"/>
</Unit82>
<Unit83>
<Filename Value="../../../../../../install/source/fpcsrc/rtl/objpas/types.pp"/>
<TopLine Value="70"/>
<CursorPos X="16" Y="91"/>
<UsageCount Value="10"/>
</Unit83>
<Unit84>
<Filename Value="../../../../lcl/include/control.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="3259"/>
<CursorPos Y="3278"/>
<UsageCount Value="10"/>
</Unit84>
<Unit85>
<Filename Value="../../../../lcl/include/scrollingwincontrol.inc"/>
<TopLine Value="65"/>
<CursorPos Y="87"/>
<UsageCount Value="10"/>
</Unit85>
<Unit86>
<Filename Value="../../../../lcl/include/customform.inc"/>
<TopLine Value="732"/>
<CursorPos Y="761"/>
<UsageCount Value="10"/>
</Unit86>
<Unit87>
<Filename Value="../../../../lcl/editbtn.pas"/>
<TopLine Value="648"/>
<CursorPos Y="670"/>
<UsageCount Value="10"/>
</Unit87>
<Unit88>
<Filename Value="../../../../lcl/include/winapi.inc"/>
<TopLine Value="596"/>
<CursorPos Y="618"/>
<UsageCount Value="10"/>
</Unit88>
<Unit89>
<Filename Value="../../../../lcl/lclintf.pas"/>
<TopLine Value="63"/>
<CursorPos X="39" Y="49"/>
<UsageCount Value="10"/>
</Unit89>
<Unit90>
<Filename Value="../../../../lcl/include/lclintfh.inc"/>
<TopLine Value="130"/>
<CursorPos Y="130"/>
<UsageCount Value="10"/>
</Unit90>
<Unit91>
<Filename Value="../../../../lcl/lmessages.pp"/>
<TopLine Value="241"/>
<CursorPos Y="256"/>
<UsageCount Value="11"/>
</Unit91>
<Unit92>
<Filename Value="../../../../lcl/forms.pp"/>
<TopLine Value="248"/>
<CursorPos X="16" Y="285"/>
<UsageCount Value="11"/>
</Unit92>
<Unit93>
<Filename Value="../../../../lcl/include/customframe.inc"/>
<TopLine Value="184"/>
<CursorPos X="3" Y="186"/>
<UsageCount Value="10"/>
</Unit93>
<Unit94>
<Filename Value="../../../../lcl/lclversion.pas"/>
<UsageCount Value="11"/>
</Unit94>
<Unit95>
<Filename Value="../../rx.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="23"/>
<CursorPos X="3" Y="62"/>
<UsageCount Value="10"/>
</Unit95>
<Unit96>
<Filename Value="../../../../../../install/source/fpcsrc/rtl/objpas/classes/classes.inc"/>
<TopLine Value="846"/>
<CursorPos X="3" Y="851"/>
<UsageCount Value="10"/>
</Unit96>
<Unit97>
<Filename Value="../../../../lcl/clipbrd.pp"/>
<TopLine Value="176"/>
<CursorPos X="15" Y="190"/>
<UsageCount Value="10"/>
</Unit97>
<Unit98>
<Filename Value="../../../../lcl/include/clipbrd.inc"/>
<TopLine Value="178"/>
<CursorPos X="3" Y="180"/>
<UsageCount Value="10"/>
</Unit98>
<Unit99>
<Filename Value="../../../../../../install/source/fpcsrc/rtl/inc/objpash.inc"/>
<TopLine Value="178"/>
<CursorPos X="23" Y="193"/>
<UsageCount Value="10"/>
</Unit99>
<Unit100>
<Filename Value="../../../../lcl/buttonpanel.pas"/>
<TopLine Value="339"/>
<CursorPos Y="349"/>
<UsageCount Value="11"/>
</Unit100>
<Unit101>
<Filename Value="/home/alexs/install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<TopLine Value="468"/>
<CursorPos X="15" Y="489"/>
<UsageCount Value="10"/>
</Unit101>
<Unit102>
<Filename Value="/home/alexs/install/source/fpcsrc/rtl/objpas/classes/collect.inc"/>
<TopLine Value="41"/>
<CursorPos X="2" Y="44"/>
<UsageCount Value="10"/>
</Unit102>
<Unit103>
<Filename Value="../../rxdbgridexportspreadsheet.pas"/>
<UnitName Value="RxDBGridExportSpreadSheet"/>
<EditorIndex Value="-1"/>
<TopLine Value="172"/>
<CursorPos Y="187"/>
<UsageCount Value="10"/>
</Unit103>
<Unit104>
<Filename Value="../../../fpspreadsheet/fpsexprparser.pas"/>
<UnitName Value="fpsExprParser"/>
<WindowIndex Value="1"/>
<TopLine Value="820"/>
<CursorPos X="48" Y="833"/>
<UsageCount Value="10"/>
</Unit104>
<Unit105>
<Filename Value="/home/alexs/install/src/fixes_2_6/rtl/objpas/classes/classesh.inc"/>
<TopLine Value="471"/>
<CursorPos X="15" Y="491"/>
<UsageCount Value="10"/>
</Unit105>
<Unit106>
<Filename Value="/home/alexs/install/src/fixes_2_6/rtl/objpas/sysutils/sysinth.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="121"/>
<CursorPos X="58" Y="137"/>
<UsageCount Value="10"/>
</Unit106>
<Unit107>
<Filename Value="../../../fpspreadsheet/fpolestorage.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="25"/>
<CursorPos X="6" Y="48"/>
<UsageCount Value="10"/>
</Unit107>
<Unit108>
<Filename Value="../../../fpspreadsheet/fpsutils.pas"/>
<EditorIndex Value="-1"/>
<UsageCount Value="10"/>
</Unit108>
<Unit109>
<Filename Value="../../../fpspreadsheet/fpstypes.pas"/>
<UnitName Value="fpsTypes"/>
<EditorIndex Value="-1"/>
<CursorPos X="16" Y="28"/>
<UsageCount Value="10"/>
</Unit109>
<Unit110>
<Filename Value="/home/alexs/install/src/fixes_2_6/packages/fcl-image/src/fpimage.pp"/>
<UnitName Value="FPimage"/>
<EditorIndex Value="-1"/>
<TopLine Value="7"/>
<UsageCount Value="10"/>
</Unit110>
<Unit111>
<Filename Value="../../../fpspreadsheet/fpsallformats.pas"/>
<EditorIndex Value="-1"/>
<UsageCount Value="10"/>
</Unit111>
<Unit112>
<Filename Value="../../../fpspreadsheet/fpscsv.pas"/>
<EditorIndex Value="-1"/>
<UsageCount Value="10"/>
</Unit112>
<Unit113>
<Filename Value="../../../fpspreadsheet/fpsheaderfooterparser.pas"/>
<UnitName Value="fpsHeaderFooterParser"/>
<EditorIndex Value="-1"/>
<UsageCount Value="10"/>
</Unit113>
<Unit114>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-db/src/base/db.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="519"/>
<CursorPos X="15" Y="546"/>
<UsageCount Value="10"/>
</Unit114>
<Unit115>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-db/src/base/fields.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="727"/>
<CursorPos X="3" Y="731"/>
<UsageCount Value="10"/>
</Unit115>
<Unit116>
<Filename Value="../../dbutils.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="465"/>
<CursorPos Y="503"/>
<UsageCount Value="10"/>
</Unit116>
<Unit117>
<Filename Value="../../rxdbgrid.lrs"/>
<EditorIndex Value="-1"/>
<UsageCount Value="10"/>
</Unit117>
<Unit118>
<Filename Value="../../../../lcl/lresources.pp"/>
<UnitName Value="LResources"/>
<EditorIndex Value="-1"/>
<TopLine Value="5296"/>
<CursorPos Y="5314"/>
<UsageCount Value="11"/>
</Unit118>
<Unit119>
<Filename Value="../../pickdate.pas"/>
<EditorIndex Value="-1"/>
<CursorPos X="6" Y="32"/>
<UsageCount Value="10"/>
</Unit119>
<Unit120>
<Filename Value="../../rxdbctrls.pas"/>
<UnitName Value="RxDBCtrls"/>
<EditorIndex Value="-1"/>
<TopLine Value="23"/>
<UsageCount Value="10"/>
</Unit120>
<Unit121>
<Filename Value="../../rxdbcomb.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="502"/>
<UsageCount Value="10"/>
</Unit121>
<Unit122>
<Filename Value="/home/install/source/fpcsrc/rtl/inc/resh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="47"/>
<CursorPos X="10" Y="64"/>
<UsageCount Value="10"/>
</Unit122>
<Unit123>
<Filename Value="../../../../lcl/include/speedbutton.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="184"/>
<CursorPos X="3" Y="192"/>
<UsageCount Value="10"/>
</Unit123>
<Unit124>
<Filename Value="../../../../lcl/include/buttonglyph.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="119"/>
<CursorPos X="3" Y="126"/>
<UsageCount Value="10"/>
</Unit124>
<Unit125>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="469"/>
<CursorPos X="37" Y="501"/>
<UsageCount Value="11"/>
</Unit125>
<Unit126>
<Filename Value="../../../../lcl/lclproc.pas"/>
<UnitName Value="LCLProc"/>
<EditorIndex Value="-1"/>
<TopLine Value="321"/>
<CursorPos X="10" Y="338"/>
<UsageCount Value="10"/>
</Unit126>
<Unit127>
<Filename Value="../../rxdbgridfootertools.pas"/>
<UnitName Value="RxDBGridFooterTools"/>
<EditorIndex Value="-1"/>
<TopLine Value="97"/>
<CursorPos X="64" Y="119"/>
<UsageCount Value="10"/>
</Unit127>
<Unit128>
<Filename Value="../../pickdate.lrs"/>
<EditorIndex Value="-1"/>
<UsageCount Value="10"/>
</Unit128>
<Unit129>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<UnitName Value="RxDBGridPrintGrid"/>
<EditorIndex Value="-1"/>
<TopLine Value="310"/>
<CursorPos Y="322"/>
<UsageCount Value="10"/>
</Unit129>
<Unit130>
<Filename Value="../../../lazreport/source/lr_desgn.pas"/>
<ComponentName Value="frDesignerForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="LR_Desgn"/>
<EditorIndex Value="-1"/>
<TopLine Value="7481"/>
<CursorPos Y="7496"/>
<UsageCount Value="10"/>
</Unit130>
<Unit131>
<Filename Value="../../../lazreport/source/lr_class.pas"/>
<UnitName Value="LR_Class"/>
<EditorIndex Value="-1"/>
<UsageCount Value="10"/>
</Unit131>
<Unit132>
<Filename Value="../../../lazreport/source/lr_view.pas"/>
<ComponentName Value="frPreviewForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="LR_View"/>
<EditorIndex Value="-1"/>
<TopLine Value="1524"/>
<CursorPos Y="1540"/>
<UsageCount Value="10"/>
</Unit132>
<Unit133>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/sysutils/sysstrh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="113"/>
<CursorPos X="10" Y="128"/>
<UsageCount Value="10"/>
</Unit133>
<Unit134>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-base/src/gettext.pp"/>
<EditorIndex Value="-1"/>
<TopLine Value="313"/>
<CursorPos X="3" Y="315"/>
<UsageCount Value="10"/>
</Unit134>
<Unit135>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<UnitName Value="RxDBGridExportPdf"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="470"/>
<CursorPos X="29" Y="470"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit135>
<Unit136>
<Filename Value="../../rxdbgridexportpdfsetupunit.pas"/>
<ComponentName Value="RxDBGridExportPdfSetupForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGridExportPdfSetupUnit"/>
<EditorIndex Value="-1"/>
<TopLine Value="65"/>
<CursorPos Y="113"/>
<UsageCount Value="11"/>
</Unit136>
<Unit137>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/src/fppdf.pp"/>
<UnitName Value="fpPDF"/>
<EditorIndex Value="-1"/>
<TopLine Value="147"/>
<CursorPos X="3" Y="42"/>
<UsageCount Value="10"/>
</Unit137>
</Units>
<JumpHistory Count="11" HistoryIndex="10">
<Position1>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="150" TopLine="127"/>
</Position1>
<Position2>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="149" TopLine="126"/>
</Position2>
<Position3>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="148" TopLine="125"/>
</Position3>
<Position4>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="147" TopLine="125"/>
</Position4>
<Position5>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="11" Column="56"/>
</Position5>
<Position6>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="109" Column="27" TopLine="94"/>
</Position6>
<Position7>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="84" Column="25" TopLine="71"/>
</Position7>
<Position8>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="10" Column="61"/>
</Position8>
<Position9>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="14" Column="134"/>
</Position9>
<Position10>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="129" Column="3" TopLine="177"/>
</Position10>
<Position11>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="1113" Column="3" TopLine="1098"/>
</Position11>
</JumpHistory>
<JumpHistory HistoryIndex="-1"/>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
@ -1041,37 +100,4 @@
</Options>
</Linking>
</CompilerOptions>
<Debugging>
<Watches Count="5">
<Item1>
<Expression Value="K"/>
</Item1>
<Item2>
<Expression Value="H"/>
</Item2>
<Item3>
<Expression Value="I"/>
</Item3>
<Item4>
<Expression Value="S"/>
</Item4>
<Item5>
<Expression Value="K1"/>
</Item5>
</Watches>
<Exceptions Count="4">
<Item1>
<Name Value="EInvalidOp"/>
</Item1>
<Item2>
<Name Value="EConvertError"/>
</Item2>
<Item3>
<Name Value="EVariantError"/>
</Item3>
<Item4>
<Name Value="ETTF"/>
</Item4>
</Exceptions>
</Debugging>
</CONFIG>

View File

@ -3,7 +3,7 @@
<ProjectSession>
<Version Value="9"/>
<BuildModes Active="Default"/>
<Units Count="6">
<Units Count="10">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
@ -11,7 +11,7 @@
<WindowIndex Value="-1"/>
<TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/>
<UsageCount Value="23"/>
<UsageCount Value="24"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
@ -20,168 +20,196 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="54"/>
<CursorPos X="44" Y="61"/>
<UsageCount Value="23"/>
<TopLine Value="73"/>
<CursorPos X="4" Y="84"/>
<UsageCount Value="24"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../rxdbgrid.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="788"/>
<CursorPos X="44" Y="788"/>
<UsageCount Value="11"/>
<TopLine Value="417"/>
<CursorPos X="79" Y="433"/>
<UsageCount Value="12"/>
<Bookmarks Count="1">
<Item0 Y="5181" ID="1"/>
<Item0 Y="5153" ID="1"/>
</Bookmarks>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="../../rxdconst.pas"/>
<EditorIndex Value="4"/>
<EditorIndex Value="6"/>
<TopLine Value="102"/>
<CursorPos X="73" Y="118"/>
<UsageCount Value="11"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="../../dbutils.pas"/>
<EditorIndex Value="2"/>
<EditorIndex Value="4"/>
<TopLine Value="381"/>
<CursorPos X="30" Y="386"/>
<UsageCount Value="11"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit4>
<Unit5>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-db/src/base/db.pas"/>
<EditorIndex Value="3"/>
<EditorIndex Value="5"/>
<TopLine Value="1358"/>
<CursorPos X="51" Y="1372"/>
<UsageCount Value="11"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit5>
<Unit6>
<Filename Value="../../../../lcl/grids.pas"/>
<UnitName Value="Grids"/>
<EditorIndex Value="3"/>
<TopLine Value="8595"/>
<CursorPos X="41" Y="8597"/>
<UsageCount Value="11"/>
<Bookmarks Count="1">
<Item0 X="3" Y="8601" ID="2"/>
</Bookmarks>
<Loaded Value="True"/>
</Unit6>
<Unit7>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<UnitName Value="DBGrids"/>
<EditorIndex Value="2"/>
<TopLine Value="41"/>
<CursorPos X="23" Y="58"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit7>
<Unit8>
<Filename Value="../../../../lcl/controls.pp"/>
<UnitName Value="Controls"/>
<EditorIndex Value="-1"/>
<TopLine Value="1489"/>
<CursorPos X="14" Y="1504"/>
<UsageCount Value="10"/>
</Unit8>
<Unit9>
<Filename Value="../../../../lcl/include/control.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="5274"/>
<CursorPos X="3" Y="5282"/>
<UsageCount Value="10"/>
</Unit9>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<JumpHistory Count="28" HistoryIndex="27">
<Position1>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="3741" Column="54" TopLine="3717"/>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="1127" Column="14" TopLine="1115"/>
</Position1>
<Position2>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="4741" Column="44" TopLine="4716"/>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="895" Column="15" TopLine="881"/>
</Position2>
<Position3>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="5153" Column="75" TopLine="5128"/>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="1127" Column="58" TopLine="1103"/>
</Position3>
<Position4>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="5285" Column="47" TopLine="5260"/>
<Caret Line="854" Column="14" TopLine="841"/>
</Position4>
<Position5>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="6154" Column="14" TopLine="6129"/>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="1127" Column="14" TopLine="1115"/>
</Position5>
<Position6>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="5153" Column="76" TopLine="5132"/>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="858" Column="15" TopLine="845"/>
</Position6>
<Position7>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="387" Column="52" TopLine="359"/>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="1127" Column="58" TopLine="1103"/>
</Position7>
<Position8>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="397" Column="51" TopLine="368"/>
<Caret Line="854" Column="14" TopLine="841"/>
</Position8>
<Position9>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="3746" Column="54" TopLine="3721"/>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="1127" Column="14" TopLine="1115"/>
</Position9>
<Position10>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="750" Column="15" TopLine="737"/>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="858" Column="15" TopLine="844"/>
</Position10>
<Position11>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="709" Column="15" TopLine="696"/>
<Filename Value="unit1.pas"/>
<Caret Line="91" Column="22" TopLine="63"/>
</Position11>
<Position12>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="3745" Column="94" TopLine="3721"/>
<Caret Line="870" Column="14" TopLine="856"/>
</Position12>
<Position13>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="4748" Column="44" TopLine="4723"/>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<Caret Line="475" Column="14" TopLine="463"/>
</Position13>
<Position14>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="5175" Column="29" TopLine="5152"/>
<Filename Value="unit1.pas"/>
<Caret Line="92" TopLine="63"/>
</Position14>
<Position15>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="470" Column="14" TopLine="462"/>
<Filename Value="unit1.pas"/>
<Caret Line="68" TopLine="63"/>
</Position15>
<Position16>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="5181" TopLine="5154"/>
<Filename Value="unit1.pas"/>
<Caret Line="69" TopLine="64"/>
</Position16>
<Position17>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="6177" Column="59" TopLine="6169"/>
<Filename Value="unit1.pas"/>
<Caret Line="94" TopLine="64"/>
</Position17>
<Position18>
<Filename Value="../../rxdbgrid.pas"/>
<Filename Value="unit1.pas"/>
<Caret Line="93" TopLine="67"/>
</Position18>
<Position19>
<Filename Value="../../dbutils.pas"/>
<Filename Value="unit1.pas"/>
<Caret Line="98" Column="57" TopLine="72"/>
</Position19>
<Position20>
<Filename Value="../../dbutils.pas"/>
<Caret Line="386" Column="27" TopLine="382"/>
<Filename Value="unit1.pas"/>
<Caret Line="53" Column="43" TopLine="38"/>
</Position20>
<Position21>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="41" Column="36" TopLine="15"/>
<Filename Value="unit1.pas"/>
<Caret Line="46" Column="42" TopLine="31"/>
</Position21>
<Position22>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="588" Column="15" TopLine="581"/>
<Filename Value="unit1.pas"/>
<Caret Line="103" TopLine="73"/>
</Position22>
<Position23>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="2515" Column="38" TopLine="2490"/>
<Filename Value="unit1.pas"/>
<Caret Line="99" Column="60" TopLine="73"/>
</Position23>
<Position24>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="2516" Column="16" TopLine="2491"/>
<Caret Line="870" Column="14" TopLine="856"/>
</Position24>
<Position25>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="788" Column="74" TopLine="784"/>
</Position25>
<Position26>
<Filename Value="unit1.pas"/>
<Caret Line="21" Column="6" TopLine="11"/>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="83" Column="5" TopLine="58"/>
</Position26>
<Position27>
<Filename Value="unit1.pas"/>
<Caret Line="61" Column="36" TopLine="44"/>
<Filename Value="../../rxdbgrid.pas"/>
</Position27>
<Position28>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="788" Column="44" TopLine="775"/>
<Caret Line="83" Column="14" TopLine="58"/>
</Position28>
<Position29>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="2509" Column="59" TopLine="2509"/>
</Position29>
<Position30>
<Filename Value="unit1.pas"/>
<Caret Line="30" Column="30" TopLine="13"/>
</Position30>
</JumpHistory>
</ProjectSession>
</CONFIG>

View File

@ -98,12 +98,73 @@ object Form1: TForm1
Footers = <>
end
item
ButtonStyle = cbsPickList
Title.Alignment = taCenter
Title.Orientation = toHorizontal
Title.Caption = 'CODE'
Width = 100
Width = 200
FieldName = 'CODE'
EditButtons = <>
EditButtons = <
item
Glyph.Data = {
C6010000424DC60100000000000036000000280000000A0000000A0000000100
2000000000009001000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000004141
41FF414141FF00000000414141FF414141FF00000000414141FF414141FF0000
000000000000414141FF414141FF00000000414141FF414141FF000000004141
41FF414141FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000
}
Style = ebsEllipsisRx
end
item
Glyph.Data = {
C6010000424DC60100000000000036000000280000000A0000000A0000000100
2000000000009001000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000414141FF414141FF000000000000
0000000000000000000000000000000000000000000000000000414141FF4141
41FF000000000000000000000000000000000000000000000000000000000000
0000414141FF414141FF00000000000000000000000000000000000000004141
41FF414141FF414141FF414141FF414141FF414141FF414141FF414141FF0000
000000000000414141FF414141FF414141FF414141FF414141FF414141FF4141
41FF414141FF0000000000000000000000000000000000000000414141FF4141
41FF000000000000000000000000000000000000000000000000000000000000
0000414141FF414141FF00000000000000000000000000000000000000000000
00000000000000000000414141FF414141FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000
}
Style = ebsPlusRx
end
item
Glyph.Data = {
C6010000424DC60100000000000036000000280000000A0000000A0000000100
2000000000009001000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000004141
41FF414141FF414141FF414141FF414141FF414141FF414141FF414141FF0000
000000000000414141FF414141FF414141FF414141FF414141FF414141FF4141
41FF414141FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000
}
Style = ebsMinusRx
end>
Filter.IsNull = False
Filter.IsAll = True
Filter.DropDownRows = 0
@ -178,9 +239,8 @@ object Form1: TForm1
SelectedColor = clHighlight
GridLineStyle = psSolid
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowEditor, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentColor = False
ReadOnly = True
TabOrder = 2
end
object Memo1: TMemo
@ -195,6 +255,34 @@ object Form1: TForm1
ReadOnly = True
TabOrder = 3
end
object Edit2: TEdit
Left = 656
Height = 37
Top = 0
Width = 80
TabOrder = 4
Text = '64'
end
object Button1: TButton
Left = 832
Height = 36
Top = 1
Width = 83
AutoSize = True
Caption = 'Def height'
OnClick = Button1Click
TabOrder = 5
end
object Button2: TButton
Left = 736
Height = 36
Top = 0
Width = 86
AutoSize = True
Caption = ' Set height'
OnClick = Button2Click
TabOrder = 6
end
object RxMemoryData1: TRxMemoryData
FieldDefs = <
item

View File

@ -13,9 +13,12 @@ type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
CheckBox1: TCheckBox;
DataSource1: TDataSource;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Memo1: TMemo;
RxDBGrid1: TRxDBGrid;
@ -24,6 +27,8 @@ type
RxMemoryData1CODE: TLongintField;
RxMemoryData1ID: TLongintField;
RxMemoryData1NAME: TStringField;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure CheckBox1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
@ -36,6 +41,7 @@ var
Form1: TForm1;
implementation
uses DBGrids;
{$R *.lfm}
@ -45,6 +51,7 @@ procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
RxDBGrid1.Options:=RxDBGrid1.Options + [dgAlwaysShowEditor];
RxMemoryData1.Open;
for i:=1 to 20 do
begin
@ -60,6 +67,7 @@ begin
end;
RxDBGrid1.CreateToolMenuItem(#0, '-', nil);
RxDBGrid1.CreateToolMenuItem(#0, 'Show info box', @RxDBGridInfoBox);
// RxDBGrid1.DefaultRowHeight:=;
end;
procedure TForm1.RxDBGridInfoBox(Sender: TObject);
@ -81,5 +89,18 @@ begin
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
RxDBGrid1.DefaultRowHeight:=StrToInt(Edit2.Text);
end;
type
THackGrid = class(TRxDBGrid);
procedure TForm1.Button1Click(Sender: TObject);
begin
RxDBGrid1.DefaultRowHeight:=THackGrid(RxDBGrid1).GetDefaultRowHeight;
end;
end.

View File

@ -1724,42 +1724,24 @@ begin
end;
procedure TRxColumnEditButton.SetStyle(AValue: TRxColumnEditButtonStyle);
{var
G: TRxDBGrid;
P: TPersistent;}
begin
if FStyle=AValue then Exit;
FStyle:=AValue;
{ if Assigned(Collection) and Assigned(Collection.Owner)
and Assigned(TRxColumn(Collection.Owner).Collection)
and Assigned(TRxColumn(Collection.Owner).Collection.Owner) then
begin
P:=Collection;
P:=Collection.Owner;
P:=TRxColumn(Collection.Owner).Collection;
P:=TRxColumn(Collection.Owner).Collection.Owner;
G:=TRxDBGrid(TRxColumn(Collection.Owner).Collection.Owner);
}
case FStyle of
ebsDropDownRx:FButton.Glyph.Assign(FMarkerDown);
ebsEllipsisRx:FButton.Glyph.Assign(FEllipsisRxBMP);
ebsGlyphRx:FButton.Glyph.Assign(FGlyphRxBMP);
ebsUpDownRx:FButton.Glyph.Assign(FUpDownRxBMP);
ebsPlusRx:FButton.Glyph.Assign(FPlusRxBMP);
ebsMinusRx:FButton.Glyph.Assign(FMinusRxBMP);
else
FButton.Glyph.Assign(nil);
end;
// end;
case FStyle of
ebsDropDownRx:FButton.Glyph.Assign(FMarkerDown);
ebsEllipsisRx:FButton.Glyph.Assign(FEllipsisRxBMP);
ebsGlyphRx:FButton.Glyph.Assign(FGlyphRxBMP);
ebsUpDownRx:FButton.Glyph.Assign(FUpDownRxBMP);
ebsPlusRx:FButton.Glyph.Assign(FPlusRxBMP);
ebsMinusRx:FButton.Glyph.Assign(FMinusRxBMP);
else
FButton.Glyph.Assign(nil);
end;
end;
procedure TRxColumnEditButton.SetVisible(AValue: Boolean);
begin
// if FVisible=AValue then Exit;
FVisible:=AValue;
if AValue then
begin
if Style = ebsUpDownRx then
@ -4652,25 +4634,15 @@ function TRxDBGrid.GetBufferCount: integer;
var
H:integer;
begin
{ Result := ClientHeight div DefaultRowHeight;
if rdgWordWrap in FOptionsRx then
if DefaultRowHeight > 0 then
begin
H:=UpdateRowsHeight;
// if H>0 then
// Result := H;
end;
if dgTitles in Options then
begin
Dec(Result, RowHeights[0] div DefaultRowHeight);
end;
if FFooterOptions.Active then
Dec(Result, FFooterOptions.RowCount);}
H:=ClientHeight - GCache.FixedHeight;
if FFooterOptions.Active then
H:=H - DefaultRowHeight * FFooterOptions.RowCount;
Result := H div DefaultRowHeight;
// result := (ClientHeight - GCache.FixedHeight - DefaultRowHeight) div DefaultRowHeight;
H:=ClientHeight - GCache.FixedHeight;
if FFooterOptions.Active then
H:=H - DefaultRowHeight * FFooterOptions.RowCount;
Result := H div DefaultRowHeight;
end
else
Result := 1;
end;
{procedure TRxDBGrid.CMHintShow(var Message: TLMessage);