david
32153cd070
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@5 9a1d36f3-7752-2d40-8ccb-50eb49674c68
35 lines
581 B
ObjectPascal
35 lines
581 B
ObjectPascal
unit uFrameConfiguracion;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs;
|
|
|
|
type
|
|
IConfiguracionFrame = interface
|
|
['{07F3EDBF-DFED-4B76-ADC7-0D3B83FB6F9B}']
|
|
procedure Init;
|
|
procedure Finalize;
|
|
end;
|
|
|
|
TFrameConfiguracion = class(TFrame, IConfiguracionFrame)
|
|
protected
|
|
procedure Finalize; virtual;
|
|
public
|
|
procedure Init; virtual; abstract;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TFrameConfiguracion }
|
|
|
|
procedure TFrameConfiguracion.Finalize;
|
|
begin
|
|
Hide;
|
|
end;
|
|
|
|
end.
|