uViewFiltroBase -> arreglado problema con actualización DevExpress x.46

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@455 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2009-11-04 16:53:08 +00:00
parent c7644ffa6d
commit bfc76bcbb7
2 changed files with 9 additions and 11 deletions

View File

@ -19,8 +19,6 @@ inherited frViewFiltroBase: TfrViewFiltroBase
ShowCaptionWhenDocked = False ShowCaptionWhenDocked = False
SupportedDocks = [dkStandardDock, dkMultiDock] SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 0 TabOrder = 0
ExplicitWidth = 128
ExplicitHeight = 98
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
@ -30,7 +28,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
ExplicitWidth = 128 AutoContentSizes = [acsWidth, acsHeight]
object txtFiltroTodo: TcxTextEdit object txtFiltroTodo: TcxTextEdit
Left = 87 Left = 87
Top = 10 Top = 10
@ -102,30 +100,30 @@ inherited frViewFiltroBase: TfrViewFiltroBase
Width = 121 Width = 121
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
AlignHorz = ahParentManaged ShowCaption = False
AlignVert = avParentManaged
CaptionOptions.Visible = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem object dxLayoutControl1Item1: TdxLayoutItem
CaptionOptions.Text = 'Que contenga:' Caption = 'Que contenga:'
Control = txtFiltroTodo Control = txtFiltroTodo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Group1: TdxLayoutGroup object dxLayoutControl1Group1: TdxLayoutGroup
CaptionOptions.Visible = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
CaptionOptions.Text = 'Entre la fecha:' Caption = 'Entre la fecha:'
Control = edtFechaIniFiltro Control = edtFechaIniFiltro
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
CaptionOptions.Text = 'y' Caption = 'y'
Control = edtFechaFinFiltro Control = edtFechaFinFiltro
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

View File

@ -8,7 +8,7 @@ uses
cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, cxControls, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, cxControls,
StdCtrls, Buttons, cxRadioGroup, TBXDkPanels, TB2ExtItems, TBXExtItems, StdCtrls, Buttons, cxRadioGroup, TBXDkPanels, TB2ExtItems, TBXExtItems,
TBX, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList, TBX, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList,
uViewBase, dxLayoutcxEditAdapters; uViewBase;
type type
IViewFiltroBase = interface(IViewBase) IViewFiltroBase = interface(IViewBase)