diff --git a/Source/Modulos/Referencias/Views/uEditorReferencias.dfm b/Source/Modulos/Referencias/Views/uEditorReferencias.dfm index 4b899460..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 @@ -48,7 +44,7 @@ object fEditorReferencias: TfEditorReferencias object Label1: TLabel Left = 6 Top = 12 - Width = 147 + Width = 149 Height = 13 Caption = 'Lista de referencias disponibles' end @@ -86,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 @@ -98,12 +93,15 @@ 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 @@ -112,7 +110,9 @@ object fEditorReferencias: TfEditorReferencias 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 9cac249f..e39fd1e2 100644 --- a/Source/Modulos/Referencias/Views/uEditorReferencias.pas +++ b/Source/Modulos/Referencias/Views/uEditorReferencias.pas @@ -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