ProgressBar в StatusBar -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.3]

Модераторы: Rouse_, jack128, Krid

ProgressBar в StatusBar

s-mike

Сообщ. #1 , 31.01.05, 21:47

Unregistered

Есть несколько возможностей:
1) сделать ProgressBar наследником StatusBar в runtime:

var

pb: TProgressBar;

begin

....

pb:= TProgressBar.Create(self);

with pb do

begin

Parent:= StatusBar1;

Position:= 30;

Top:= 2;

Left:= 0;

Height:= StatusBar1.Height - Top;

Width:= StatusBar1.Panels[0].Width - Left;

end; //with;

pb.Visible:= True;

....

end;

2) сделать ProgressBar невидимым и отрисовывать его каждый раз при перерисовке статусбара (нужно не забыть поставить у нужной панели Style := psOwnerDraw). ИМХО, лучший вариант.

procedure TMainForm.stStatusBarDrawPanel(StatusBar: TStatusBar;

Panel: TStatusPanel; const Rect: TRect);

begin

if Panel.Index = pnProgress then

begin

pgProgress.BoundsRect := Rect;

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

end;

3) Использовать наследник статусбара, позволяющий вставлять любые контролы:

unit adStatba;

interface

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

ComCtrls;

type

TAdrockStatusBar = class(TStatusBar)

public

сonstructor Create(AOwner: TComponent); override;

end;

procedure Register;

implementation

сonstructor TAdrockStatusBar.Create(AOwner: TComponent);

begin

inherited Create(Aowner);

ControlStyle := ControlStyle + [csAcceptsControls];

end;

procedure Register;

begin

RegisterComponents('Adrock', [TAdrockStatusBar]);

end;

end.

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0163 ] [ 15 queries used ] [ Generated: 17.09.25, 06:40 GMT ]