[Dodakaedr]

vint56, тоисть чтобы картинка оставалась а текст менялся...

[Nordek]

vint56, Код, лучше захватывать в тег [Code][/Code] - при вставке кода в скрипт имеются пробелы. А у тех кто использует ISTool, будут проблемы - пробелы превращаются в знак равенства "=":

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]=
DestName: "WizardForm.BitmapImage1.bmp"; Source: "E:\Картинки\mostkorol2_1024.bmp"; Flags: dontcopy solidbreak=

[code]=
var=
PageNameLabel, PageDescriptionLabel: TLabel;=
MainPanel: TPanel;=
BitmapImage: TBitmapImage;=
procedure InitializeWizard();=
begin=
WizardForm.MainPanel.Hide;=
MainPanel :=TPanel.Create(WizardForm);
with MainPanel do=
begin=
Parent :=WizardForm.InnerPage;
Left :=ScaleX(0);
Top :=ScaleY(0);
Width :=ScaleX(499);
Height :=ScaleY(57);
BevelOuter :=bvNone;
end;=
BitmapImage :=TBitmapImage.Create(WizardForm);
with BitmapImage do=
begin=
Parent :=MainPanel;
Left :=ScaleX(0);
Top :=ScaleY(0);
Width :=ScaleX(497);
Height :=ScaleY(57);
ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');=
Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));=
end;=
PageNameLabel:=TLabel.Create(WizardForm);
with PageNameLabel do begin=
AutoSize:=False;
SetBounds(ScaleX(24), ScaleY(10), ScaleX(400), ScaleY(30));=
Transparent:=True;
Font.Name:='Georgia';
Font.Size:=8;
Font.Color:=clWhite;;
Parent:=MainPanel;
end;=
PageDescriptionLabel:=TLabel.Create(WizardForm);
with PageDescriptionLabel do begin=
AutoSize:=False;
SetBounds(ScaleX(40), ScaleY(26), ScaleX(389), ScaleY(50));=
Wordwrap:=True;
Transparent:=True;
Font.Name:='Georgia';
Font.Size:=8;
Font.Color:=clWhite;;
Parent:=MainPanel;
end;=
end;=

procedure CurPageChanged(CurPageID: Integer);=
begin=
PageNameLabel.Caption:=WizardForm.PageNameLabel.Caption
PageDescriptionLabel.Caption:=WizardForm.PageDescriptionLabel.Caption
end;=

[vint56]

Nordek Понял учту
Dodakaedr

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
DestName: "WizardForm.BitmapImage1.bmp"; Source: "E:\Картинки\mostkorol2_1024.bmp"; Flags: dontcopy solidbreak

[code ]
var
  PageNameLabel, PageDescriptionLabel: TLabel;
  MainPanel: TPanel;
  BitmapImage: TBitmapImage;
procedure InitializeWizard();
begin
  WizardForm.MainPanel.Hide;
  MainPanel := TPanel.Create(WizardForm);
  with MainPanel do
  begin
    Parent := WizardForm.InnerPage;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(499);
    Height := ScaleY(57);
    BevelOuter := bvNone;
  end;
  BitmapImage := TBitmapImage.Create(WizardForm);
  with BitmapImage do
  begin
    Parent := MainPanel;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(497);
    Height := ScaleY(57);
    ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
  end;
  PageNameLabel:=TLabel.Create(WizardForm);
  with PageNameLabel do begin
    AutoSize:=False;
    SetBounds(ScaleX(24), ScaleY(10), ScaleX(400), ScaleY(30));
    Transparent:=True;
    Font.Name:= 'Georgia';
    Font.Size:= 8;
    Font.Color:=clWhite;;
    Parent:=MainPanel;
  end;
  PageDescriptionLabel:=TLabel.Create(WizardForm);
  with PageDescriptionLabel do begin
    AutoSize:=False;
    SetBounds(ScaleX(40), ScaleY(26), ScaleX(389), ScaleY(50));
    Wordwrap:= True;
    Transparent:=True;
    Font.Name:= 'Georgia';
    Font.Size:= 8;
    Font.Color:=clWhite;;
    Parent:=MainPanel;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  PageNameLabel.Caption:=WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel.Caption:=WizardForm.PageDescriptionLabel.Caption;

  case CurPageID of
  wpSelectDir:
  begin
    PageNameLabel.Caption:='Мой текст';
    PageDescriptionLabel.Caption:='Мой текст';
  end;
  wpSelectComponents:
  begin
    PageNameLabel.Caption:='Мой текст';
    PageDescriptionLabel.Caption:='Мой текст';
  end;
  wpSelectProgramGroup:
  begin
    PageNameLabel.Caption:='Мой текст';
    PageDescriptionLabel.Caption:='Мой текст';
  end;
  wpSelectTasks:
  begin
    PageNameLabel.Caption:='Мой текст';
    PageDescriptionLabel.Caption:='Мой текст';
  end;
  wpReady:
  begin
    PageNameLabel.Caption:='Мой текст';
    PageDescriptionLabel.Caption:='Мой текст';
  end;
  wpPreparing:
  begin
    PageNameLabel.Caption:='Мой текст';
    PageDescriptionLabel.Caption:='Мой текст';
  end;
  wpInstalling:
  begin
    PageNameLabel.Caption:='Мой текст';
    PageDescriptionLabel.Caption:='Мой текст';
  end;
  wpInfoAfter:
  begin
    PageNameLabel.Caption:='Мой текст';
    PageDescriptionLabel.Caption:='Мой текст';
  end;
 end;
end;

[Dodakaedr]

vint56, Огромное спасибо!!!

vint56, а обязательно надо менять полностью main panel?

[Dodakaedr]

vint56, надо чтобы сохранялась процедура procedure RedesignWizardForm; но при этом чтобы поменялся текст. Можно такое сделать?

[vint56]

Dodakaedr нет но тогда придётся скрывать другие элементы что находятся на стандартном WizardForm.MainPanel потому мне было проше

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
DestName: "WizardForm.BitmapImage1.bmp"; Source: "E:\Картинки\mostkorol2_1024.bmp"; Flags: dontcopy solidbreak

[code ]
var
  PageNameLabel, PageDescriptionLabel: TLabel;
  BitmapImage: TBitmapImage;

procedure InitializeWizard();
begin
  RedesignWizardForm;// Вот так
  BitmapImage := TBitmapImage.Create(WizardForm);
  with BitmapImage do
  begin
    Parent := WizardForm.MainPanel;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(497);
    Height := ScaleY(57);
    ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
  end;
  PageNameLabel:=TLabel.Create(WizardForm);
  with PageNameLabel do begin
    AutoSize:=False;
    SetBounds(ScaleX(24), ScaleY(10), ScaleX(400), ScaleY(30));
    Transparent:=True;
    Font.Name:= 'Georgia';
    Font.Size:= 8;
    Font.Color:=clWhite;;
    Parent:=WizardForm.MainPanel;
  end;
  PageDescriptionLabel:=TLabel.Create(WizardForm);
  with PageDescriptionLabel do begin
    AutoSize:=False;
    SetBounds(ScaleX(40), ScaleY(26), ScaleX(389), ScaleY(50));
    Wordwrap:= True;
    Transparent:=True;
    Font.Name:= 'Georgia';
    Font.Size:= 8;
    Font.Color:=clWhite;;
    Parent:=WizardForm.MainPanel;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin

  WizardForm.PageNameLabel.Hide;
  WizardForm.PageDescriptionLabel.Hide;
  WizardForm.WizardSmallBitmapImage.Hide;
  PageNameLabel.Caption:=WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel.Caption:=WizardForm.PageDescriptionLabel.Caption;

  case CurPageID of
  wpSelectDir:
  begin
    PageNameLabel.Caption:='Мой текст';
    PageDescriptionLabel.Caption:='Мой текст';
  end;
  wpSelectComponents:
  begin
    PageNameLabel.Caption:='Мой текст';
    PageDescriptionLabel.Caption:='Мой текст';
  end;
  wpSelectProgramGroup:
  begin
    PageNameLabel.Caption:='Мой текст';
    PageDescriptionLabel.Caption:='Мой текст';
  end;
  wpSelectTasks:
  begin
    PageNameLabel.Caption:='Мой текст';
    PageDescriptionLabel.Caption:='Мой текст';
  end;
  wpReady:
  begin
    PageNameLabel.Caption:='Мой текст';
    PageDescriptionLabel.Caption:='Мой текст';
  end;
  wpPreparing:
  begin
    PageNameLabel.Caption:='Мой текст';
    PageDescriptionLabel.Caption:='Мой текст';
  end;
  wpInstalling:
  begin
    PageNameLabel.Caption:='Мой текст';
    PageDescriptionLabel.Caption:='Мой текст';
  end;
  wpInfoAfter:
  begin
    PageNameLabel.Caption:='Мой текст';
    PageDescriptionLabel.Caption:='Мой текст';
  end;
 end;
end;

[habib2302]

как скрыть FilenameLabel

[Dodakaedr]

нет но тогда придётся скрывать другие элементы что находятся на стандартном WizardForm.MainPanel потому мне было проше »

Теперь именно то что мне нужно)) Спс!

[vint56]

habib2302
procedure CurPageChanged(CurPageID: Integer);
begin
WizardForm.FilenameLabel.Hide;
end;

[Dodakaedr]

Правильно записано?

Код:

Root: HKLM; SubKey: SOFTWARE\Classes\Directory\shell\Kallisto.enqueue\command; ValueType: string; ValueData: "{app}\{#MyAppExeName} /add ""%1"""; Flags: uninsdeletevalue uninsdeletekeyifempty