david
bd7a099c7d
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES/trunk@4 b68bf8ae-e977-074f-a058-3cfd71dd8f45
63 lines
1.3 KiB
ObjectPascal
63 lines
1.3 KiB
ObjectPascal
unit ListadoBase;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
ExtCtrls, StdCtrls, RdxTitulos, RdxPaneles, RdxFrame, VistaPrevia,
|
|
InformeBase, Tipos;
|
|
|
|
type
|
|
TfrListadoBase = class(TRdxFrame)
|
|
Titulo: TRdxPanelTituloOperacion;
|
|
pnlDatos: TRdxPanel;
|
|
cDatos: TRdxCabecera;
|
|
eInformacion: TLabel;
|
|
pnlVistaPrevia: TPanel;
|
|
protected
|
|
FVistaPrevia : TfrVistaPrevia;
|
|
FInforme : TdmInformeBase;
|
|
procedure RefrescarInforme; virtual;
|
|
function CloseFrame : Boolean; override;
|
|
public
|
|
constructor Create(AOwner : TComponent); override;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
var
|
|
frListadoBase: TfrListadoBase;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
function TfrListadoBase.CloseFrame: Boolean;
|
|
begin
|
|
if Assigned(FInforme) then
|
|
FInforme.Preview := NIL;
|
|
(FVistaPrevia as TRdxFrame).CloseFrame;
|
|
Result := inherited CloseFrame;
|
|
end;
|
|
|
|
constructor TfrListadoBase.Create(AOwner: TComponent);
|
|
begin
|
|
inherited Create(AOwner);
|
|
FInforme := NIL;
|
|
FVistaPrevia := TfrVistaPrevia.Create(Self);
|
|
FVistaPrevia.Parent := pnlVistaPrevia;
|
|
end;
|
|
|
|
destructor TfrListadoBase.Destroy;
|
|
begin
|
|
if Assigned(FInforme) then
|
|
FreeAndNil(FInforme);
|
|
inherited;
|
|
end;
|
|
|
|
procedure TfrListadoBase.RefrescarInforme;
|
|
begin
|
|
FInforme.Previsualizar;
|
|
end;
|
|
|
|
end.
|