Brainenjii писал(а):Ппц... Первая ссылка...
Смотрю данную ссылку но вот не могу понять
Теперь перейдём к процедуре SetProgressBarPanel установки значения свойства ProgressBarPanel. Сгенерированного автоматически кода явно недостаточно, потому, что простое на первый взгляд присвоение значения свойству на самом деле связано со значительным количеством проверок и других действий. Итак, по-порядку.if FProgressBarPanel=AValue then Exit;
if not FIsLoaded then // Это происходит загрузка свойств из потока
begin
FProgressBarPanelTemp := AValue; // Сохраним свойство, чтобы потом присвоить его в Loaded.
Exit; // Следующая проверка не имеет смысла, пока панели не загружены из потока.
end;
if (AValue >= self.Panels.Count) then Exit;
И вот кусок кода
- Код: Выделить всё
procedure SetProgressBarPanel(const AValue: Integer);
private
{ 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;
end;
procedure Register;
Где мне это вставить перед private ?
