Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

uViewDetallesBase: corregido un error con la fuente por defecto de la columna de concepto.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@280 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-07-22 11:49:53 +00:00
parent 75501280f8
commit b9ba1dcb4c
2 changed files with 32 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -64,7 +64,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
DroppedDownWidth = 145 DroppedDownWidth = 145
MaxMRUCount = 0 MaxMRUCount = 0
FontName = 'Tahoma' FontName = 'Tahoma'
ItemIndex = 34 ItemIndex = 35
Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg] Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg]
Sorted = True Sorted = True
TabOrder = 2 TabOrder = 2
@ -152,8 +152,6 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Height = 232 Height = 232
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True
object cxGridView: TcxGridDBTableView object cxGridView: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
FilterBox.Visible = fvNever FilterBox.Visible = fvNever

57
Source/GUIBase/uViewDetallesBase.pas
View File

@ -127,9 +127,6 @@ type
procedure cxGridViewEditKeyDown(Sender: TcxCustomGridTableView; procedure cxGridViewEditKeyDown(Sender: TcxCustomGridTableView;
AItem: TcxCustomGridTableItem; AEdit: TcxCustomEdit; var Key: Word; AItem: TcxCustomGridTableItem; AEdit: TcxCustomEdit; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
procedure cxGridViewInitEdit(Sender: TcxCustomGridTableView;
AItem: TcxCustomGridTableItem; AEdit: TcxCustomEdit);
procedure FontEdit1BeforeExecute(Sender: TObject); procedure FontEdit1BeforeExecute(Sender: TObject);
procedure FontEdit1Accept(Sender: TObject); procedure FontEdit1Accept(Sender: TObject);
@ -146,6 +143,8 @@ type
procedure TBXItem13Click(Sender: TObject); procedure TBXItem13Click(Sender: TObject);
procedure actAnchoAutomaticoExecute(Sender: TObject); procedure actAnchoAutomaticoExecute(Sender: TObject);
procedure actAnchoAutomaticoUpdate(Sender: TObject); procedure actAnchoAutomaticoUpdate(Sender: TObject);
procedure cxGridViewInitEdit(Sender: TcxCustomGridTableView;
AItem: TcxCustomGridTableItem; AEdit: TcxCustomEdit);
private private
FController : IControllerDetallesBase; FController : IControllerDetallesBase;
@ -427,30 +426,35 @@ procedure TfrViewDetallesBase.cxGridViewInitEdit(Sender: TcxCustomGridTableView;
var var
FuentePorDefecto: TFont; FuentePorDefecto: TFont;
ARecord: TcxCustomGridRecord; ARecord: TcxCustomGridRecord;
AEditValue : String;
begin begin
inherited; inherited;
if AEdit is TcxRichEdit then if AEdit is TcxRichEdit then
begin begin
AEditValue := Trim(VarToStr(AItem.EditValue));
ARecord := AItem.FocusedCellViewInfo.GridRecord; ARecord := AItem.FocusedCellViewInfo.GridRecord;
FuentePorDefecto := DarFuentePorDefecto(DarTipoConcepto(ARecord)); FuentePorDefecto := DarFuentePorDefecto(DarTipoConcepto(ARecord));
//La primera vez que accedemos al grid entra dos veces y perderiamos el editor try
//dando un pete. //La primera vez que accedemos al grid entra dos veces y perderiamos el editor
if not Assigned(CurEdit) then //dando un pete.
begin if not Assigned(CurEdit) then
FontEdit1.Enabled := True; begin
// UpDown1.Enabled := True; FontEdit1.Enabled := True;
// FontSize.Enabled := True; // UpDown1.Enabled := True;
// FontName.Enabled := True; // FontSize.Enabled := True;
// FontName.Enabled := True;
CurEdit := TcxRichEdit(AEdit); CurEdit := TcxRichEdit(AEdit);
if length(CurEdit.Text) = 0 then if Length(AEditValue) = 0 then
CurEdit.DefAttributes.Assign(FuentePorDefecto) CurEdit.DefAttributes.Assign(FuentePorDefecto)
end end
else else
if length(CurEdit.Text) = 0 then if Length(AEditValue) = 0 then
CurEdit.DefAttributes.Assign(FuentePorDefecto); CurEdit.DefAttributes.Assign(FuentePorDefecto);
finally
FreeAndNil(FuentePorDefecto); FreeAndNil(FuentePorDefecto);
end;
end end
else else
begin begin
@ -539,12 +543,12 @@ var
i: Integer; i: Integer;
begin begin
i:=0; i:=0;
while ((cxGridView.Columns[i].DataBinding.FieldName <> Nombre) while ((cxGridView.Columns[i].DataBinding.FieldName <> Nombre) and
and (i < cxGridView.ColumnCount)) do (i < cxGridView.ColumnCount)) do
inc(i); inc(i);
if (i = cxGridView.ColumnCount) if (i = cxGridView.ColumnCount) then
then raise Exception.Create('El campo ' + Nombre + ' no se ha encontrado en el grid (uViewDetallesBase)'); raise Exception.Create('El campo ' + Nombre + ' no se ha encontrado en el grid (uViewDetallesBase)');
Result := i; Result := i;
end; end;
@ -732,9 +736,8 @@ end;
procedure TfrViewDetallesBase.TBXItem13Click(Sender: TObject); procedure TfrViewDetallesBase.TBXItem13Click(Sender: TObject);
begin begin
inherited; inherited;
if cxGridView.Controller.EditingController.IsEditing then if cxGridView.Controller.EditingController.IsEditing then
cxGridView.Controller.EditingController.Edit.PostEditValue; cxGridView.Controller.EditingController.Edit.PostEditValue;
end; end;
procedure TfrViewDetallesBase.actAnadirUpdate(Sender: TObject); procedure TfrViewDetallesBase.actAnadirUpdate(Sender: TObject);