LuisLeon_FactuGES2/Source/GUIBase/uEditorBasico.pas

unit uEditorBasico;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uGUIBase, uCustomEditor;

type
  IEditorBasico = interface(ICustomEditor)
  ['{CE4B2B04-F8DA-4C96-B071-CC5792C14D51}']
    function ShowModal : Integer;
  end;

  TfEditorBasico = class(TCustomEditor, IEditorBasico)
    procedure CustomEditorShow(Sender: TObject);
  end;

implementation
{$R *.dfm}

uses
  uDisplayUtils;

procedure TfEditorBasico.CustomEditorShow(Sender: TObject);
begin
  ScaleFormFont(Self);
end;

initialization
  RegisterClass(TfEditorBasico);

finalization
  UnRegisterClass(TfEditorBasico);
end.