117 lines
2.6 KiB
ObjectPascal
117 lines
2.6 KiB
ObjectPascal
unit PrgStatusBar;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls;
|
|
|
|
type
|
|
|
|
{ TPrgStatusBar }
|
|
|
|
TPrgStatusBar = class(TStatusBar)
|
|
private
|
|
FProgressBar: TProgressBar;
|
|
FProgressBarPanel: Integer;
|
|
FProgressBarPanelTemp: Integer;
|
|
FIsLoaded: Boolean;
|
|
procedure SetProgressBarPanel(const AValue: Integer);
|
|
{ Private declarations }
|
|
protected
|
|
{ Protected declarations }
|
|
procedure Loaded; override;
|
|
public
|
|
{ Public declarations }
|
|
constructor Create(TheOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
published
|
|
{ Published declarations }
|
|
property ProgressBar: TProgressBar read FProgressBar;
|
|
property ProgressBarPanel: Integer read FProgressBarPanel write SetProgressBarPanel default 1;
|
|
end;
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
procedure Register;
|
|
begin
|
|
RegisterComponents('Misc',[TPrgStatusBar]);
|
|
end;
|
|
|
|
{ TPrgStatusBar }
|
|
|
|
procedure TPrgStatusBar.SetProgressBarPanel(const AValue: Integer);
|
|
var
|
|
i: Integer;
|
|
L: Longint;
|
|
begin
|
|
if FProgressBarPanel=AValue then Exit;
|
|
if not FIsLoaded then // Ýòî ïðîèñõîäèò çàãðóçêà ñâîéñòâ èç ïîòîêà
|
|
begin
|
|
FProgressBarPanelTemp := AValue; // Ñîõðàíèì ñâîéñòâî, ÷òîáû ïîòîì ïðèñâîèòü åãî â Loaded.
|
|
Exit; // Ñëåäóþùàÿ ïðîâåðêà íå èìååò ñìûñëà, ïîêà ïàíåëè íå çàãðóæåíû èç ïîòîêà.
|
|
end;
|
|
if (AValue >= self.Panels.Count) then Exit;
|
|
if AValue = -1 then
|
|
begin
|
|
FProgressBar.Top := 0;
|
|
FProgressBar.Height := 0;
|
|
FProgressBar.Width := 0;
|
|
FProgressBar.Left := 0;
|
|
FProgressBarPanel := -1;
|
|
Exit;
|
|
end;
|
|
FProgressBar.Top := 2;
|
|
FProgressBar.Height := self.Height-2;
|
|
L := 0;
|
|
for i := 1 to AValue do
|
|
L := L + self.Panels[i-1].Width;
|
|
if AValue = 0 then
|
|
begin
|
|
FProgressBar.Left := 0;
|
|
FProgressBar.Width := self.Panels[AValue].Width;
|
|
end
|
|
else
|
|
begin
|
|
FProgressBar.Left := L + 2;
|
|
FProgressBar.Width := self.Panels[AValue].Width - 2;
|
|
end;
|
|
FProgressBarPanel:=AValue;
|
|
end;
|
|
|
|
procedure TPrgStatusBar.Loaded;
|
|
begin
|
|
inherited Loaded;
|
|
FIsLoaded := True;
|
|
SetProgressBarPanel(FProgressBarPanelTemp);
|
|
end;
|
|
|
|
constructor TPrgStatusBar.Create(TheOwner: TComponent);
|
|
begin
|
|
inherited Create(TheOwner);
|
|
FProgressBarPanel := -1;
|
|
FProgressBar := TProgressBar.Create(Self);
|
|
//Include(FProgressBar.ComponentStyle, csSubComponent);
|
|
FProgressBar.Parent := self;
|
|
FProgressBar.Top := 0;
|
|
FProgressBar.Height := 0;
|
|
FProgressBar.Width := 0;
|
|
FProgressBar.Left := 0;
|
|
FIsLoaded := False;
|
|
end;
|
|
|
|
destructor TPrgStatusBar.Destroy;
|
|
begin
|
|
FProgressBar.Free;
|
|
FProgressBar := nil;
|
|
inherited Destroy;
|
|
end;
|
|
|
|
initialization
|
|
{$I prgstatusbarlaz.lrs}
|
|
|
|
end.
|