TStatusBar

Code:

unit adStatba;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ComCtrls;

type

TAdrockStatusBar = class(TStatusBar)

private

{ Private declarations }

protected

{ Protected declarations }

public

{ Public declarations }

Constructor Create(Aowner : TComponent); override;

published

{ Published declarations }

end;

procedure Register;

implementation

Constructor TAdrockStatusBar.Create(Aowner : TComponent);

begin

inherited Create(Aowner);

ControlStyle := ControlStyle + [csAcceptsControls];

end;

procedure Register;

begin

RegisterComponents('Adrock', [TAdrockStatusBar]);

end;

end.

Code:

procedure TMainForm.stStatusBarDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);

begin

{©Drkb v.3: www.drkb.ru}

if Panel.Index = pnProgress then

begin

   pgProgress.BoundsRect := Rect;

   pgProgress.PaintTo(stStatusBar.Canvas.Handle, Rect.Left, Rect.Top);

end;

end;