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

RxFPC:In TRxDBGridFooterTools setup dialog allow change color for footer row

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4602 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-03-29 13:37:47 +00:00
parent fd972a63ea
commit 40da274f46
11 changed files with 180 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/rx/trunk/docs/rxdbgrid.xml
View File

@ -157,6 +157,16 @@
</element><element name="TRxDBGridAbstractTools.Execute"><short>Запуск инструмента</short>
</element><element name="RegisterRxDBGridSortEngine"><short>Процдера регистрирует вспомогательный класс для сортировки данных внутри RxDBGrid</short>
</element>
<element name="TRxDBGridAbstractTools.Caption"><short>Заголовок пункта меню в инструментальном меню списка</short>
</element><element name="TRxDBGridToolsEvent"><short>Набор флагов для указания списка событий принимаемых расширением от списка</short>
</element><element name="TRxDBGridToolsEvents"><short>События, которые принимает от списка расширение</short>
</element><element name="TRxDBGridToolsEvent.rxteMouseDown"><short>В расширение передаётся событие OnMouseDown</short>
</element><element name="TRxDBGridToolsEvent.rxteMouseUp"><short>В расширение передаётся событие OnMouseUp</short>
</element><element name="TRxDBGridToolsEvent.rxteMouseMove"><short>В расширение передаётся событие OnMouseMove</short>
</element><element name="TRxDBGridToolsEvent.rxteKeyDown"><short>В расширение передаётся событие OnKeyDown</short>
</element><element name="TRxDBGridToolsEvent.rxteKeyUp"><short>В расширение передаётся событие OnKeyUp</short>
</element><element name="TRxDBGridAbstractTools.FToolsEvents"><short>Перечень события, которые принимает от списка расширение</short><descr>В случае необходимости взаимодействия расширения с пользователем в данное поле вносится наборе флагов, описывающих какие именно события от оператора расширение должно получать.</descr>
</element>
</module>
</package>
</fpdoc-descriptions>

4
components/rx/trunk/docs/rxdbgridexportspreadsheet.xml
View File

@ -19,6 +19,10 @@ ressExportFooter - экспорт строки итогов
ressOverwriteExisting - при экспорте перезаписывать существующий файл</descr>
</element><element name="TRxDBGridExportSpreadSheet.OpenAfterExport"><short>Открывать файл после экспорта</short>
</element>
<element name="TRxDBGridExportSpreadSheetOption.ressExportFormula"><short>Экспорт значений итоговой строки в виде формул</short><descr><p>При экспорте итоговой строки в случае если в итогах считается выражение <b>SUM</b>, <b>MIN</b>, <b>MAX</b> то в электронную таблицу будет выгружена формула. </p><p>Иначе будет выгружено фактическое значение</p>
</descr>
</element><element name="TRxDBGridExportSpreadSheetOptions"><short>Параметры экспорта данных в электронную таблицу</short>
</element>
</module>
</package>
</fpdoc-descriptions>

4
components/rx/trunk/docs/rxdbgridfootertools_setup.xml
View File

@ -1,5 +1,9 @@
<?xml version="1.0" encoding="UTF-8"?>
<fpdoc-descriptions><package name="rxnew"><module name="rxdbgridfootertools_setup"><short>Модуль содержит форму управления итоговой строки RxDBGrid</short><descr>Модуль содержит форму управления итоговой строки RxDBGrid</descr>
<element name="TRxDBGridFooterTools_SetupForm"><short>Форма параметров итоговой строки списка</short>
</element><element name="TRxDBGridFooterTools_SetupForm.InitData"><short>Метод инициализации формы параметров для указанного списка</short>
</element><element name="TRxDBGridFooterTools_SetupForm.SetData"><short>Установка параметров итоговой строки списка</short>
</element>
</module>
</package>
</fpdoc-descriptions>

15
components/rx/trunk/docs/rxdbgridprintgrid.xml
View File

@ -5,7 +5,20 @@
</element><element name="TRxDBGridPrint.PageMargin"><short>Отступы на странице</short>
</element><element name="TRxDBGridPrint.ShowProgress"><short>Отображать прогрес построения отчёта</short>
</element><element name="TRxDBGridPrint.Orientation"><short>Ориентация бумаги при построении отчёта</short>
</element><element name="TRxDBGridPrint.PreviewReport"><short>Отобразаить форму предавирительного просмотра отчёта</short>
</element><element name="TRxDBGridPrint.PreviewReport"><short>Отобразить форму предавирительного просмотра отчёта</short>
</element>
<element name="TRxDBGridPrint.Options"><short>Параметры печати содержимого списка</short>
</element><element name="TRxPageMargin.Left"><short>Левый отступ на странице</short>
</element><element name="TRxPageMargin.Top"><short>Отступ сверху на странице</short>
</element><element name="TRxPageMargin.Right"><short>Правый отступ на странице</short>
</element><element name="TRxPageMargin.Bottom"><short>Отступ снизу на странице</short>
</element><element name="TRxDBGridPrintOption.rxpoShowTitle"><short>Отображать заголовок колонок в печатной форме</short>
</element><element name="TRxDBGridPrintOption.rxpoShowFooter"><short>Отображать итоги в печатной форме</short>
</element><element name="TRxDBGridPrintOption.rxpoShowGridColor"><short>Использовать цвета в отчёте в соответсвии с окраской списка</short>
</element><element name="TRxDBGridPrintOption.rxpoShowFooterColor"><short>Использовать окраску итоговой строки списка</short>
</element><element name="TRxDBGridPrintOption.rxpoHideZeroValues"><short>Не отображать нулевые значения</short>
</element><element name="TRxDBGridPrintOption.rxpoShowReportTitle"><short>Отображать название списка в печатной форме</short>
</element><element name="TRxDBGridPrintOptions"><short>Параметры печати списка</short>
</element>
</module>
</package>

8
components/rx/trunk/languages/rxdconst.es.po
View File

@ -163,6 +163,10 @@ msgstr "Campo '%s' debe tener un valor"
msgid "Type mismatch for field '%s', expecting: %s actual: %s"
msgstr "Tipo no corresponde para el campo '%s', se esperaba: %s actual: %s"
#: rxdconst.sfooterrowcolor
msgid "Footer row color"
msgstr ""
#: rxdconst.sfunction
msgid "Function"
msgstr ""
@ -289,6 +293,10 @@ msgstr ""
msgid "Orientation"
msgstr ""
#: rxdconst.sotheroptions
msgid "Other options"
msgstr ""
#: rxdconst.soverwriteexisting
msgid "Overwrite existing"
msgstr ""

8
components/rx/trunk/languages/rxdconst.po
View File

@ -157,6 +157,10 @@ msgstr ""
msgid "Type mismatch for field '%s', expecting: %s actual: %s"
msgstr ""
#: rxdconst.sfooterrowcolor
msgid "Footer row color"
msgstr ""
#: rxdconst.sfunction
msgid "Function"
msgstr ""
@ -277,6 +281,10 @@ msgstr ""
msgid "Orientation"
msgstr ""
#: rxdconst.sotheroptions
msgid "Other options"
msgstr ""
#: rxdconst.soverwriteexisting
msgid "Overwrite existing"
msgstr ""

20
components/rx/trunk/languages/rxdconst.ru.po
View File

@ -11,7 +11,7 @@ msgstr ""
#: rxdconst.sbottomcaption
msgid "Bottom"
msgstr ""
msgstr "Снизу"
#: rxdconst.sbrowsedata
msgid "browse"
@ -157,6 +157,10 @@ msgstr "Поле '%s' ожидает значение"
msgid "Type mismatch for field '%s', expecting: %s actual: %s"
msgstr "Несоответсвие типов для поля '%s', необходимо: %s введено: %s"
#: rxdconst.sfooterrowcolor
msgid "Footer row color"
msgstr "Цвет итоговой строки"
#: rxdconst.sfunction
msgid "Function"
msgstr "Функция"
@ -231,7 +235,7 @@ msgstr "Ландшафт"
#: rxdconst.sleftcaption
msgid "Left"
msgstr ""
msgstr "Слева"
#: rxdconst.slocaldatabase
msgid "Unable complete this operation on local dataset"
@ -277,6 +281,10 @@ msgstr "Открыть после экспорта"
msgid "Orientation"
msgstr "Ориентация"
#: rxdconst.sotheroptions
msgid "Other options"
msgstr "Прочие параметры"
#: rxdconst.soverwriteexisting
msgid "Overwrite existing"
msgstr "Перезаписать существующее"
@ -339,7 +347,7 @@ msgstr "Вы хотите повторить попытку соединения
#: rxdconst.srightcaption
msgid "Right"
msgstr ""
msgstr "Справа"
#: rxdconst.srxallfields
msgid "All fields"
@ -565,7 +573,7 @@ msgstr "Поля для сортировки"
#: rxdconst.srxsourcedataset
msgid "Source dataset"
msgstr ""
msgstr "Искодный источник данных"
#: rxdconst.sservererrorlabel
msgid "Server error"
@ -577,7 +585,7 @@ msgstr "поиск"
#: rxdconst.ssetuptotalrow
msgid "Setup total row"
msgstr ""
msgstr "Настроки итоговой строки"
#: rxdconst.sshowcolumnheaderonallpage
msgid "Show column header on all pages"
@ -609,7 +617,7 @@ msgstr "Экспорт в электронную таблицу"
#: rxdconst.stopcaption
msgid "Top"
msgstr ""
msgstr "Сверху"
#: rxdconst.sunknownfieldtype
msgid "SUnknownFieldType %s"

8
components/rx/trunk/languages/rxdconst.uk.po
View File

@ -167,6 +167,10 @@ msgstr "Поле '%s' очікує значення"
msgid "Type mismatch for field '%s', expecting: %s actual: %s"
msgstr "Неспівпадіння типів для стовпця '%s', необхідно: %s введено: %s"
#: rxdconst.sfooterrowcolor
msgid "Footer row color"
msgstr ""
#: rxdconst.sfunction
msgid "Function"
msgstr "Функція"
@ -287,6 +291,10 @@ msgstr "Відкрити після експортування"
msgid "Orientation"
msgstr "Орієнтація"
#: rxdconst.sotheroptions
msgid "Other options"
msgstr ""
#: rxdconst.soverwriteexisting
msgid "Overwrite existing"
msgstr "Переписати існуючий"

144
components/rx/trunk/rxdbgridfootertools_setup.lfm
View File

@ -1,59 +1,20 @@
object RxDBGridFooterTools_SetupForm: TRxDBGridFooterTools_SetupForm
Left = 789
Height = 254
Height = 290
Top = 366
Width = 333
Width = 341
Caption = 'Setup footer row'
ClientHeight = 254
ClientWidth = 333
ClientHeight = 290
ClientWidth = 341
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.5'
object StringGrid1: TStringGrid
Left = 0
Height = 200
Top = 0
Width = 333
Align = alClient
AutoFillColumns = True
ColCount = 2
Columns = <
item
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = 'Collumn name'
Width = 165
end
item
PickList.Strings = (
'fvtNon'
'fvtSum'
'fvtAvg'
'fvtCount'
'fvtFieldValue'
'fvtStaticText'
'fvtMax'
'fvtMin'
'fvtRecNo'
)
Title.Alignment = taCenter
Title.Caption = 'Function'
Width = 166
end>
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
TabOrder = 0
TitleStyle = tsNative
ColWidths = (
165
166
)
end
ShowHint = True
LCLVersion = '1.7'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 42
Top = 206
Width = 321
Top = 242
Width = 329
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
@ -62,7 +23,94 @@ object RxDBGridFooterTools_SetupForm: TRxDBGridFooterTools_SetupForm
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1
TabOrder = 0
ShowButtons = [pbOK, pbCancel, pbHelp]
end
object PageControl1: TPageControl
Left = 0
Height = 236
Top = 0
Width = 341
ActivePage = TabSheet2
Align = alClient
TabIndex = 1
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'Functions'
ClientHeight = 198
ClientWidth = 335
object StringGrid1: TStringGrid
Left = 0
Height = 198
Top = 0
Width = 335
Align = alClient
AutoFillColumns = True
ColCount = 2
Columns = <
item
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = 'Collumn name'
Width = 166
end
item
PickList.Strings = (
'fvtNon'
'fvtSum'
'fvtAvg'
'fvtCount'
'fvtFieldValue'
'fvtStaticText'
'fvtMax'
'fvtMin'
'fvtRecNo'
)
Title.Alignment = taCenter
Title.Caption = 'Function'
Width = 167
end>
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
TabOrder = 0
TitleStyle = tsNative
ColWidths = (
166
167
)
end
end
object TabSheet2: TTabSheet
Caption = 'Other options'
ClientHeight = 198
ClientWidth = 335
object Label1: TLabel
AnchorSideLeft.Control = TabSheet2
AnchorSideTop.Control = TabSheet2
Left = 6
Height = 20
Top = 6
Width = 108
BorderSpacing.Around = 6
Caption = 'Footer row color'
ParentColor = False
end
object ColorBox1: TColorBox
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TabSheet2
AnchorSideRight.Side = asrBottom
Left = 12
Height = 34
Top = 32
Width = 317
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames, cbCustomColors]
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ItemHeight = 0
TabOrder = 0
end
end
end
end

13
components/rx/trunk/rxdbgridfootertools_setup.pas
View File

@ -37,7 +37,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
ButtonPanel, rxdbgrid, rxdconst;
ButtonPanel, ComCtrls, StdCtrls, ColorBox, rxdbgrid, rxdconst;
type
@ -45,7 +45,12 @@ type
TRxDBGridFooterTools_SetupForm = class(TForm)
ButtonPanel1: TButtonPanel;
ColorBox1: TColorBox;
Label1: TLabel;
PageControl1: TPageControl;
StringGrid1: TStringGrid;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
procedure FormCreate(Sender: TObject);
private
FRxDBGrid:TRxDBGrid;
@ -69,7 +74,11 @@ uses dbutils;
procedure TRxDBGridFooterTools_SetupForm.FormCreate(Sender: TObject);
begin
PageControl1.ActivePageIndex:=0;
Caption:=sSetupTotalRow;
TabSheet1.Caption:=sFunction;
TabSheet2.Caption:=sOtherOptions;
Label1.Caption:=sFooterRowColor;
StringGrid1.Columns[0].Title.Caption:=sCollumnName;
StringGrid1.Columns[1].Title.Caption:=sFunction;
end;
@ -96,6 +105,7 @@ begin
if FRxDBGrid.Columns[i].Footer.ValueType <> fvtNon then
StringGrid1.Cells[1, i+1]:=rxFooterFunctionNames[FRxDBGrid.Columns[i].Footer.ValueType];
end;
ColorBox1.Selected:=FRxDBGrid.FooterOptions.Color;
end;
procedure TRxDBGridFooterTools_SetupForm.SetData;
@ -131,6 +141,7 @@ begin
Col.Footer.ValueType:=B;
end;
FRxDBGrid.FooterOptions.Color:=ColorBox1.Selected;
end;
end.

2
components/rx/trunk/rxdconst.pas
View File

@ -216,6 +216,8 @@ resourcestring
sCollumnName = 'Column name';
sFunction = 'Function';
sBlobText = '(blob)';
sOtherOptions = 'Other options';
sFooterRowColor = 'Footer row color';