source: platform/trunk/ULDPlatform.pas

unit ULDPlatform;

interface

uses
  System.SysUtils, System.Classes, Vcl.Forms, LDPlatform.Core;

type
  TLDPlatform = class(TComponent)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    Core: TCore;
    procedure Show;
    constructor Create(AOwnere: TComponent); override;
    destructor Destroy; override;
  published
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('LibreDevelop', [TLDPlatform]);
end;

{ TLDPlatform }

constructor TLDPlatform.Create(AOwnere: TComponent);
begin
  inherited;
  Core := TCore.Create(Self);
end;

destructor TLDPlatform.Destroy;
begin
  inherited;
end;

procedure TLDPlatform.Show;
begin
end;

end.