[nik1967]

у каталистов тоже такое было »

Ну и зачем? Мы наоборот стараемся добиться плавного прогрессбара. Красивше же

[Gnom_aka_Lexander]

insombia, Такто у них библиотечка IsExec для этого, но от дерганого прогресса они уже отказались. А так, похожего эффекта можно добиться с помощью такого кода:

читать дальше »

procedure CurStepChanged(CurStep: TSetupStep);
var ResultCode,step:integer;
begin
step:=WizardForm.ProgressGauge.Max/5; // шаг приравниваем максимальной позиции прогрессбара деленной на количество запускаемых анпакеров.
if CurStep=ssInstall then
begin
Exec(ExpandConstant('{app}\анпакер1.exe'), 'параметры для анпакера', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
WizardForm.ProgressGauge.Position:=WizardForm.ProgressGauge.Position+step;
Exec(ExpandConstant('{app}\анпакер2.exe'), 'параметры для анпакера', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
WizardForm.ProgressGauge.Position:=WizardForm.ProgressGauge.Position+step;
Exec(ExpandConstant('{app}\анпакер3.exe'), 'параметры для анпакера', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
WizardForm.ProgressGauge.Position:=WizardForm.ProgressGauge.Position+step;
Exec(ExpandConstant('{app}\анпакер4.exe'), 'параметры для анпакера', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
WizardForm.ProgressGauge.Position:=WizardForm.ProgressGauge.Position+step;
Exec(ExpandConstant('{app}\анпакер5.exe'), 'параметры для анпакера', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
WizardForm.ProgressGauge.Position:=WizardForm.ProgressGauge.Max;
end;
end;

в связке с рестулсовской ExecAndWait.

[LinkOFF]

nik1967, ты не знаешь как мне исправить вот это
http://i25.fastpic.ru/big/2011/0727/...805b4ddc7e.jpg

[insombia]

LinkOFF а что именно нужно исправить?

[LinkOFF]

LinkOFF а что именно нужно исправить? »

Надписи прозрачными сделать, надо чтоб картинка видна была в WizardSmallImage

[insombia]

LinkOFF можно и через скрипт уменьшить обьем картинки и не будет такого как у тебя

[LinkOFF]

можно и через скрипт уменьшить обьем картинки и не будет такого как у тебя »

Да я знаю, но мне вообще прозрачность убрать надо, чтоб надписи ложились на вставляемую картинку

[insombia]

А как сделать чтобы не писалось распаковывается там какой то файл а просто распаковка файлов а какие именно чтобы не указывалось?

[nik1967]

nik1967, ты не знаешь как мне исправить вот это »

Знаю

читать дальше »

Код:

var
  PageNameLabel,PageDescriptionLabel: TLabel;

//***************************************** [ начало 497 58 изображения  ] *********************************************//

PageNameLabel:= TLabel.Create(WizardForm);
  with PageNameLabel do begin
    Left:= WizardForm.PageNameLabel.Left;
    Top:= WizardForm.PageNameLabel.Top;
    Width:= WizardForm.PageNameLabel.Width;
    Height:= WizardForm.PageNameLabel.Height;
    AutoSize:= False;
    WordWrap:= True;
    Font.Name:= WizardForm.PageNameLabel.Font.Name;
    Font.Style:= [fsBold];
    Transparent:= True;
    Parent:= WizardForm.MainPanel;
  end;

PageDescriptionLabel:= TLabel.Create(WizardForm);
  with PageDescriptionLabel do begin
    Left:= WizardForm.PageDescriptionLabel.Left-12;
    Top:= WizardForm.PageDescriptionLabel.Top;
    Height:= WizardForm.PageDescriptionLabel.Height;
    Width:= ScaleX(260);
    AutoSize:= False;
    WordWrap:= True;
    Font.Name:= WizardForm.PageDescriptionLabel.Font.Name;
    Transparent:= True;
    Parent:= WizardForm.MainPanel;
  end;

  with WizardForm do begin
    PageNameLabel.Hide;
    PageDescriptionLabel.Hide;
    with MainPanel do begin
      with WizardSmallBitmapImage do begin
        Left:= ScaleX(0);
        Top:= ScaleY(0);
        Width:= Mainpanel.Width;
        Height:= MainPanel.Height;
       end;
    end;
 end;

//****************************************** [конец 497 58 изображения  ] **********************************************//

Procedure CurPageChanged(CurPageID: Integer);
Begin
  PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel.Caption:= WizardForm.PageDescriptionLabel.Caption;
end;

[insombia]

nik1967 а на мой вопрос ответ знаешь?