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

RxDBGrid - fix work lockupcombo cell editor

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2526 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-09-20 14:02:20 +00:00
parent 28e82d44ad
commit 49e82e3e66
4 changed files with 174 additions and 122 deletions
Download Patch File Download Diff File Expand all files Collapse all files

250
components/rx/Demos/RxDBGrid/RxDBGridDemo.lpi
View File

@@ -54,7 +54,7 @@
<MinVersion Major="1" Release="18" Build="56" Valid="True"/> <MinVersion Major="1" Release="18" Build="56" Valid="True"/>
</Item4> </Item4>
</RequiredPackages> </RequiredPackages>
<Units Count="76"> <Units Count="77">
<Unit0> <Unit0>
<Filename Value="RxDBGridDemo.lpr"/> <Filename Value="RxDBGridDemo.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@@ -62,7 +62,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="9" Y="16"/> <CursorPos X="9" Y="16"/>
<UsageCount Value="60"/> <UsageCount Value="65"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="rxdbgridmainunit.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
@@ -75,7 +75,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="21" Y="18"/> <CursorPos X="21" Y="18"/>
<UsageCount Value="60"/> <UsageCount Value="65"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
@@ -84,27 +84,27 @@
<UnitName Value="db"/> <UnitName Value="db"/>
<TopLine Value="1112"/> <TopLine Value="1112"/>
<CursorPos X="17" Y="1116"/> <CursorPos X="17" Y="1116"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="../../../fpcsrc/fcl/db/dataset.inc"/> <Filename Value="../../../fpcsrc/fcl/db/dataset.inc"/>
<TopLine Value="1134"/> <TopLine Value="1134"/>
<CursorPos X="21" Y="1139"/> <CursorPos X="21" Y="1139"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="../../rxmemds.pas"/> <Filename Value="../../rxmemds.pas"/>
<UnitName Value="rxmemds"/> <UnitName Value="rxmemds"/>
<TopLine Value="337"/> <TopLine Value="337"/>
<CursorPos X="1" Y="356"/> <CursorPos X="1" Y="356"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<UnitName Value="rxdbgrid"/> <UnitName Value="rxdbgrid"/>
<TopLine Value="1007"/> <TopLine Value="1007"/>
<CursorPos X="51" Y="1022"/> <CursorPos X="51" Y="1022"/>
<UsageCount Value="12"/> <UsageCount Value="11"/>
<Bookmarks Count="2"> <Bookmarks Count="2">
<Item0 X="1" Y="1089" ID="1"/> <Item0 X="1" Y="1089" ID="1"/>
<Item1 X="3" Y="1230" ID="2"/> <Item1 X="3" Y="1230" ID="2"/>
@@ -115,73 +115,73 @@
<UnitName Value="LResources"/> <UnitName Value="LResources"/>
<TopLine Value="2626"/> <TopLine Value="2626"/>
<CursorPos X="1" Y="2644"/> <CursorPos X="1" Y="2644"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="../../../lcl/grids.pas"/> <Filename Value="../../../lcl/grids.pas"/>
<UnitName Value="Grids"/> <UnitName Value="Grids"/>
<TopLine Value="385"/> <TopLine Value="385"/>
<CursorPos X="33" Y="394"/> <CursorPos X="33" Y="394"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="../../../lcl/dbgrids.pas"/> <Filename Value="../../../lcl/dbgrids.pas"/>
<UnitName Value="DBGrids"/> <UnitName Value="DBGrids"/>
<TopLine Value="187"/> <TopLine Value="187"/>
<CursorPos X="30" Y="199"/> <CursorPos X="30" Y="199"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="../../rxpopupunit.pas"/> <Filename Value="../../rxpopupunit.pas"/>
<UnitName Value="rxpopupunit"/> <UnitName Value="rxpopupunit"/>
<TopLine Value="246"/> <TopLine Value="246"/>
<CursorPos X="15" Y="249"/> <CursorPos X="15" Y="249"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="../../../lcl/include/wincontrol.inc"/> <Filename Value="../../../lcl/include/wincontrol.inc"/>
<TopLine Value="7217"/> <TopLine Value="7217"/>
<CursorPos X="1" Y="7236"/> <CursorPos X="1" Y="7236"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="../../../lcl/include/control.inc"/> <Filename Value="../../../lcl/include/control.inc"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="../../../lcl/lclmessageglue.pas"/> <Filename Value="../../../lcl/lclmessageglue.pas"/>
<UnitName Value="LCLMessageGlue"/> <UnitName Value="LCLMessageGlue"/>
<TopLine Value="92"/> <TopLine Value="92"/>
<CursorPos X="46" Y="96"/> <CursorPos X="46" Y="96"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="../../../lcl/controls.pp"/> <Filename Value="../../../lcl/controls.pp"/>
<UnitName Value="Controls"/> <UnitName Value="Controls"/>
<TopLine Value="1779"/> <TopLine Value="1779"/>
<CursorPos X="60" Y="1798"/> <CursorPos X="60" Y="1798"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="../../../install/2/rxdbgrid.diff"/> <Filename Value="../../../install/2/rxdbgrid.diff"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="1" Y="21"/> <CursorPos X="1" Y="21"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
<DefaultSyntaxHighlighter Value="Diff"/> <DefaultSyntaxHighlighter Value="Diff"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="../../../lcl/interfaces/gtk/gtkdevicecontext.inc"/> <Filename Value="../../../lcl/interfaces/gtk/gtkdevicecontext.inc"/>
<TopLine Value="626"/> <TopLine Value="626"/>
<CursorPos X="1" Y="644"/> <CursorPos X="1" Y="644"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="../../../lcl/interfaces/gtk2/gtk2winapi.inc"/> <Filename Value="../../../lcl/interfaces/gtk2/gtk2winapi.inc"/>
<TopLine Value="559"/> <TopLine Value="559"/>
<CursorPos X="1" Y="577"/> <CursorPos X="1" Y="577"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="../../rxdbgrid_columsunit.pas"/> <Filename Value="../../rxdbgrid_columsunit.pas"/>
@@ -191,75 +191,75 @@
<UnitName Value="rxdbgrid_columsunit"/> <UnitName Value="rxdbgrid_columsunit"/>
<TopLine Value="26"/> <TopLine Value="26"/>
<CursorPos X="46" Y="45"/> <CursorPos X="46" Y="45"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="../../rxdconst.pas"/> <Filename Value="../../rxdconst.pas"/>
<UnitName Value="rxdconst"/> <UnitName Value="rxdconst"/>
<TopLine Value="126"/> <TopLine Value="126"/>
<CursorPos X="15" Y="155"/> <CursorPos X="15" Y="155"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
<Filename Value="../../../lcl/include/winapih.inc"/> <Filename Value="../../../lcl/include/winapih.inc"/>
<TopLine Value="211"/> <TopLine Value="211"/>
<CursorPos X="10" Y="223"/> <CursorPos X="10" Y="223"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit19> </Unit19>
<Unit20> <Unit20>
<Filename Value="../../backup/rxdbgrid.pas"/> <Filename Value="../../backup/rxdbgrid.pas"/>
<UnitName Value="rxdbgrid"/> <UnitName Value="rxdbgrid"/>
<TopLine Value="1207"/> <TopLine Value="1207"/>
<CursorPos X="1" Y="1227"/> <CursorPos X="1" Y="1227"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="../../rxaboutdialog.pas"/> <Filename Value="../../rxaboutdialog.pas"/>
<UnitName Value="RxAboutDialog"/> <UnitName Value="RxAboutDialog"/>
<TopLine Value="10"/> <TopLine Value="10"/>
<CursorPos X="73" Y="30"/> <CursorPos X="73" Y="30"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
<Filename Value="../../registerrx.pas"/> <Filename Value="../../registerrx.pas"/>
<UnitName Value="registerrx"/> <UnitName Value="registerrx"/>
<TopLine Value="174"/> <TopLine Value="174"/>
<CursorPos X="18" Y="201"/> <CursorPos X="18" Y="201"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="../../../ideintf/idewindowintf.pas"/> <Filename Value="../../../ideintf/idewindowintf.pas"/>
<UnitName Value="IDEWindowIntf"/> <UnitName Value="IDEWindowIntf"/>
<TopLine Value="31"/> <TopLine Value="31"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="../../../lcl/extdlgs.pas"/> <Filename Value="../../../lcl/extdlgs.pas"/>
<UnitName Value="ExtDlgs"/> <UnitName Value="ExtDlgs"/>
<TopLine Value="105"/> <TopLine Value="105"/>
<CursorPos X="35" Y="122"/> <CursorPos X="35" Y="122"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit24> </Unit24>
<Unit25> <Unit25>
<Filename Value="../../../lcl/dialogs.pp"/> <Filename Value="../../../lcl/dialogs.pp"/>
<UnitName Value="Dialogs"/> <UnitName Value="Dialogs"/>
<TopLine Value="62"/> <TopLine Value="62"/>
<CursorPos X="21" Y="79"/> <CursorPos X="21" Y="79"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit25> </Unit25>
<Unit26> <Unit26>
<Filename Value="../../../lcl/include/commondialog.inc"/> <Filename Value="../../../lcl/include/commondialog.inc"/>
<TopLine Value="80"/> <TopLine Value="80"/>
<CursorPos X="17" Y="84"/> <CursorPos X="17" Y="84"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit26> </Unit26>
<Unit27> <Unit27>
<Filename Value="../../../lcl/widgetset/wsdialogs.pp"/> <Filename Value="../../../lcl/widgetset/wsdialogs.pp"/>
<UnitName Value="WSDialogs"/> <UnitName Value="WSDialogs"/>
<TopLine Value="132"/> <TopLine Value="132"/>
<CursorPos X="3" Y="136"/> <CursorPos X="3" Y="136"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit27> </Unit27>
<Unit28> <Unit28>
<Filename Value="../../rxaboutformunit.pas"/> <Filename Value="../../rxaboutformunit.pas"/>
@@ -268,41 +268,41 @@
<UnitName Value="rxAboutFormUnit"/> <UnitName Value="rxAboutFormUnit"/>
<TopLine Value="41"/> <TopLine Value="41"/>
<CursorPos X="26" Y="55"/> <CursorPos X="26" Y="55"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit28> </Unit28>
<Unit29> <Unit29>
<Filename Value="../../rxversinfo.pas"/> <Filename Value="../../rxversinfo.pas"/>
<UnitName Value="RxVersInfo"/> <UnitName Value="RxVersInfo"/>
<TopLine Value="72"/> <TopLine Value="72"/>
<CursorPos X="49" Y="105"/> <CursorPos X="49" Y="105"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit29> </Unit29>
<Unit30> <Unit30>
<Filename Value="../../../lcl/buttonpanel.pas"/> <Filename Value="../../../lcl/buttonpanel.pas"/>
<UnitName Value="ButtonPanel"/> <UnitName Value="ButtonPanel"/>
<TopLine Value="11"/> <TopLine Value="11"/>
<CursorPos X="6" Y="15"/> <CursorPos X="6" Y="15"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit30> </Unit30>
<Unit31> <Unit31>
<Filename Value="../../../lcl/extctrls.pp"/> <Filename Value="../../../lcl/extctrls.pp"/>
<UnitName Value="ExtCtrls"/> <UnitName Value="ExtCtrls"/>
<TopLine Value="604"/> <TopLine Value="604"/>
<CursorPos X="15" Y="607"/> <CursorPos X="15" Y="607"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit31> </Unit31>
<Unit32> <Unit32>
<Filename Value="../../../lcl/include/customimage.inc"/> <Filename Value="../../../lcl/include/customimage.inc"/>
<TopLine Value="67"/> <TopLine Value="67"/>
<CursorPos X="3" Y="69"/> <CursorPos X="3" Y="69"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit32> </Unit32>
<Unit33> <Unit33>
<Filename Value="../../../install/fpcsrc/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../install/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="426"/> <TopLine Value="426"/>
<CursorPos X="17" Y="448"/> <CursorPos X="17" Y="448"/>
<UsageCount Value="16"/> <UsageCount Value="15"/>
</Unit33> </Unit33>
<Unit34> <Unit34>
<Filename Value="../../../smsprog/sms_send_deamon/smsSendGui/smssendaboutunit.pas"/> <Filename Value="../../../smsprog/sms_send_deamon/smsSendGui/smssendaboutunit.pas"/>
@@ -312,21 +312,21 @@
<UnitName Value="smsSendAboutUnit"/> <UnitName Value="smsSendAboutUnit"/>
<TopLine Value="28"/> <TopLine Value="28"/>
<CursorPos X="1" Y="57"/> <CursorPos X="1" Y="57"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit34> </Unit34>
<Unit35> <Unit35>
<Filename Value="../../../smsprog/sms_shared/smsabstarctconstunit.pas"/> <Filename Value="../../../smsprog/sms_shared/smsabstarctconstunit.pas"/>
<UnitName Value="smsAbstarctConstUnit"/> <UnitName Value="smsAbstarctConstUnit"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="42" Y="11"/> <CursorPos X="42" Y="11"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit35> </Unit35>
<Unit36> <Unit36>
<Filename Value="../../rxconst.pas"/> <Filename Value="../../rxconst.pas"/>
<UnitName Value="rxconst"/> <UnitName Value="rxconst"/>
<TopLine Value="34"/> <TopLine Value="34"/>
<CursorPos X="3" Y="51"/> <CursorPos X="3" Y="51"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit36> </Unit36>
<Unit37> <Unit37>
<Filename Value="../../../rxnet/demo/send_demo/smssendparamsunit.pas"/> <Filename Value="../../../rxnet/demo/send_demo/smssendparamsunit.pas"/>
@@ -336,7 +336,7 @@
<UnitName Value="smssendParamsUnit"/> <UnitName Value="smssendParamsUnit"/>
<TopLine Value="49"/> <TopLine Value="49"/>
<CursorPos X="34" Y="60"/> <CursorPos X="34" Y="60"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit37> </Unit37>
<Unit38> <Unit38>
<Filename Value="../../../rxnet/demo/send_demo/smssenddemomainunit.pas"/> <Filename Value="../../../rxnet/demo/send_demo/smssenddemomainunit.pas"/>
@@ -346,49 +346,49 @@
<UnitName Value="smsSendDemoMainUnit"/> <UnitName Value="smsSendDemoMainUnit"/>
<TopLine Value="41"/> <TopLine Value="41"/>
<CursorPos X="105" Y="29"/> <CursorPos X="105" Y="29"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit38> </Unit38>
<Unit39> <Unit39>
<Filename Value="../../../rxnet/demo/send_demo/send_demo.lpr"/> <Filename Value="../../../rxnet/demo/send_demo/send_demo.lpr"/>
<UnitName Value="send_demo"/> <UnitName Value="send_demo"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit39> </Unit39>
<Unit40> <Unit40>
<Filename Value="../../../doceditor/lazdeopts.pp"/> <Filename Value="../../../doceditor/lazdeopts.pp"/>
<UnitName Value="LazDEOpts"/> <UnitName Value="LazDEOpts"/>
<TopLine Value="43"/> <TopLine Value="43"/>
<CursorPos X="1" Y="56"/> <CursorPos X="1" Y="56"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit40> </Unit40>
<Unit41> <Unit41>
<Filename Value="../../rxfileutils.pas"/> <Filename Value="../../rxfileutils.pas"/>
<UnitName Value="rxFileUtils"/> <UnitName Value="rxFileUtils"/>
<TopLine Value="18"/> <TopLine Value="18"/>
<CursorPos X="33" Y="42"/> <CursorPos X="33" Y="42"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit41> </Unit41>
<Unit42> <Unit42>
<Filename Value="../../registerrxdb.pas"/> <Filename Value="../../registerrxdb.pas"/>
<UnitName Value="RegisterRxDB"/> <UnitName Value="RegisterRxDB"/>
<TopLine Value="2"/> <TopLine Value="2"/>
<CursorPos X="20" Y="17"/> <CursorPos X="20" Y="17"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit42> </Unit42>
<Unit43> <Unit43>
<Filename Value="../../../ideintf/dbpropedits.pas"/> <Filename Value="../../../ideintf/dbpropedits.pas"/>
<UnitName Value="DBPropEdits"/> <UnitName Value="DBPropEdits"/>
<TopLine Value="13"/> <TopLine Value="13"/>
<CursorPos X="6" Y="19"/> <CursorPos X="6" Y="19"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit43> </Unit43>
<Unit44> <Unit44>
<Filename Value="../../../ideintf/propedits.pp"/> <Filename Value="../../../ideintf/propedits.pp"/>
<UnitName Value="PropEdits"/> <UnitName Value="PropEdits"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="6" Y="26"/> <CursorPos X="6" Y="26"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit44> </Unit44>
<Unit45> <Unit45>
<Filename Value="../../rxdbgrid_findunit.pas"/> <Filename Value="../../rxdbgrid_findunit.pas"/>
@@ -398,7 +398,7 @@
<UnitName Value="rxdbgrid_findunit"/> <UnitName Value="rxdbgrid_findunit"/>
<TopLine Value="78"/> <TopLine Value="78"/>
<CursorPos X="1" Y="94"/> <CursorPos X="1" Y="94"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit45> </Unit45>
<Unit46> <Unit46>
<Filename Value="../../rxtoolbar.pas"/> <Filename Value="../../rxtoolbar.pas"/>
@@ -406,7 +406,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="52" Y="26"/> <CursorPos X="52" Y="26"/>
<UsageCount Value="11"/> <UsageCount Value="10"/>
</Unit46> </Unit46>
<Unit47> <Unit47>
<Filename Value="../../../synedit/synedit.pp"/> <Filename Value="../../../synedit/synedit.pp"/>
@@ -414,7 +414,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="5699"/> <TopLine Value="5699"/>
<CursorPos X="1" Y="5702"/> <CursorPos X="1" Y="5702"/>
<UsageCount Value="16"/> <UsageCount Value="15"/>
</Unit47> </Unit47>
<Unit48> <Unit48>
<Filename Value="../../../synedit/syneditkeycmds.pp"/> <Filename Value="../../../synedit/syneditkeycmds.pp"/>
@@ -422,14 +422,14 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="750"/> <TopLine Value="750"/>
<CursorPos X="3" Y="752"/> <CursorPos X="3" Y="752"/>
<UsageCount Value="12"/> <UsageCount Value="11"/>
</Unit48> </Unit48>
<Unit49> <Unit49>
<Filename Value="../../../install/fpcsrc/rtl/objpas/classes/classes.inc"/> <Filename Value="../../../install/fpcsrc/rtl/objpas/classes/classes.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="429"/> <TopLine Value="429"/>
<CursorPos X="33" Y="447"/> <CursorPos X="33" Y="447"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit49> </Unit49>
<Unit50> <Unit50>
<Filename Value="../../../lcl/actnlist.pas"/> <Filename Value="../../../lcl/actnlist.pas"/>
@@ -437,7 +437,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="206"/> <TopLine Value="206"/>
<CursorPos X="33" Y="224"/> <CursorPos X="33" Y="224"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit50> </Unit50>
<Unit51> <Unit51>
<Filename Value="../../../lcl/lclproc.pas"/> <Filename Value="../../../lcl/lclproc.pas"/>
@@ -445,14 +445,14 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1154"/> <TopLine Value="1154"/>
<CursorPos X="10" Y="1165"/> <CursorPos X="10" Y="1165"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit51> </Unit51>
<Unit52> <Unit52>
<Filename Value="rxdbgridmainunit.lfm"/> <Filename Value="rxdbgridmainunit.lfm"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="133"/> <TopLine Value="133"/>
<CursorPos X="5" Y="103"/> <CursorPos X="5" Y="103"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
<DefaultSyntaxHighlighter Value="LFM"/> <DefaultSyntaxHighlighter Value="LFM"/>
</Unit52> </Unit52>
<Unit53> <Unit53>
@@ -460,14 +460,14 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="286"/> <TopLine Value="286"/>
<CursorPos X="1" Y="288"/> <CursorPos X="1" Y="288"/>
<UsageCount Value="15"/> <UsageCount Value="14"/>
</Unit53> </Unit53>
<Unit54> <Unit54>
<Filename Value="../../../wine/1/1/rx.diff"/> <Filename Value="../../../wine/1/1/rx.diff"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="1" Y="9"/> <CursorPos X="1" Y="9"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
<DefaultSyntaxHighlighter Value="Diff"/> <DefaultSyntaxHighlighter Value="Diff"/>
</Unit54> </Unit54>
<Unit55> <Unit55>
@@ -476,14 +476,14 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="541"/> <TopLine Value="541"/>
<CursorPos X="1" Y="569"/> <CursorPos X="1" Y="569"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit55> </Unit55>
<Unit56> <Unit56>
<Filename Value="../../../lcl/include/canvas.inc"/> <Filename Value="../../../lcl/include/canvas.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1116"/> <TopLine Value="1116"/>
<CursorPos X="1" Y="1132"/> <CursorPos X="1" Y="1132"/>
<UsageCount Value="11"/> <UsageCount Value="10"/>
</Unit56> </Unit56>
<Unit57> <Unit57>
<Filename Value="../../exsortsql.pas"/> <Filename Value="../../exsortsql.pas"/>
@@ -491,7 +491,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="69"/> <TopLine Value="69"/>
<CursorPos X="49" Y="3"/> <CursorPos X="49" Y="3"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit57> </Unit57>
<Unit58> <Unit58>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
@@ -499,9 +499,9 @@
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1242"/> <TopLine Value="1276"/>
<CursorPos X="1" Y="1274"/> <CursorPos X="47" Y="1288"/>
<UsageCount Value="13"/> <UsageCount Value="16"/>
<Bookmarks Count="3"> <Bookmarks Count="3">
<Item0 X="3" Y="73" ID="1"/> <Item0 X="3" Y="73" ID="1"/>
<Item1 X="13" Y="328" ID="2"/> <Item1 X="13" Y="328" ID="2"/>
@@ -512,10 +512,12 @@
<Unit59> <Unit59>
<Filename Value="/usr/local/share/lazarus/lcl/dbgrids.pas"/> <Filename Value="/usr/local/share/lazarus/lcl/dbgrids.pas"/>
<UnitName Value="DBGrids"/> <UnitName Value="DBGrids"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="199"/> <TopLine Value="2414"/>
<CursorPos X="3" Y="220"/> <CursorPos X="1" Y="2437"/>
<UsageCount Value="11"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit59> </Unit59>
<Unit60> <Unit60>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/>
@@ -523,14 +525,14 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="7494"/> <TopLine Value="7494"/>
<CursorPos X="34" Y="7503"/> <CursorPos X="34" Y="7503"/>
<UsageCount Value="11"/> <UsageCount Value="10"/>
</Unit60> </Unit60>
<Unit61> <Unit61>
<Filename Value="../../../../../../install/fpcsrc/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../../../../install/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1554"/> <TopLine Value="1554"/>
<CursorPos X="38" Y="1569"/> <CursorPos X="38" Y="1569"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit61> </Unit61>
<Unit62> <Unit62>
<Filename Value="/usr/local/share/lazarus/lcl/buttons.pp"/> <Filename Value="/usr/local/share/lazarus/lcl/buttons.pp"/>
@@ -538,7 +540,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="333"/> <TopLine Value="333"/>
<CursorPos X="3" Y="360"/> <CursorPos X="3" Y="360"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit62> </Unit62>
<Unit63> <Unit63>
<Filename Value="../../../../../../install/fpcsrc/packages/fcl-db/src/base/db.pas"/> <Filename Value="../../../../../../install/fpcsrc/packages/fcl-db/src/base/db.pas"/>
@@ -546,7 +548,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1588"/> <TopLine Value="1588"/>
<CursorPos X="15" Y="1609"/> <CursorPos X="15" Y="1609"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit63> </Unit63>
<Unit64> <Unit64>
<Filename Value="/usr/local/share/lazarus/components/rxnew/vclutils.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/vclutils.pas"/>
@@ -554,14 +556,14 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="1" Y="35"/> <CursorPos X="1" Y="35"/>
<UsageCount Value="12"/> <UsageCount Value="11"/>
</Unit64> </Unit64>
<Unit65> <Unit65>
<Filename Value="/usr/local/share/lazarus/lcl/include/canvas.inc"/> <Filename Value="/usr/local/share/lazarus/lcl/include/canvas.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1317"/> <TopLine Value="1317"/>
<CursorPos X="1" Y="1338"/> <CursorPos X="1" Y="1338"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit65> </Unit65>
<Unit66> <Unit66>
<Filename Value="/usr/local/share/lazarus/lcl/graphics.pp"/> <Filename Value="/usr/local/share/lazarus/lcl/graphics.pp"/>
@@ -569,21 +571,21 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="93"/> <TopLine Value="93"/>
<CursorPos X="3" Y="99"/> <CursorPos X="3" Y="99"/>
<UsageCount Value="11"/> <UsageCount Value="10"/>
</Unit66> </Unit66>
<Unit67> <Unit67>
<Filename Value="/usr/local/share/lazarus/lcl/include/lclintf.inc"/> <Filename Value="/usr/local/share/lazarus/lcl/include/lclintf.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="132"/> <TopLine Value="132"/>
<CursorPos X="1" Y="155"/> <CursorPos X="1" Y="155"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit67> </Unit67>
<Unit68> <Unit68>
<Filename Value="/usr/local/share/lazarus/lcl/interfaces/gtk2/gtk2lclintf.inc"/> <Filename Value="/usr/local/share/lazarus/lcl/interfaces/gtk2/gtk2lclintf.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="167"/> <TopLine Value="167"/>
<CursorPos X="1" Y="190"/> <CursorPos X="1" Y="190"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit68> </Unit68>
<Unit69> <Unit69>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxsortby.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxsortby.pas"/>
@@ -594,7 +596,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="50"/> <TopLine Value="50"/>
<CursorPos X="14" Y="65"/> <CursorPos X="14" Y="65"/>
<UsageCount Value="12"/> <UsageCount Value="11"/>
</Unit69> </Unit69>
<Unit70> <Unit70>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxfilterby.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxfilterby.pas"/>
@@ -605,21 +607,21 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="315"/> <TopLine Value="315"/>
<CursorPos X="1" Y="350"/> <CursorPos X="1" Y="350"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit70> </Unit70>
<Unit71> <Unit71>
<Filename Value="../../../../../../install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../../../../install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="645"/> <TopLine Value="645"/>
<CursorPos X="15" Y="666"/> <CursorPos X="15" Y="666"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit71> </Unit71>
<Unit72> <Unit72>
<Filename Value="../../../../../../install/source/fpcsrc/rtl/objpas/classes/stringl.inc"/> <Filename Value="../../../../../../install/source/fpcsrc/rtl/objpas/classes/stringl.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="593"/> <TopLine Value="593"/>
<CursorPos X="3" Y="598"/> <CursorPos X="3" Y="598"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit72> </Unit72>
<Unit73> <Unit73>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxstrutils.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxstrutils.pas"/>
@@ -627,149 +629,159 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="140"/> <TopLine Value="140"/>
<CursorPos X="23" Y="168"/> <CursorPos X="23" Y="168"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit73> </Unit73>
<Unit74> <Unit74>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxlookup.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxlookup.pas"/>
<UnitName Value="rxlookup"/> <UnitName Value="rxlookup"/>
<EditorIndex Value="3"/> <EditorIndex Value="4"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="797"/> <TopLine Value="1176"/>
<CursorPos X="17" Y="805"/> <CursorPos X="3" Y="1196"/>
<UsageCount Value="10"/> <UsageCount Value="13"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit74> </Unit74>
<Unit75> <Unit75>
<Filename Value="../../../../../../install/source/fpcsrc/packages/fcl-db/src/base/db.pas"/> <Filename Value="../../../../../../install/source/fpcsrc/packages/fcl-db/src/base/db.pas"/>
<UnitName Value="db"/> <UnitName Value="db"/>
<EditorIndex Value="2"/> <EditorIndex Value="3"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1776"/> <TopLine Value="1776"/>
<CursorPos X="14" Y="1796"/> <CursorPos X="14" Y="1796"/>
<UsageCount Value="10"/> <UsageCount Value="13"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit75> </Unit75>
<Unit76>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxpopupunit.pas"/>
<UnitName Value="rxpopupunit"/>
<EditorIndex Value="5"/>
<WindowIndex Value="0"/>
<TopLine Value="275"/>
<CursorPos X="1" Y="298"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit76>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="28"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1172" Column="29" TopLine="1136"/> <Caret Line="1302" Column="1" TopLine="1281"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1175" Column="37" TopLine="1138"/> <Caret Line="1297" Column="1" TopLine="1281"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1190" Column="37" TopLine="1153"/> <Caret Line="1298" Column="1" TopLine="1281"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1258" Column="37" TopLine="1220"/> <Caret Line="3040" Column="1" TopLine="3019"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1261" Column="37" TopLine="1225"/> <Caret Line="3041" Column="1" TopLine="3019"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1268" Column="39" TopLine="1231"/> <Caret Line="1297" Column="1" TopLine="1276"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1275" Column="38" TopLine="1239"/> <Caret Line="1298" Column="1" TopLine="1276"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="3660" Column="29" TopLine="3626"/> <Caret Line="3040" Column="1" TopLine="3019"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="3676" Column="40" TopLine="3640"/> <Caret Line="3041" Column="1" TopLine="3019"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="1297" Column="1" TopLine="1276"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="469" Column="31" TopLine="436"/> <Caret Line="1298" Column="1" TopLine="1276"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="3189" Column="45" TopLine="3154"/> <Caret Line="3040" Column="1" TopLine="3019"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="3600" Column="46" TopLine="3565"/> <Caret Line="3041" Column="1" TopLine="3019"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="3606" Column="47" TopLine="3571"/> <Caret Line="1297" Column="1" TopLine="1276"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="3658" Column="59" TopLine="3624"/> <Caret Line="3041" Column="1" TopLine="3020"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="1297" Column="1" TopLine="1276"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="781" Column="31" TopLine="743"/> <Caret Line="3041" Column="1" TopLine="3020"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1274" Column="29" TopLine="1239"/> <Caret Line="1297" Column="1" TopLine="1276"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxlookup.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1049" Column="3" TopLine="1042"/> <Caret Line="3041" Column="1" TopLine="3020"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxlookup.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1210" Column="3" TopLine="1172"/> <Caret Line="1297" Column="1" TopLine="1276"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="791" Column="62" TopLine="772"/> <Caret Line="3041" Column="1" TopLine="3020"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1246" Column="3" TopLine="1242"/> <Caret Line="1297" Column="1" TopLine="1276"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1271" Column="19" TopLine="1242"/> <Caret Line="3041" Column="1" TopLine="3020"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1254" Column="15" TopLine="1251"/> <Caret Line="1297" Column="1" TopLine="1276"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxlookup.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="289" Column="14" TopLine="268"/> <Caret Line="3041" Column="1" TopLine="3020"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1269" Column="4" TopLine="1250"/> <Caret Line="1297" Column="1" TopLine="1276"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1256" Column="8" TopLine="1250"/> <Caret Line="3041" Column="1" TopLine="3020"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1276" Column="3" TopLine="1250"/> <Caret Line="1297" Column="1" TopLine="1276"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1272" Column="75" TopLine="1242"/> <Caret Line="3041" Column="1" TopLine="3020"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1282" Column="3" TopLine="1280"/> <Caret Line="3042" Column="1" TopLine="3020"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

2
components/rx/Demos/RxDBGrid/rxdbgridmainunit.lfm
View File

@@ -257,7 +257,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
SelectedColor = clHighlight SelectedColor = clHighlight
GridLineStyle = psSolid GridLineStyle = psSolid
DataSource = Datasource1 DataSource = Datasource1
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiselect, dgHeaderPushedLook] Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgMultiselect, dgHeaderPushedLook]
ParentColor = False ParentColor = False
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
Scrollbars = ssVertical Scrollbars = ssVertical

42
components/rx/rxdbgrid.pas
View File

@@ -787,8 +787,9 @@ type
procedure KeyDown(var Key: word; Shift: TShiftState); override; procedure KeyDown(var Key: word; Shift: TShiftState); override;
procedure msg_SetGrid(var Msg: TGridMessage); message GM_SETGRID; procedure msg_SetGrid(var Msg: TGridMessage); message GM_SETGRID;
procedure msg_SetValue(var Msg: TGridMessage); message GM_SETVALUE; procedure msg_SetValue(var Msg: TGridMessage); message GM_SETVALUE;
procedure ShowList; override; procedure msg_GetValue(var Msg: TGridMessage); message GM_GETVALUE;
procedure OnInternalClosePopup(AResult:boolean);override; procedure OnInternalClosePopup(AResult:boolean);override;
procedure ShowList; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@@ -1191,6 +1192,7 @@ procedure TRxDBGridLookupComboEditor.KeyDown(var Key: word; Shift: TShiftState);
procedure doGridKeyDown; procedure doGridKeyDown;
begin begin
if Assigned(FGrid) then if Assigned(FGrid) then
// FGrid.EditorkeyDown(Self, key, shift);
FGrid.KeyDown(Key, shift); FGrid.KeyDown(Key, shift);
end; end;
@@ -1207,14 +1209,21 @@ procedure TRxDBGridLookupComboEditor.KeyDown(var Key: word; Shift: TShiftState);
else else
Result := False; Result := False;
end; end;
procedure CheckEditingKey;
begin
if (FGrid=nil) or FGrid.EditorIsReadOnly then
Key := 0;
end;
begin begin
CheckEditingKey;
case Key of case Key of
VK_UP, VK_UP,
VK_DOWN: VK_DOWN:
if (not PopupVisible) and (not (ssAlt in Shift)) then if (not PopupVisible) and (not (ssAlt in Shift)) then
begin begin
doGridKeyDown; doGridKeyDown;
Key:=0;
exit; exit;
end; end;
VK_LEFT, VK_RIGHT: VK_LEFT, VK_RIGHT:
@@ -1231,6 +1240,8 @@ begin
end; end;
end; end;
inherited KeyDown(Key, Shift); inherited KeyDown(Key, Shift);
{ if FGrid<>nil then
FGrid.EditingDone;}
end; end;
procedure TRxDBGridLookupComboEditor.msg_SetGrid(var Msg: TGridMessage); procedure TRxDBGridLookupComboEditor.msg_SetGrid(var Msg: TGridMessage);
@@ -1258,6 +1269,22 @@ begin
end; end;
end; end;
procedure TRxDBGridLookupComboEditor.msg_GetValue(var Msg: TGridMessage);
var
sText: string;
F:TField;
begin
if Assigned(FGrid.SelectedField) and Assigned(FLDS.DataSet) then
begin
F:=FLDS.DataSet.FieldByName(LookupDisplay);
if Assigned(F) then
begin
sText := F.DisplayText;
Msg.Value := sText;
end;
end;
end;
procedure TRxDBGridLookupComboEditor.ShowList; procedure TRxDBGridLookupComboEditor.ShowList;
begin begin
FGrid.GetOnDisplayLookup; FGrid.GetOnDisplayLookup;
@@ -1265,15 +1292,26 @@ begin
end; end;
procedure TRxDBGridLookupComboEditor.OnInternalClosePopup(AResult: boolean); procedure TRxDBGridLookupComboEditor.OnInternalClosePopup(AResult: boolean);
procedure CheckEditingKey;
begin
if (FGrid=nil) or FGrid.EditorIsReadOnly then
// Key := 0;
end;
var var
F:TField; F:TField;
begin begin
inherited OnInternalClosePopup(AResult); inherited OnInternalClosePopup(AResult);
CheckEditingKey;
if (AResult) and Assigned(FGrid.SelectedField) and Assigned(FLDS.DataSet) then if (AResult) and Assigned(FGrid.SelectedField) and Assigned(FLDS.DataSet) then
begin begin
F:=FLDS.DataSet.FieldByName(LookupDisplay); F:=FLDS.DataSet.FieldByName(LookupDisplay);
if Assigned(F) then if Assigned(F) then
FGrid.SelectedField.Assign(F); begin
//FGrid.SelectedField.Assign(F);
if (FGrid<>nil) and Visible then begin
FGrid.SetEditText(FCol, FRow, F.DisplayText);
end;
end;
end; end;
end; end;

2
components/rx/rxpopupunit.pas
View File

@@ -326,6 +326,8 @@ begin
case Key of case Key of
VK_ESCAPE:Deactivate; VK_ESCAPE:Deactivate;
VK_RETURN:begin VK_RETURN:begin
Key:=0;
Shift:=[];
CloseOk; CloseOk;
exit;{In that case we need to exit away.} exit;{In that case we need to exit away.}
end; end;