2008-12-15 10:48:32 +00:00
|
|
|
unit uIEditorElegirPersonaContacto;
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
uBizContactosPersonal, uGUIBase;
|
|
|
|
|
|
|
|
|
|
type
|
|
|
|
|
IEditorElegirPersonaContacto = interface
|
2009-04-14 16:38:32 +00:00
|
|
|
['{890C3C1E-6CAE-4623-BE54-F1763FF786EE}']
|
2008-12-15 10:48:32 +00:00
|
|
|
function GetPersonas: IBizContactoPersonal;
|
|
|
|
|
procedure SetPersonas(const Value: IBizContactoPersonal);
|
|
|
|
|
property Personas: IBizContactoPersonal read GetPersonas write SetPersonas;
|
|
|
|
|
|
2009-04-14 16:38:32 +00:00
|
|
|
procedure SetTextoComentarios (const AValue: String);
|
|
|
|
|
function GetTextoComentarios: String;
|
|
|
|
|
property TextoComentarios : String read GetTextoComentarios write SetTextoComentarios;
|
2008-12-15 10:48:32 +00:00
|
|
|
|
|
|
|
|
function GetPersonaSeleccionada: IBizContactoPersonal;
|
|
|
|
|
property PersonaSeleccionada: IBizContactoPersonal read GetPersonaSeleccionada;
|
|
|
|
|
|
|
|
|
|
function ShowModal : Integer;
|
|
|
|
|
procedure Release;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
end.
|