Problem einbetten einer Progressbar in eine StatusBar

[Acia6850]

Hallo es gab eine Delphi Komponente TALStatusbar für Windows.

Ich habe sie in ein Packgage in Lazarus gepackt.
Sie kompiliert und läst sich Installieren und funktionirt in einer Windows Gui Applikation.

Da ich in Linux nur Konsolen Programme machen kann ich sie nicht in einer Linux Gui testen.

Code: Alles auswählen

{
  ALStatusBar v1.0

  (C)1999 Andrew Leigh
  http://www.alphalink.com.au/~leigh/components

  Description:
    TALStatusBar is a status bar control that will allow other controls to be
    inserted into it.

  History:
    v1.0 28-Nov-1999 Initial release.
}

unit ALStatusBar;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls;


type
  TALStatusBar = class(TStatusBar)
  public
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('LazTools', [TALStatusBar]);
end;

{ TALStatusBar }

constructor TALStatusBar.Create(AOwner: TComponent);
begin
  inherited;

  ControlStyle := ControlStyle + [csAcceptsControls];
end;

end.