Скрипты Inno Setup. Помощь и советы [часть 7]

Nordek · Конфигурация компьютера

Цитата Kashtan007:

Как в юникоде сделать кликабельные иконки? »

Не буду я возиться с вашим обрубком.

Выбирайте какой больше нравится:

Код:

#define Bitmap "Logo.bmp"

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[Files]
Source: {#Bitmap}; Flags: dontcopy solidbreak

[Code]
var
  BitmapImage1: TBitmapImage;
  EC: Integer;

procedure Bitmap1Click(Sender: TObject); forward;

procedure InitializeWizard();
begin
  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(24);
    Top := ScaleY(320);
    Width := ScaleX(105);
    Height := ScaleY(33);
    Cursor := crHand;
    OnClick := @Bitmap1Click;
    ExtractTemporaryFile('{#Bitmap}');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\{#Bitmap}'));
  end;
end;

procedure Bitmap1Click(Sender: TObject);
begin
  ShellExec('open', 'http://forum.oszone.net/', '', '', SW_SHOWNORMAL, ewNoWait, EC);
end;

Код:

#define Bitmap "Logo.bmp"

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[Files]
Source: {#Bitmap}; Flags: dontcopy solidbreak

[Code]
var
  Panel1: TPanel;
  BitmapImage1: TBitmapImage;
  EC: Integer;

procedure Panel1Click(Sender: TObject); forward;

procedure InitializeWizard();
begin
  Panel1 := TPanel.Create(WizardForm);
  with Panel1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(16);
    Top := ScaleY(318);
    Width := ScaleX(185);
    Height := ScaleY(41);
  end;

  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Parent := Panel1;
    Left := ScaleX(4);
    Top := ScaleY(4);
    Width := ScaleX(178);
    Height := ScaleY(34);
    Cursor := crHand;
    OnClick := @Panel1Click;
    ExtractTemporaryFile('{#Bitmap}');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\{#Bitmap}'));
  end;
end;

procedure Panel1Click(Sender: TObject);
begin
  ShellExec('open', 'http://forum.oszone.net/', '', '', SW_SHOWNORMAL, ewNoWait, EC);
end;

Код работает на обеих версиях.

Kashtan007 · Отправлено: **17:53, 13-07-2014** | #**1122**

Доброго времени суток, наткнулся на такую проблему.
Как сделать эти 2 строки прозрачные?

В редакторе форм они не отображаются... Пытался через код: ModCheck.Transparent := True;, выдает ошибку (Версия Unicode). Как можно по другому сделать эти 2 строки прозрачные? Заранее спасибо за ответ!

P.S. Dodakaedr, Nordek, Shift85, habib2302. Большое спасибо за помощь! Благодаря вам я наконец-то сделал практически все, что хотел в своем установщике)

Shift85 · Конфигурация компьютера

Цитата Kashtan007:

Как сделать эти 2 строки прозрачные? »

Пример.

Код:

SoftLabel:= TLabel.Create(WizardForm);
  with SoftLabel do begin
    Parent:=WizardForm;
    SetBounds(ScaleX(280), ScaleY(316), ScaleX(450), ScaleY(17));
    AutoSize:=False
    WordWrap:=True
    Transparent:=True
    Font.Name:= 'Tahoma';
    Font.Size:= 7;
    Font.Color:= clGray;
    Font.Style := [fsBold];
    OnClick:= @SoftLabelClick;
    Caption:= ExpandConstant('{cm:SoftTask}');
  end;

Результат.

Kashtan007 · Отправлено: **18:15, 13-07-2014** | #**1124**

Shift85, спасибо, но так и не получилось применить. Выдает ошибку.
Вот эти 2 строки, которые я хочу сделать прозрачными:

Код:

begin
   ModCheck:= TNewCheckBox.Create(PageFromID(wpSelectDir));
   ModCheck.Width := PageFromID(wpSelectDir).SurfaceWidth;
   ModCheck.Parent := PageFromID(wpSelectDir).Surface;
   ModCheck.Caption:='Удалить все старые моды';
   ModCheck.left:=wizardForm.DirEdit.left;
   ModCheck.Top:=wizardForm.DirEdit.top + ScaleY(30);

   BackupCheck:= TNewCheckBox.Create(PageFromID(wpSelectDir));
   BackupCheck.Width := PageFromID(wpSelectDir).SurfaceWidth;
   BackupCheck.Parent := PageFromID(wpSelectDir).Surface;
   BackupCheck.Caption:='Сохранить резервную копию старых модов';
   BackupCheck.left:=wizardForm.DirEdit.left;
   BackupCheck.Top:=ModCheck.top + ScaleY(30);
end;

habib2302 · Конфигурация компьютера

Kashtan007, а если так

Код:

begin
   ModCheck:= TNewCheckBox.Create(PageFromID(wpSelectDir));
   ModCheck.Width := PageFromID(wpSelectDir).SurfaceWidth;
   ModCheck.Parent := PageFromID(wpSelectDir).Surface;
   ModCheck.Caption:='Удалить все старые моды';
   ModCheck.left:=wizardForm.DirEdit.left;
   ModCheck.Top:=wizardForm.DirEdit.top + ScaleY(30);
   ModCheck.Transparent:=True

   BackupCheck:= TNewCheckBox.Create(PageFromID(wpSelectDir));
   BackupCheck.Width := PageFromID(wpSelectDir).SurfaceWidth;
   BackupCheck.Parent := PageFromID(wpSelectDir).Surface;
   BackupCheck.Caption:='Сохранить резервную копию старых модов';
   BackupCheck.left:=wizardForm.DirEdit.left;
   BackupCheck.Top:=ModCheck.top + ScaleY(30);
   BackupCheck.Transparent:=True
end;