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

RxFPC:new RxDBGrid tool - setup footer row

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4150 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2015-05-25 10:12:12 +00:00
parent 4ccf6e7c15
commit 63d7776f8c
15 changed files with 682 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
components/rx/trunk/Demos/RxDBGrid/RxDBGridDemo.lpi
View File

@ -11,7 +11,6 @@
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<VersionInfo>
<UseVersionInfo Value="True"/>
@ -71,10 +70,7 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGridMainUnit"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="10" Y="11"/>
<CursorPos X="37" Y="11"/>
<UsageCount Value="100"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -99,15 +95,13 @@
</Unit4>
<Unit5>
<Filename Value="../../rxdbgrid.pas"/>
<UnitName Value="rxdbgrid"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="3475"/>
<CursorPos X="1" Y="3495"/>
<CursorPos Y="3495"/>
<UsageCount Value="17"/>
<Bookmarks Count="2">
<Item0 X="1" Y="2573" ID="2"/>
<Item1 X="1" Y="3776" ID="1"/>
<Item0 Y="2573" ID="2"/>
<Item1 Y="3776" ID="1"/>
</Bookmarks>
<Loaded Value="True"/>
</Unit5>
@ -437,7 +431,6 @@
<Filename Value="../../../../lcl/dbgrids.pas"/>
<UnitName Value="DBGrids"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="213"/>
<CursorPos X="3" Y="216"/>
<UsageCount Value="19"/>
@ -447,7 +440,6 @@
<Filename Value="../../../../lcl/grids.pas"/>
<UnitName Value="Grids"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="10079"/>
<CursorPos X="25" Y="10111"/>
<UsageCount Value="22"/>
@ -572,7 +564,6 @@
<Filename Value="../../../../lcl/controls.pp"/>
<UnitName Value="Controls"/>
<EditorIndex Value="4"/>
<WindowIndex Value="0"/>
<TopLine Value="2211"/>
<CursorPos X="15" Y="2233"/>
<UsageCount Value="11"/>
@ -737,7 +728,6 @@
</Unit104>
<Unit105>
<Filename Value="/home/alexs/install/src/fixes_2_6/rtl/objpas/classes/classesh.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="471"/>
<CursorPos X="15" Y="491"/>
<UsageCount Value="10"/>
@ -858,11 +848,11 @@
</Position28>
<Position29>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="10" Column="3" TopLine="1"/>
<Caret Line="10" Column="3"/>
</Position29>
<Position30>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="11" Column="10" TopLine="1"/>
<Caret Line="11" Column="10"/>
</Position30>
</JumpHistory>
</ProjectOptions>
@ -887,9 +877,6 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Watches Count="5">
@ -918,5 +905,4 @@
</Item2>
</Exceptions>
</Debugging>
<EditorMacros Count="0"/>
</CONFIG>

52
components/rx/trunk/Demos/RxDBGrid/rxdbgridmainunit.lfm
View File

@ -11,7 +11,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
OnCreate = FormCreate
SessionProperties = 'RxDBGridExportSpreadSheet1.FileName;RxDBGridExportSpreadSheet1.OpenAfterExport;RxDBGridExportSpreadSheet1.Options;RxDBGridExportSpreadSheet1.PageName;RxDBGridPrint1.Options;RxDBGridPrint1.Orientation;RxDBGridPrint1.PageMargin;RxDBGridPrint1.ReportTitle;RxDBGridPrint1.ShowColumnHeaderOnAllPage'
ShowHint = True
LCLVersion = '1.2.4.0'
LCLVersion = '1.5'
object RxDBGrid1: TRxDBGrid
Left = 0
Height = 624
@ -23,10 +23,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
Columns = <
item
Title.Alignment = taCenter
Title.Caption = '...'
Title.Orientation = toHorizontal
Title.Hint = 'DEVELOPER'
Title.ShowHint = True
Title.Caption = '...'
Width = 50
FieldName = 'DEVELOPER_ID'
Constraints.MinWidth = 50
@ -47,10 +47,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
item
Color = clSkyBlue
Title.Alignment = taCenter
Title.Caption = 'Code - ID'
Title.Orientation = toVertical90
Title.Hint = 'Code - ID'
Title.ShowHint = True
Title.Caption = 'Code - ID'
Width = 100
FieldName = 'ID'
EditButtons = <>
@ -66,10 +66,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
end
item
Title.Alignment = taCenter
Title.Caption = 'Developer'
Title.Orientation = toHorizontal
Title.Hint = 'Developer full name'
Title.ShowHint = True
Title.Caption = 'Developer'
Width = 136
FieldName = 'Developer'
Constraints.MinWidth = 10
@ -89,10 +89,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
end
item
Title.Alignment = taCenter
Title.Caption = 'Computer software (all info) - Программное обеспечение|Name'
Title.Orientation = toHorizontal
Title.Hint = 'Product name'
Title.ShowHint = True
Title.Caption = 'Computer software (all info) - Программное обеспечение|Name'
Width = 110
FieldName = 'NAME'
EditButtons = <>
@ -106,10 +106,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
end
item
Title.Alignment = taCenter
Title.Caption = 'Computer software (all info) - Программное обеспечение|Cost'
Title.Orientation = toHorizontal
Title.Hint = 'Product price'
Title.ShowHint = True
Title.Caption = 'Computer software (all info) - Программное обеспечение|Cost'
Width = 136
FieldName = 'PRICE'
DisplayFormat = '#,##0.00'
@ -142,10 +142,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
end
item
Title.Alignment = taCenter
Title.Caption = 'Computer software (all info) - Программное обеспечение|Date Present'
Title.Orientation = toHorizontal
Title.Hint = 'Soft date present...'
Title.ShowHint = True
Title.Caption = 'Computer software (all info) - Программное обеспечение|Date Present'
Width = 136
FieldName = 'Date_Present'
EditButtons = <>
@ -157,10 +157,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
end
item
Title.Alignment = taCenter
Title.Caption = 'DEVELOPER_ID'
Title.Orientation = toHorizontal
Title.Hint = 'DEVELOPER'
Title.ShowHint = True
Title.Caption = 'DEVELOPER_ID'
Width = 141
FieldName = 'DEVELOPER_ID'
EditButtons = <>
@ -178,8 +178,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
'Negative'
)
Title.Alignment = taCenter
Title.Caption = 'Rait'
Title.Orientation = toHorizontal
Title.Caption = 'Rait'
FieldName = 'RAIT'
DirectInput = False
EditButtons = <
@ -317,7 +317,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Button2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 274
Left = 270
Height = 21
Top = 7
Width = 36
@ -331,7 +331,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
Left = 7
Height = 33
Top = 7
Width = 89
Width = 87
Action = actCalcTotal
AutoSize = True
BorderSpacing.Around = 6
@ -341,10 +341,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Button1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 102
Left = 100
Height = 33
Top = 7
Width = 166
Width = 164
Action = actOptimizeColumnsWidthAll
AutoSize = True
BorderSpacing.Around = 6
@ -355,7 +355,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CheckBox2
AnchorSideTop.Side = asrBottom
Left = 503
Left = 499
Height = 25
Hint = 'Use filter line'
Top = 38
@ -369,7 +369,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 280
Left = 276
Height = 29
Top = 34
Width = 217
@ -389,7 +389,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = ComboBox1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 503
Left = 499
Height = 25
Hint = 'Auto fill column width'
Top = 7
@ -403,7 +403,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = CheckBox2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 643
Left = 639
Height = 25
Top = 7
Width = 122
@ -419,7 +419,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CheckBox3
AnchorSideTop.Side = asrBottom
Left = 643
Left = 639
Height = 25
Top = 38
Width = 118
@ -434,7 +434,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = CheckBox3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 771
Left = 767
Height = 25
Top = 7
Width = 97
@ -480,19 +480,14 @@ object RxDBGridMainForm: TRxDBGridMainForm
item
Name = 'Date_Present'
DataType = ftDate
Precision = 0
Size = 0
end
item
Name = 'DEVELOPER_ID'
DataType = ftInteger
Precision = 0
Size = 0
end
item
Name = 'RAIT'
DataType = ftString
Precision = 0
Size = 15
end>
PacketRecords = 0
@ -655,13 +650,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
item
Name = 'DEVELOPER_ID'
DataType = ftInteger
Precision = 0
Size = 0
end
item
Name = 'DEVELOPER_NAME'
DataType = ftString
Precision = 0
Size = 130
end>
PacketRecords = 0
@ -1370,4 +1362,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
left = 548
top = 269
end
object RxDBGridFooterTools1: TRxDBGridFooterTools
RxDBGrid = RxDBGrid1
Caption = 'Totals row'
left = 591
top = 270
end
end

5
components/rx/trunk/Demos/RxDBGrid/rxdbgridmainunit.pas
View File

@ -7,8 +7,8 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, rxmemds,
DB, rxdbgrid, RxAboutDialog, RxIniPropStorage, RxDBGridPrintGrid,
RxDBGridExportSpreadSheet, ExtCtrls, Buttons, Menus, ActnList, StdCtrls,
DBGrids, types;
RxDBGridExportSpreadSheet, RxDBGridFooterTools, ExtCtrls, Buttons, Menus,
ActnList, StdCtrls, DBGrids, types;
type
@ -23,6 +23,7 @@ type
MenuItem9: TMenuItem;
RxAboutDialog1: TRxAboutDialog;
RxDBGridExportSpreadSheet1: TRxDBGridExportSpreadSheet;
RxDBGridFooterTools1: TRxDBGridFooterTools;
RxDBGridPrint1: TRxDBGridPrint;
RxIniPropStorage1: TRxIniPropStorage;
RxMemoryData1RAIT: TStringField;