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

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4602 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rx/trunk/docs/rxdbgrid.xml

@@ -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>

components/rx/trunk/docs/rxdbgridexportspreadsheet.xml

@@ -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>

components/rx/trunk/docs/rxdbgridfootertools_setup.xml

@@ -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>

components/rx/trunk/docs/rxdbgridprintgrid.xml

@@ -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>

components/rx/trunk/languages/rxdconst.es.po

@@ -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 ""

components/rx/trunk/languages/rxdconst.po

@@ -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 ""

components/rx/trunk/languages/rxdconst.ru.po

@@ -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"

components/rx/trunk/languages/rxdconst.uk.po

@@ -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 "Переписати існуючий"

components/rx/trunk/rxdbgridfootertools_setup.lfm

@@ -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
+  ClientHeight = 290
-  ClientWidth = 333
+  ClientWidth = 341
   OnCreate = FormCreate
   Position = poScreenCenter
-  LCLVersion = '1.5'
+  ShowHint = True
-  object StringGrid1: TStringGrid
+  LCLVersion = '1.7'
-    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
   object ButtonPanel1: TButtonPanel
     Left = 6
     Height = 42
-    Top = 206
+    Top = 242
-    Width = 321
+    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

components/rx/trunk/rxdbgridfootertools_setup.pas

@@ -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.

components/rx/trunk/rxdconst.pas

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