Стартовый пул

2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions
--- a/PrgStatusBar/~history/prgstatusbar.pas;1
+++ b/PrgStatusBar/~history/prgstatusbar.pas;1
@@ -0,0 +1,116 @@
+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 // <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+  begin
+    FProgressBarPanelTemp := AValue; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20> Loaded.
+    Exit; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
+  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.