unit dll_mit_Fenster;

interface

uses
  ShareMem, inifiles, Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdSMTP, ComCtrls, StdCtrls, Buttons, ExtCtrls,
  IdBaseComponent, IdMessage;

type
  TKischAlles = class(TComponent)
  KischFenster : TForm;
  KischPanel : TPanel;

  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;

  Procedure ErstelleFenster(PanelBreite: Integer);

  private
  public { Public declarations }

  end;


///*** die DLL-Deklarationen
function ZeigeFenster(const PanelBreite :Integer) : Integer; stdcall; export;


implementation



constructor TKischAlles.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 KischFenster := TForm.Create(nil);
 KischPanel := Tpanel.Create(nil);
 end;


destructor TKischAlles.Destroy;
begin
 KischFenster.Free;
 KischPanel.Free;
 inherited Destroy;
end;


Procedure TKischAlles.ErstelleFenster(PanelBreite: Integer);
begin
 KischFenster.Top := 200;
 KischFenster.Left := 200;
 KischFenster.Height := 300;
 KischFenster.Width := 500;
 KischFenster.Caption := 'Jippi-ey-hey.';

 KischPanel.Parent := KischFenster;

 KischPanel.Top := 100;
 KischPanel.Left := 100;
 KischPanel.Height := 20;
 KischPanel.Width := PanelBreite;
 KischPanel.Caption := '0,0 % Fett';
 KischFenster.Show;
end;


///*** die DLL-Definitionen
function ZeigeFenster(const PanelBreite :Integer) : Integer; stdcall; export;
var
KischAlles : TKischAlles;
begin
 KischAlles := TKischAlles.Create(nil);
 KischAlles.ErstelleFenster(Panelbreite);
 Result := 0;
end;



end.