diff --git a/components/rx/trunk/Demos/RxDBGrid/RxDBGridDemo.lpi b/components/rx/trunk/Demos/RxDBGrid/RxDBGridDemo.lpi
index 4875cafc9..c3c002ec7 100644
--- a/components/rx/trunk/Demos/RxDBGrid/RxDBGridDemo.lpi
+++ b/components/rx/trunk/Demos/RxDBGrid/RxDBGridDemo.lpi
@@ -11,7 +11,6 @@
-
@@ -37,30 +36,33 @@
-
+
-
-
+
-
-
+
-
+
+
+
+
+
+
+
+
+
-
+
-
-
-
@@ -71,17 +73,15 @@
-
-
-
-
+
+
+
-
@@ -94,50 +94,43 @@
-
-
+
-
-
-
+
-
-
+
+
-
-
+
-
-
-
@@ -145,46 +138,41 @@
-
+
-
-
-
-
-
-
+
-
+
-
+
@@ -192,16 +180,12 @@
-
-
-
-
@@ -214,42 +198,35 @@
-
-
+
-
-
-
-
-
-
@@ -262,7 +239,6 @@
-
@@ -271,28 +247,24 @@
-
-
-
-
@@ -305,7 +277,6 @@
-
@@ -315,21 +286,17 @@
-
-
+
-
-
-
@@ -339,7 +306,6 @@
-
@@ -349,50 +315,40 @@
-
-
-
-
-
-
+
-
-
-
-
-
@@ -401,61 +357,47 @@
-
-
+
-
-
-
-
-
-
+
-
-
-
-
-
-
-
-
@@ -463,54 +405,42 @@
-
-
+
-
-
-
+
-
-
-
+
-
-
+
-
-
-
-
-
-
@@ -520,62 +450,49 @@
-
-
-
-
-
-
-
-
-
+
-
-
+
-
-
-
-
+
-
-
+
@@ -583,8 +500,6 @@
-
-
@@ -594,260 +509,207 @@
-
-
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
-
+
-
-
+
-
-
-
+
-
-
+
-
-
-
-
+
-
-
-
+
-
-
-
-
-
-
-
-
-
+
-
-
-
-
-
-
-
-
+
-
-
-
+
@@ -870,7 +732,7 @@
-
+
@@ -880,6 +742,30 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -903,9 +789,6 @@
-
-
-
@@ -934,5 +817,4 @@
-
diff --git a/components/rx/trunk/Demos/RxDBGrid/rxdbgridmainunit.lfm b/components/rx/trunk/Demos/RxDBGrid/rxdbgridmainunit.lfm
index c6f47c29a..d86ab9643 100644
--- a/components/rx/trunk/Demos/RxDBGrid/rxdbgridmainunit.lfm
+++ b/components/rx/trunk/Demos/RxDBGrid/rxdbgridmainunit.lfm
@@ -1,11 +1,11 @@
object RxDBGridMainForm: TRxDBGridMainForm
- Left = 59
+ Left = 363
Height = 721
- Top = 36
+ Top = 238
Width = 1187
ActiveControl = Panel1
Caption = 'RxDBGrid Demo'
- ClientHeight = 696
+ ClientHeight = 694
ClientWidth = 1187
Menu = MainMenu1
OnCreate = FormCreate
@@ -13,8 +13,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
LCLVersion = '1.3'
object RxDBGrid1: TRxDBGrid
Left = 0
- Height = 630
- Top = 66
+ Height = 624
+ Top = 70
Width = 1187
TitleButtons = True
AutoSort = True
@@ -29,18 +29,18 @@ object RxDBGridMainForm: TRxDBGridMainForm
FieldName = 'DEVELOPER_ID'
Constraints.MinWidth = 50
Constraints.MaxWidth = 150
+ EditButtons = <>
+ Filter.Font.Style = [fsItalic]
+ Filter.DropDownRows = 0
+ Filter.EmptyValue = '(Нет)'
+ Filter.EmptyFont.Style = [fsItalic]
+ Filter.ItemIndex = -1
ImageList = ImageList1
KeyList.Strings = (
'1=0'
'2=1'
'3=2'
)
- Filter.Font.Style = [fsItalic]
- Filter.DropDownRows = 0
- Filter.EmptyValue = '(Нет)'
- Filter.EmptyFont.Style = [fsItalic]
- Filter.ItemIndex = -1
- EditButtons = <>
end
item
Title.Alignment = taCenter
@@ -50,18 +50,16 @@ object RxDBGridMainForm: TRxDBGridMainForm
Title.ShowHint = True
Width = 100
FieldName = 'ID'
- Footer.Alignment = taRightJustify
- Footer.DisplayFormat = 'Count: %d'
- Footer.ValueType = fvtCount
- Constraints.MinWidth = 0
- Constraints.MaxWidth = 0
+ EditButtons = <>
Filter.Font.Style = [fsItalic]
Filter.DropDownRows = 0
Filter.Color = clLime
Filter.EmptyValue = '(Нет)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
- EditButtons = <>
+ Footer.Alignment = taRightJustify
+ Footer.DisplayFormat = 'Count: %d'
+ Footer.ValueType = fvtCount
end
item
Title.Alignment = taCenter
@@ -72,14 +70,13 @@ object RxDBGridMainForm: TRxDBGridMainForm
Width = 136
FieldName = 'Developer'
Constraints.MinWidth = 10
- Constraints.MaxWidth = 0
+ EditButtons = <>
Filter.Font.Style = [fsItalic]
Filter.DropDownRows = 0
Filter.Color = clLime
Filter.EmptyValue = '(Нет)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
- EditButtons = <>
end
item
Title.Alignment = taCenter
@@ -89,15 +86,13 @@ object RxDBGridMainForm: TRxDBGridMainForm
Title.ShowHint = True
Width = 110
FieldName = 'NAME'
- Constraints.MinWidth = 0
- Constraints.MaxWidth = 0
+ EditButtons = <>
Filter.Font.Style = [fsItalic]
Filter.DropDownRows = 0
Filter.Color = clLime
Filter.EmptyValue = '(Нет)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
- EditButtons = <>
WordWrap = True
end
item
@@ -109,18 +104,6 @@ object RxDBGridMainForm: TRxDBGridMainForm
Width = 136
FieldName = 'PRICE'
DisplayFormat = '#,##0.00'
- Footer.Alignment = taRightJustify
- Footer.DisplayFormat = '#,##0.00'
- Footer.FieldName = 'PRICE'
- Footer.ValueType = fvtSum
- Constraints.MinWidth = 0
- Constraints.MaxWidth = 0
- Filter.Font.Style = [fsItalic]
- Filter.DropDownRows = 0
- Filter.Color = clLime
- Filter.EmptyValue = '(Нет)'
- Filter.EmptyFont.Style = [fsItalic]
- Filter.ItemIndex = -1
EditButtons = <
item
Glyph.Data = {
@@ -135,6 +118,16 @@ object RxDBGridMainForm: TRxDBGridMainForm
Hint = 'Clear value'
OnClick = TRxColumnEditButtons2Click
end>
+ Filter.Font.Style = [fsItalic]
+ Filter.DropDownRows = 0
+ Filter.Color = clLime
+ Filter.EmptyValue = '(Нет)'
+ Filter.EmptyFont.Style = [fsItalic]
+ Filter.ItemIndex = -1
+ Footer.Alignment = taRightJustify
+ Footer.DisplayFormat = '#,##0.00'
+ Footer.FieldName = 'PRICE'
+ Footer.ValueType = fvtSum
end
item
Title.Alignment = taCenter
@@ -144,14 +137,12 @@ object RxDBGridMainForm: TRxDBGridMainForm
Title.ShowHint = True
Width = 136
FieldName = 'Date_Present'
- Constraints.MinWidth = 0
- Constraints.MaxWidth = 0
+ EditButtons = <>
Filter.Font.Style = [fsItalic]
Filter.DropDownRows = 0
Filter.EmptyValue = '(Нет)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
- EditButtons = <>
end
item
Title.Alignment = taCenter
@@ -161,14 +152,12 @@ object RxDBGridMainForm: TRxDBGridMainForm
Title.ShowHint = True
Width = 141
FieldName = 'DEVELOPER_ID'
- Constraints.MinWidth = 0
- Constraints.MaxWidth = 0
+ EditButtons = <>
Filter.Font.Style = [fsItalic]
Filter.DropDownRows = 0
Filter.EmptyValue = '(Нет)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
- EditButtons = <>
end
item
ButtonStyle = cbsPickList
@@ -181,13 +170,6 @@ object RxDBGridMainForm: TRxDBGridMainForm
Title.Caption = 'Rait'
Title.Orientation = toHorizontal
FieldName = 'RAIT'
- Constraints.MinWidth = 0
- Constraints.MaxWidth = 0
- Filter.Font.Style = [fsItalic]
- Filter.DropDownRows = 0
- Filter.EmptyValue = '(Нет)'
- Filter.EmptyFont.Style = [fsItalic]
- Filter.ItemIndex = -1
DirectInput = False
EditButtons = <
item
@@ -226,11 +208,71 @@ object RxDBGridMainForm: TRxDBGridMainForm
Hint = 'Вторая кнопка'
OnClick = TRxColumnEditButtons1Click
end>
+ Filter.Font.Style = [fsItalic]
+ Filter.DropDownRows = 0
+ Filter.EmptyValue = '(Нет)'
+ Filter.EmptyFont.Style = [fsItalic]
+ Filter.ItemIndex = -1
+ end>
+ KeyStrokes = <
+ item
+ Command = rxgcShowFindDlg
+ ShortCut = 16454
+ Enabled = True
+ end
+ item
+ Command = rxgcShowColumnsDlg
+ ShortCut = 16471
+ Enabled = True
+ end
+ item
+ Command = rxgcShowFilterDlg
+ ShortCut = 16468
+ Enabled = True
+ end
+ item
+ Command = rxgcShowSortDlg
+ ShortCut = 16467
+ Enabled = True
+ end
+ item
+ Command = rxgcShowQuickFilter
+ ShortCut = 16465
+ Enabled = True
+ end
+ item
+ Command = rxgcHideQuickFilter
+ ShortCut = 16456
+ Enabled = True
+ end
+ item
+ Command = rxgcSelectAll
+ ShortCut = 16449
+ Enabled = True
+ end
+ item
+ Command = rxgcDeSelectAll
+ ShortCut = 16429
+ Enabled = True
+ end
+ item
+ Command = rxgcInvertSelection
+ ShortCut = 16426
+ Enabled = True
+ end
+ item
+ Command = rxgcOptimizeColumnsWidth
+ ShortCut = 16427
+ Enabled = True
+ end
+ item
+ Command = rxgcCopyCellValue
+ ShortCut = 16451
+ Enabled = True
end>
FooterOptions.Active = True
FooterOptions.Color = clYellow
FooterOptions.RowCount = 1
- PropertyStorage = XMLPropStorage1
Version = 1
OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgHighlightFocusCol, rdgHighlightFocusRow, rdgDblClickOptimizeColWidth, rdgFooterRows, rdgXORColSizing, rdgMultiTitleLines, rdgAllowQuickSearch, rdgAllowQuickFilter, rdgAllowFilterForm, rdgAllowSortForm, rdgAllowToolMenu]
FooterColor = clYellow
@@ -252,22 +294,22 @@ object RxDBGridMainForm: TRxDBGridMainForm
end
object Panel1: TPanel
Left = 0
- Height = 66
+ Height = 70
Top = 0
Width = 1187
Align = alTop
AutoSize = True
- ClientHeight = 66
+ ClientHeight = 70
ClientWidth = 1187
TabOrder = 1
object Label1: TLabel
AnchorSideLeft.Control = Button2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
- Left = 260
- Height = 19
+ Left = 270
+ Height = 21
Top = 7
- Width = 33
+ Width = 36
BorderSpacing.Around = 6
Caption = 'Mode'
ParentColor = False
@@ -276,9 +318,9 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
Left = 7
- Height = 31
+ Height = 33
Top = 7
- Width = 85
+ Width = 87
Action = actCalcTotal
AutoSize = True
BorderSpacing.Around = 6
@@ -288,10 +330,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Button1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
- Left = 98
- Height = 31
+ Left = 100
+ Height = 33
Top = 7
- Width = 156
+ Width = 164
Action = actOptimizeColumnsWidthAll
AutoSize = True
BorderSpacing.Around = 6
@@ -302,11 +344,11 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CheckBox2
AnchorSideTop.Side = asrBottom
- Left = 489
+ Left = 499
Height = 23
Hint = 'Use filter line'
Top = 36
- Width = 79
+ Width = 82
BorderSpacing.Left = 6
Caption = 'Use filter'
OnChange = CheckBox1Change
@@ -316,9 +358,9 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
- Left = 266
- Height = 27
- Top = 32
+ Left = 276
+ Height = 29
+ Top = 34
Width = 217
BorderSpacing.Around = 6
ItemHeight = 0
@@ -336,11 +378,11 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = ComboBox1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
- Left = 489
+ Left = 499
Height = 23
Hint = 'Auto fill column width'
Top = 7
- Width = 125
+ Width = 131
BorderSpacing.Around = 6
Caption = 'Auto fill columns'
OnChange = CheckBox2Change
@@ -350,10 +392,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = CheckBox2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
- Left = 620
+ Left = 636
Height = 23
Top = 7
- Width = 115
+ Width = 119
BorderSpacing.Around = 6
Caption = 'Show indicator'
Checked = True
@@ -366,10 +408,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CheckBox3
AnchorSideTop.Side = asrBottom
- Left = 620
+ Left = 636
Height = 23
Top = 36
- Width = 110
+ Width = 115
BorderSpacing.Around = 6
Caption = 'Show headers'
Checked = True
@@ -381,10 +423,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = CheckBox3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
- Left = 741
+ Left = 761
Height = 23
Top = 7
- Width = 93
+ Width = 94
BorderSpacing.Around = 6
Caption = 'Word wrap'
OnChange = CheckBox5Change
@@ -636,11 +678,6 @@ object RxDBGridMainForm: TRxDBGridMainForm
Size = 130
end
end
- object XMLPropStorage1: TXMLPropStorage
- StoredValues = <>
- left = 272
- top = 128
- end
object ImageList1: TImageList
left = 152
top = 348
@@ -1296,4 +1333,29 @@ object RxDBGridMainForm: TRxDBGridMainForm
left = 856
top = 48
end
+ object RxIniPropStorage1: TRxIniPropStorage
+ StoredValues = <>
+ SeparateFiles = False
+ left = 464
+ top = 192
+ end
+ object RxDBGridExportSpreadSheet1: TRxDBGridExportSpreadSheet
+ RxDBGrid = RxDBGrid1
+ Caption = 'Export data'
+ ShowSetupForm = True
+ PageName = 'RxDBGrid demo'
+ Options = [ressExportTitle, ressExportColors, ressExportFooter, ressOverwriteExisting]
+ left = 504
+ top = 270
+ end
+ object RxDBGridPrint1: TRxDBGridPrint
+ RxDBGrid = RxDBGrid1
+ Caption = 'Print list'
+ ShowSetupForm = True
+ Options = [rxpoShowTitle, rxpoShowFooter, rxpoShowGridColor, rxpoShowFooterColor, rxpoShowReportTitle]
+ ShowProgress = True
+ ReportTitle = 'RxDBGrid demo'
+ left = 548
+ top = 269
+ end
end
diff --git a/components/rx/trunk/Demos/RxDBGrid/rxdbgridmainunit.pas b/components/rx/trunk/Demos/RxDBGrid/rxdbgridmainunit.pas
index 9f510adb4..960d1e1a9 100644
--- a/components/rx/trunk/Demos/RxDBGrid/rxdbgridmainunit.pas
+++ b/components/rx/trunk/Demos/RxDBGrid/rxdbgridmainunit.pas
@@ -6,7 +6,8 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, rxmemds,
- DB, rxdbgrid, RxAboutDialog, ExtCtrls, Buttons, Menus, ActnList, StdCtrls,
+ DB, rxdbgrid, RxAboutDialog, RxIniPropStorage, RxDBGridPrintGrid,
+ RxDBGridExportSpreadSheet, ExtCtrls, Buttons, Menus, ActnList, StdCtrls,
DBGrids, XMLPropStorage, types;
type
@@ -21,6 +22,9 @@ type
MenuItem8: TMenuItem;
MenuItem9: TMenuItem;
RxAboutDialog1: TRxAboutDialog;
+ RxDBGridExportSpreadSheet1: TRxDBGridExportSpreadSheet;
+ RxDBGridPrint1: TRxDBGridPrint;
+ RxIniPropStorage1: TRxIniPropStorage;
RxMemoryData1RAIT: TStringField;
SpeedButton1: TSpeedButton;
sysExit: TAction;
@@ -62,7 +66,6 @@ type
RxMemoryData2: TRxMemoryData;
RxMemoryData2DEVELOPER_ID1: TLongintField;
RxMemoryData2DEVELOPER_NAME1: TStringField;
- XMLPropStorage1: TXMLPropStorage;
procedure actCalcTotalExecute(Sender: TObject);
procedure actOptimizeColumnsWidthAllExecute(Sender: TObject);
procedure actOptimizeWidthCol1Execute(Sender: TObject);
diff --git a/components/rx/trunk/languages/rxdconst.ru.po b/components/rx/trunk/languages/rxdconst.ru.po
index ebb15536b..995112dde 100644
--- a/components/rx/trunk/languages/rxdconst.ru.po
+++ b/components/rx/trunk/languages/rxdconst.ru.po
@@ -7,7 +7,7 @@ msgstr "Программа \"%s\""
#: rxdconst.sbottomcaption
msgid "Bottom"
-msgstr ""
+msgstr "Низ"
#: rxdconst.sbrowsedata
msgid "browse"
@@ -169,11 +169,11 @@ msgstr "Ошибка в имени пользователя или пароле"
#: rxdconst.slandscape
msgid "Landscape"
-msgstr ""
+msgstr "Аольбом"
#: rxdconst.sleftcaption
msgid "Left"
-msgstr ""
+msgstr "Левая"
#: rxdconst.slocaldatabase
msgid "Unable complete this operation on local dataset"
@@ -217,7 +217,7 @@ msgstr "Открыть после экспорта"
#: rxdconst.sorientation
msgid "Orientation"
-msgstr ""
+msgstr "Ориентация"
#: rxdconst.soverwriteexisting
msgid "Overwrite existing"
@@ -225,7 +225,7 @@ msgstr "Перезаписать существующее"
#: rxdconst.spagemargins
msgid "Page margins"
-msgstr ""
+msgstr "Отступы на странице"
#: rxdconst.spagename
msgid "Page name"
@@ -249,7 +249,7 @@ msgstr "Новый пароль и подтверждение не совпад
#: rxdconst.sportrait
msgid "Portrait"
-msgstr ""
+msgstr "Портрет"
#: rxdconst.sprevbutton
msgid "&Prior"
@@ -257,11 +257,11 @@ msgstr "&Превыдущие"
#: rxdconst.sprintgrid
msgid "Print grid"
-msgstr ""
+msgstr "Печать списка"
#: rxdconst.sprintoptions
msgid "Print options"
-msgstr ""
+msgstr "Параметры печати"
#: rxdconst.spropdefbylookup
msgid "PropDefByLookup"
@@ -273,7 +273,7 @@ msgstr "Регистрация"
#: rxdconst.sreporttitle
msgid "Report title"
-msgstr ""
+msgstr "Заголовок отчёта"
#: rxdconst.sretrylogin
msgid "Retry to connect with database?"
@@ -281,7 +281,7 @@ msgstr "Вы хотите повторить попытку соединения
#: rxdconst.srightcaption
msgid "Right"
-msgstr ""
+msgstr "Справа"
#: rxdconst.srxallfields
msgid "All fields"
@@ -515,27 +515,27 @@ msgstr "поиск"
#: rxdconst.sshowcolumnheaderonallpage
msgid "Show column header on all page"
-msgstr ""
+msgstr "Отображать заголовки колонок на всех страницах"
#: rxdconst.sshowfooter
msgid "Show footer"
-msgstr ""
+msgstr "Отображать итоги"
#: rxdconst.sshowfootercolor
msgid "Show footer color"
-msgstr ""
+msgstr "Итоги в цвете"
#: rxdconst.sshowgridcolor
msgid "Show grid color"
-msgstr ""
+msgstr "Список в цвете"
#: rxdconst.sshowreporttitle
msgid "Show report title"
-msgstr ""
+msgstr "Отображать заголово отчёта"
#: rxdconst.sshowtitle
msgid "Show column title"
-msgstr ""
+msgstr "Отображать заголовки колонок"
#: rxdconst.stoolsexportspeadsheet
msgid "Export to speadsheet"
@@ -543,7 +543,7 @@ msgstr "Экспорт в электронную таблицу"
#: rxdconst.stopcaption
msgid "Top"
-msgstr ""
+msgstr "Сверху"
#: rxdconst.sunknownfieldtype
msgid "SUnknownFieldType %s"