From bfc76bcbb7dde73271d62e278aeb9507325188f7 Mon Sep 17 00:00:00 2001 From: david Date: Wed, 4 Nov 2009 16:53:08 +0000 Subject: [PATCH] =?UTF-8?q?uViewFiltroBase=20->=20arreglado=20problema=20c?= =?UTF-8?q?on=20actualizaci=C3=B3n=20DevExpress=20x.46?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@455 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/GUIBase/uViewFiltroBase.dfm | 18 ++++++++---------- Source/GUIBase/uViewFiltroBase.pas | 2 +- 2 files changed, 9 insertions(+), 11 deletions(-) diff --git a/Source/GUIBase/uViewFiltroBase.dfm b/Source/GUIBase/uViewFiltroBase.dfm index fca57d16..cacab724 100644 --- a/Source/GUIBase/uViewFiltroBase.dfm +++ b/Source/GUIBase/uViewFiltroBase.dfm @@ -19,8 +19,6 @@ inherited frViewFiltroBase: TfrViewFiltroBase ShowCaptionWhenDocked = False SupportedDocks = [dkStandardDock, dkMultiDock] TabOrder = 0 - ExplicitWidth = 128 - ExplicitHeight = 98 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 @@ -30,7 +28,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase ParentBackground = True TabOrder = 0 TabStop = False - ExplicitWidth = 128 + AutoContentSizes = [acsWidth, acsHeight] object txtFiltroTodo: TcxTextEdit Left = 87 Top = 10 @@ -102,30 +100,30 @@ inherited frViewFiltroBase: TfrViewFiltroBase Width = 121 end object dxLayoutControl1Group_Root: TdxLayoutGroup - AlignHorz = ahParentManaged - AlignVert = avParentManaged - CaptionOptions.Visible = False + ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Item1: TdxLayoutItem - CaptionOptions.Text = 'Que contenga:' + Caption = 'Que contenga:' Control = txtFiltroTodo ControlOptions.ShowBorder = False end object dxLayoutControl1Group1: TdxLayoutGroup - CaptionOptions.Visible = False + ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item2: TdxLayoutItem + AutoAligns = [aaVertical] AlignHorz = ahClient - CaptionOptions.Text = 'Entre la fecha:' + Caption = 'Entre la fecha:' Control = edtFechaIniFiltro ControlOptions.ShowBorder = False end object dxLayoutControl1Item3: TdxLayoutItem + AutoAligns = [aaVertical] AlignHorz = ahClient - CaptionOptions.Text = 'y' + Caption = 'y' Control = edtFechaFinFiltro ControlOptions.ShowBorder = False end diff --git a/Source/GUIBase/uViewFiltroBase.pas b/Source/GUIBase/uViewFiltroBase.pas index 2ad41b21..62dfea6d 100644 --- a/Source/GUIBase/uViewFiltroBase.pas +++ b/Source/GUIBase/uViewFiltroBase.pas @@ -8,7 +8,7 @@ uses cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, cxControls, StdCtrls, Buttons, cxRadioGroup, TBXDkPanels, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList, - uViewBase, dxLayoutcxEditAdapters; + uViewBase; type IViewFiltroBase = interface(IViewBase)