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

RxDBGrid - allow word wrap in data cell. For details see RxDBGrid demo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2568 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-10-17 13:17:40 +00:00
parent a118511eb9
commit 5cfeeee16e
4 changed files with 403 additions and 178 deletions
Download Patch File Download Diff File Expand all files Collapse all files

383
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="87"> <Units Count="93">
<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="78"/> <UsageCount Value="88"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="rxdbgridmainunit.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
@ -73,9 +73,9 @@
<UnitName Value="RxDBGridMainUnit"/> <UnitName Value="RxDBGridMainUnit"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="53"/> <TopLine Value="240"/>
<CursorPos X="1" Y="73"/> <CursorPos X="24" Y="262"/>
<UsageCount Value="78"/> <UsageCount Value="88"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
@ -84,20 +84,20 @@
<UnitName Value="db"/> <UnitName Value="db"/>
<TopLine Value="1112"/> <TopLine Value="1112"/>
<CursorPos X="17" Y="1116"/> <CursorPos X="17" Y="1116"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</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="6"/> <UsageCount Value="5"/>
</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="6"/> <UsageCount Value="5"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
@ -105,7 +105,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="3589"/> <TopLine Value="3589"/>
<CursorPos X="28" Y="3600"/> <CursorPos X="28" Y="3600"/>
<UsageCount Value="14"/> <UsageCount Value="13"/>
<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"/>
@ -116,73 +116,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="6"/> <UsageCount Value="5"/>
</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="7"/> <UsageCount Value="6"/>
</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="7"/> <UsageCount Value="6"/>
</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="7"/> <UsageCount Value="6"/>
</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="6"/> <UsageCount Value="5"/>
</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="6"/> <UsageCount Value="5"/>
</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="6"/> <UsageCount Value="5"/>
</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="6"/> <UsageCount Value="5"/>
</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="6"/> <UsageCount Value="5"/>
<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="6"/> <UsageCount Value="5"/>
</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="6"/> <UsageCount Value="5"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="../../rxdbgrid_columsunit.pas"/> <Filename Value="../../rxdbgrid_columsunit.pas"/>
@ -192,75 +192,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="6"/> <UsageCount Value="5"/>
</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="6"/> <UsageCount Value="5"/>
</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="6"/> <UsageCount Value="5"/>
</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="6"/> <UsageCount Value="5"/>
</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="7"/> <UsageCount Value="6"/>
</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="7"/> <UsageCount Value="6"/>
</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="6"/> <UsageCount Value="5"/>
</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="6"/> <UsageCount Value="5"/>
</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="6"/> <UsageCount Value="5"/>
</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="6"/> <UsageCount Value="5"/>
</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="6"/> <UsageCount Value="5"/>
</Unit27> </Unit27>
<Unit28> <Unit28>
<Filename Value="../../rxaboutformunit.pas"/> <Filename Value="../../rxaboutformunit.pas"/>
@ -269,41 +269,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="7"/> <UsageCount Value="6"/>
</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="6"/> <UsageCount Value="5"/>
</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="7"/> <UsageCount Value="6"/>
</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="7"/> <UsageCount Value="6"/>
</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="7"/> <UsageCount Value="6"/>
</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="14"/> <UsageCount Value="13"/>
</Unit33> </Unit33>
<Unit34> <Unit34>
<Filename Value="../../../smsprog/sms_send_deamon/smsSendGui/smssendaboutunit.pas"/> <Filename Value="../../../smsprog/sms_send_deamon/smsSendGui/smssendaboutunit.pas"/>
@ -313,21 +313,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="7"/> <UsageCount Value="6"/>
</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="7"/> <UsageCount Value="6"/>
</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="7"/> <UsageCount Value="6"/>
</Unit36> </Unit36>
<Unit37> <Unit37>
<Filename Value="../../../rxnet/demo/send_demo/smssendparamsunit.pas"/> <Filename Value="../../../rxnet/demo/send_demo/smssendparamsunit.pas"/>
@ -337,7 +337,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="7"/> <UsageCount Value="6"/>
</Unit37> </Unit37>
<Unit38> <Unit38>
<Filename Value="../../../rxnet/demo/send_demo/smssenddemomainunit.pas"/> <Filename Value="../../../rxnet/demo/send_demo/smssenddemomainunit.pas"/>
@ -347,49 +347,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="7"/> <UsageCount Value="6"/>
</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="7"/> <UsageCount Value="6"/>
</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="7"/> <UsageCount Value="6"/>
</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="7"/> <UsageCount Value="6"/>
</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="7"/> <UsageCount Value="6"/>
</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="7"/> <UsageCount Value="6"/>
</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="7"/> <UsageCount Value="6"/>
</Unit44> </Unit44>
<Unit45> <Unit45>
<Filename Value="../../rxdbgrid_findunit.pas"/> <Filename Value="../../rxdbgrid_findunit.pas"/>
@ -399,7 +399,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="7"/> <UsageCount Value="6"/>
</Unit45> </Unit45>
<Unit46> <Unit46>
<Filename Value="../../rxtoolbar.pas"/> <Filename Value="../../rxtoolbar.pas"/>
@ -407,7 +407,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="9"/> <UsageCount Value="8"/>
</Unit46> </Unit46>
<Unit47> <Unit47>
<Filename Value="../../../synedit/synedit.pp"/> <Filename Value="../../../synedit/synedit.pp"/>
@ -415,7 +415,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="14"/> <UsageCount Value="13"/>
</Unit47> </Unit47>
<Unit48> <Unit48>
<Filename Value="../../../synedit/syneditkeycmds.pp"/> <Filename Value="../../../synedit/syneditkeycmds.pp"/>
@ -423,14 +423,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="10"/> <UsageCount Value="9"/>
</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="7"/> <UsageCount Value="6"/>
</Unit49> </Unit49>
<Unit50> <Unit50>
<Filename Value="../../../lcl/actnlist.pas"/> <Filename Value="../../../lcl/actnlist.pas"/>
@ -438,7 +438,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="7"/> <UsageCount Value="6"/>
</Unit50> </Unit50>
<Unit51> <Unit51>
<Filename Value="../../../lcl/lclproc.pas"/> <Filename Value="../../../lcl/lclproc.pas"/>
@ -446,14 +446,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="7"/> <UsageCount Value="6"/>
</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="8"/> <UsageCount Value="7"/>
<DefaultSyntaxHighlighter Value="LFM"/> <DefaultSyntaxHighlighter Value="LFM"/>
</Unit52> </Unit52>
<Unit53> <Unit53>
@ -461,14 +461,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="13"/> <UsageCount Value="12"/>
</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="8"/> <UsageCount Value="7"/>
<DefaultSyntaxHighlighter Value="Diff"/> <DefaultSyntaxHighlighter Value="Diff"/>
</Unit54> </Unit54>
<Unit55> <Unit55>
@ -477,14 +477,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="8"/> <UsageCount Value="7"/>
</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="9"/> <UsageCount Value="8"/>
</Unit56> </Unit56>
<Unit57> <Unit57>
<Filename Value="../../exsortsql.pas"/> <Filename Value="../../exsortsql.pas"/>
@ -492,33 +492,32 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="69"/> <TopLine Value="69"/>
<CursorPos X="49" Y="3"/> <CursorPos X="49" Y="3"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit57> </Unit57>
<Unit58> <Unit58>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<UnitName Value="rxdbgrid"/> <UnitName Value="rxdbgrid"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="419"/> <TopLine Value="836"/>
<CursorPos X="15" Y="482"/> <CursorPos X="7" Y="858"/>
<UsageCount Value="20"/> <UsageCount Value="25"/>
<Bookmarks Count="4"> <Bookmarks Count="3">
<Item0 X="18" Y="3902" ID="1"/> <Item0 X="1" Y="3450" ID="3"/>
<Item1 X="1" Y="2206" ID="2"/> <Item1 X="1" Y="1838" ID="4"/>
<Item2 X="15" Y="633" ID="3"/> <Item2 X="1" Y="2672" ID="1"/>
<Item3 X="17" Y="3772" ID="4"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit58> </Unit58>
<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"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="433"/> <TopLine Value="443"/>
<CursorPos X="15" Y="476"/> <CursorPos X="14" Y="463"/>
<UsageCount Value="13"/> <UsageCount Value="18"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit59> </Unit59>
<Unit60> <Unit60>
@ -526,9 +525,9 @@
<UnitName Value="Grids"/> <UnitName Value="Grids"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="3779"/> <TopLine Value="2558"/>
<CursorPos X="31" Y="3814"/> <CursorPos X="1" Y="2580"/>
<UsageCount Value="16"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit60> </Unit60>
<Unit61> <Unit61>
@ -536,7 +535,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1554"/> <TopLine Value="1554"/>
<CursorPos X="38" Y="1569"/> <CursorPos X="38" Y="1569"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit61> </Unit61>
<Unit62> <Unit62>
<Filename Value="/usr/local/share/lazarus/lcl/buttons.pp"/> <Filename Value="/usr/local/share/lazarus/lcl/buttons.pp"/>
@ -544,7 +543,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="8"/> <UsageCount Value="7"/>
</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"/>
@ -552,7 +551,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="8"/> <UsageCount Value="7"/>
</Unit63> </Unit63>
<Unit64> <Unit64>
<Filename Value="/usr/local/share/lazarus/components/rxnew/vclutils.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/vclutils.pas"/>
@ -560,14 +559,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="10"/> <UsageCount Value="9"/>
</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="8"/> <UsageCount Value="7"/>
</Unit65> </Unit65>
<Unit66> <Unit66>
<Filename Value="/usr/local/share/lazarus/lcl/graphics.pp"/> <Filename Value="/usr/local/share/lazarus/lcl/graphics.pp"/>
@ -575,21 +574,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="9"/> <UsageCount Value="8"/>
</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="8"/> <UsageCount Value="7"/>
</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="8"/> <UsageCount Value="7"/>
</Unit68> </Unit68>
<Unit69> <Unit69>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxsortby.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxsortby.pas"/>
@ -600,7 +599,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="10"/> <UsageCount Value="9"/>
</Unit69> </Unit69>
<Unit70> <Unit70>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxfilterby.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxfilterby.pas"/>
@ -611,21 +610,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="8"/> <UsageCount Value="7"/>
</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="255"/> <TopLine Value="72"/>
<CursorPos X="15" Y="271"/> <CursorPos X="30" Y="95"/>
<UsageCount Value="12"/> <UsageCount Value="11"/>
</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="8"/> <UsageCount Value="7"/>
</Unit72> </Unit72>
<Unit73> <Unit73>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxstrutils.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxstrutils.pas"/>
@ -633,7 +632,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="140"/> <TopLine Value="140"/>
<CursorPos X="23" Y="168"/> <CursorPos X="23" Y="168"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit73> </Unit73>
<Unit74> <Unit74>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxlookup.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxlookup.pas"/>
@ -641,7 +640,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1176"/> <TopLine Value="1176"/>
<CursorPos X="3" Y="1196"/> <CursorPos X="3" Y="1196"/>
<UsageCount Value="15"/> <UsageCount Value="14"/>
</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"/>
@ -649,7 +648,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1776"/> <TopLine Value="1776"/>
<CursorPos X="14" Y="1796"/> <CursorPos X="14" Y="1796"/>
<UsageCount Value="15"/> <UsageCount Value="14"/>
</Unit75> </Unit75>
<Unit76> <Unit76>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxpopupunit.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxpopupunit.pas"/>
@ -657,21 +656,21 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="275"/> <TopLine Value="275"/>
<CursorPos X="1" Y="298"/> <CursorPos X="1" Y="298"/>
<UsageCount Value="15"/> <UsageCount Value="14"/>
</Unit76> </Unit76>
<Unit77> <Unit77>
<Filename Value="../../../../../../install/source/fpcsrc/rtl/objpas/classes/collect.inc"/> <Filename Value="../../../../../../install/source/fpcsrc/rtl/objpas/classes/collect.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="397"/> <TopLine Value="397"/>
<CursorPos X="3" Y="399"/> <CursorPos X="3" Y="399"/>
<UsageCount Value="12"/> <UsageCount Value="11"/>
</Unit77> </Unit77>
<Unit78> <Unit78>
<Filename Value="../../../../../../install/source/fpcsrc/rtl/objpas/classes/lists.inc"/> <Filename Value="../../../../../../install/source/fpcsrc/rtl/objpas/classes/lists.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="131"/> <TopLine Value="131"/>
<CursorPos X="3" Y="133"/> <CursorPos X="3" Y="133"/>
<UsageCount Value="12"/> <UsageCount Value="11"/>
</Unit78> </Unit78>
<Unit79> <Unit79>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxsortmemds.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxsortmemds.pas"/>
@ -679,7 +678,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="16"/> <TopLine Value="16"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit79> </Unit79>
<Unit80> <Unit80>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxmemds.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxmemds.pas"/>
@ -687,25 +686,23 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1629"/> <TopLine Value="1629"/>
<CursorPos X="3" Y="1641"/> <CursorPos X="3" Y="1641"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit80> </Unit80>
<Unit81> <Unit81>
<Filename Value="../../../../lcl/graphics.pp"/> <Filename Value="../../../../lcl/graphics.pp"/>
<UnitName Value="Graphics"/> <UnitName Value="Graphics"/>
<EditorIndex Value="4"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="524"/> <TopLine Value="524"/>
<CursorPos X="17" Y="542"/> <CursorPos X="17" Y="542"/>
<UsageCount Value="13"/> <UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit81> </Unit81>
<Unit82> <Unit82>
<Filename Value="/usr/local/share/lazarus/lcl/controls.pp"/> <Filename Value="/usr/local/share/lazarus/lcl/controls.pp"/>
<UnitName Value="Controls"/> <UnitName Value="Controls"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1554"/> <TopLine Value="1843"/>
<CursorPos X="14" Y="1574"/> <CursorPos X="15" Y="1865"/>
<UsageCount Value="12"/> <UsageCount Value="11"/>
</Unit82> </Unit82>
<Unit83> <Unit83>
<Filename Value="/usr/local/share/lazarus/components/rxnew/Demos/RxDBGrid/rxdbgridmainunit.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/Demos/RxDBGrid/rxdbgridmainunit.pas"/>
@ -713,7 +710,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="136"/> <TopLine Value="136"/>
<CursorPos X="1" Y="162"/> <CursorPos X="1" Y="162"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit83> </Unit83>
<Unit84> <Unit84>
<Filename Value="/usr/local/share/lazarus/lcl/stdctrls.pp"/> <Filename Value="/usr/local/share/lazarus/lcl/stdctrls.pp"/>
@ -721,7 +718,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="233"/> <TopLine Value="233"/>
<CursorPos X="3" Y="254"/> <CursorPos X="3" Y="254"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit84> </Unit84>
<Unit85> <Unit85>
<Filename Value="/usr/local/share/lazarus/lcl/lcltype.pp"/> <Filename Value="/usr/local/share/lazarus/lcl/lcltype.pp"/>
@ -729,129 +726,181 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1115"/> <TopLine Value="1115"/>
<CursorPos X="3" Y="1136"/> <CursorPos X="3" Y="1136"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit85> </Unit85>
<Unit86> <Unit86>
<Filename Value="/usr/local/share/lazarus/lcl/include/customcontrol.inc"/> <Filename Value="/usr/local/share/lazarus/lcl/include/customcontrol.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="70"/> <TopLine Value="70"/>
<CursorPos X="3" Y="79"/> <CursorPos X="3" Y="79"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit86> </Unit86>
<Unit87>
<Filename Value="/usr/local/share/lazarus/lcl/include/wincontrol.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="7674"/>
<CursorPos X="1" Y="7696"/>
<UsageCount Value="11"/>
</Unit87>
<Unit88>
<Filename Value="../../../../../../install/source/fpcsrc/rtl/objpas/types.pp"/>
<UnitName Value="types"/>
<WindowIndex Value="0"/>
<TopLine Value="70"/>
<CursorPos X="16" Y="91"/>
<UsageCount Value="10"/>
</Unit88>
<Unit89>
<Filename Value="/usr/local/share/lazarus/lcl/include/control.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="5414"/>
<CursorPos X="1" Y="5435"/>
<UsageCount Value="10"/>
</Unit89>
<Unit90>
<Filename Value="/usr/local/share/lazarus/lcl/include/scrollingwincontrol.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="65"/>
<CursorPos X="1" Y="87"/>
<UsageCount Value="10"/>
</Unit90>
<Unit91>
<Filename Value="/usr/local/share/lazarus/lcl/include/customform.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="732"/>
<CursorPos X="1" Y="761"/>
<UsageCount Value="10"/>
</Unit91>
<Unit92>
<Filename Value="/usr/local/share/lazarus/lcl/editbtn.pas"/>
<UnitName Value="EditBtn"/>
<WindowIndex Value="0"/>
<TopLine Value="648"/>
<CursorPos X="1" Y="670"/>
<UsageCount Value="10"/>
</Unit92>
</Units> </Units>
<JumpHistory Count="28" HistoryIndex="26"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="rxdbgridmainunit.pas"/> <Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/>
<Caret Line="153" Column="1" TopLine="153"/> <Caret Line="2574" Column="1" TopLine="2565"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="rxdbgridmainunit.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="265" Column="3" TopLine="262"/> <Caret Line="2366" Column="1" TopLine="2339"/>
</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="3300" Column="3" TopLine="3297"/> <Caret Line="2359" Column="1" TopLine="2312"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/>
<Caret Line="3389" Column="3" TopLine="3381"/> <Caret Line="3853" Column="3" TopLine="3834"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/>
<Caret Line="3300" Column="3" TopLine="3297"/> <Caret Line="3849" Column="25" TopLine="3824"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="3403" Column="3" TopLine="3381"/> <Caret Line="2361" Column="19" TopLine="2321"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="908" Column="27" TopLine="889"/> <Caret Line="2367" Column="1" TopLine="2346"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/>
<Caret Line="3408" Column="17" TopLine="3373"/> <Caret Line="2574" Column="1" TopLine="2553"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/>
<Caret Line="3785" Column="35" TopLine="3749"/> <Caret Line="5471" Column="49" TopLine="5448"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="2305" Column="17" TopLine="2288"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="908" Column="27" TopLine="875"/> <Caret Line="2355" Column="1" TopLine="2331"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="3408" Column="17" TopLine="3373"/> <Caret Line="396" Column="77" TopLine="406"/>
</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="482" Column="15" TopLine="419"/> <Caret Line="2671" Column="1" TopLine="2617"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="/usr/local/share/lazarus/lcl/dbgrids.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="285" Column="3" TopLine="262"/> <Caret Line="73" Column="1" TopLine="53"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="/usr/local/share/lazarus/lcl/dbgrids.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="2696" Column="3" TopLine="2691"/> <Caret Line="75" Column="1" TopLine="54"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="3788" Column="3" TopLine="3782"/> <Caret Line="260" Column="38" TopLine="241"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="923" Column="23" TopLine="904"/> <Caret Line="262" Column="43" TopLine="239"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="3791" Column="15" TopLine="3756"/> <Caret Line="260" Column="43" TopLine="240"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="3794" Column="13" TopLine="3759"/> <Caret Line="718" Column="14" TopLine="699"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="260" Column="43" TopLine="240"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="923" Column="23" TopLine="890"/> <Caret Line="262" Column="24" TopLine="240"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="3791" Column="15" TopLine="3756"/> <Caret Line="674" Column="14" TopLine="653"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="3794" Column="13" TopLine="3759"/> <Caret Line="549" Column="31" TopLine="530"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="/usr/local/share/lazarus/lcl/dbgrids.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="2696" Column="3" TopLine="2691"/> <Caret Line="2304" Column="37" TopLine="2269"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="/usr/local/share/lazarus/lcl/dbgrids.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="262" Column="24" TopLine="240"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="/usr/local/share/lazarus/lcl/dbgrids.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="395" Column="23" TopLine="361"/> <Caret Line="674" Column="14" TopLine="654"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="/usr/local/share/lazarus/lcl/dbgrids.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1283" Column="13" TopLine="1271"/> <Caret Line="550" Column="15" TopLine="534"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="/usr/local/share/lazarus/lcl/dbgrids.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="607" Column="10" TopLine="586"/> <Caret Line="2371" Column="10" TopLine="2342"/>
</Position28> </Position28>
<Position29>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="2332" Column="1" TopLine="2312"/>
</Position29>
<Position30>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="1210" Column="17" TopLine="1200"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
@ -880,16 +929,22 @@
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Watches Count="3"> <Watches Count="5">
<Item1> <Item1>
<Expression Value="aState"/> <Expression Value="K"/>
</Item1> </Item1>
<Item2> <Item2>
<Expression Value="S1"/> <Expression Value="H"/>
</Item2> </Item2>
<Item3> <Item3>
<Expression Value="S"/> <Expression Value="I"/>
</Item3> </Item3>
<Item4>
<Expression Value="S"/>
</Item4>
<Item5>
<Expression Value="K1"/>
</Item5>
</Watches> </Watches>
<Exceptions Count="1"> <Exceptions Count="1">
<Item1> <Item1>

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

@ -90,6 +90,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
EditButtons = <> EditButtons = <>
WordWrap = True
end end
item item
Title.Alignment = taCenter Title.Alignment = taCenter
@ -392,6 +393,19 @@ object RxDBGridMainForm: TRxDBGridMainForm
State = cbChecked State = cbChecked
TabOrder = 6 TabOrder = 6
end end
object CheckBox5: TCheckBox
AnchorSideLeft.Control = CheckBox3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 721
Height = 22
Top = 7
Width = 90
BorderSpacing.Around = 6
Caption = 'Word wrap'
OnChange = CheckBox5Change
TabOrder = 7
end
end end
object SpeedButton1: TSpeedButton object SpeedButton1: TSpeedButton
Left = 596 Left = 596

10
components/rx/Demos/RxDBGrid/rxdbgridmainunit.pas
View File

@ -15,6 +15,7 @@ type
TRxDBGridMainForm = class(TForm) TRxDBGridMainForm = class(TForm)
actCalcTotal: TAction; actCalcTotal: TAction;
CheckBox5: TCheckBox;
MenuItem10: TMenuItem; MenuItem10: TMenuItem;
MenuItem11: TMenuItem; MenuItem11: TMenuItem;
MenuItem8: TMenuItem; MenuItem8: TMenuItem;
@ -69,6 +70,7 @@ type
procedure CheckBox2Change(Sender: TObject); procedure CheckBox2Change(Sender: TObject);
procedure CheckBox3Change(Sender: TObject); procedure CheckBox3Change(Sender: TObject);
procedure CheckBox4Change(Sender: TObject); procedure CheckBox4Change(Sender: TObject);
procedure CheckBox5Change(Sender: TObject);
procedure ComboBox1Change(Sender: TObject); procedure ComboBox1Change(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure hlpAboutExecute(Sender: TObject); procedure hlpAboutExecute(Sender: TObject);
@ -252,6 +254,14 @@ begin
RxDBGrid1.Options:=RxDBGrid1.Options - [dgTitles]; RxDBGrid1.Options:=RxDBGrid1.Options - [dgTitles];
end; end;
procedure TRxDBGridMainForm.CheckBox5Change(Sender: TObject);
begin
if CheckBox5.Checked then
RxDBGrid1.OptionsRx:=RxDBGrid1.OptionsRx + [rdgWordWrap]
else
RxDBGrid1.OptionsRx:=RxDBGrid1.OptionsRx - [rdgWordWrap];
end;
procedure TRxDBGridMainForm.ComboBox1Change(Sender: TObject); procedure TRxDBGridMainForm.ComboBox1Change(Sender: TObject);
begin begin
RxDBGrid1.ReadOnly:=ComboBox1.ItemIndex <> 0; RxDBGrid1.ReadOnly:=ComboBox1.ItemIndex <> 0;

174
components/rx/rxdbgrid.pas
View File

@ -91,7 +91,8 @@ type
rdgAllowFilterForm, rdgAllowFilterForm,
rdgAllowSortForm, rdgAllowSortForm,
rdgAllowToolMenu, rdgAllowToolMenu,
rdgCaseInsensitiveSort rdgCaseInsensitiveSort,
rdgWordWrap
); );
TOptionsRx = set of TOptionRx; TOptionsRx = set of TOptionRx;
@ -364,6 +365,7 @@ type
FOnDrawColumnCell: TDrawColumnCellEvent; FOnDrawColumnCell: TDrawColumnCellEvent;
FSortOrder: TSortMarker; FSortOrder: TSortMarker;
FSortPosition: integer; FSortPosition: integer;
FWordWrap: boolean;
function GetFooter: TRxColumnFooter; function GetFooter: TRxColumnFooter;
function GetKeyList: TStrings; function GetKeyList: TStrings;
procedure SetEditButtons(AValue: TRxColumnEditButtons); procedure SetEditButtons(AValue: TRxColumnEditButtons);
@ -372,6 +374,7 @@ type
procedure SetImageList(const AValue: TImageList); procedure SetImageList(const AValue: TImageList);
procedure SetKeyList(const AValue: TStrings); procedure SetKeyList(const AValue: TStrings);
procedure SetNotInKeyListIndex(const AValue: integer); procedure SetNotInKeyListIndex(const AValue: integer);
procedure SetWordWrap(AValue: boolean);
protected protected
function CreateTitle: TGridColumnTitle; override; function CreateTitle: TGridColumnTitle; override;
public public
@ -390,6 +393,7 @@ type
property DirectInput : boolean read FDirectInput write FDirectInput default true; property DirectInput : boolean read FDirectInput write FDirectInput default true;
property EditButtons:TRxColumnEditButtons read FEditButtons write SetEditButtons; property EditButtons:TRxColumnEditButtons read FEditButtons write SetEditButtons;
property OnDrawColumnCell: TDrawColumnCellEvent read FOnDrawColumnCell write FOnDrawColumnCell; property OnDrawColumnCell: TDrawColumnCellEvent read FOnDrawColumnCell write FOnDrawColumnCell;
property WordWrap:boolean read FWordWrap write SetWordWrap default false;
end; end;
{ TRxDbGridColumns } { TRxDbGridColumns }
@ -541,6 +545,9 @@ type
procedure CollumnSortListUpdate; procedure CollumnSortListUpdate;
procedure CollumnSortListClear; procedure CollumnSortListClear;
procedure CollumnSortListApply; procedure CollumnSortListApply;
procedure UpdateRowsHeight;
procedure ResetRowHeght;
protected protected
function DatalinkActive: boolean; function DatalinkActive: boolean;
procedure LinkActive(Value: Boolean); override; procedure LinkActive(Value: Boolean); override;
@ -577,6 +584,7 @@ type
procedure UpdateActive; override; procedure UpdateActive; override;
procedure UpdateData; override; procedure UpdateData; override;
procedure MoveSelection; override; procedure MoveSelection; override;
//function GetBufferCount: integer; override;
procedure CMHintShow(var Message: TLMessage); message CM_HINTSHOW; procedure CMHintShow(var Message: TLMessage); message CM_HINTSHOW;
procedure FFilterListEditorOnChange(Sender: TObject); procedure FFilterListEditorOnChange(Sender: TObject);
procedure FFilterListEditorOnCloseUp(Sender: TObject); procedure FFilterListEditorOnCloseUp(Sender: TObject);
@ -847,7 +855,7 @@ type
public public
constructor Create(Aowner : TComponent); override; constructor Create(Aowner : TComponent); override;
// procedure SetBounds(aLeft, aTop, aWidth, aHeight: integer); override; //procedure SetBounds(aLeft, aTop, aWidth, aHeight: integer); override;
procedure EditingDone; override; procedure EditingDone; override;
end; end;
@ -1196,13 +1204,15 @@ begin
UpdateMask; UpdateMask;
end; end;
{procedure TRxDBGridDateEditor.SetBounds(aLeft, aTop, aWidth, aHeight: integer); {
procedure TRxDBGridDateEditor.SetBounds(aLeft, aTop, aWidth, aHeight: integer);
begin begin
BeginUpdateBounds; BeginUpdateBounds;
Dec(aWidth, 25); Dec(aWidth, 25); //ButtonWidth);
inherited SetBounds(aLeft, aTop, aWidth, aHeight); inherited SetBounds(aLeft, aTop, aWidth, aHeight);
EndUpdateBounds; EndUpdateBounds;
end;} end;
}
procedure TRxDBGridDateEditor.EditingDone; procedure TRxDBGridDateEditor.EditingDone;
begin begin
@ -1698,6 +1708,10 @@ begin
end; end;
FFooterOptions.FActive:=rdgFooterRows in FOptionsRx; FFooterOptions.FActive:=rdgFooterRows in FOptionsRx;
if (rdgWordWrap in OldOpt) and not (rdgWordWrap in FOptionsRx) then
ResetRowHeght;
VisualChange; VisualChange;
end; end;
@ -2294,6 +2308,58 @@ begin
FSortingNow:=false; FSortingNow:=false;
end; end;
procedure TRxDBGrid.UpdateRowsHeight;
var
i, J, H, H1:integer;
B:boolean;
F:TField;
S:string;
CurActiveRecord: Integer;
R:TRxColumn;
begin
if not (Assigned(DataLink) and DataLink.Active) then
exit;
CurActiveRecord:=DataLink.ActiveRecord;
for i:=GCache.VisibleGrid.Top to GCache.VisibleGrid.Bottom do
begin
DataLink.ActiveRecord:=i - FixedRows;
H:=1;
for j:=0 to Columns.Count-1 do
begin
R:=Columns[j] as TRxColumn;;
if R.WordWrap then
begin
F:=R.Field;
if Assigned(F) then
S:=F.DisplayText
else
S:='';
H1 := Max((Canvas.TextWidth(S) + 2) div R.Width + 1, H);
if H1 > WordCount(S, [' ']) then
H1 := WordCount(S, [' ']);
end
else
H1:=1;
H:=Max(H, H1);
end;
if i<RowCount then
RowHeights[i] := DefaultRowHeight * H;
end;
DataLink.ActiveRecord:=CurActiveRecord;
end;
procedure TRxDBGrid.ResetRowHeght;
var
i:integer;
begin
for i:=1 to RowCount-1 do
RowHeights[i] := DefaultRowHeight;
end;
procedure TRxDBGrid.DefaultDrawCellA(aCol, aRow: integer; aRect: TRect; procedure TRxDBGrid.DefaultDrawCellA(aCol, aRow: integer; aRect: TRect;
aState: TGridDrawState); aState: TGridDrawState);
@ -2603,7 +2669,10 @@ begin
end end
else else
S := ''; S := '';
DrawCellText(aCol, aRow, aRect, aState, S); if (rdgWordWrap in FOptionsRx) and Assigned(C) and (C.WordWrap) then
WriteTextHeader(Canvas, aRect, S, C.Alignment)
else
DrawCellText(aCol, aRow, aRect, aState, S);
end; end;
end; end;
end; end;
@ -2618,13 +2687,6 @@ begin
if (gdFixed in aState) and (aRow = 0) then if (gdFixed in aState) and (aRow = 0) then
begin begin
DefaultDrawCellA(aCol, aRow, aRect, aState); DefaultDrawCellA(aCol, aRow, aRect, aState);
{ if (ARect.Top<=0) and (aCol=0) and (aRow=0) and (DatalinkActive) and (DataSource.DataSet.State = dsBrowse) then
begin
// F_TopRect := ARect;
Canvas.Lock;
Canvas.Draw((ARect.Left+ARect.Right-F_MenuBMP.Width) div 2,(ARect.Top + ARect.Bottom - F_MenuBMP.Height) div 2, F_MenuBMP);
Canvas.UnLock;
end;}
end end
else else
if not ((gdFixed in aState) or ((aCol = 0) and (dgIndicator in Options)) or if not ((gdFixed in aState) or ((aCol = 0) and (dgIndicator in Options)) or
@ -3327,6 +3389,82 @@ begin
DrawFooterRows; DrawFooterRows;
end; end;
(*
function TRxDBGrid.GetBufferCount: integer;
var
i, J, W, H, H1, HW, k:integer;
B:boolean;
F:TField;
S:string;
CurActiveRecord: Integer;
begin
b:=false;
for i:=0 to Columns.Count-1 do
begin
if TRxColumn(Columns[i]).WordWrap then
begin
B:=true;
Break;
end;
end;
if not B then
Result:=inherited GetBufferCount
else
begin
CurActiveRecord:=DataLink.ActiveRecord;
Result:=0;
HW:=0;
K:=1;
for i:=GCache.VisibleGrid.Top to GCache.VisibleGrid.Bottom do
begin
DataLink.ActiveRecord:=i - FixedRows;
H:=1; //DefaultRowHeight;
for j:=0 to Columns.Count-1 do
begin
W:=Columns[i].Width;
if TRxColumn(Columns[i]).WordWrap then
begin
F:=Columns[i].Field;
if Assigned(F) then
S:=F.DisplayText
else
S:='';
H1 := Max((Canvas.TextWidth(S) + 2) div W + 1, H);
if H1 > WordCount(S, [' ']) then
H1 := WordCount(S, [' ']);
end;
H:=Max(H, H1);
end;
HW:=HW + H * DefaultRowHeight;
if HW>Height then
break;
RowHeights[K] := DefaultRowHeight * H;
inc(K);
inc(Result);
end;
DataLink.ActiveRecord:=CurActiveRecord;
{
if (ARow>=FixedRows) and FDataLink.Active then
begin
FDataLink.ActiveRecord:=ARow-FixedRows;
FDrawingActiveRecord := ARow = Row;
FDrawingMultiSelRecord := (dgMultiSelect in Options) and
SelectedRows.CurrentRowSelected
end else begin
FDrawingActiveRecord := False;
FDrawingMultiSelRecord := False;
end;
}
end;
end;
*)
procedure TRxDBGrid.CMHintShow(var Message: TLMessage); procedure TRxDBGrid.CMHintShow(var Message: TLMessage);
var var
Cell: TGridCoord; Cell: TGridCoord;
@ -3440,8 +3578,10 @@ end;
procedure TRxDBGrid.VisualChange; procedure TRxDBGrid.VisualChange;
begin begin
inherited VisualChange; inherited VisualChange;
// if Canvas.HandleAllocated then
CalcTitle; CalcTitle;
if rdgWordWrap in FOptionsRx then
UpdateRowsHeight;
end; end;
function TRxDBGrid.EditorByStyle(Style: TColumnButtonStyle): TWinControl; function TRxDBGrid.EditorByStyle(Style: TColumnButtonStyle): TWinControl;
@ -4202,6 +4342,12 @@ begin
Grid.Invalidate; Grid.Invalidate;
end; end;
procedure TRxColumn.SetWordWrap(AValue: boolean);
begin
if FWordWrap=AValue then Exit;
FWordWrap:=AValue;
end;
function TRxColumn.CreateTitle: TGridColumnTitle; function TRxColumn.CreateTitle: TGridColumnTitle;
begin begin
Result := TRxColumnTitle.Create(Self); Result := TRxColumnTitle.Create(Self);