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

RxFPC: RxDBVerticalGrid show images from blob field in cell

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6008 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-08-24 07:58:11 +00:00
parent 0c2657a4d7
commit 6a67ea6b6d
5 changed files with 868 additions and 105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/rx/trunk/demos/RxDBVerticalGrid/project1.lpi
View File

@ -65,7 +65,7 @@
</Linking> </Linking>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Exceptions Count="3"> <Exceptions Count="4">
<Item1> <Item1>
<Name Value="EAbort"/> <Name Value="EAbort"/>
</Item1> </Item1>
@ -75,6 +75,9 @@
<Item3> <Item3>
<Name Value="EFOpenError"/> <Name Value="EFOpenError"/>
</Item3> </Item3>
<Item4>
<Name Value="EInvalidGraphic"/>
</Item4>
</Exceptions> </Exceptions>
</Debugging> </Debugging>
</CONFIG> </CONFIG>

376
components/rx/trunk/demos/RxDBVerticalGrid/project1.lps
View File

@ -3,15 +3,13 @@
<ProjectSession> <ProjectSession>
<Version Value="10"/> <Version Value="10"/>
<BuildModes Active="Default"/> <BuildModes Active="Default"/>
<Units Count="59"> <Units Count="73">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<WindowIndex Value="-1"/> <CursorPos Y="16"/>
<TopLine Value="-1"/> <UsageCount Value="36"/>
<CursorPos X="-1" Y="-1"/>
<UsageCount Value="31"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
@ -21,9 +19,9 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="61"/> <TopLine Value="73"/>
<CursorPos X="20" Y="79"/> <CursorPos X="70" Y="78"/>
<UsageCount Value="31"/> <UsageCount Value="36"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
@ -32,22 +30,24 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="575"/> <TopLine Value="575"/>
<CursorPos Y="585"/> <CursorPos Y="585"/>
<UsageCount Value="20"/> <UsageCount Value="19"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="../../rxdb/rxdbgrid.pas"/> <Filename Value="../../rxdb/rxdbgrid.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="4"/>
<TopLine Value="948"/> <TopLine Value="4122"/>
<CursorPos Y="979"/> <CursorPos Y="4148"/>
<UsageCount Value="15"/> <UsageCount Value="18"/>
<Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="../../../../lcl/grids.pas"/> <Filename Value="../../../../lcl/grids.pas"/>
<UnitName Value="Grids"/> <UnitName Value="Grids"/>
<EditorIndex Value="-1"/> <EditorIndex Value="5"/>
<TopLine Value="4489"/> <TopLine Value="985"/>
<CursorPos Y="4493"/> <CursorPos X="15" Y="1001"/>
<UsageCount Value="14"/> <UsageCount Value="15"/>
<Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="../../../../lcl/dbgrids.pas"/> <Filename Value="../../../../lcl/dbgrids.pas"/>
@ -69,7 +69,8 @@
<Filename Value="../../../../lcl/graphics.pp"/> <Filename Value="../../../../lcl/graphics.pp"/>
<UnitName Value="Graphics"/> <UnitName Value="Graphics"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="14" Y="17"/> <TopLine Value="957"/>
<CursorPos X="28" Y="985"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
@ -77,7 +78,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1793"/> <TopLine Value="1793"/>
<CursorPos Y="1816"/> <CursorPos Y="1816"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="../../rxdb/rxdbtimeedit.pas"/> <Filename Value="../../rxdb/rxdbtimeedit.pas"/>
@ -85,84 +86,85 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="25"/> <TopLine Value="25"/>
<CursorPos X="24" Y="48"/> <CursorPos X="24" Y="48"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="../../../../lcl/dbctrls.pp"/> <Filename Value="../../../../lcl/dbctrls.pp"/>
<UnitName Value="DbCtrls"/> <UnitName Value="DbCtrls"/>
<EditorIndex Value="-1"/> <EditorIndex Value="1"/>
<TopLine Value="91"/> <TopLine Value="1042"/>
<CursorPos X="3" Y="41"/> <CursorPos X="15" Y="1070"/>
<UsageCount Value="10"/> <UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="../../rxdb/rxlookup.pas"/> <Filename Value="../../rxdb/rxlookup.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="373"/> <TopLine Value="373"/>
<CursorPos X="16" Y="392"/> <CursorPos X="16" Y="392"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../../install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="72"/> <TopLine Value="72"/>
<CursorPos X="30" Y="91"/> <CursorPos X="30" Y="91"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="../../../../install/source/fpcsrc/packages/fcl-db/src/base/datasource.inc"/> <Filename Value="../../../../install/source/fpcsrc/packages/fcl-db/src/base/datasource.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="136"/> <TopLine Value="136"/>
<CursorPos Y="156"/> <CursorPos Y="156"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/classes/collect.inc"/> <Filename Value="../../../../install/source/fpcsrc/rtl/objpas/classes/collect.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos Y="25"/> <CursorPos Y="25"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="../../../../install/source/fpcsrc/rtl/inc/objpas.inc"/> <Filename Value="../../../../install/source/fpcsrc/rtl/inc/objpas.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="30"/> <TopLine Value="30"/>
<CursorPos Y="52"/> <CursorPos Y="52"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="../../../../install/source/fpcsrc/rtl/inc/except.inc"/> <Filename Value="../../../../install/source/fpcsrc/rtl/inc/except.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="169"/> <TopLine Value="169"/>
<CursorPos Y="200"/> <CursorPos Y="200"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="../../../../install/source/fpcsrc/rtl/x86_64/setjump.inc"/> <Filename Value="../../../../install/source/fpcsrc/rtl/x86_64/setjump.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="29"/> <TopLine Value="29"/>
<CursorPos Y="60"/> <CursorPos Y="60"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/classes/persist.inc"/> <Filename Value="../../../../install/source/fpcsrc/rtl/objpas/classes/persist.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="46"/> <TopLine Value="46"/>
<CursorPos X="3" Y="49"/> <CursorPos X="3" Y="49"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
<Filename Value="../../../../install/source/fpcsrc/rtl/inc/astrings.inc"/> <Filename Value="../../../../install/source/fpcsrc/rtl/inc/astrings.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="161"/> <TopLine Value="161"/>
<CursorPos Y="180"/> <CursorPos Y="180"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit19> </Unit19>
<Unit20> <Unit20>
<Filename Value="../../../../install/source/fpcsrc/rtl/inc/objpash.inc"/> <Filename Value="../../../../install/source/fpcsrc/rtl/inc/objpash.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="187"/> <TopLine Value="187"/>
<CursorPos X="23" Y="206"/> <CursorPos X="23" Y="206"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="../../registerrxdb.pas"/> <Filename Value="../../registerrxdb.pas"/>
@ -170,106 +172,107 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="65"/> <TopLine Value="65"/>
<CursorPos X="48" Y="77"/> <CursorPos X="48" Y="77"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/> <Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="6"/>
<TopLine Value="1180"/> <TopLine Value="1257"/>
<CursorPos X="39" Y="1213"/> <CursorPos X="31" Y="1281"/>
<UsageCount Value="15"/> <UsageCount Value="18"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="38" Y="894" ID="1"/> <Item0 X="38" Y="913" ID="1"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="../../rx.inc"/> <Filename Value="../../rx.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="23"/> <TopLine Value="23"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="../../registerrx.pas"/> <Filename Value="../../registerrx.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="62" Y="9"/> <CursorPos X="62" Y="9"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit24> </Unit24>
<Unit25> <Unit25>
<Filename Value="../../registerrxtools.pas"/> <Filename Value="../../registerrxtools.pas"/>
<UnitName Value="RegisterRxTools"/> <UnitName Value="RegisterRxTools"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="37"/> <TopLine Value="37"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit25> </Unit25>
<Unit26> <Unit26>
<Filename Value="../../rxcontrols/rxvclutils.pas"/> <Filename Value="../../rxcontrols/rxvclutils.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="77"/> <TopLine Value="77"/>
<CursorPos Y="93"/> <CursorPos Y="93"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit26> </Unit26>
<Unit27> <Unit27>
<Filename Value="../../rxcontrols/rxfduallst.pas"/> <Filename Value="../../rxcontrols/rxfduallst.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="65"/> <TopLine Value="65"/>
<CursorPos X="9" Y="84"/> <CursorPos X="9" Y="84"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit27> </Unit27>
<Unit28> <Unit28>
<Filename Value="../../rxcontrols/rxtbrsetup.pas"/> <Filename Value="../../rxcontrols/rxtbrsetup.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="74"/> <TopLine Value="74"/>
<CursorPos X="9" Y="93"/> <CursorPos X="9" Y="93"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit28> </Unit28>
<Unit29> <Unit29>
<Filename Value="../../rxcontrols/rxtoolbar.pas"/> <Filename Value="../../rxcontrols/rxtoolbar.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="262"/> <TopLine Value="262"/>
<CursorPos X="36" Y="281"/> <CursorPos X="36" Y="281"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit29> </Unit29>
<Unit30> <Unit30>
<Filename Value="../../rxcontrols/rxctrls.pas"/> <Filename Value="../../rxcontrols/rxctrls.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="805"/> <TopLine Value="805"/>
<CursorPos X="35" Y="824"/> <CursorPos X="35" Y="824"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit30> </Unit30>
<Unit31> <Unit31>
<Filename Value="../../rxcontrols/rxpickdate.pas"/> <Filename Value="../../rxcontrols/rxpickdate.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="248"/> <TopLine Value="248"/>
<CursorPos X="49" Y="267"/> <CursorPos X="49" Y="267"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit31> </Unit31>
<Unit32> <Unit32>
<Filename Value="../../rxcontrols/rxswitch.pas"/> <Filename Value="../../rxcontrols/rxswitch.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="138"/> <TopLine Value="138"/>
<CursorPos X="9" Y="157"/> <CursorPos X="9" Y="157"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit32> </Unit32>
<Unit33> <Unit33>
<Filename Value="../../rxcontrols/rxdice.pas"/> <Filename Value="../../rxcontrols/rxdice.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="19"/> <TopLine Value="19"/>
<CursorPos X="57" Y="38"/> <CursorPos X="57" Y="38"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit33> </Unit33>
<Unit34> <Unit34>
<Filename Value="../../rxcontrols/rxclock.pas"/> <Filename Value="../../rxcontrols/rxclock.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="162"/> <TopLine Value="162"/>
<CursorPos X="9" Y="181"/> <CursorPos X="9" Y="181"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit34> </Unit34>
<Unit35> <Unit35>
<Filename Value="../../rxcontrols/rxspin.pas"/> <Filename Value="../../rxcontrols/rxspin.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="226"/> <TopLine Value="226"/>
<CursorPos X="6" Y="245"/> <CursorPos X="6" Y="245"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit35> </Unit35>
<Unit36> <Unit36>
<Filename Value="../../rxcontrols/rxmdi.pas"/> <Filename Value="../../rxcontrols/rxmdi.pas"/>
@ -277,7 +280,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="146"/> <TopLine Value="146"/>
<CursorPos X="13" Y="169"/> <CursorPos X="13" Y="169"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit36> </Unit36>
<Unit37> <Unit37>
<Filename Value="../../rxdb/rxdbutils.pas"/> <Filename Value="../../rxdb/rxdbutils.pas"/>
@ -291,7 +294,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="21"/> <TopLine Value="21"/>
<CursorPos X="32" Y="40"/> <CursorPos X="32" Y="40"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit38> </Unit38>
<Unit39> <Unit39>
<Filename Value="../../rxdb/rxdbctrls.pas"/> <Filename Value="../../rxdb/rxdbctrls.pas"/>
@ -299,14 +302,15 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="196"/> <TopLine Value="196"/>
<CursorPos X="32" Y="215"/> <CursorPos X="32" Y="215"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit39> </Unit39>
<Unit40> <Unit40>
<Filename Value="../../rxcontrols/rxlclutils.pas"/> <Filename Value="../../rxcontrols/rxlclutils.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="8"/>
<TopLine Value="81"/> <TopLine Value="743"/>
<CursorPos X="11" Y="100"/> <CursorPos X="111" Y="772"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit40> </Unit40>
<Unit41> <Unit41>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/> <Filename Value="../../rxdb/rxdbgridexportpdf.pas"/>
@ -314,14 +318,14 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="21"/> <TopLine Value="21"/>
<CursorPos X="39" Y="40"/> <CursorPos X="39" Y="40"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit41> </Unit41>
<Unit42> <Unit42>
<Filename Value="../../rxcontrols/rxlogin.pas"/> <Filename Value="../../rxcontrols/rxlogin.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="190"/> <TopLine Value="190"/>
<CursorPos X="55" Y="209"/> <CursorPos X="55" Y="209"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit42> </Unit42>
<Unit43> <Unit43>
<Filename Value="../../rxdbgrid_print/rxdbgridprintgrid.pas"/> <Filename Value="../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
@ -329,54 +333,54 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="20"/> <TopLine Value="20"/>
<CursorPos X="53" Y="37"/> <CursorPos X="53" Y="37"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit43> </Unit43>
<Unit44> <Unit44>
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/objpas.pp"/> <Filename Value="../../../../install/source/fpcsrc/rtl/objpas/objpas.pp"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="8" Y="36"/> <CursorPos X="8" Y="36"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit44> </Unit44>
<Unit45> <Unit45>
<Filename Value="../../../../lcl/menus.pp"/> <Filename Value="../../../../lcl/menus.pp"/>
<UnitName Value="Menus"/> <UnitName Value="Menus"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="11" Y="30"/> <CursorPos X="11" Y="30"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit45> </Unit45>
<Unit46> <Unit46>
<Filename Value="../../../../lcl/include/control.inc"/> <Filename Value="../../../../lcl/include/control.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1902"/> <TopLine Value="1902"/>
<CursorPos X="3" Y="1907"/> <CursorPos X="3" Y="1907"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit46> </Unit46>
<Unit47> <Unit47>
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/classes/reader.inc"/> <Filename Value="../../../../install/source/fpcsrc/rtl/objpas/classes/reader.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1703"/> <TopLine Value="1703"/>
<CursorPos Y="1738"/> <CursorPos Y="1738"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit47> </Unit47>
<Unit48> <Unit48>
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/typinfo.pp"/> <Filename Value="../../../../install/source/fpcsrc/rtl/objpas/typinfo.pp"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1494"/> <TopLine Value="1494"/>
<CursorPos Y="1512"/> <CursorPos Y="1512"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit48> </Unit48>
<Unit49> <Unit49>
<Filename Value="../../../../lcl/include/popupmenu.inc"/> <Filename Value="../../../../lcl/include/popupmenu.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="56"/> <TopLine Value="56"/>
<CursorPos Y="82"/> <CursorPos Y="82"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit49> </Unit49>
<Unit50> <Unit50>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-db/src/base/db.pas"/> <Filename Value="/home/install/source/fpcsrc/packages/fcl-db/src/base/db.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="76"/> <TopLine Value="76"/>
<CursorPos X="5" Y="107"/> <CursorPos X="37" Y="108"/>
<UsageCount Value="13"/> <UsageCount Value="13"/>
</Unit50> </Unit50>
<Unit51> <Unit51>
@ -384,21 +388,21 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="136"/> <TopLine Value="136"/>
<CursorPos Y="156"/> <CursorPos Y="156"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit51> </Unit51>
<Unit52> <Unit52>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/lists.inc"/> <Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/lists.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="784"/> <TopLine Value="784"/>
<CursorPos Y="803"/> <CursorPos Y="803"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit52> </Unit52>
<Unit53> <Unit53>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/sysutils/dati.inc"/> <Filename Value="/home/install/source/fpcsrc/rtl/objpas/sysutils/dati.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="504"/> <TopLine Value="504"/>
<CursorPos X="18" Y="516"/> <CursorPos X="18" Y="516"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit53> </Unit53>
<Unit54> <Unit54>
<Filename Value="../../../../lcl/stdctrls.pp"/> <Filename Value="../../../../lcl/stdctrls.pp"/>
@ -428,7 +432,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1801"/> <TopLine Value="1801"/>
<CursorPos X="3" Y="1820"/> <CursorPos X="3" Y="1820"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit57> </Unit57>
<Unit58> <Unit58>
<Filename Value="../../rxtools/rxdconst.pas"/> <Filename Value="../../rxtools/rxdconst.pas"/>
@ -436,12 +440,232 @@
<CursorPos X="14" Y="32"/> <CursorPos X="14" Y="32"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit58> </Unit58>
<Unit59>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/sysutils/diskh.inc"/>
<EditorIndex Value="-1"/>
<CursorPos X="10" Y="29"/>
<UsageCount Value="10"/>
</Unit59>
<Unit60>
<Filename Value="../../../lazutils/fileutil.pas"/>
<UnitName Value="FileUtil"/>
<EditorIndex Value="-1"/>
<TopLine Value="250"/>
<CursorPos X="14" Y="287"/>
<UsageCount Value="10"/>
</Unit60>
<Unit61>
<Filename Value="../../../lazutils/fileutil.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="1076"/>
<CursorPos X="3" Y="1078"/>
<UsageCount Value="10"/>
</Unit61>
<Unit62>
<Filename Value="../../rxtools/rxstrutils.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="50"/>
<CursorPos X="16" Y="50"/>
<UsageCount Value="11"/>
</Unit62>
<Unit63>
<Filename Value="../../../../lcl/interfaces/win32/win32wscontrols.pp"/>
<UnitName Value="Win32WSControls"/>
<EditorIndex Value="-1"/>
<TopLine Value="202"/>
<CursorPos Y="217"/>
<UsageCount Value="10"/>
</Unit63>
<Unit64>
<Filename Value="Z:/home/install/source/fpcsrc/packages/fcl-db/src/base/db.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="906"/>
<CursorPos X="27" Y="927"/>
<UsageCount Value="10"/>
</Unit64>
<Unit65>
<Filename Value="Z:/home/install/source/fpcsrc/packages/fcl-db/src/base/fields.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="2966"/>
<CursorPos X="3" Y="2972"/>
<UsageCount Value="10"/>
</Unit65>
<Unit66>
<Filename Value="../../../../lcl/include/dbimage.inc"/>
<EditorIndex Value="2"/>
<TopLine Value="27"/>
<CursorPos X="3" Y="29"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit66>
<Unit67>
<Filename Value="../../../../lcl/include/picture.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="571"/>
<CursorPos Y="578"/>
<UsageCount Value="10"/>
</Unit67>
<Unit68>
<Filename Value="../../../../lcl/extctrls.pp"/>
<UnitName Value="ExtCtrls"/>
<EditorIndex Value="3"/>
<TopLine Value="494"/>
<CursorPos X="6" Y="504"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit68>
<Unit69>
<Filename Value="../../../../lcl/include/customimage.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="168"/>
<CursorPos Y="210"/>
<UsageCount Value="11"/>
</Unit69>
<Unit70>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="470"/>
<CursorPos X="15" Y="489"/>
<UsageCount Value="10"/>
</Unit70>
<Unit71>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/collect.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="41"/>
<CursorPos X="2" Y="44"/>
<UsageCount Value="10"/>
</Unit71>
<Unit72>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/types.pp"/>
<UnitName Value="Types"/>
<EditorIndex Value="7"/>
<TopLine Value="313"/>
<CursorPos X="10" Y="331"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit72>
</Units> </Units>
<JumpHistory Count="1"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="unit1.pas"/> <Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="79" Column="4" TopLine="60"/> <Caret Line="194" Column="15" TopLine="176"/>
</Position1> </Position1>
<Position2>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="958" Column="3" TopLine="954"/>
</Position2>
<Position3>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="207" Column="15" TopLine="176"/>
</Position3>
<Position4>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="1049" Column="3" TopLine="1046"/>
</Position4>
<Position5>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="252" Column="15" TopLine="224"/>
</Position5>
<Position6>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="414" Column="3" TopLine="412"/>
</Position6>
<Position7>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="294" Column="15" TopLine="275"/>
</Position7>
<Position8>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="1182" Column="11" TopLine="1171"/>
</Position8>
<Position9>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="303" Column="28" TopLine="275"/>
</Position9>
<Position10>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="1462" Column="3" TopLine="1430"/>
</Position10>
<Position11>
<Filename Value="unit1.pas"/>
<Caret Line="102" Column="54" TopLine="91"/>
</Position11>
<Position12>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="1483" Column="19" TopLine="1446"/>
</Position12>
<Position13>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="299" Column="15" TopLine="287"/>
</Position13>
<Position14>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="1209" Column="3" TopLine="1203"/>
</Position14>
<Position15>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="300" Column="15" TopLine="281"/>
</Position15>
<Position16>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="1265" Column="3" TopLine="1257"/>
</Position16>
<Position17>
<Filename Value="../../rxcontrols/rxlclutils.pas"/>
<Caret Line="100" Column="11" TopLine="81"/>
</Position17>
<Position18>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="1265" Column="3" TopLine="1257"/>
</Position18>
<Position19>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="303" Column="15" TopLine="282"/>
</Position19>
<Position20>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="1457" Column="19" TopLine="1444"/>
</Position20>
<Position21>
<Filename Value="unit1.pas"/>
<Caret Line="102" Column="54" TopLine="91"/>
</Position21>
<Position22>
<Filename Value="unit1.pas"/>
<Caret Line="104" Column="54" TopLine="93"/>
</Position22>
<Position23>
<Filename Value="unit1.pas"/>
<Caret Line="106" TopLine="92"/>
</Position23>
<Position24>
<Filename Value="unit1.pas"/>
<Caret Line="57" Column="15" TopLine="38"/>
</Position24>
<Position25>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="1457" Column="21" TopLine="1439"/>
</Position25>
<Position26>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="302" TopLine="282"/>
</Position26>
<Position27>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="1372" Column="3" TopLine="1364"/>
</Position27>
<Position28>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="301" Column="15" TopLine="284"/>
</Position28>
<Position29>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="1308" Column="3" TopLine="1293"/>
</Position29>
<Position30>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="300" Column="15" TopLine="283"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>
<Debugging> <Debugging>

311
components/rx/trunk/demos/RxDBVerticalGrid/unit1.lfm
View File

@ -1,19 +1,20 @@
object Form1: TForm1 object Form1: TForm1
Left = 517 Left = 517
Height = 673 Height = 749
Top = 222 Top = 222
Width = 1206 Width = 1206
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 673 ClientHeight = 749
ClientWidth = 1206 ClientWidth = 1206
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.9.0.0' LCLVersion = '1.9.0.0'
object RxDBVerticalGrid1: TRxDBVerticalGrid object RxDBVerticalGrid1: TRxDBVerticalGrid
Left = 440 Left = 440
Height = 336 Height = 416
Top = 328 Top = 328
Width = 728 Width = 728
Color = clWindow Color = clWindow
GridDefValues.BlobText = '(данные)'
DataCoumn.Title.Alignment = taCenter DataCoumn.Title.Alignment = taCenter
DataCoumn.Title.Caption = 'Данные' DataCoumn.Title.Caption = 'Данные'
DataCoumn.Width = 250 DataCoumn.Width = 250
@ -25,6 +26,7 @@ object Form1: TForm1
LabelCoumn.Title.Caption = 'Заголовок' LabelCoumn.Title.Caption = 'Заголовок'
LabelCoumn.Width = 120 LabelCoumn.Width = 120
Options = [rxvgColumnTitle] Options = [rxvgColumnTitle]
ReadOnly = True
Rows = < Rows = <
item item
Alignment = taCenter Alignment = taCenter
@ -116,8 +118,54 @@ object Form1: TForm1
WordWrap = False WordWrap = False
RowHeight = 27 RowHeight = 27
ReadOnly = False ReadOnly = False
end
item
FieldName = 'TB_CLEINT_TYPE'
RowTitle.Caption = 'Тип 2'
ImageList = ImageList1
NotInKeyListIndex = 4
KeyList.Strings = (
'0=0'
'1=1'
'2=2'
'3=3'
)
WordWrap = False
RowHeight = 27
ReadOnly = False
end
item
FieldName = 'TB_CLIENT_IMAGE'
RowTitle.Caption = 'Изображение'
WordWrap = False
RowHeight = 90
ReadOnly = False
ShowBlobImagesAndMemo = True
end
item
FieldName = 'TB_CLEINT_MEMO'
RowTitle.Caption = 'Описание'
WordWrap = False
RowHeight = 27
ReadOnly = False
end> end>
TitleStyle = tsNative TitleStyle = tsNative
RowHeights = (
20
27
27
27
27
27
20
20
20
20
20
20
90
27
)
end end
object RxDBGrid1: TRxDBGrid object RxDBGrid1: TRxDBGrid
Left = 40 Left = 40
@ -317,22 +365,68 @@ object Form1: TForm1
end end
object Button1: TButton object Button1: TButton
Left = 208 Left = 208
Height = 25 Height = 36
Top = 430 Top = 430
Width = 75 Width = 80
Caption = 'Button1' AutoSize = True
Caption = 'Diconnect'
OnClick = Button1Click OnClick = Button1Click
TabOrder = 2 TabOrder = 2
end end
object Button2: TButton object Button2: TButton
Left = 208 Left = 208
Height = 25 Height = 36
Top = 472 Top = 472
Width = 75 Width = 69
Caption = 'Button2' AutoSize = True
Caption = 'Connect'
OnClick = Button2Click OnClick = Button2Click
TabOrder = 3 TabOrder = 3
end end
object CheckBox1: TCheckBox
Left = 28
Height = 24
Top = 341
Width = 110
Caption = 'Show header'
OnChange = CheckBox1Change
TabOrder = 4
end
object RadioGroup1: TRadioGroup
Left = 24
Height = 93
Top = 400
Width = 83
AutoFill = True
AutoSize = True
Caption = 'Image align'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 72
ClientWidth = 81
ItemIndex = 0
Items.Strings = (
'Left'
'Rigth'
'Center'
)
OnClick = CheckBox1Change
TabOrder = 5
end
object CheckBox2: TCheckBox
Left = 28
Height = 24
Top = 368
Width = 111
Caption = 'Show images'
OnChange = CheckBox1Change
TabOrder = 6
end
object dsData: TDataSource object dsData: TDataSource
DataSet = rxData DataSet = rxData
Left = 120 Left = 120
@ -390,7 +484,7 @@ object Form1: TForm1
FieldDefs = < FieldDefs = <
item item
Name = 'TB_CLIENT_ID' Name = 'TB_CLIENT_ID'
DataType = ftInteger DataType = ftAutoInc
Precision = -1 Precision = -1
end end
item item
@ -440,11 +534,19 @@ object Form1: TForm1
item item
Name = 'TB_CLEINT_TYPE' Name = 'TB_CLEINT_TYPE'
DataType = ftInteger DataType = ftInteger
end
item
Name = 'TB_CLIENT_IMAGE'
DataType = ftBlob
end
item
Name = 'TB_CLEINT_MEMO'
DataType = ftMemo
end> end>
PacketRecords = 0 PacketRecords = 0
Left = 176 Left = 176
Top = 94 Top = 94
object rxDataTB_CLIENT_ID: TLongintField object rxDataTB_CLIENT_ID: TAutoIncField
FieldKind = fkData FieldKind = fkData
FieldName = 'TB_CLIENT_ID' FieldName = 'TB_CLIENT_ID'
Index = 0 Index = 0
@ -539,5 +641,192 @@ object Form1: TForm1
ReadOnly = False ReadOnly = False
Required = False Required = False
end end
object rxDataTB_CLIENT_IMAGE: TBlobField
FieldKind = fkData
FieldName = 'TB_CLIENT_IMAGE'
Index = 10
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
end
object rxDataTB_CLEINT_MEMO: TMemoField
FieldKind = fkData
FieldName = 'TB_CLEINT_MEMO'
Index = 11
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
BlobType = ftMemo
Transliterate = False
end
end
object ImageList1: TImageList
Left = 1160
Top = 48
Bitmap = {
4C69050000001000000010000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000188532FF178432FF178331FF178231FF168030FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000178532FF168431FF168330FF158130FF14802FFF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000168531FF158430FF14822FFF14812EFF137F2DFF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000158430FF14832FFF13822EFF12802DFF117E2CFF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000158430FF13822EFF12812DFF107F2BFF0F7E2AFF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000014832FFF12812DFF10802CFF0F7E2AFF0E7C29FF00000000000000000000
00000000000000000000000000000000000000000000178332FF178331FF1583
30FF13822EFF11802CFF0F7E2AFF0D7D29FF0C7B27FF0C7A27FF0C7A27FF0D7A
28FF000000000000000000000000000000000000000000000000168231FF1581
2FFF13802DFF107F2BFF0E7D29FF0C7B27FF0B7A26FF0B7926FF0B7926FF0000
0000000000000000000000000000000000000000000000000000000000001480
2EFF127F2DFF107E2BFF0E7C29FF0C7A27FF0B7926FF0A7925FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000127E2DFF107D2BFF0E7B28FF0C7A27FF0B7926FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000107C2BFF0E7B29FF0D7A27FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000F7B2AFF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000188432FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000178532FF178431FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000178532FF168531FF158430FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000001785
32FF168531FF158430FF14832FFF13822EFF12812DFF12802DFF127F2DFF127E
2DFF137E2DFF0000000000000000000000000000000000000000178432FF1684
31FF158430FF13832FFF12812DFF11802CFF107F2BFF107E2BFF107D2BFF107D
2BFF117D2CFF00000000000000000000000000000000178332FF168331FF1583
30FF14822FFF12812DFF11802CFF0F7F2BFF0E7D29FF0E7C29FF0E7C28FF0E7B
29FF0F7B29FF0000000000000000000000000000000000000000168231FF1581
2FFF13802DFF117F2CFF0F7E2AFF0E7D29FF0D7C28FF0C7B27FF0C7A27FF0C7A
27FF0D7A28FF0000000000000000000000000000000000000000000000001480
2FFF127F2DFF107E2BFF0E7C29FF0D7B28FF0B7A26FF0B7A26FF0A7925FF0B79
26FF0C7927FF0000000000000000000000000000000000000000000000000000
0000127E2CFF107D2BFF0E7B29FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000107C2BFF0E7B29FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000F7B29FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000188332FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000178331FF168231FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000158330FF15812FFF14802EFF000000000000
00000000000000000000000000000000000000000000188532FF178532FF1685
31FF158430FF158430FF14832FFF13822EFF13802DFF127F2DFF127E2DFF0000
00000000000000000000000000000000000000000000178432FF168431FF1584
30FF14832FFF13822EFF12812DFF11802CFF107F2BFF107E2BFF107D2BFF107C
2BFF0000000000000000000000000000000000000000178331FF168330FF1482
2FFF13822EFF12812DFF10802CFF0F7E2AFF0E7D29FF0E7C29FF0E7B28FF0E7B
29FF0F7B2AFF00000000000000000000000000000000168231FF158130FF1481
2EFF12802DFF107F2BFF0F7E2AFF0E7D29FF0C7C28FF0C7A27FF0C7A27FF0D7A
27FF0000000000000000000000000000000000000000168030FF14802FFF137F
2DFF117E2CFF0F7D2AFF0E7C29FF0C7B27FF0B7A26FF0B7926FF0B7926FF0000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000C7A27FF0B7926FF0A7925FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000C7A27FF0B7926FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000D7A28FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000178332FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000178432FF168331FF168231FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000178532FF168431FF158330FF15812FFF14802FFF00000000000000000000
0000000000000000000000000000000000000000000000000000000000001785
32FF168531FF158430FF14822FFF13802DFF127F2DFF127E2CFF000000000000
0000000000000000000000000000000000000000000000000000178532FF1685
31FF158430FF14832FFF12812DFF117F2CFF107E2BFF107D2BFF107C2BFF0000
00000000000000000000000000000000000000000000188432FF178431FF1584
30FF14832FFF12822EFF11802CFF0F7E2AFF0E7C29FF0E7B29FF0E7B29FF0F7B
2AFF000000000000000000000000000000000000000000000000000000000000
000013822EFF11802CFF0F7F2BFF0E7D29FF0D7B28FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000012802DFF107F2BFF0E7D29FF0D7C28FF0B7A26FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000012802DFF107E2BFF0E7C29FF0C7B27FF0B7A26FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000127F2DFF107D2BFF0E7C28FF0C7A27FF0A7925FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000127E2DFF107D2BFF0E7B29FF0C7A27FF0B7926FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000137E2DFF117C2BFF0F7B29FF0D7A28FF0C7927FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000A46534FF5959F3FF5959F3FF5959
F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959
F3FFA46534FF000000000000000000000000A46534FF5959F3FF5959F3FF5959
F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959
F3FFA46534FF000000000000000000000000A46534FFECEEEEFFECEEEEFFECEE
EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEE
EEFFA46534FF000000000000000000000000A46534FFECEEEEFFECEEEEFFECEE
EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEE
EEFFA46534FF000000000000000000000000A46534FFECEEEEFFECEEEEFFECEE
EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEE
EEFFA46534FF000000000000000000000000A46534FFECEEEEFFECEEEEFFECEE
EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEE
EEFFA46534FF000000000000000000000000A46534FFECEEEEFFECEEEEFFECEE
EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEE
EEFFA46534FF000000000000000000000000A46534FFA46534FFA46534FFA465
34FFA46534FFA46534FFA46534FFA46534FFA46534FFA46534FFA46534FFA465
34FFA46534FF000000000000000000000000A46534FFA46534FFA46534FFA465
34FFA46534FFA46534FFA46534FFA46534FFA46534FFA46534FFA46534FFA465
34FFA46534FF000000000000000000000000A46534FFA46534FFB6BDBAFFB6BD
BAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
34FFA46534FF000000000000000000000000A46534FFA46534FFB6BDBAFFA465
34FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
34FFA46534FF000000000000000000000000A46534FFA46534FFB6BDBAFFA465
34FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
34FFA46534FF000000000000000000000000A46534FFA46534FFB6BDBAFFA465
34FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
34FFA46534FF000000000000000000000000A465347FA46534FFB6BDBAFFB6BD
BAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
34FFA46534FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000
}
end end
end end

83
components/rx/trunk/demos/RxDBVerticalGrid/unit1.pas
View File

@ -6,8 +6,8 @@ interface
uses uses
Classes, SysUtils, FileUtil, rxdbgrid, Classes, SysUtils, FileUtil, rxdbgrid,
Forms, Controls, Graphics, Dialogs, Grids, StdCtrls, Forms, Controls, Graphics, Dialogs, StdCtrls,
DBGrids, Menus, db, rxdbverticalgrid, rxmemds, Types; DBGrids, Menus, ExtCtrls, DbCtrls, db, rxdbverticalgrid, rxmemds;
type type
@ -16,7 +16,10 @@ type
TForm1 = class(TForm) TForm1 = class(TForm)
Button1: TButton; Button1: TButton;
Button2: TButton; Button2: TButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
dsData: TDataSource; dsData: TDataSource;
ImageList1: TImageList;
MenuItem1: TMenuItem; MenuItem1: TMenuItem;
MenuItem10: TMenuItem; MenuItem10: TMenuItem;
MenuItem11: TMenuItem; MenuItem11: TMenuItem;
@ -32,12 +35,15 @@ type
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
PopupMenu2: TPopupMenu; PopupMenu2: TPopupMenu;
PopupMenu3: TPopupMenu; PopupMenu3: TPopupMenu;
RadioGroup1: TRadioGroup;
rxDataCREATE_USER_DATE: TDateTimeField; rxDataCREATE_USER_DATE: TDateTimeField;
rxDataCREATE_USER_NAME: TStringField; rxDataCREATE_USER_NAME: TStringField;
rxDataTB_CLEINT_CODE: TLongintField; rxDataTB_CLEINT_CODE: TLongintField;
rxDataTB_CLEINT_MEMO: TMemoField;
rxDataTB_CLEINT_TYPE: TLongintField; rxDataTB_CLEINT_TYPE: TLongintField;
rxDataTB_CLIENT_EMAIL: TStringField; rxDataTB_CLIENT_EMAIL: TStringField;
rxDataTB_CLIENT_ID: TLongintField; rxDataTB_CLIENT_ID: TAutoIncField;
rxDataTB_CLIENT_IMAGE: TBlobField;
rxDataTB_CLIENT_INN: TStringField; rxDataTB_CLIENT_INN: TStringField;
rxDataTB_CLIENT_NAME: TStringField; rxDataTB_CLIENT_NAME: TStringField;
rxDataTB_CLIENT_PHONE: TStringField; rxDataTB_CLIENT_PHONE: TStringField;
@ -47,6 +53,7 @@ type
rxData: TRxMemoryData; rxData: TRxMemoryData;
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure CheckBox1Change(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
private private
procedure FillDataBase; procedure FillDataBase;
@ -58,6 +65,7 @@ var
Form1: TForm1; Form1: TForm1;
implementation implementation
uses LazUTF8, LazFileUtils;
{$R *.lfm} {$R *.lfm}
@ -66,6 +74,8 @@ implementation
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
begin begin
FillDataBase; FillDataBase;
CheckBox1.Checked:=rxvgColumnTitle in RxDBVerticalGrid1.Options;
CheckBox2.Checked:=RxDBVerticalGrid1.Rows[11].ShowBlobImagesAndMemo;
end; end;
procedure TForm1.Button1Click(Sender: TObject); procedure TForm1.Button1Click(Sender: TObject);
@ -80,19 +90,66 @@ begin
RxDBGrid1.DataSource:=dsData; RxDBGrid1.DataSource:=dsData;
end; end;
procedure TForm1.CheckBox1Change(Sender: TObject);
begin
if CheckBox1.Checked then
RxDBVerticalGrid1.Options:=RxDBVerticalGrid1.Options + [rxvgColumnTitle]
else
RxDBVerticalGrid1.Options:=RxDBVerticalGrid1.Options - [rxvgColumnTitle]
;
case RadioGroup1.ItemIndex of
0:RxDBVerticalGrid1.Rows[11].Alignment:=taLeftJustify;
1:RxDBVerticalGrid1.Rows[11].Alignment:=taRightJustify;
2:RxDBVerticalGrid1.Rows[11].Alignment:=taCenter;
end;
RxDBVerticalGrid1.Rows[11].ShowBlobImagesAndMemo:=CheckBox2.Checked;
end;
procedure TForm1.FillDataBase; procedure TForm1.FillDataBase;
procedure AppendRecord(AType, ACode:Integer; AINN, AName, ADesc, AEmail, APhone, AUser:string; AVip:boolean; AImageName:string);
var
S: String;
begin
rxData.Append;
rxDataTB_CLEINT_TYPE.AsInteger:=AType;
rxDataTB_CLEINT_CODE.AsInteger:=ACode;
rxDataTB_CLIENT_INN.AsString:=AINN;
rxDataTB_CLIENT_NAME.AsString:=AName;
rxDataTB_CLEINT_MEMO.AsString:=ADesc;
rxDataTB_CLIENT_EMAIL.AsString:=AEmail;
rxDataTB_CLIENT_PHONE.AsString:=APhone;
rxDataVIP.AsBoolean:=AVip;
if AImageName <> '' then
begin
S:=AppendPathDelim(ExpandFileName(AppendPathDelim(ExtractFileDir(ParamStr(0))) + '..'+DirectorySeparator + '..'+DirectorySeparator + '..' + DirectorySeparator + '..')) + 'images' + DirectorySeparator;
//ForceDirectories()
// /usr/local/share/lazarus/components/rxnew/demos/RxDBVerticalGrid
// /usr/local/share/lazarus/images
if FileExistsUTF8(S + AImageName) then
rxDataTB_CLIENT_IMAGE.LoadFromFile(S + AImageName);
end;
rxDataCREATE_USER_NAME.AsString:=AUser;
rxDataCREATE_USER_DATE.AsDateTime:=Now + (200-Random * 100);
rxData.Post;
end;
begin begin
rxData.Open; rxData.Open;
rxData.AppendRecord([1, 1, '01000100101', 'JSC "BOOT"', 'test1@email.com', '5(555)-557-88-77', true, 'alexs', now, 1]); AppendRecord(1, 1, '01000100101', 'JSC "BOOT"', 'Описание', 'test1@email.com', '5(555)-557-88-77', 'alexs', true, 'splash_logo.png');
rxData.AppendRecord([2, 2, '02000100101', 'Wikimedia Foundation, Inc.', 'test2@email.com', '5(555)-557-88-77', false, 'boss', now, 2]); AppendRecord(2, 2, '02000100101', 'Wikimedia Foundation, Inc.', 'Описание', 'test2@email.com', '5(555)-557-88-77', 'boss', false, 'splash_logo.xpm');
rxData.AppendRecord([3, 3, '03000100101', 'LLC Pilot ', 'test3@email.com', '5(555)-557-88-77', true, 'master', now, 3]); AppendRecord(3, 3, '03000100101', 'LLC Pilot ', 'Описание', 'test3@email.com', '5(555)-557-88-77', 'master', false, 'powered_by.png');
rxData.AppendRecord([4, 4, '04000100101', 'Pilot, OOO', 'test4@email.com', '5(555)-557-88-77', true, 'onegin', now, 1]); AppendRecord(4, 4, '04000100101', 'Pilot, OOO', 'Описание', 'test4@email.com', '5(555)-557-88-77', 'onegin', false, 'folder.png');
rxData.AppendRecord([5, 5, '05000100101', 'JSC "MS"', 'test5@email.com', '5(555)-557-88-77', true, 'alfred', now, 1]); AppendRecord(5, 5, '05000100101', 'JSC "MS"', 'Описание', 'test5@email.com', '5(555)-557-88-77', 'alfred', false, 'splash_source'+DirectorySeparator + 'cheetah.jpg');
rxData.AppendRecord([6, 11, '06000100101', 'JSC "AA"', 'test6@email.com', '5(555)-557-88-77', true, 'anna', now, 1]); AppendRecord(6, 11, '06000100101', 'JSC "AA"', 'Описание', 'test6@email.com', '5(555)-557-88-77', 'anna', false, 'mimetypes'+DirectorySeparator + 'text-lazarus-project-information.png');
rxData.AppendRecord([7, 12, '07000100101', 'JSC "BBBB"', 'test7@email.com', '5(555)-557-88-77', true, 'tux', now, 1]); AppendRecord(7, 12, '07000100101', 'JSC "BBBB"', 'Описание', 'test7@email.com', '5(555)-557-88-77', 'tux', false, 'splash_source'+DirectorySeparator + 'paw.png');
rxData.AppendRecord([8, 13, '08000100101', 'JSC "CCCC"', 'test8@email.com', '5(555)-557-88-77', true, 'x-man', now, 4]); AppendRecord(8, 13, '08000100101', 'JSC "CCCC"', 'Описание', 'test8@email.com', '5(555)-557-88-77', 'x-man', false, '');
rxData.AppendRecord([9, 14, '09000100101', 'JSC "DDD"', 'test9@email.com', '5(555)-557-88-77', true, 'arny', now, 1]); AppendRecord(9, 14, '09000100101', 'JSC "DDD"', 'Описание', 'test9@email.com', '5(555)-557-88-77', 'arny', false, '');
rxData.AppendRecord([10, 15, '101000200101', 'JSC "EEEE"', 'test10@email.com', '5(555)-557-88-77', true, 'andy', now, 1]); AppendRecord(10, 15, '101000200101', 'JSC "EEEE"', 'Описание', 'test10@email.com', '5(555)-557-88-77', 'andy', false, '');
rxData.First; rxData.First;
end; end;

198
components/rx/trunk/rxdb/rxdbverticalgrid.pas
View File

@ -131,8 +131,10 @@ type
FButtonStyle: TColumnButtonStyle; FButtonStyle: TColumnButtonStyle;
FColor: ^TColor; FColor: ^TColor;
FAlignment: ^TAlignment; FAlignment: ^TAlignment;
FNotInKeyListIndex: integer;
FPopupMenu: TPopupMenu; FPopupMenu: TPopupMenu;
FRowHeight: PInteger; FRowHeight: PInteger;
FShowBlobImagesAndMemo: boolean;
FValueChecked: PChar; FValueChecked: PChar;
FValueUnchecked: PChar; FValueUnchecked: PChar;
@ -180,6 +182,7 @@ type
procedure SetGroupName(AValue: string); procedure SetGroupName(AValue: string);
procedure SetImageList(AValue: TImageList); procedure SetImageList(AValue: TImageList);
procedure SetKeyList(AValue: TStrings); procedure SetKeyList(AValue: TStrings);
procedure SetNotInKeyListIndex(AValue: integer);
procedure SetPickList(AValue: TStrings); procedure SetPickList(AValue: TStrings);
procedure SetPopupMenu(AValue: TPopupMenu); procedure SetPopupMenu(AValue: TPopupMenu);
procedure SetReadOnly(AValue: Boolean); procedure SetReadOnly(AValue: Boolean);
@ -189,6 +192,7 @@ type
procedure ApplyDisplayFormat; procedure ApplyDisplayFormat;
procedure FontChanged(Sender: TObject); procedure FontChanged(Sender: TObject);
procedure KeyListChanged(Sender: TObject); procedure KeyListChanged(Sender: TObject);
procedure SetShowBlobImagesAndMemo(AValue: boolean);
procedure SetStaticText(AValue: string); procedure SetStaticText(AValue: string);
procedure SetStyle(AValue: TRxDBVerticalGridRowStyle); procedure SetStyle(AValue: TRxDBVerticalGridRowStyle);
procedure SetValueChecked(AValue: string); procedure SetValueChecked(AValue: string);
@ -225,6 +229,7 @@ type
property StaticText:string read FStaticText write SetStaticText; property StaticText:string read FStaticText write SetStaticText;
property ImageList: TImageList read FImageList write SetImageList; property ImageList: TImageList read FImageList write SetImageList;
property NotInKeyListIndex: integer read FNotInKeyListIndex write SetNotInKeyListIndex default -1;
property KeyList: TStrings read GetKeyList write SetKeyList; property KeyList: TStrings read GetKeyList write SetKeyList;
property PickList: TStrings read GetPickList write SetPickList; property PickList: TStrings read GetPickList write SetPickList;
property Style : TRxDBVerticalGridRowStyle read FStyle write SetStyle default rxvrData; property Style : TRxDBVerticalGridRowStyle read FStyle write SetStyle default rxvrData;
@ -234,6 +239,7 @@ type
property PopupMenu : TPopupMenu read FPopupMenu write SetPopupMenu; property PopupMenu : TPopupMenu read FPopupMenu write SetPopupMenu;
property ValueChecked: string read GetValueChecked write SetValueChecked stored IsValueCheckedStored; property ValueChecked: string read GetValueChecked write SetValueChecked stored IsValueCheckedStored;
property ValueUnchecked: string read GetValueUnchecked write SetValueUnchecked stored IsValueUncheckedStored; property ValueUnchecked: string read GetValueUnchecked write SetValueUnchecked stored IsValueUncheckedStored;
property ShowBlobImagesAndMemo:boolean read FShowBlobImagesAndMemo write SetShowBlobImagesAndMemo default false;
end; end;
{ TRxDBVerticalGridRows } { TRxDBVerticalGridRows }
@ -274,6 +280,7 @@ type
FReadOnly: Boolean; FReadOnly: Boolean;
FRows: TRxDBVerticalGridRows; FRows: TRxDBVerticalGridRows;
FLinkActive:integer; FLinkActive:integer;
FTmpPicture:TPicture;
function GetDataCoumn: TGridColumn; function GetDataCoumn: TGridColumn;
function GetDataSource: TDataSource; function GetDataSource: TDataSource;
function GetLabelCoumn: TGridColumn; function GetLabelCoumn: TGridColumn;
@ -286,9 +293,14 @@ type
procedure RecordChanged; procedure RecordChanged;
procedure RowsChanged(aRow: TRxDBVerticalGridRow); procedure RowsChanged(aRow: TRxDBVerticalGridRow);
protected protected
procedure OutCaptionCellText(aCol, aRow: integer; const aRect: TRect;
aState: TGridDrawState; const ACaption: string);
procedure DrawCell(aCol,aRow:Integer; aRect:TRect; aState:TGridDrawState); override; procedure DrawCell(aCol,aRow:Integer; aRect:TRect; aState:TGridDrawState); override;
procedure DrawDataCell(aCol, aRow:Integer; aRect:TRect; aState:TGridDrawState; AGridRow: TRxDBVerticalGridRow); procedure DrawDataCell(aCol, aRow:Integer; aRect:TRect; aState:TGridDrawState; AGridRow: TRxDBVerticalGridRow);
procedure DrawCheckboxBitmaps(aRect: TRect; AGridRow: TRxDBVerticalGridRow); procedure DrawCheckboxBitmaps(aRect: TRect; AGridRow: TRxDBVerticalGridRow);
procedure DrawCellBitmap(AGridRow: TRxDBVerticalGridRow; aRect: TRect; aState: TGridDrawState; AImageIndex: integer);
procedure DrawDataCellPicture(AGridRow: TRxDBVerticalGridRow; aRect: TRect; aState: TGridDrawState);
procedure PrepareCanvas(aCol, aRow: Integer; aState:TGridDrawState); override; procedure PrepareCanvas(aCol, aRow: Integer; aState:TGridDrawState); override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override; procedure Notification(AComponent: TComponent; Operation: TOperation); override;
@ -338,7 +350,7 @@ type
end; end;
implementation implementation
uses Forms, rxdconst, LCLType, rxlclutils, StdCtrls, Themes; uses LCLType, Math, Forms, rxdconst, rxlclutils, StdCtrls, Themes, LazUTF8;
{ TRxDBVerticalGridDefValues } { TRxDBVerticalGridDefValues }
@ -857,6 +869,13 @@ begin
RowChanged; RowChanged;
end; end;
procedure TRxDBVerticalGridRow.SetNotInKeyListIndex(AValue: integer);
begin
if FNotInKeyListIndex=AValue then Exit;
FNotInKeyListIndex:=AValue;
RowChanged;
end;
procedure TRxDBVerticalGridRow.SetPickList(AValue: TStrings); procedure TRxDBVerticalGridRow.SetPickList(AValue: TStrings);
begin begin
FPickList.Assign(AValue); FPickList.Assign(AValue);
@ -939,6 +958,13 @@ begin
RowChanged; RowChanged;
end; end;
procedure TRxDBVerticalGridRow.SetShowBlobImagesAndMemo(AValue: boolean);
begin
if FShowBlobImagesAndMemo=AValue then Exit;
FShowBlobImagesAndMemo:=AValue;
RowChanged;
end;
procedure TRxDBVerticalGridRow.SetStaticText(AValue: string); procedure TRxDBVerticalGridRow.SetStaticText(AValue: string);
begin begin
if FStaticText=AValue then Exit; if FStaticText=AValue then Exit;
@ -1060,6 +1086,7 @@ end;
constructor TRxDBVerticalGridRow.Create(ACollection: TCollection); constructor TRxDBVerticalGridRow.Create(ACollection: TCollection);
begin begin
inherited Create(ACollection); inherited Create(ACollection);
FNotInKeyListIndex:=-1;
FRowTitle:=TRxDBVerticalGridRowTitle.Create(Self); FRowTitle:=TRxDBVerticalGridRowTitle.Create(Self);
FKeyList:=TStringList.Create; FKeyList:=TStringList.Create;
FKeyList.OnChange:=@KeyListChanged; FKeyList.OnChange:=@KeyListChanged;
@ -1072,6 +1099,7 @@ begin
FFont.OnChange := @FontChanged; FFont.OnChange := @FontChanged;
FButtonStyle:=cbsAuto; FButtonStyle:=cbsAuto;
FStyle:=rxvrData; FStyle:=rxvrData;
FShowBlobImagesAndMemo:=false;
end; end;
destructor TRxDBVerticalGridRow.Destroy; destructor TRxDBVerticalGridRow.Destroy;
@ -1124,6 +1152,7 @@ begin
Style:=TRxDBVerticalGridRow(Source).Style; Style:=TRxDBVerticalGridRow(Source).Style;
Font:=TRxDBVerticalGridRow(Source).Font; Font:=TRxDBVerticalGridRow(Source).Font;
FStaticText:=TRxDBVerticalGridRow(Source).StaticText; FStaticText:=TRxDBVerticalGridRow(Source).StaticText;
FShowBlobImagesAndMemo:=TRxDBVerticalGridRow(Source).ShowBlobImagesAndMemo;
end; end;
end; end;
@ -1144,6 +1173,7 @@ begin
if FLinkActive > 0 then Exit; if FLinkActive > 0 then Exit;
if Assigned(aRow) then if Assigned(aRow) then
Invalidate
else else
begin begin
if FRows.Count <> RowCount - FixedRows then if FRows.Count <> RowCount - FixedRows then
@ -1151,6 +1181,26 @@ begin
end; end;
end; end;
procedure TRxCustomDBVerticalGrid.OutCaptionCellText(aCol, aRow: integer;
const aRect: TRect; aState: TGridDrawState; const ACaption: string);
begin
if (TitleStyle = tsNative) then
DrawThemedCell(aCol, aRow, aRect, aState)
else
begin
Canvas.FillRect(aRect);
DrawCellGrid(aCol, aRow, aRect, aState);
end;
if ACaption <> '' then
begin
{ if not (rdgDisableWordWrapTitles in OptionsRx) then
WriteTextHeader(Canvas, aRect, ACaption, GetColumnAlignment(aCol, True))
else}
DrawCellText(aCol, aRow, aRect, aState, ACaption);
end;
end;
procedure TRxCustomDBVerticalGrid.DrawCell(aCol, aRow: Integer; aRect: TRect; procedure TRxCustomDBVerticalGrid.DrawCell(aCol, aRow: Integer; aRect: TRect;
aState: TGridDrawState); aState: TGridDrawState);
var var
@ -1161,9 +1211,10 @@ begin
if (rxvgColumnTitle in FOptions) and (aRow = 0) then if (rxvgColumnTitle in FOptions) and (aRow = 0) then
begin begin
if aCol = 0 then if aCol = 0 then
DrawCellText(aCol, aRow, aRect, aState, LabelCoumn.Title.Caption) //DrawCellText(aCol, aRow, aRect, aState, LabelCoumn.Title.Caption)
OutCaptionCellText(aCol, aRow, aRect, aState, LabelCoumn.Title.Caption)
else else
DrawCellText(aCol, aRow, aRect, aState, DataCoumn.Title.Caption) OutCaptionCellText(aCol, aRow, aRect, aState, DataCoumn.Title.Caption)
end end
else else
begin begin
@ -1189,6 +1240,7 @@ procedure TRxCustomDBVerticalGrid.DrawDataCell(aCol, aRow: Integer;
var var
S: String; S: String;
J: Integer; J: Integer;
AImageIndex: LongInt;
begin begin
if AGridRow.Style = rxvrData then if AGridRow.Style = rxvrData then
begin begin
@ -1197,6 +1249,13 @@ begin
else else
if Assigned(AGridRow.Field) then if Assigned(AGridRow.Field) then
begin begin
if Assigned(AGridRow.ImageList) then
begin
AImageIndex := StrToIntDef(AGridRow.KeyList.Values[AGridRow.Field.AsString], AGridRow.NotInKeyListIndex);
if (AImageIndex > -1) and (AImageIndex < AGridRow.ImageList.Count) then
DrawCellBitmap(AGridRow, aRect, aState, AImageIndex);
end
else
if AGridRow.Field.dataType <> ftBlob then if AGridRow.Field.dataType <> ftBlob then
begin begin
S := AGridRow.Field.DisplayText; S := AGridRow.Field.DisplayText;
@ -1208,7 +1267,20 @@ begin
end; end;
end end
else else
S := GridDefValues.FBlobText; begin
if AGridRow.ShowBlobImagesAndMemo then
begin
DrawDataCellPicture(AGridRow, aRect, aState);
exit;
end
else
begin
if AGridRow.Field.IsNull then
S := GridDefValues.FBlobText
else
S := UTF8UpperCase(GridDefValues.FBlobText);
end;
end;
WriteTextHeader(Canvas, aRect, S, AGridRow.Alignment); WriteTextHeader(Canvas, aRect, S, AGridRow.Alignment);
end; end;
@ -1290,6 +1362,122 @@ begin
end; end;
end; end;
procedure TRxCustomDBVerticalGrid.DrawCellBitmap(
AGridRow: TRxDBVerticalGridRow; aRect: TRect; aState: TGridDrawState;
AImageIndex: integer);
var
H, W: Integer;
ClientSize: TSize;
begin
InflateRect(aRect, -1, -1);
H := AGridRow.ImageList.Height;
W := AGridRow.ImageList.Width;
ClientSize.cx := Min(aRect.Right - aRect.Left, W);
ClientSize.cy := Min(aRect.Bottom - aRect.Top, H);
if ClientSize.cx = W then
begin
aRect.Left := (aRect.Left + aRect.Right - W) div 2;
aRect.Right := aRect.Left + W;
end;
if ClientSize.cy = H then
begin
aRect.Top := (aRect.Top + aRect.Bottom - H) div 2;
aRect.Bottom := aRect.Top + H;
end;
AGridRow.ImageList.StretchDraw(Canvas, AImageIndex, aRect);
end;
procedure TRxCustomDBVerticalGrid.DrawDataCellPicture(
AGridRow: TRxDBVerticalGridRow; aRect: TRect; aState: TGridDrawState);
function PicDrawRect:TRect;
var
PicWidth, PicHeight: LongInt;
ImgWidth, ImgHeight, w, h, ChangeX, ChangeY: Integer;
PicInside, PicOutside, PicOutsidePartial: Boolean;
begin
PicWidth := FTmpPicture.Width;
PicHeight := FTmpPicture.Height;
ImgWidth := aRect.Width;
ImgHeight := aRect.Height;
if (PicWidth=0) or (PicHeight=0) then Exit(Rect(0, 0, 0, 0));
PicInside := (PicWidth<ImgWidth) and (PicHeight<ImgHeight);
PicOutside := (PicWidth>ImgWidth) and (PicHeight>ImgHeight);
PicOutsidePartial := (PicWidth>ImgWidth) or (PicHeight>ImgHeight);
{ if Stretch or (Proportional and PicOutsidePartial) then
if (FStretchOutEnabled or PicOutside) and
(FStretchInEnabled or PicInside) then
if Proportional then }
begin
w:=ImgWidth;
h:=(PicHeight*w) div PicWidth;
if h>ImgHeight then
begin
h:=ImgHeight;
w:=(PicWidth*h) div PicHeight;
end;
PicWidth:=w;
PicHeight:=h;
end
{ else begin
PicWidth := ImgWidth;
PicHeight := ImgHeight;
end};
Result := Rect(0, 0, PicWidth, PicHeight);
case AGridRow.Alignment of
//taLeftJustify,
taRightJustify :
begin
ChangeX := ImgWidth-PicWidth;
ChangeY := ImgHeight-PicHeight;
{if FKeepOriginXWhenClipped and (ChangeX<0) then ChangeX := 0;
if FKeepOriginYWhenClipped and (ChangeY<0) then ChangeY := 0;}
OffsetRect(Result, ChangeX, ChangeY);
end;
taCenter :
begin
ChangeX := (ImgWidth-PicWidth) div 2;
ChangeY := (ImgHeight-PicHeight) div 2;
{if FKeepOriginXWhenClipped and (ChangeX<0) then ChangeX := 0;
if FKeepOriginYWhenClipped and (ChangeY<0) then ChangeY := 0;}
OffsetRect(Result, ChangeX, ChangeY);
end;
end;
OffsetRect(Result, aRect.Left, aRect.Top);
InflateRect(Result, -constCellPadding, -constCellPadding);
end;
var
St: TStream;
begin
St:=AGridRow.Field.DataSet.CreateBlobStream(AGridRow.Field, bmRead);
if not Assigned(St) then Exit;
try
if St.Size > 0 then
begin
if not Assigned(FTmpPicture) then
FTmpPicture:=TPicture.Create;
FTmpPicture.LoadFromStream(st);
if Assigned(FTmpPicture.Graphic) then
Canvas.StretchDraw(PicDrawRect, FTmpPicture.Graphic);
end;
finally
St.Free;
end;
end;
procedure TRxCustomDBVerticalGrid.PrepareCanvas(aCol, aRow: Integer; procedure TRxCustomDBVerticalGrid.PrepareCanvas(aCol, aRow: Integer;
aState: TGridDrawState); aState: TGridDrawState);
var var
@ -1476,6 +1664,8 @@ begin
FreeAndNil(FRows); FreeAndNil(FRows);
FreeAndNil(FDataLink); FreeAndNil(FDataLink);
FreeAndNil(FGridDefValues); FreeAndNil(FGridDefValues);
if Assigned(FTmpPicture) then
FreeAndNil(FTmpPicture);
inherited Destroy; inherited Destroy;
end; end;