You've already forked lazarus-ccr
RxFPC: RxDBVerticalGrid show images from blob field in cell
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6008 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
@ -65,7 +65,7 @@
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Exceptions Count="4">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
@ -75,6 +75,9 @@
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
<Item4>
|
||||
<Name Value="EInvalidGraphic"/>
|
||||
</Item4>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
|
||||
@ -3,15 +3,13 @@
|
||||
<ProjectSession>
|
||||
<Version Value="10"/>
|
||||
<BuildModes Active="Default"/>
|
||||
<Units Count="59">
|
||||
<Units Count="73">
|
||||
<Unit0>
|
||||
<Filename Value="project1.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<WindowIndex Value="-1"/>
|
||||
<TopLine Value="-1"/>
|
||||
<CursorPos X="-1" Y="-1"/>
|
||||
<UsageCount Value="31"/>
|
||||
<CursorPos Y="16"/>
|
||||
<UsageCount Value="36"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="unit1.pas"/>
|
||||
@ -21,9 +19,9 @@
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit1"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<TopLine Value="61"/>
|
||||
<CursorPos X="20" Y="79"/>
|
||||
<UsageCount Value="31"/>
|
||||
<TopLine Value="73"/>
|
||||
<CursorPos X="70" Y="78"/>
|
||||
<UsageCount Value="36"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit1>
|
||||
@ -32,22 +30,24 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="575"/>
|
||||
<CursorPos Y="585"/>
|
||||
<UsageCount Value="20"/>
|
||||
<UsageCount Value="19"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="../../rxdb/rxdbgrid.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="948"/>
|
||||
<CursorPos Y="979"/>
|
||||
<UsageCount Value="15"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<TopLine Value="4122"/>
|
||||
<CursorPos Y="4148"/>
|
||||
<UsageCount Value="18"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="../../../../lcl/grids.pas"/>
|
||||
<UnitName Value="Grids"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="4489"/>
|
||||
<CursorPos Y="4493"/>
|
||||
<UsageCount Value="14"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<TopLine Value="985"/>
|
||||
<CursorPos X="15" Y="1001"/>
|
||||
<UsageCount Value="15"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="../../../../lcl/dbgrids.pas"/>
|
||||
@ -69,7 +69,8 @@
|
||||
<Filename Value="../../../../lcl/graphics.pp"/>
|
||||
<UnitName Value="Graphics"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<CursorPos X="14" Y="17"/>
|
||||
<TopLine Value="957"/>
|
||||
<CursorPos X="28" Y="985"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
@ -77,7 +78,7 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="1793"/>
|
||||
<CursorPos Y="1816"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="../../rxdb/rxdbtimeedit.pas"/>
|
||||
@ -85,84 +86,85 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="25"/>
|
||||
<CursorPos X="24" Y="48"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="../../../../lcl/dbctrls.pp"/>
|
||||
<UnitName Value="DbCtrls"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="91"/>
|
||||
<CursorPos X="3" Y="41"/>
|
||||
<UsageCount Value="10"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<TopLine Value="1042"/>
|
||||
<CursorPos X="15" Y="1070"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="../../rxdb/rxlookup.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="373"/>
|
||||
<CursorPos X="16" Y="392"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="72"/>
|
||||
<CursorPos X="30" Y="91"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
<Filename Value="../../../../install/source/fpcsrc/packages/fcl-db/src/base/datasource.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="136"/>
|
||||
<CursorPos Y="156"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit13>
|
||||
<Unit14>
|
||||
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/classes/collect.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<CursorPos Y="25"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit14>
|
||||
<Unit15>
|
||||
<Filename Value="../../../../install/source/fpcsrc/rtl/inc/objpas.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="30"/>
|
||||
<CursorPos Y="52"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit15>
|
||||
<Unit16>
|
||||
<Filename Value="../../../../install/source/fpcsrc/rtl/inc/except.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="169"/>
|
||||
<CursorPos Y="200"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit16>
|
||||
<Unit17>
|
||||
<Filename Value="../../../../install/source/fpcsrc/rtl/x86_64/setjump.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="29"/>
|
||||
<CursorPos Y="60"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit17>
|
||||
<Unit18>
|
||||
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/classes/persist.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="46"/>
|
||||
<CursorPos X="3" Y="49"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit18>
|
||||
<Unit19>
|
||||
<Filename Value="../../../../install/source/fpcsrc/rtl/inc/astrings.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="161"/>
|
||||
<CursorPos Y="180"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit19>
|
||||
<Unit20>
|
||||
<Filename Value="../../../../install/source/fpcsrc/rtl/inc/objpash.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="187"/>
|
||||
<CursorPos X="23" Y="206"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit20>
|
||||
<Unit21>
|
||||
<Filename Value="../../registerrxdb.pas"/>
|
||||
@ -170,106 +172,107 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="65"/>
|
||||
<CursorPos X="48" Y="77"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit21>
|
||||
<Unit22>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="1180"/>
|
||||
<CursorPos X="39" Y="1213"/>
|
||||
<UsageCount Value="15"/>
|
||||
<EditorIndex Value="6"/>
|
||||
<TopLine Value="1257"/>
|
||||
<CursorPos X="31" Y="1281"/>
|
||||
<UsageCount Value="18"/>
|
||||
<Bookmarks Count="1">
|
||||
<Item0 X="38" Y="894" ID="1"/>
|
||||
<Item0 X="38" Y="913" ID="1"/>
|
||||
</Bookmarks>
|
||||
<Loaded Value="True"/>
|
||||
</Unit22>
|
||||
<Unit23>
|
||||
<Filename Value="../../rx.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="23"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit23>
|
||||
<Unit24>
|
||||
<Filename Value="../../registerrx.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<CursorPos X="62" Y="9"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit24>
|
||||
<Unit25>
|
||||
<Filename Value="../../registerrxtools.pas"/>
|
||||
<UnitName Value="RegisterRxTools"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="37"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit25>
|
||||
<Unit26>
|
||||
<Filename Value="../../rxcontrols/rxvclutils.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="77"/>
|
||||
<CursorPos Y="93"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit26>
|
||||
<Unit27>
|
||||
<Filename Value="../../rxcontrols/rxfduallst.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="65"/>
|
||||
<CursorPos X="9" Y="84"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit27>
|
||||
<Unit28>
|
||||
<Filename Value="../../rxcontrols/rxtbrsetup.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="74"/>
|
||||
<CursorPos X="9" Y="93"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit28>
|
||||
<Unit29>
|
||||
<Filename Value="../../rxcontrols/rxtoolbar.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="262"/>
|
||||
<CursorPos X="36" Y="281"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit29>
|
||||
<Unit30>
|
||||
<Filename Value="../../rxcontrols/rxctrls.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="805"/>
|
||||
<CursorPos X="35" Y="824"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit30>
|
||||
<Unit31>
|
||||
<Filename Value="../../rxcontrols/rxpickdate.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="248"/>
|
||||
<CursorPos X="49" Y="267"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit31>
|
||||
<Unit32>
|
||||
<Filename Value="../../rxcontrols/rxswitch.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="138"/>
|
||||
<CursorPos X="9" Y="157"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit32>
|
||||
<Unit33>
|
||||
<Filename Value="../../rxcontrols/rxdice.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="19"/>
|
||||
<CursorPos X="57" Y="38"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit33>
|
||||
<Unit34>
|
||||
<Filename Value="../../rxcontrols/rxclock.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="162"/>
|
||||
<CursorPos X="9" Y="181"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit34>
|
||||
<Unit35>
|
||||
<Filename Value="../../rxcontrols/rxspin.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="226"/>
|
||||
<CursorPos X="6" Y="245"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit35>
|
||||
<Unit36>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
@ -277,7 +280,7 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="146"/>
|
||||
<CursorPos X="13" Y="169"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit36>
|
||||
<Unit37>
|
||||
<Filename Value="../../rxdb/rxdbutils.pas"/>
|
||||
@ -291,7 +294,7 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="21"/>
|
||||
<CursorPos X="32" Y="40"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit38>
|
||||
<Unit39>
|
||||
<Filename Value="../../rxdb/rxdbctrls.pas"/>
|
||||
@ -299,14 +302,15 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="196"/>
|
||||
<CursorPos X="32" Y="215"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit39>
|
||||
<Unit40>
|
||||
<Filename Value="../../rxcontrols/rxlclutils.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="81"/>
|
||||
<CursorPos X="11" Y="100"/>
|
||||
<EditorIndex Value="8"/>
|
||||
<TopLine Value="743"/>
|
||||
<CursorPos X="111" Y="772"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit40>
|
||||
<Unit41>
|
||||
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/>
|
||||
@ -314,14 +318,14 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="21"/>
|
||||
<CursorPos X="39" Y="40"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit41>
|
||||
<Unit42>
|
||||
<Filename Value="../../rxcontrols/rxlogin.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="190"/>
|
||||
<CursorPos X="55" Y="209"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit42>
|
||||
<Unit43>
|
||||
<Filename Value="../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
|
||||
@ -329,54 +333,54 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="20"/>
|
||||
<CursorPos X="53" Y="37"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit43>
|
||||
<Unit44>
|
||||
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/objpas.pp"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<CursorPos X="8" Y="36"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit44>
|
||||
<Unit45>
|
||||
<Filename Value="../../../../lcl/menus.pp"/>
|
||||
<UnitName Value="Menus"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<CursorPos X="11" Y="30"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit45>
|
||||
<Unit46>
|
||||
<Filename Value="../../../../lcl/include/control.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="1902"/>
|
||||
<CursorPos X="3" Y="1907"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit46>
|
||||
<Unit47>
|
||||
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/classes/reader.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="1703"/>
|
||||
<CursorPos Y="1738"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit47>
|
||||
<Unit48>
|
||||
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/typinfo.pp"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="1494"/>
|
||||
<CursorPos Y="1512"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit48>
|
||||
<Unit49>
|
||||
<Filename Value="../../../../lcl/include/popupmenu.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="56"/>
|
||||
<CursorPos Y="82"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit49>
|
||||
<Unit50>
|
||||
<Filename Value="/home/install/source/fpcsrc/packages/fcl-db/src/base/db.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="76"/>
|
||||
<CursorPos X="5" Y="107"/>
|
||||
<CursorPos X="37" Y="108"/>
|
||||
<UsageCount Value="13"/>
|
||||
</Unit50>
|
||||
<Unit51>
|
||||
@ -384,21 +388,21 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="136"/>
|
||||
<CursorPos Y="156"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit51>
|
||||
<Unit52>
|
||||
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/lists.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="784"/>
|
||||
<CursorPos Y="803"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit52>
|
||||
<Unit53>
|
||||
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/sysutils/dati.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="504"/>
|
||||
<CursorPos X="18" Y="516"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit53>
|
||||
<Unit54>
|
||||
<Filename Value="../../../../lcl/stdctrls.pp"/>
|
||||
@ -428,7 +432,7 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="1801"/>
|
||||
<CursorPos X="3" Y="1820"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit57>
|
||||
<Unit58>
|
||||
<Filename Value="../../rxtools/rxdconst.pas"/>
|
||||
@ -436,12 +440,232 @@
|
||||
<CursorPos X="14" Y="32"/>
|
||||
<UsageCount Value="10"/>
|
||||
</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>
|
||||
<JumpHistory Count="1">
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="79" Column="4" TopLine="60"/>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="194" Column="15" TopLine="176"/>
|
||||
</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>
|
||||
</ProjectSession>
|
||||
<Debugging>
|
||||
|
||||
@ -1,19 +1,20 @@
|
||||
object Form1: TForm1
|
||||
Left = 517
|
||||
Height = 673
|
||||
Height = 749
|
||||
Top = 222
|
||||
Width = 1206
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 673
|
||||
ClientHeight = 749
|
||||
ClientWidth = 1206
|
||||
OnCreate = FormCreate
|
||||
LCLVersion = '1.9.0.0'
|
||||
object RxDBVerticalGrid1: TRxDBVerticalGrid
|
||||
Left = 440
|
||||
Height = 336
|
||||
Height = 416
|
||||
Top = 328
|
||||
Width = 728
|
||||
Color = clWindow
|
||||
GridDefValues.BlobText = '(данные)'
|
||||
DataCoumn.Title.Alignment = taCenter
|
||||
DataCoumn.Title.Caption = 'Данные'
|
||||
DataCoumn.Width = 250
|
||||
@ -25,6 +26,7 @@ object Form1: TForm1
|
||||
LabelCoumn.Title.Caption = 'Заголовок'
|
||||
LabelCoumn.Width = 120
|
||||
Options = [rxvgColumnTitle]
|
||||
ReadOnly = True
|
||||
Rows = <
|
||||
item
|
||||
Alignment = taCenter
|
||||
@ -116,8 +118,54 @@ object Form1: TForm1
|
||||
WordWrap = False
|
||||
RowHeight = 27
|
||||
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>
|
||||
TitleStyle = tsNative
|
||||
RowHeights = (
|
||||
20
|
||||
27
|
||||
27
|
||||
27
|
||||
27
|
||||
27
|
||||
20
|
||||
20
|
||||
20
|
||||
20
|
||||
20
|
||||
20
|
||||
90
|
||||
27
|
||||
)
|
||||
end
|
||||
object RxDBGrid1: TRxDBGrid
|
||||
Left = 40
|
||||
@ -317,22 +365,68 @@ object Form1: TForm1
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 208
|
||||
Height = 25
|
||||
Height = 36
|
||||
Top = 430
|
||||
Width = 75
|
||||
Caption = 'Button1'
|
||||
Width = 80
|
||||
AutoSize = True
|
||||
Caption = 'Diconnect'
|
||||
OnClick = Button1Click
|
||||
TabOrder = 2
|
||||
end
|
||||
object Button2: TButton
|
||||
Left = 208
|
||||
Height = 25
|
||||
Height = 36
|
||||
Top = 472
|
||||
Width = 75
|
||||
Caption = 'Button2'
|
||||
Width = 69
|
||||
AutoSize = True
|
||||
Caption = 'Connect'
|
||||
OnClick = Button2Click
|
||||
TabOrder = 3
|
||||
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
|
||||
DataSet = rxData
|
||||
Left = 120
|
||||
@ -390,7 +484,7 @@ object Form1: TForm1
|
||||
FieldDefs = <
|
||||
item
|
||||
Name = 'TB_CLIENT_ID'
|
||||
DataType = ftInteger
|
||||
DataType = ftAutoInc
|
||||
Precision = -1
|
||||
end
|
||||
item
|
||||
@ -440,11 +534,19 @@ object Form1: TForm1
|
||||
item
|
||||
Name = 'TB_CLEINT_TYPE'
|
||||
DataType = ftInteger
|
||||
end
|
||||
item
|
||||
Name = 'TB_CLIENT_IMAGE'
|
||||
DataType = ftBlob
|
||||
end
|
||||
item
|
||||
Name = 'TB_CLEINT_MEMO'
|
||||
DataType = ftMemo
|
||||
end>
|
||||
PacketRecords = 0
|
||||
Left = 176
|
||||
Top = 94
|
||||
object rxDataTB_CLIENT_ID: TLongintField
|
||||
object rxDataTB_CLIENT_ID: TAutoIncField
|
||||
FieldKind = fkData
|
||||
FieldName = 'TB_CLIENT_ID'
|
||||
Index = 0
|
||||
@ -539,5 +641,192 @@ object Form1: TForm1
|
||||
ReadOnly = False
|
||||
Required = False
|
||||
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
|
||||
|
||||
@ -6,8 +6,8 @@ interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, rxdbgrid,
|
||||
Forms, Controls, Graphics, Dialogs, Grids, StdCtrls,
|
||||
DBGrids, Menus, db, rxdbverticalgrid, rxmemds, Types;
|
||||
Forms, Controls, Graphics, Dialogs, StdCtrls,
|
||||
DBGrids, Menus, ExtCtrls, DbCtrls, db, rxdbverticalgrid, rxmemds;
|
||||
|
||||
type
|
||||
|
||||
@ -16,7 +16,10 @@ type
|
||||
TForm1 = class(TForm)
|
||||
Button1: TButton;
|
||||
Button2: TButton;
|
||||
CheckBox1: TCheckBox;
|
||||
CheckBox2: TCheckBox;
|
||||
dsData: TDataSource;
|
||||
ImageList1: TImageList;
|
||||
MenuItem1: TMenuItem;
|
||||
MenuItem10: TMenuItem;
|
||||
MenuItem11: TMenuItem;
|
||||
@ -32,12 +35,15 @@ type
|
||||
PopupMenu1: TPopupMenu;
|
||||
PopupMenu2: TPopupMenu;
|
||||
PopupMenu3: TPopupMenu;
|
||||
RadioGroup1: TRadioGroup;
|
||||
rxDataCREATE_USER_DATE: TDateTimeField;
|
||||
rxDataCREATE_USER_NAME: TStringField;
|
||||
rxDataTB_CLEINT_CODE: TLongintField;
|
||||
rxDataTB_CLEINT_MEMO: TMemoField;
|
||||
rxDataTB_CLEINT_TYPE: TLongintField;
|
||||
rxDataTB_CLIENT_EMAIL: TStringField;
|
||||
rxDataTB_CLIENT_ID: TLongintField;
|
||||
rxDataTB_CLIENT_ID: TAutoIncField;
|
||||
rxDataTB_CLIENT_IMAGE: TBlobField;
|
||||
rxDataTB_CLIENT_INN: TStringField;
|
||||
rxDataTB_CLIENT_NAME: TStringField;
|
||||
rxDataTB_CLIENT_PHONE: TStringField;
|
||||
@ -47,6 +53,7 @@ type
|
||||
rxData: TRxMemoryData;
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure Button2Click(Sender: TObject);
|
||||
procedure CheckBox1Change(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
procedure FillDataBase;
|
||||
@ -58,6 +65,7 @@ var
|
||||
Form1: TForm1;
|
||||
|
||||
implementation
|
||||
uses LazUTF8, LazFileUtils;
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
@ -66,6 +74,8 @@ implementation
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
begin
|
||||
FillDataBase;
|
||||
CheckBox1.Checked:=rxvgColumnTitle in RxDBVerticalGrid1.Options;
|
||||
CheckBox2.Checked:=RxDBVerticalGrid1.Rows[11].ShowBlobImagesAndMemo;
|
||||
end;
|
||||
|
||||
procedure TForm1.Button1Click(Sender: TObject);
|
||||
@ -80,19 +90,66 @@ begin
|
||||
RxDBGrid1.DataSource:=dsData;
|
||||
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 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
|
||||
rxData.Open;
|
||||
rxData.AppendRecord([1, 1, '01000100101', 'JSC "BOOT"', 'test1@email.com', '5(555)-557-88-77', true, 'alexs', now, 1]);
|
||||
rxData.AppendRecord([2, 2, '02000100101', 'Wikimedia Foundation, Inc.', 'test2@email.com', '5(555)-557-88-77', false, 'boss', now, 2]);
|
||||
rxData.AppendRecord([3, 3, '03000100101', 'LLC Pilot ', 'test3@email.com', '5(555)-557-88-77', true, 'master', now, 3]);
|
||||
rxData.AppendRecord([4, 4, '04000100101', 'Pilot, OOO', 'test4@email.com', '5(555)-557-88-77', true, 'onegin', now, 1]);
|
||||
rxData.AppendRecord([5, 5, '05000100101', 'JSC "MS"', 'test5@email.com', '5(555)-557-88-77', true, 'alfred', now, 1]);
|
||||
rxData.AppendRecord([6, 11, '06000100101', 'JSC "AA"', 'test6@email.com', '5(555)-557-88-77', true, 'anna', now, 1]);
|
||||
rxData.AppendRecord([7, 12, '07000100101', 'JSC "BBBB"', 'test7@email.com', '5(555)-557-88-77', true, 'tux', now, 1]);
|
||||
rxData.AppendRecord([8, 13, '08000100101', 'JSC "CCCC"', 'test8@email.com', '5(555)-557-88-77', true, 'x-man', now, 4]);
|
||||
rxData.AppendRecord([9, 14, '09000100101', 'JSC "DDD"', 'test9@email.com', '5(555)-557-88-77', true, 'arny', now, 1]);
|
||||
rxData.AppendRecord([10, 15, '101000200101', 'JSC "EEEE"', 'test10@email.com', '5(555)-557-88-77', true, 'andy', now, 1]);
|
||||
AppendRecord(1, 1, '01000100101', 'JSC "BOOT"', 'Описание', 'test1@email.com', '5(555)-557-88-77', 'alexs', true, 'splash_logo.png');
|
||||
AppendRecord(2, 2, '02000100101', 'Wikimedia Foundation, Inc.', 'Описание', 'test2@email.com', '5(555)-557-88-77', 'boss', false, 'splash_logo.xpm');
|
||||
AppendRecord(3, 3, '03000100101', 'LLC Pilot ', 'Описание', 'test3@email.com', '5(555)-557-88-77', 'master', false, 'powered_by.png');
|
||||
AppendRecord(4, 4, '04000100101', 'Pilot, OOO', 'Описание', 'test4@email.com', '5(555)-557-88-77', 'onegin', false, 'folder.png');
|
||||
AppendRecord(5, 5, '05000100101', 'JSC "MS"', 'Описание', 'test5@email.com', '5(555)-557-88-77', 'alfred', false, 'splash_source'+DirectorySeparator + 'cheetah.jpg');
|
||||
AppendRecord(6, 11, '06000100101', 'JSC "AA"', 'Описание', 'test6@email.com', '5(555)-557-88-77', 'anna', false, 'mimetypes'+DirectorySeparator + 'text-lazarus-project-information.png');
|
||||
AppendRecord(7, 12, '07000100101', 'JSC "BBBB"', 'Описание', 'test7@email.com', '5(555)-557-88-77', 'tux', false, 'splash_source'+DirectorySeparator + 'paw.png');
|
||||
AppendRecord(8, 13, '08000100101', 'JSC "CCCC"', 'Описание', 'test8@email.com', '5(555)-557-88-77', 'x-man', false, '');
|
||||
AppendRecord(9, 14, '09000100101', 'JSC "DDD"', 'Описание', 'test9@email.com', '5(555)-557-88-77', 'arny', false, '');
|
||||
AppendRecord(10, 15, '101000200101', 'JSC "EEEE"', 'Описание', 'test10@email.com', '5(555)-557-88-77', 'andy', false, '');
|
||||
rxData.First;
|
||||
end;
|
||||
|
||||
|
||||
@ -131,8 +131,10 @@ type
|
||||
FButtonStyle: TColumnButtonStyle;
|
||||
FColor: ^TColor;
|
||||
FAlignment: ^TAlignment;
|
||||
FNotInKeyListIndex: integer;
|
||||
FPopupMenu: TPopupMenu;
|
||||
FRowHeight: PInteger;
|
||||
FShowBlobImagesAndMemo: boolean;
|
||||
FValueChecked: PChar;
|
||||
FValueUnchecked: PChar;
|
||||
|
||||
@ -180,6 +182,7 @@ type
|
||||
procedure SetGroupName(AValue: string);
|
||||
procedure SetImageList(AValue: TImageList);
|
||||
procedure SetKeyList(AValue: TStrings);
|
||||
procedure SetNotInKeyListIndex(AValue: integer);
|
||||
procedure SetPickList(AValue: TStrings);
|
||||
procedure SetPopupMenu(AValue: TPopupMenu);
|
||||
procedure SetReadOnly(AValue: Boolean);
|
||||
@ -189,6 +192,7 @@ type
|
||||
procedure ApplyDisplayFormat;
|
||||
procedure FontChanged(Sender: TObject);
|
||||
procedure KeyListChanged(Sender: TObject);
|
||||
procedure SetShowBlobImagesAndMemo(AValue: boolean);
|
||||
procedure SetStaticText(AValue: string);
|
||||
procedure SetStyle(AValue: TRxDBVerticalGridRowStyle);
|
||||
procedure SetValueChecked(AValue: string);
|
||||
@ -225,6 +229,7 @@ type
|
||||
property StaticText:string read FStaticText write SetStaticText;
|
||||
|
||||
property ImageList: TImageList read FImageList write SetImageList;
|
||||
property NotInKeyListIndex: integer read FNotInKeyListIndex write SetNotInKeyListIndex default -1;
|
||||
property KeyList: TStrings read GetKeyList write SetKeyList;
|
||||
property PickList: TStrings read GetPickList write SetPickList;
|
||||
property Style : TRxDBVerticalGridRowStyle read FStyle write SetStyle default rxvrData;
|
||||
@ -234,6 +239,7 @@ type
|
||||
property PopupMenu : TPopupMenu read FPopupMenu write SetPopupMenu;
|
||||
property ValueChecked: string read GetValueChecked write SetValueChecked stored IsValueCheckedStored;
|
||||
property ValueUnchecked: string read GetValueUnchecked write SetValueUnchecked stored IsValueUncheckedStored;
|
||||
property ShowBlobImagesAndMemo:boolean read FShowBlobImagesAndMemo write SetShowBlobImagesAndMemo default false;
|
||||
end;
|
||||
|
||||
{ TRxDBVerticalGridRows }
|
||||
@ -274,6 +280,7 @@ type
|
||||
FReadOnly: Boolean;
|
||||
FRows: TRxDBVerticalGridRows;
|
||||
FLinkActive:integer;
|
||||
FTmpPicture:TPicture;
|
||||
function GetDataCoumn: TGridColumn;
|
||||
function GetDataSource: TDataSource;
|
||||
function GetLabelCoumn: TGridColumn;
|
||||
@ -286,9 +293,14 @@ type
|
||||
procedure RecordChanged;
|
||||
procedure RowsChanged(aRow: TRxDBVerticalGridRow);
|
||||
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 DrawDataCell(aCol, aRow:Integer; aRect:TRect; aState:TGridDrawState; 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 Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
@ -338,7 +350,7 @@ type
|
||||
end;
|
||||
|
||||
implementation
|
||||
uses Forms, rxdconst, LCLType, rxlclutils, StdCtrls, Themes;
|
||||
uses LCLType, Math, Forms, rxdconst, rxlclutils, StdCtrls, Themes, LazUTF8;
|
||||
|
||||
{ TRxDBVerticalGridDefValues }
|
||||
|
||||
@ -857,6 +869,13 @@ begin
|
||||
RowChanged;
|
||||
end;
|
||||
|
||||
procedure TRxDBVerticalGridRow.SetNotInKeyListIndex(AValue: integer);
|
||||
begin
|
||||
if FNotInKeyListIndex=AValue then Exit;
|
||||
FNotInKeyListIndex:=AValue;
|
||||
RowChanged;
|
||||
end;
|
||||
|
||||
procedure TRxDBVerticalGridRow.SetPickList(AValue: TStrings);
|
||||
begin
|
||||
FPickList.Assign(AValue);
|
||||
@ -939,6 +958,13 @@ begin
|
||||
RowChanged;
|
||||
end;
|
||||
|
||||
procedure TRxDBVerticalGridRow.SetShowBlobImagesAndMemo(AValue: boolean);
|
||||
begin
|
||||
if FShowBlobImagesAndMemo=AValue then Exit;
|
||||
FShowBlobImagesAndMemo:=AValue;
|
||||
RowChanged;
|
||||
end;
|
||||
|
||||
procedure TRxDBVerticalGridRow.SetStaticText(AValue: string);
|
||||
begin
|
||||
if FStaticText=AValue then Exit;
|
||||
@ -1060,6 +1086,7 @@ end;
|
||||
constructor TRxDBVerticalGridRow.Create(ACollection: TCollection);
|
||||
begin
|
||||
inherited Create(ACollection);
|
||||
FNotInKeyListIndex:=-1;
|
||||
FRowTitle:=TRxDBVerticalGridRowTitle.Create(Self);
|
||||
FKeyList:=TStringList.Create;
|
||||
FKeyList.OnChange:=@KeyListChanged;
|
||||
@ -1072,6 +1099,7 @@ begin
|
||||
FFont.OnChange := @FontChanged;
|
||||
FButtonStyle:=cbsAuto;
|
||||
FStyle:=rxvrData;
|
||||
FShowBlobImagesAndMemo:=false;
|
||||
end;
|
||||
|
||||
destructor TRxDBVerticalGridRow.Destroy;
|
||||
@ -1124,6 +1152,7 @@ begin
|
||||
Style:=TRxDBVerticalGridRow(Source).Style;
|
||||
Font:=TRxDBVerticalGridRow(Source).Font;
|
||||
FStaticText:=TRxDBVerticalGridRow(Source).StaticText;
|
||||
FShowBlobImagesAndMemo:=TRxDBVerticalGridRow(Source).ShowBlobImagesAndMemo;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -1144,6 +1173,7 @@ begin
|
||||
if FLinkActive > 0 then Exit;
|
||||
|
||||
if Assigned(aRow) then
|
||||
Invalidate
|
||||
else
|
||||
begin
|
||||
if FRows.Count <> RowCount - FixedRows then
|
||||
@ -1151,6 +1181,26 @@ begin
|
||||
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;
|
||||
aState: TGridDrawState);
|
||||
var
|
||||
@ -1161,9 +1211,10 @@ begin
|
||||
if (rxvgColumnTitle in FOptions) and (aRow = 0) then
|
||||
begin
|
||||
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
|
||||
DrawCellText(aCol, aRow, aRect, aState, DataCoumn.Title.Caption)
|
||||
OutCaptionCellText(aCol, aRow, aRect, aState, DataCoumn.Title.Caption)
|
||||
end
|
||||
else
|
||||
begin
|
||||
@ -1189,6 +1240,7 @@ procedure TRxCustomDBVerticalGrid.DrawDataCell(aCol, aRow: Integer;
|
||||
var
|
||||
S: String;
|
||||
J: Integer;
|
||||
AImageIndex: LongInt;
|
||||
begin
|
||||
if AGridRow.Style = rxvrData then
|
||||
begin
|
||||
@ -1197,6 +1249,13 @@ begin
|
||||
else
|
||||
if Assigned(AGridRow.Field) then
|
||||
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
|
||||
begin
|
||||
S := AGridRow.Field.DisplayText;
|
||||
@ -1208,7 +1267,20 @@ begin
|
||||
end;
|
||||
end
|
||||
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);
|
||||
end;
|
||||
@ -1290,6 +1362,122 @@ begin
|
||||
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;
|
||||
aState: TGridDrawState);
|
||||
var
|
||||
@ -1476,6 +1664,8 @@ begin
|
||||
FreeAndNil(FRows);
|
||||
FreeAndNil(FDataLink);
|
||||
FreeAndNil(FGridDefValues);
|
||||
if Assigned(FTmpPicture) then
|
||||
FreeAndNil(FTmpPicture);
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user