RxFPC: TDualListForm - enable mouse drag & drop

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3566 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-09-15 06:19:02 +00:00
parent 23e81afe48
commit f15a3c8caa
11 changed files with 678 additions and 104 deletions

View File

@ -1,7 +1,7 @@
object DualListForm: TDualListForm
Left = 451
Left = 916
Height = 344
Top = 264
Top = 266
Width = 552
ActiveControl = IncBtn
BorderIcons = []
@ -11,14 +11,14 @@ object DualListForm: TDualListForm
OnActivate = ListClick
OnShow = ListClick
Position = poScreenCenter
LCLVersion = '0.9.29'
LCLVersion = '1.3'
object SrcLabel: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 6
Height = 18
Height = 21
Top = 6
Width = 50
Width = 45
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Source'
@ -27,10 +27,10 @@ object DualListForm: TDualListForm
object DstLabel: TLabel
AnchorSideLeft.Control = DstList
AnchorSideTop.Control = Owner
Left = 304
Height = 18
Left = 299
Height = 21
Top = 6
Width = 34
Width = 31
BorderSpacing.Top = 6
Caption = 'Dest'
ParentColor = False
@ -42,17 +42,21 @@ object DualListForm: TDualListForm
AnchorSideRight.Control = IncAllBtn
AnchorSideBottom.Control = ButtonPanel1
Left = 6
Height = 262
Top = 30
Width = 242
Height = 258
Top = 33
Width = 247
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
DragMode = dmAutomatic
ItemHeight = 0
MultiSelect = True
OnClick = ListClick
OnDblClick = IncBtnClick
OnDragDrop = SrcListDragDrop
OnDragOver = SrcListDragOver
OnKeyDown = SrcListKeyDown
ParentShowHint = False
ScrollWidth = 245
ShowHint = True
Sorted = True
TabOrder = 0
@ -66,18 +70,22 @@ object DualListForm: TDualListForm
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel1
Left = 304
Height = 262
Top = 30
Width = 242
Left = 299
Height = 258
Top = 33
Width = 247
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
DragMode = dmAutomatic
ItemHeight = 0
MultiSelect = True
OnClick = ListClick
OnDblClick = ExclBtnClick
OnDragDrop = DstListDragDrop
OnDragOver = DstListDragOver
OnKeyDown = DstListKeyDown
ParentShowHint = False
ScrollWidth = 245
ShowHint = True
Sorted = True
TabOrder = 5
@ -88,10 +96,10 @@ object DualListForm: TDualListForm
AnchorSideTop.Control = SrcList
AnchorSideRight.Control = IncAllBtn
AnchorSideRight.Side = asrBottom
Left = 254
Height = 37
Top = 36
Width = 44
Left = 259
Height = 41
Top = 39
Width = 34
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
@ -108,10 +116,10 @@ object DualListForm: TDualListForm
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = IncBtn
AnchorSideTop.Side = asrBottom
Left = 254
Height = 37
Top = 79
Width = 44
Left = 259
Height = 41
Top = 86
Width = 34
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.InnerBorder = 4
@ -128,10 +136,10 @@ object DualListForm: TDualListForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = IncAllBtn
AnchorSideRight.Side = asrBottom
Left = 254
Height = 37
Top = 122
Width = 44
Left = 259
Height = 41
Top = 133
Width = 34
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
@ -149,10 +157,10 @@ object DualListForm: TDualListForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = IncAllBtn
AnchorSideRight.Side = asrBottom
Left = 254
Height = 37
Top = 165
Width = 44
Left = 259
Height = 41
Top = 180
Width = 34
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
@ -166,9 +174,17 @@ object DualListForm: TDualListForm
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 40
Top = 298
Height = 41
Top = 297
Width = 540
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 6
ShowButtons = [pbOK, pbCancel, pbHelp]
end

View File

@ -1,61 +1,68 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TDualListForm','FORMDATA',[
'TPF0'#13'TDualListForm'#12'DualListForm'#4'Left'#3#195#1#6'Height'#3'X'#1#3
+'Top'#3#8#1#5'Width'#3'('#2#13'ActiveControl'#7#6'IncBtn'#11'BorderIcons'#11
'TPF0'#13'TDualListForm'#12'DualListForm'#4'Left'#3#148#3#6'Height'#3'X'#1#3
+'Top'#3#10#1#5'Width'#3'('#2#13'ActiveControl'#7#6'IncBtn'#11'BorderIcons'#11
+#0#7'Caption'#6#12'DualListForm'#12'ClientHeight'#3'X'#1#11'ClientWidth'#3'('
+#2#10'OnActivate'#7#9'ListClick'#6'OnShow'#7#9'ListClick'#8'Position'#7#14'p'
+'oScreenCenter'#10'LCLVersion'#6#6'0.9.29'#0#6'TLabel'#8'SrcLabel'#22'Anchor'
+'SideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2
+#6#6'Height'#2#18#3'Top'#2#6#5'Width'#2'2'#18'BorderSpacing.Left'#2#6#17'Bor'
+'derSpacing.Top'#2#6#7'Caption'#6#6'Source'#11'ParentColor'#8#0#0#6'TLabel'#8
+'DstLabel'#22'AnchorSideLeft.Control'#7#7'DstList'#21'AnchorSideTop.Control'
+#7#5'Owner'#4'Left'#3'0'#1#6'Height'#2#18#3'Top'#2#6#5'Width'#2'"'#17'Border'
+'Spacing.Top'#2#6#7'Caption'#6#4'Dest'#11'ParentColor'#8#0#0#8'TListBox'#7'S'
+'rcList'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#8
+'SrcLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'
+#7#9'IncAllBtn'#24'AnchorSideBottom.Control'#7#12'ButtonPanel1'#4'Left'#2#6#6
+'Height'#3#6#1#3'Top'#2#30#5'Width'#3#242#0#7'Anchors'#11#5'akTop'#6'akLeft'
+#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#0#11
+'MultiSelect'#9#7'OnClick'#7#9'ListClick'#10'OnDblClick'#7#11'IncBtnClick'#9
+'OnKeyDown'#7#14'SrcListKeyDown'#14'ParentShowHint'#8#8'ShowHint'#9#6'Sorted'
+#9#8'TabOrder'#2#0#8'TopIndex'#2#255#0#0#8'TListBox'#7'DstList'#22'AnchorSid'
+'eLeft.Control'#7#9'IncAllBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'Anc'
+'horSideTop.Control'#7#8'DstLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#23
+'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'
+#24'AnchorSideBottom.Control'#7#12'ButtonPanel1'#4'Left'#3'0'#1#6'Height'#3#6
+#1#3'Top'#2#30#5'Width'#3#242#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8
+'akBottom'#0#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#0#11'MultiSelect'
+#9#7'OnClick'#7#9'ListClick'#10'OnDblClick'#7#12'ExclBtnClick'#9'OnKeyDown'#7
+#14'DstListKeyDown'#14'ParentShowHint'#8#8'ShowHint'#9#6'Sorted'#9#8'TabOrde'
+'r'#2#5#8'TopIndex'#2#255#0#0#7'TButton'#6'IncBtn'#22'AnchorSideLeft.Control'
+#7#9'IncAllBtn'#21'AnchorSideTop.Control'#7#7'SrcList'#23'AnchorSideRight.Co'
+'ntrol'#7#9'IncAllBtn'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#254
+#0#6'Height'#2'%'#3'Top'#2'$'#5'Width'#2','#7'Anchors'#11#5'akTop'#6'akLeft'
+#7'akRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#25'BorderSpacing.Inner'
+'Border'#2#4#7'Caption'#6#1'>'#10'Font.Color'#7#7'clBlack'#10'Font.Style'#11
+#6'fsBold'#0#7'OnClick'#7#11'IncBtnClick'#10'ParentFont'#8#8'TabOrder'#2#1#0
+#0#7'TButton'#9'IncAllBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSi'
+'deLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#6'IncBtn'#18'Anchor'
+'SideTop.Side'#7#9'asrBottom'#4'Left'#3#254#0#6'Height'#2'%'#3'Top'#2'O'#5'W'
+'idth'#2','#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#25'BorderSpacing.InnerBo'
+'rder'#2#4#7'Caption'#6#2'>>'#10'Font.Color'#7#7'clBlack'#10'Font.Style'#11#6
+'fsBold'#0#7'OnClick'#7#14'IncAllBtnClick'#10'ParentFont'#8#8'TabOrder'#2#2#0
+#0#7'TButton'#7'ExclBtn'#22'AnchorSideLeft.Control'#7#9'IncAllBtn'#21'Anchor'
+'SideTop.Control'#7#9'IncAllBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'An'
+'chorSideRight.Control'#7#9'IncAllBtn'#20'AnchorSideRight.Side'#7#9'asrBotto'
+'m'#4'Left'#3#254#0#6'Height'#2'%'#3'Top'#2'z'#5'Width'#2','#7'Anchors'#11#5
+'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#25'Bo'
+'rderSpacing.InnerBorder'#2#4#7'Caption'#6#1'<'#10'Font.Color'#7#7'clBlack'
+#10'Font.Style'#11#6'fsBold'#0#7'OnClick'#7#12'ExclBtnClick'#10'ParentFont'#8
+#8'TabOrder'#2#3#0#0#7'TButton'#10'ExclAllBtn'#22'AnchorSideLeft.Control'#7#9
+'IncAllBtn'#21'AnchorSideTop.Control'#7#7'ExclBtn'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#23'AnchorSideRight.Control'#7#9'IncAllBtn'#20'AnchorSideRight.Si'
+'de'#7#9'asrBottom'#4'Left'#3#254#0#6'Height'#2'%'#3'Top'#3#165#0#5'Width'#2
+','#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpa'
+'cing.Top'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#2'<<'#10'Font.'
+'Color'#7#7'clBlack'#10'Font.Style'#11#6'fsBold'#0#7'OnClick'#7#15'ExclAllBt'
+'nClick'#10'ParentFont'#8#8'TabOrder'#2#4#0#0#12'TButtonPanel'#12'ButtonPane'
+'l1'#4'Left'#2#6#6'Height'#2'('#3'Top'#3'*'#1#5'Width'#3#28#2#8'TabOrder'#2#6
+#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#6'pbHelp'#0#0#0#0
+'oScreenCenter'#10'LCLVersion'#6#3'1.3'#0#6'TLabel'#8'SrcLabel'#22'AnchorSid'
+'eLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#6#6
+'Height'#2#21#3'Top'#2#6#5'Width'#2'-'#18'BorderSpacing.Left'#2#6#17'BorderS'
+'pacing.Top'#2#6#7'Caption'#6#6'Source'#11'ParentColor'#8#0#0#6'TLabel'#8'Ds'
+'tLabel'#22'AnchorSideLeft.Control'#7#7'DstList'#21'AnchorSideTop.Control'#7
+#5'Owner'#4'Left'#3'+'#1#6'Height'#2#21#3'Top'#2#6#5'Width'#2#31#17'BorderSp'
+'acing.Top'#2#6#7'Caption'#6#4'Dest'#11'ParentColor'#8#0#0#8'TListBox'#7'Src'
+'List'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#8'S'
+'rcLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
+#9'IncAllBtn'#24'AnchorSideBottom.Control'#7#12'ButtonPanel1'#4'Left'#2#6#6
+'Height'#3#2#1#3'Top'#2'!'#5'Width'#3#247#0#7'Anchors'#11#5'akTop'#6'akLeft'
+#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#8'DragMode'#7#11'dmAu'
+'tomatic'#10'ItemHeight'#2#0#11'MultiSelect'#9#7'OnClick'#7#9'ListClick'#10
+'OnDblClick'#7#11'IncBtnClick'#10'OnDragDrop'#7#15'SrcListDragDrop'#10'OnDra'
+'gOver'#7#15'SrcListDragOver'#9'OnKeyDown'#7#14'SrcListKeyDown'#14'ParentSho'
+'wHint'#8#11'ScrollWidth'#3#245#0#8'ShowHint'#9#6'Sorted'#9#8'TabOrder'#2#0#8
+'TopIndex'#2#255#0#0#8'TListBox'#7'DstList'#22'AnchorSideLeft.Control'#7#9'I'
+'ncAllBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7
+#8'DstLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contro'
+'l'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.C'
+'ontrol'#7#12'ButtonPanel1'#4'Left'#3'+'#1#6'Height'#3#2#1#3'Top'#2'!'#5'Wid'
+'th'#3#247#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'Bo'
+'rderSpacing.Around'#2#6#8'DragMode'#7#11'dmAutomatic'#10'ItemHeight'#2#0#11
+'MultiSelect'#9#7'OnClick'#7#9'ListClick'#10'OnDblClick'#7#12'ExclBtnClick'
+#10'OnDragDrop'#7#15'DstListDragDrop'#10'OnDragOver'#7#15'DstListDragOver'#9
+'OnKeyDown'#7#14'DstListKeyDown'#14'ParentShowHint'#8#11'ScrollWidth'#3#245#0
+#8'ShowHint'#9#6'Sorted'#9#8'TabOrder'#2#5#8'TopIndex'#2#255#0#0#7'TButton'#6
+'IncBtn'#22'AnchorSideLeft.Control'#7#9'IncAllBtn'#21'AnchorSideTop.Control'
+#7#7'SrcList'#23'AnchorSideRight.Control'#7#9'IncAllBtn'#20'AnchorSideRight.'
+'Side'#7#9'asrBottom'#4'Left'#3#3#1#6'Height'#2')'#3'Top'#2''''#5'Width'#2'"'
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacin'
+'g.Top'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#1'>'#10'Font.Colo'
+'r'#7#7'clBlack'#10'Font.Style'#11#6'fsBold'#0#7'OnClick'#7#11'IncBtnClick'
+#10'ParentFont'#8#8'TabOrder'#2#1#0#0#7'TButton'#9'IncAllBtn'#22'AnchorSideL'
+'eft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSid'
+'eTop.Control'#7#6'IncBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#3
+#1#6'Height'#2')'#3'Top'#2'V'#5'Width'#2'"'#8'AutoSize'#9#17'BorderSpacing.T'
+'op'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#2'>>'#10'Font.Color'
+#7#7'clBlack'#10'Font.Style'#11#6'fsBold'#0#7'OnClick'#7#14'IncAllBtnClick'
+#10'ParentFont'#8#8'TabOrder'#2#2#0#0#7'TButton'#7'ExclBtn'#22'AnchorSideLef'
+'t.Control'#7#9'IncAllBtn'#21'AnchorSideTop.Control'#7#9'IncAllBtn'#18'Ancho'
+'rSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#9'IncAllBtn'#20
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#3#1#6'Height'#2')'#3'Top'#3
+#133#0#5'Width'#2'"'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSiz'
+'e'#9#17'BorderSpacing.Top'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'
+#6#1'<'#10'Font.Color'#7#7'clBlack'#10'Font.Style'#11#6'fsBold'#0#7'OnClick'
+#7#12'ExclBtnClick'#10'ParentFont'#8#8'TabOrder'#2#3#0#0#7'TButton'#10'ExclA'
+'llBtn'#22'AnchorSideLeft.Control'#7#9'IncAllBtn'#21'AnchorSideTop.Control'#7
+#7'ExclBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'
+#7#9'IncAllBtn'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#3#1#6'Heig'
+'ht'#2')'#3'Top'#3#180#0#5'Width'#2'"'#7'Anchors'#11#5'akTop'#6'akLeft'#7'ak'
+'Right'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#25'BorderSpacing.InnerBord'
+'er'#2#4#7'Caption'#6#2'<<'#10'Font.Color'#7#7'clBlack'#10'Font.Style'#11#6
+'fsBold'#0#7'OnClick'#7#15'ExclAllBtnClick'#10'ParentFont'#8#8'TabOrder'#2#4
+#0#0#12'TButtonPanel'#12'ButtonPanel1'#4'Left'#2#6#6'Height'#2')'#3'Top'#3')'
+#1#5'Width'#3#28#2#13'OKButton.Name'#6#8'OKButton'#23'OKButton.DefaultCaptio'
+'n'#9#15'HelpButton.Name'#6#10'HelpButton'#25'HelpButton.DefaultCaption'#9#16
+'CloseButton.Name'#6#11'CloseButton'#26'CloseButton.DefaultCaption'#9#17'Can'
+'celButton.Name'#6#12'CancelButton'#27'CancelButton.DefaultCaption'#9#8'TabO'
+'rder'#2#6#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#6'pbHelp'#0#0#0#0
]);

View File

@ -89,10 +89,22 @@ msgstr ""
msgid "File specified is not an executable file, dynamic-link library, or icon file"
msgstr "Fichero especificado no es un fichero ejecutable, vinculo dinamico, o fichero de icono"
#: rxconst.sfirsthalfofyear
msgid "First half of year"
msgstr ""
#: rxconst.sfirstquarter
msgid "First quarter"
msgstr ""
#: rxconst.sflatbuttons
msgid "Flat buttons"
msgstr "Botones planos"
#: rxconst.sfourthquarter
msgid "Fourth quarter"
msgstr ""
#: rxconst.sfpcversion
msgid "FPC version : "
msgstr ""
@ -169,6 +181,14 @@ msgstr ""
msgid "Error. Expected value for filed %s."
msgstr ""
#: rxconst.ssecondhalfofyear
msgid "Second half of year"
msgstr ""
#: rxconst.ssecondquarter
msgid "Second quarter"
msgstr ""
#: rxconst.sshowcaption
msgid "Show caption"
msgstr "Mostrar titulo"
@ -185,6 +205,10 @@ msgstr ""
msgid "Target OS : "
msgstr ""
#: rxconst.sthirdquarter
msgid "Third quarter"
msgstr ""
#: rxconst.stocurdate
msgid "Set current date"
msgstr "Poner fecha actual"

View File

@ -89,10 +89,22 @@ msgstr ""
msgid "File specified is not an executable file, dynamic-link library, or icon file"
msgstr ""
#: rxconst.sfirsthalfofyear
msgid "First half of year"
msgstr ""
#: rxconst.sfirstquarter
msgid "First quarter"
msgstr ""
#: rxconst.sflatbuttons
msgid "Flat buttons"
msgstr ""
#: rxconst.sfourthquarter
msgid "Fourth quarter"
msgstr ""
#: rxconst.sfpcversion
msgid "FPC version : "
msgstr ""
@ -169,6 +181,14 @@ msgstr ""
msgid "Error. Expected value for filed %s."
msgstr ""
#: rxconst.ssecondhalfofyear
msgid "Second half of year"
msgstr ""
#: rxconst.ssecondquarter
msgid "Second quarter"
msgstr ""
#: rxconst.sshowcaption
msgid "Show caption"
msgstr ""
@ -185,6 +205,10 @@ msgstr ""
msgid "Target OS : "
msgstr ""
#: rxconst.sthirdquarter
msgid "Third quarter"
msgstr ""
#: rxconst.stocurdate
msgid "Set current date"
msgstr ""

View File

@ -89,10 +89,22 @@ msgstr "Элемент управления не найден в валидат
msgid "File specified is not an executable file, dynamic-link library, or icon file"
msgstr "Указанный файл не исполняемый, не библиотека и не иконка"
#: rxconst.sfirsthalfofyear
msgid "First half of year"
msgstr ""
#: rxconst.sfirstquarter
msgid "First quarter"
msgstr ""
#: rxconst.sflatbuttons
msgid "Flat buttons"
msgstr "Плавающие кнопки"
#: rxconst.sfourthquarter
msgid "Fourth quarter"
msgstr ""
#: rxconst.sfpcversion
msgid "FPC version : "
msgstr "Версия FPC : "
@ -169,6 +181,14 @@ msgstr "Графический интерфейс QT"
msgid "Error. Expected value for filed %s."
msgstr "Поле %s. Требуется значение"
#: rxconst.ssecondhalfofyear
msgid "Second half of year"
msgstr ""
#: rxconst.ssecondquarter
msgid "Second quarter"
msgstr ""
#: rxconst.sshowcaption
msgid "Show caption"
msgstr "Отображать заголовок"
@ -185,6 +205,10 @@ msgstr "Целевой процессор : "
msgid "Target OS : "
msgstr "Целевая ОС : "
#: rxconst.sthirdquarter
msgid "Third quarter"
msgstr ""
#: rxconst.stocurdate
msgid "Set current date"
msgstr "Установть текущую дату"

View File

@ -98,10 +98,22 @@ msgstr "Елемент управління не знайдений в валі
msgid "File specified is not an executable file, dynamic-link library, or icon file"
msgstr "Вказаний файл не виконуваний, не бібліотека і не іконка"
#: rxconst.sfirsthalfofyear
msgid "First half of year"
msgstr ""
#: rxconst.sfirstquarter
msgid "First quarter"
msgstr ""
#: rxconst.sflatbuttons
msgid "Flat buttons"
msgstr "Плаваючі кнопки"
#: rxconst.sfourthquarter
msgid "Fourth quarter"
msgstr ""
#: rxconst.sfpcversion
msgid "FPC version : "
msgstr "Версія FPC : "
@ -178,6 +190,14 @@ msgstr "Набір віджетів QT"
msgid "Error. Expected value for filed %s."
msgstr "Поле %s. Вимагається значення"
#: rxconst.ssecondhalfofyear
msgid "Second half of year"
msgstr ""
#: rxconst.ssecondquarter
msgid "Second quarter"
msgstr ""
#: rxconst.sshowcaption
msgid "Show caption"
msgstr "Показати заголовок"
@ -194,6 +214,10 @@ msgstr "Цільовий CPU : "
msgid "Target OS : "
msgstr "Цільова OS : "
#: rxconst.sthirdquarter
msgid "Third quarter"
msgstr ""
#: rxconst.stocurdate
msgid "Set current date"
msgstr "Встановити поточну дату"

View File

@ -5,6 +5,10 @@ msgstr "Content-Type: text/plain; charset=UTF-8"
msgid "Application \"%s\""
msgstr "Aplicación \"%s\""
#: rxdconst.sbottomcaption
msgid "Bottom"
msgstr ""
#: rxdconst.sbrowsedata
msgid "browse"
msgstr "vista"
@ -65,6 +69,22 @@ msgstr "editando"
msgid "Error message"
msgstr "Mensaje de error"
#: rxdconst.sexportcellcolors
msgid "Export cell colors"
msgstr ""
#: rxdconst.sexportcolumnfooter
msgid "Export column footer"
msgstr ""
#: rxdconst.sexportcolumnheader
msgid "Export column header"
msgstr ""
#: rxdconst.sexportfilename
msgid "Export file name"
msgstr ""
#: rxdconst.sexprbadcompare
msgid "Compare opertion need fielad and const"
msgstr "Comparación operacion necesita fielad y const"
@ -75,8 +95,8 @@ msgstr "Campo '%s' no usado en expresión de filtro"
#: rxdconst.sexprbadnulltest
#, fuzzy
#| msgid "NULL-values enabled in '=' and '<>'"
msgid "NULL-values enabled in '=' и '<>'"
#| msgid "NULL-values enabled in '=' и '<>'"
msgid "NULL-values enabled in '=' and '<>'"
msgstr "Valor nulo habilitado en '=' y '<>'"
#: rxdconst.sexprexpected
@ -123,6 +143,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.shidezerovalues
msgid "Hide zero values"
msgstr ""
#: rxdconst.shintlabel
msgid "Enter you user name and password"
msgstr "Entre su nombre de usuario y clave"
@ -147,6 +171,14 @@ msgstr "No hay campos definido"
msgid "User name or password not valid"
msgstr "Nombre de usuario o clave no es valido"
#: rxdconst.slandscape
msgid "Landscape"
msgstr ""
#: rxdconst.sleftcaption
msgid "Left"
msgstr ""
#: rxdconst.slocaldatabase
msgid "Unable complete this operation on local dataset"
msgstr "No se puede completar esta operación en el conjunto de datos local"
@ -183,6 +215,26 @@ msgstr "Conjunto de Datos no esta en modo de edición o inserción"
msgid "&Old password:"
msgstr "&Anterior clave:"
#: rxdconst.sopenafterexport
msgid "Open after export"
msgstr ""
#: rxdconst.sorientation
msgid "Orientation"
msgstr ""
#: rxdconst.soverwriteexisting
msgid "Overwrite existing"
msgstr ""
#: rxdconst.spagemargins
msgid "Page margins"
msgstr ""
#: rxdconst.spagename
msgid "Page name"
msgstr ""
#: rxdconst.spasswordchanged
msgid "Password changed"
msgstr "Clave cambiada"
@ -199,10 +251,22 @@ msgstr "Clave no cambio"
msgid "New password and confirmation not equal"
msgstr "Nueva clave y confirmacion no son iguales"
#: rxdconst.sportrait
msgid "Portrait"
msgstr ""
#: rxdconst.sprevbutton
msgid "&Prior"
msgstr "&Anterior"
#: rxdconst.sprintgrid
msgid "Print grid"
msgstr ""
#: rxdconst.sprintoptions
msgid "Print options"
msgstr ""
#: rxdconst.spropdefbylookup
msgid "PropDefByLookup"
msgstr "PropDefByLookup"
@ -211,10 +275,18 @@ msgstr "PropDefByLookup"
msgid "Register"
msgstr "Registro"
#: rxdconst.sreporttitle
msgid "Report title"
msgstr ""
#: rxdconst.sretrylogin
msgid "Retry to connect with database?"
msgstr "Reintentar conectar con la base de dato?"
#: rxdconst.srightcaption
msgid "Right"
msgstr ""
#: rxdconst.srxallfields
msgid "All fields"
msgstr ""
@ -294,6 +366,16 @@ msgstr "Hacia Delante"
msgid "Text to find"
msgstr "Texto a Buscar"
#: rxdconst.srxdbgridselapplycaption
#, fuzzy
msgctxt "rxdconst.srxdbgridselapplycaption"
msgid "Apply"
msgstr "Aceptar"
#: rxdconst.srxdbgridselapplyhint
msgid "Apply current columns setings"
msgstr ""
#: rxdconst.srxdbgridselcolcaption
msgid "Grid columns"
msgstr "Columnas de la Tabla"
@ -439,6 +521,38 @@ msgstr "Error del Servidor"
msgid "find"
msgstr "buscar"
#: rxdconst.sshowcolumnheaderonallpage
msgid "Show column header on all page"
msgstr ""
#: rxdconst.sshowfooter
msgid "Show footer"
msgstr ""
#: rxdconst.sshowfootercolor
msgid "Show footer color"
msgstr ""
#: rxdconst.sshowgridcolor
msgid "Show grid color"
msgstr ""
#: rxdconst.sshowreporttitle
msgid "Show report title"
msgstr ""
#: rxdconst.sshowtitle
msgid "Show column title"
msgstr ""
#: rxdconst.stoolsexportspeadsheet
msgid "Export to speadsheet"
msgstr ""
#: rxdconst.stopcaption
msgid "Top"
msgstr ""
#: rxdconst.sunknownfieldtype
msgid "SUnknownFieldType %s"
msgstr "STipoCampoDesconocido %s"

View File

@ -5,6 +5,10 @@ msgstr "Content-Type: text/plain; charset=UTF-8"
msgid "Application \"%s\""
msgstr ""
#: rxdconst.sbottomcaption
msgid "Bottom"
msgstr ""
#: rxdconst.sbrowsedata
msgid "browse"
msgstr ""
@ -65,6 +69,22 @@ msgstr ""
msgid "Error message"
msgstr ""
#: rxdconst.sexportcellcolors
msgid "Export cell colors"
msgstr ""
#: rxdconst.sexportcolumnfooter
msgid "Export column footer"
msgstr ""
#: rxdconst.sexportcolumnheader
msgid "Export column header"
msgstr ""
#: rxdconst.sexportfilename
msgid "Export file name"
msgstr ""
#: rxdconst.sexprbadcompare
msgid "Compare opertion need fielad and const"
msgstr ""
@ -74,7 +94,7 @@ msgid "Field '%s' not used in filter expression"
msgstr ""
#: rxdconst.sexprbadnulltest
msgid "NULL-values enabled in '=' и '<>'"
msgid "NULL-values enabled in '=' and '<>'"
msgstr ""
#: rxdconst.sexprexpected
@ -121,6 +141,10 @@ msgstr ""
msgid "Type mismatch for field '%s', expecting: %s actual: %s"
msgstr ""
#: rxdconst.shidezerovalues
msgid "Hide zero values"
msgstr ""
#: rxdconst.shintlabel
msgid "Enter you user name and password"
msgstr ""
@ -145,6 +169,14 @@ msgstr ""
msgid "User name or password not valid"
msgstr ""
#: rxdconst.slandscape
msgid "Landscape"
msgstr ""
#: rxdconst.sleftcaption
msgid "Left"
msgstr ""
#: rxdconst.slocaldatabase
msgid "Unable complete this operation on local dataset"
msgstr ""
@ -181,6 +213,26 @@ msgstr ""
msgid "&Old password:"
msgstr ""
#: rxdconst.sopenafterexport
msgid "Open after export"
msgstr ""
#: rxdconst.sorientation
msgid "Orientation"
msgstr ""
#: rxdconst.soverwriteexisting
msgid "Overwrite existing"
msgstr ""
#: rxdconst.spagemargins
msgid "Page margins"
msgstr ""
#: rxdconst.spagename
msgid "Page name"
msgstr ""
#: rxdconst.spasswordchanged
msgid "Password changed"
msgstr ""
@ -197,10 +249,22 @@ msgstr ""
msgid "New password and confirmation not equal"
msgstr ""
#: rxdconst.sportrait
msgid "Portrait"
msgstr ""
#: rxdconst.sprevbutton
msgid "&Prior"
msgstr ""
#: rxdconst.sprintgrid
msgid "Print grid"
msgstr ""
#: rxdconst.sprintoptions
msgid "Print options"
msgstr ""
#: rxdconst.spropdefbylookup
msgid "PropDefByLookup"
msgstr ""
@ -209,10 +273,18 @@ msgstr ""
msgid "Register"
msgstr ""
#: rxdconst.sreporttitle
msgid "Report title"
msgstr ""
#: rxdconst.sretrylogin
msgid "Retry to connect with database?"
msgstr ""
#: rxdconst.srightcaption
msgid "Right"
msgstr ""
#: rxdconst.srxallfields
msgid "All fields"
msgstr ""
@ -292,6 +364,15 @@ msgstr ""
msgid "Text to find"
msgstr ""
#: rxdconst.srxdbgridselapplycaption
msgctxt "rxdconst.srxdbgridselapplycaption"
msgid "Apply"
msgstr ""
#: rxdconst.srxdbgridselapplyhint
msgid "Apply current columns setings"
msgstr ""
#: rxdconst.srxdbgridselcolcaption
msgid "Grid columns"
msgstr ""
@ -434,6 +515,38 @@ msgstr ""
msgid "find"
msgstr ""
#: rxdconst.sshowcolumnheaderonallpage
msgid "Show column header on all page"
msgstr ""
#: rxdconst.sshowfooter
msgid "Show footer"
msgstr ""
#: rxdconst.sshowfootercolor
msgid "Show footer color"
msgstr ""
#: rxdconst.sshowgridcolor
msgid "Show grid color"
msgstr ""
#: rxdconst.sshowreporttitle
msgid "Show report title"
msgstr ""
#: rxdconst.sshowtitle
msgid "Show column title"
msgstr ""
#: rxdconst.stoolsexportspeadsheet
msgid "Export to speadsheet"
msgstr ""
#: rxdconst.stopcaption
msgid "Top"
msgstr ""
#: rxdconst.sunknownfieldtype
msgid "SUnknownFieldType %s"
msgstr ""

View File

@ -5,6 +5,10 @@ msgstr "Content-Type: text/plain; charset=UTF-8"
msgid "Application \"%s\""
msgstr "Программа \"%s\""
#: rxdconst.sbottomcaption
msgid "Bottom"
msgstr ""
#: rxdconst.sbrowsedata
msgid "browse"
msgstr "просмотр"
@ -65,6 +69,22 @@ msgstr "редактирование"
msgid "Error message"
msgstr "Сообщение об ошибке"
#: rxdconst.sexportcellcolors
msgid "Export cell colors"
msgstr ""
#: rxdconst.sexportcolumnfooter
msgid "Export column footer"
msgstr ""
#: rxdconst.sexportcolumnheader
msgid "Export column header"
msgstr ""
#: rxdconst.sexportfilename
msgid "Export file name"
msgstr ""
#: rxdconst.sexprbadcompare
msgid "Compare opertion need fielad and const"
msgstr "Операции сравнения требуют наличия поля и константы"
@ -75,8 +95,8 @@ msgstr "Поле '%s' не может быть использовано в вы
#: rxdconst.sexprbadnulltest
#, fuzzy
#| msgid "NULL-values enabled in '=' and '<>'"
msgid "NULL-values enabled in '=' и '<>'"
#| msgid "NULL-values enabled in '=' и '<>'"
msgid "NULL-values enabled in '=' and '<>'"
msgstr "NULL-значения разрешены только в выражениях '=' и '<>'"
#: rxdconst.sexprexpected
@ -123,6 +143,10 @@ msgstr "Поле '%s' ожидает значение"
msgid "Type mismatch for field '%s', expecting: %s actual: %s"
msgstr "Несоответсвие типов для поля '%s', необходимо: %s введено: %s"
#: rxdconst.shidezerovalues
msgid "Hide zero values"
msgstr ""
#: rxdconst.shintlabel
msgid "Enter you user name and password"
msgstr "Введите ваше имя и пароль"
@ -147,6 +171,14 @@ msgstr "Нет объявления полей"
msgid "User name or password not valid"
msgstr "Ошибка в имени пользователя или пароле"
#: rxdconst.slandscape
msgid "Landscape"
msgstr ""
#: rxdconst.sleftcaption
msgid "Left"
msgstr ""
#: rxdconst.slocaldatabase
msgid "Unable complete this operation on local dataset"
msgstr "Невозможно произвести эту операцию с локальной базой данных"
@ -183,6 +215,26 @@ msgstr "Набор данных не в режиме редактировани
msgid "&Old password:"
msgstr "&Старый пароль"
#: rxdconst.sopenafterexport
msgid "Open after export"
msgstr ""
#: rxdconst.sorientation
msgid "Orientation"
msgstr ""
#: rxdconst.soverwriteexisting
msgid "Overwrite existing"
msgstr ""
#: rxdconst.spagemargins
msgid "Page margins"
msgstr ""
#: rxdconst.spagename
msgid "Page name"
msgstr ""
#: rxdconst.spasswordchanged
msgid "Password changed"
msgstr "Пароль изменён"
@ -199,10 +251,22 @@ msgstr "Пароль не изменён"
msgid "New password and confirmation not equal"
msgstr "Новый пароль и подтверждение не совпадают"
#: rxdconst.sportrait
msgid "Portrait"
msgstr ""
#: rxdconst.sprevbutton
msgid "&Prior"
msgstr "&Превыдущие"
#: rxdconst.sprintgrid
msgid "Print grid"
msgstr ""
#: rxdconst.sprintoptions
msgid "Print options"
msgstr ""
#: rxdconst.spropdefbylookup
msgid "PropDefByLookup"
msgstr ""
@ -211,10 +275,18 @@ msgstr ""
msgid "Register"
msgstr "Регистрация"
#: rxdconst.sreporttitle
msgid "Report title"
msgstr ""
#: rxdconst.sretrylogin
msgid "Retry to connect with database?"
msgstr "Вы хотите повторить попытку соединения с базой данных?"
#: rxdconst.srightcaption
msgid "Right"
msgstr ""
#: rxdconst.srxallfields
msgid "All fields"
msgstr "Все поля"
@ -294,6 +366,16 @@ msgstr "Вперёд"
msgid "Text to find"
msgstr "Текст для поиска"
#: rxdconst.srxdbgridselapplycaption
#, fuzzy
msgctxt "rxdconst.srxdbgridselapplycaption"
msgid "Apply"
msgstr "Применить"
#: rxdconst.srxdbgridselapplyhint
msgid "Apply current columns setings"
msgstr ""
#: rxdconst.srxdbgridselcolcaption
msgid "Grid columns"
msgstr "Поля таблицы"
@ -437,6 +519,38 @@ msgstr "Ошибка сервера"
msgid "find"
msgstr "поиск"
#: rxdconst.sshowcolumnheaderonallpage
msgid "Show column header on all page"
msgstr ""
#: rxdconst.sshowfooter
msgid "Show footer"
msgstr ""
#: rxdconst.sshowfootercolor
msgid "Show footer color"
msgstr ""
#: rxdconst.sshowgridcolor
msgid "Show grid color"
msgstr ""
#: rxdconst.sshowreporttitle
msgid "Show report title"
msgstr ""
#: rxdconst.sshowtitle
msgid "Show column title"
msgstr ""
#: rxdconst.stoolsexportspeadsheet
msgid "Export to speadsheet"
msgstr ""
#: rxdconst.stopcaption
msgid "Top"
msgstr ""
#: rxdconst.sunknownfieldtype
msgid "SUnknownFieldType %s"
msgstr "Не определён тип данных для поля %s"

View File

@ -14,6 +14,10 @@ msgstr ""
msgid "Application \"%s\""
msgstr "Програма \"%s\""
#: rxdconst.sbottomcaption
msgid "Bottom"
msgstr ""
#: rxdconst.sbrowsedata
msgid "browse"
msgstr "перегляд"
@ -74,6 +78,22 @@ msgstr "Редагування"
msgid "Error message"
msgstr "Повідомлення про помилку"
#: rxdconst.sexportcellcolors
msgid "Export cell colors"
msgstr ""
#: rxdconst.sexportcolumnfooter
msgid "Export column footer"
msgstr ""
#: rxdconst.sexportcolumnheader
msgid "Export column header"
msgstr ""
#: rxdconst.sexportfilename
msgid "Export file name"
msgstr ""
#: rxdconst.sexprbadcompare
msgid "Compare opertion need fielad and const"
msgstr "Операції порівняння вимагають наявності поля і константи"
@ -84,8 +104,8 @@ msgstr "Поле '%s' не може бути використане в вира
#: rxdconst.sexprbadnulltest
#, fuzzy
#| msgid "NULL-values enabled in '=' and '<>'"
msgid "NULL-values enabled in '=' и '<>'"
#| msgid "NULL-values enabled in '=' и '<>'"
msgid "NULL-values enabled in '=' and '<>'"
msgstr "NULL-значення дозволені тільки у виразах '=' і '<>'"
#: rxdconst.sexprexpected
@ -132,6 +152,10 @@ msgstr "Поле '%s' очікує значення"
msgid "Type mismatch for field '%s', expecting: %s actual: %s"
msgstr "Несоответсвие типов для поля '%s', необходимо: %s введено: %s"
#: rxdconst.shidezerovalues
msgid "Hide zero values"
msgstr ""
#: rxdconst.shintlabel
msgid "Enter you user name and password"
msgstr "Введіть ваші ім'я користувача та пароль"
@ -156,6 +180,14 @@ msgstr "Немає оголошення полів"
msgid "User name or password not valid"
msgstr "Помилка в імені користувача або паролі"
#: rxdconst.slandscape
msgid "Landscape"
msgstr ""
#: rxdconst.sleftcaption
msgid "Left"
msgstr ""
#: rxdconst.slocaldatabase
msgid "Unable complete this operation on local dataset"
msgstr "Неможливо провести цю операцію з локальною базою даних"
@ -192,6 +224,26 @@ msgstr "Набір даних не в режимі редагування або
msgid "&Old password:"
msgstr "&Старий пароль"
#: rxdconst.sopenafterexport
msgid "Open after export"
msgstr ""
#: rxdconst.sorientation
msgid "Orientation"
msgstr ""
#: rxdconst.soverwriteexisting
msgid "Overwrite existing"
msgstr ""
#: rxdconst.spagemargins
msgid "Page margins"
msgstr ""
#: rxdconst.spagename
msgid "Page name"
msgstr ""
#: rxdconst.spasswordchanged
msgid "Password changed"
msgstr "Пароль змінено"
@ -208,10 +260,22 @@ msgstr "Пароль не змінено"
msgid "New password and confirmation not equal"
msgstr "Новий пароль і підтвердження не співпадають"
#: rxdconst.sportrait
msgid "Portrait"
msgstr ""
#: rxdconst.sprevbutton
msgid "&Prior"
msgstr "&Попередній"
#: rxdconst.sprintgrid
msgid "Print grid"
msgstr ""
#: rxdconst.sprintoptions
msgid "Print options"
msgstr ""
#: rxdconst.spropdefbylookup
msgid "PropDefByLookup"
msgstr ""
@ -220,10 +284,18 @@ msgstr ""
msgid "Register"
msgstr "Реєстрація"
#: rxdconst.sreporttitle
msgid "Report title"
msgstr ""
#: rxdconst.sretrylogin
msgid "Retry to connect with database?"
msgstr "Ви хочете повторити спробу з'єднання з базою даних?"
#: rxdconst.srightcaption
msgid "Right"
msgstr ""
#: rxdconst.srxallfields
msgid "All fields"
msgstr ""
@ -303,6 +375,16 @@ msgstr "Вперед"
msgid "Text to find"
msgstr "Текст для пошуку"
#: rxdconst.srxdbgridselapplycaption
#, fuzzy
msgctxt "rxdconst.srxdbgridselapplycaption"
msgid "Apply"
msgstr "Застосувати"
#: rxdconst.srxdbgridselapplyhint
msgid "Apply current columns setings"
msgstr ""
#: rxdconst.srxdbgridselcolcaption
msgid "Grid columns"
msgstr "Поля таблиці"
@ -446,6 +528,38 @@ msgstr "Помилка сервера"
msgid "find"
msgstr "Пошук"
#: rxdconst.sshowcolumnheaderonallpage
msgid "Show column header on all page"
msgstr ""
#: rxdconst.sshowfooter
msgid "Show footer"
msgstr ""
#: rxdconst.sshowfootercolor
msgid "Show footer color"
msgstr ""
#: rxdconst.sshowgridcolor
msgid "Show grid color"
msgstr ""
#: rxdconst.sshowreporttitle
msgid "Show report title"
msgstr ""
#: rxdconst.sshowtitle
msgid "Show column title"
msgstr ""
#: rxdconst.stoolsexportspeadsheet
msgid "Export to speadsheet"
msgstr ""
#: rxdconst.stopcaption
msgid "Top"
msgstr ""
#: rxdconst.sunknownfieldtype
msgid "SUnknownFieldType %s"
msgstr "Не визначений тип даних для поля %s"

View File

@ -186,7 +186,7 @@ begin
FBand := TfrBandView(frCreateObject(gtBand, '', FPage));
FBand.SetBounds(10, FYPos, 1000, 25);
FBand.BandType := btReportTitle;
FPage.Objects.Add(FBand);
// FPage.Objects.Add(FBand);
FView := frCreateObject(gtMemo, '', FPage) as TfrMemoView;
FView.SetBounds(FXPos, FYPos, FPage.PrnInfo.PgW - 40, 25);
@ -195,7 +195,7 @@ begin
// FView.Font.Assign(FTitleFont);
FView.Memo.Add(FReportTitle);
FPage.Objects.Add(FView);
// FPage.Objects.Add(FView);
Inc(FYPos, 27)
end;
@ -229,13 +229,13 @@ begin
FBand.Dataset := FReportDataSet.Name;
FBand.SetBounds(0, FYPos, 1000, 18);
FBand.Flags:=FBand.Flags or flStretched;
FPage.Objects.Add(FBand);
// FPage.Objects.Add(FBand);
FBand := TfrBandView(frCreateObject(gtBand, '', FPage));
FBand.BandType := btCrossData;
FBand.Dataset := FColumnDataSet.Name;
FBand.SetBounds(FXPos, 0, 20, 1000);
FPage.Objects.Add(FBand);
// FPage.Objects.Add(FBand);
FView := frCreateObject(gtMemo, '', FPage) as TfrMemoView;
FView.SetBounds(FXPos, FYPos, 20, 18);
@ -245,7 +245,7 @@ begin
// FView.Font.Assign(FFont);
FView.Frames:=frAllFrames;
FView.Layout:=tlTop;
FPage.Objects.Add(FView);
// FPage.Objects.Add(FView);
FYPos := FYPos + 22;
@ -286,7 +286,7 @@ begin
FBand.BandType := btMasterHeader;
FBand.SetBounds(0, FYPos, 1000, 20 * FTitleRowCount);
FBand.Flags:=FBand.Flags or flStretched;
FPage.Objects.Add(FBand);
// FPage.Objects.Add(FBand);
if FShowColumnHeaderOnAllPage then
FBand.Flags:=FBand.Flags + flBandRepeatHeader;
@ -301,7 +301,7 @@ begin
FView.Frames:=frAllFrames;
FView.Layout:=tlTop;
FView.Memo.Add(Format('Header_%d', [i]));
FPage.Objects.Add(FView);
// FPage.Objects.Add(FView);
FYPos:=FYPos + 20
end;
FYPos := FYPos + 2;
@ -318,7 +318,7 @@ begin
FBand.SetBounds(FXPos, FYPos, 1000, 20);
FBand.Flags:=FBand.Flags or flStretched;
FPage.Objects.Add(FBand);
// FPage.Objects.Add(FBand);
FView := frCreateObject(gtMemo, '', FPage) as TfrMemoView;
FView.SetBounds(FXPos, FYPos, 20, 20);
@ -331,7 +331,7 @@ begin
FView.Frames:=frAllFrames;
FView.Layout:=tlTop;
FView.Memo.Add(Format('Footer', [i]));
FPage.Objects.Add(FView);
// FPage.Objects.Add(FView);
FYPos := FYPos + 22;
end;