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

Se arregla el editorbase para que los componentes devexpress hagan post cuando llamemos a guarfesinterno y la tabla se entere de los cambios

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@420 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2009-04-15 15:40:16 +00:00
parent d6e17f78d6
commit c3638a1660
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Source/GUIBase/uEditorBase.pas
View File

@ -153,6 +153,25 @@ implementation
uses
Menus, uDMBase, cxControls, uDialogUtils;
{Método que coge el componente editor que tenga el foco y le fuerza a hacer post para que la tabla se entere
}
procedure PostActivecxEditorChanges;
var
AControl: TWinControl;
ActiveEditor: TcxCustomEdit;
begin
ActiveEditor:= nil;
AControl := Screen.ActiveControl;
if Supports(AControl, IcxInnerEditHelper) then
ActiveEditor:= TcxCustomEdit(AControl.Owner)
else
if AControl is TcxCustomEdit then
ActiveEditor:= TcxCustomEdit(AControl);
if Assigned(ActiveEditor) then
ActiveEditor.PostEditValue;
end;
{
********************************* TfEditorBase *********************************
}
@ -345,7 +364,7 @@ end;
procedure TfEditorBase.GuardarInterno;
begin
//
PostActivecxEditorChanges;
end;
procedure TfEditorBase.ImprimirInterno;