diff --git a/Source/Modulos/Referencias/Views/uEditorReferencias.dfm b/Source/Modulos/Referencias/Views/uEditorReferencias.dfm index 57070f97..3cdda89d 100644 --- a/Source/Modulos/Referencias/Views/uEditorReferencias.dfm +++ b/Source/Modulos/Referencias/Views/uEditorReferencias.dfm @@ -7,11 +7,7 @@ object fEditorReferencias: TfEditorReferencias ClientHeight = 406 ClientWidth = 466 Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] + ParentFont = True OldCreateOrder = False Position = poScreenCenter OnCloseQuery = FormCloseQuery @@ -45,11 +41,10 @@ object fEditorReferencias: TfEditorReferencias TabOrder = 0 object TabSheet1: TTabSheet Caption = 'Referencias' - ExplicitWidth = 382 object Label1: TLabel Left = 6 Top = 12 - Width = 147 + Width = 149 Height = 13 Caption = 'Lista de referencias disponibles' end @@ -62,9 +57,6 @@ object fEditorReferencias: TfEditorReferencias TabOrder = 0 LookAndFeel.Kind = lfOffice11 LookAndFeel.NativeStyle = True - ExplicitTop = 25 - ExplicitWidth = 583 - ExplicitHeight = 439 object ListaReferenciasView: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False FilterBox.Visible = fvNever @@ -90,7 +82,6 @@ object fEditorReferencias: TfEditorReferencias OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsData.Inserting = False - OptionsSelection.MultiSelect = True OptionsSelection.UnselectFocusedRecordOnExit = False OptionsView.CellEndEllipsis = True OptionsView.CellAutoHeight = True @@ -102,17 +93,26 @@ object fEditorReferencias: TfEditorReferencias object ListaReferenciasViewCODIGO: TcxGridDBColumn DataBinding.FieldName = 'CODIGO' Visible = False + VisibleForCustomization = False end object ListaReferenciasViewDESCRIPCION: TcxGridDBColumn + Caption = 'Referencia' DataBinding.FieldName = 'DESCRIPCION' PropertiesClassName = 'TcxTextEditProperties' Properties.ReadOnly = True + Options.Editing = False + Options.Focusing = False + SortIndex = 0 + SortOrder = soAscending Width = 191 end object ListaReferenciasViewVALOR: TcxGridDBColumn + Caption = 'Valor' DataBinding.FieldName = 'VALOR' PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taRightJustify Properties.OnValidate = ListaReferenciasViewVALORPropertiesValidate + HeaderAlignmentHorz = taRightJustify Width = 48 end end diff --git a/Source/Modulos/Referencias/Views/uEditorReferencias.pas b/Source/Modulos/Referencias/Views/uEditorReferencias.pas index 6dfd9c1b..e39fd1e2 100644 --- a/Source/Modulos/Referencias/Views/uEditorReferencias.pas +++ b/Source/Modulos/Referencias/Views/uEditorReferencias.pas @@ -31,7 +31,7 @@ uses ActnList, Grids, DBGrids, StdCtrls, ComCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, - cxControls, cxGridCustomView, cxGrid, cxTextEdit; + cxControls, cxGridCustomView, cxGrid, cxTextEdit, uDAInterfaces; type TfEditorReferencias = class(TForm, IEditorReferencias) @@ -116,7 +116,7 @@ procedure TfEditorReferencias.actAceptarExecute(Sender: TObject); begin try if (Referencias.DataTable.State in dsEditModes) then - Referencias.DataTable.post; + Referencias.DataTable.Post; Referencias.DataTable.ApplyUpdates; except on E : Exception do begin