[архив] Inno Setup .:[все вопросы]:.

serg aka lain · Отправлено: **23:42, 29-06-2009** | #**1031**

p3rf3ct1c,

Цитата p3rf3ct1c:

Можете показать где заменять пожалуйста? »

Ну так примерно себе представляю ->

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

serg aka lain, вставил себе это в код, пишет Unknown identifier 'SelectDirLabel'

serg aka lain · Отправлено: **00:29, 30-06-2009** | #**1033**

p3rf3ct1c,

Цитата p3rf3ct1c:

пишет Unknown identifier 'SelectDirLabel' »

переменные
var
SelectDirLabel, SelectDirBrowseLabel, AddIconLabel: TLabel;
AddIcon: TCheckBox;
нужно объявить глобально

Код:

[Setup]
AppName=test
AppVerName=test
DefaultDirName={pf}\test
DisableReadyPage=True
outputdir=userdocs:.

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl";

[Files]
Source: "Bitmap Image.bmp"; Flags: dontcopy;
Source: "{sys}\*.dll"; DestDir: "{userdesktop}\DLL"; Flags: ignoreversion external;

секция Коде:
{ походу в юникод-версиях inno, свойство Transparent у TLabel установлено по умолчанию,
  в Ansi версиях (обычных) нужно его указавать, типа SelectDirLabel.Transparent := True; }

const
  NeedSize = 4751;

var
  BTMImage, BTMImage2: TBitmapImage;
  SelectDirLabel, SelectDirBrowseLabel, AddIconLabel,
  NeedSpaceLabel, FreeSpaceLabel, StatusLabel: TLabel;
  AddIcon: TCheckBox;
  FreeMB, TotalMB: Cardinal;

procedure GetFreeSpaceCaption(Sender: TObject);
var
  Path: String;
begin
  Path := ExtractFileDrive(WizardForm.DirEdit.Text);
  GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
  if FreeMB > 1024 then
    FreeSpaceLabel.Caption := Format('Доступно места на диске  %.2f GB', [FreeMB/1024.0] ) else
  FreeSpaceLabel.Caption := 'Доступно места на диске  ' + IntToStr(FreeMB) + ' MB';
  begin
    if FreeMB < NeedSize then
    begin
      WizardForm.NextButton.Enabled := False;
    end else
      WizardForm.NextButton.Enabled := True;
  end;
end;

procedure InitializeWizard();
begin
  ExtractTemporaryFile('Bitmap Image.bmp');

  WizardForm.DiskSpaceLabel.Hide;
  WizardForm.SelectDirLabel.Hide;
  WizardForm.SelectDirBrowseLabel.Hide;
  WizardForm.StatusLabel.Hide;
  WizardForm.FilenameLabel.Hide;

  BTMImage := TBitmapImage.Create(WizardForm);
  BTMImage.SetBounds(0, ScaleY(59), WizardForm.Width, ScaleY(253));
  BTMImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Bitmap Image.bmp'));
  BTMImage.Stretch := True;
  BTMImage.Parent := WizardForm.InnerPage;

  BTMImage2 := TBitmapImage.Create(WizardForm);
  BTMImage2.SetBounds( - ScaleX(40), - ScaleY(13), WizardForm.Width, BTMImage.Height);
  BTMImage2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Bitmap Image.bmp'));
  BTMImage2.Stretch := True;

  SelectDirLabel := TLabel.Create(WizardForm);
  SelectDirLabel.SetBounds(0, WizardForm.SelectDirLabel.Top, WizardForm.SelectDirLabel.Width, WizardForm.SelectDirLabel.Height);
  SelectDirLabel.AutoSize := False;
  SelectDirLabel.WordWrap := True;
  SelectDirLabel.Font.Color:= clWhite;
  SelectDirLabel.Caption := WizardForm.SelectDirLabel.Caption;
  SelectDirLabel.ShowAccelChar := False;

  SelectDirBrowseLabel := TLabel.Create(WizardForm);
  SelectDirBrowseLabel.SetBounds(WizardForm.SelectDirBrowseLabel.Left, WizardForm.SelectDirBrowseLabel.Top, WizardForm.SelectDirBrowseLabel.Width, WizardForm.SelectDirBrowseLabel.Height);
  SelectDirBrowseLabel.AutoSize := False;
  SelectDirBrowseLabel.WordWrap := True;
  SelectDirBrowseLabel.Font.Color:= clWhite;
  SelectDirBrowseLabel.Caption := WizardForm.SelectDirBrowseLabel.Caption;
  SelectDirBrowseLabel.ShowAccelChar := False;

  AddIcon := TCheckBox.Create(WizardForm);
  AddIcon.Top := WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + ScaleY(15);
  AddIcon.Width := ScaleX(14);

  AddIconLabel := TLabel.Create(WizardForm);
  AddIconLabel.SetBounds(AddIcon.Left + AddIcon.Width + ScaleX(5), AddIcon.Top + ScaleY(2), ScaleX(200), ScaleY(14));
  AddIconLabel.AutoSize := False;
  AddIconLabel.WordWrap := True;
  AddIconLabel.Font.Color:= clWhite;
  AddIconLabel.Caption := 'Добавить ярлык на рабочий стол';
  AddIconLabel.ShowAccelChar := False;

  NeedSpaceLabel := TLabel.Create(WizardForm);
  NeedSpaceLabel.SetBounds(0, ScaleY(198), ScaleX(209), ScaleY(14));
  NeedSpaceLabel.Caption := 'Требуется места на диске  4.6 GB';
  NeedSpaceLabel.Font.Color := clWhite;

  FreeSpaceLabel := TLabel.Create(WizardForm);
  FreeSpaceLabel.SetBounds(0, ScaleY(216), ScaleX(209), ScaleY(14));
  FreeSpaceLabel.Font.Color := clWhite;

  StatusLabel := TLabel.Create(WizardForm);
  StatusLabel.SetBounds(WizardForm.FilenameLabel.Left, WizardForm.FilenameLabel.Top, WizardForm.StatusLabel.Width, WizardForm.StatusLabel.Height);
  StatusLabel.AutoSize := False;
  StatusLabel.WordWrap := True;
  StatusLabel.Font.Color:= clWhite;
  StatusLabel.ShowAccelChar := False;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectDir then
  begin
    BTMImage2.Parent := WizardForm.SelectDirPage;
    SelectDirLabel.Parent := WizardForm.SelectDirPage;
    SelectDirBrowseLabel.Parent := WizardForm.SelectDirPage;
    AddIcon.Parent := WizardForm.SelectDirPage;
    AddIconLabel.Parent := WizardForm.SelectDirPage;
    NeedSpaceLabel.Parent := WizardForm.SelectDirPage;
    FreeSpaceLabel.Parent := WizardForm.SelectDirPage;

    if ActiveLanguage = 'russian' then
      WizardForm.NextButton.Caption := 'Установить'
    else
      WizardForm.NextButton.Caption := 'Install';

    WizardForm.DirEdit.OnChange := @GetFreeSpaceCaption;
    WizardForm.DirEdit.Text := WizardForm.DirEdit.Text + #0;

    if FreeMB < NeedSize then
      WizardForm.NextButton.Enabled := False;
  end;

  if CurPageID = wpInstalling then
  begin
    BTMImage2.Parent := WizardForm.InstallingPage;
    StatusLabel.Parent := WizardForm.InstallingPage;

    if ActiveLanguage = 'russian' then
      StatusLabel.Caption := 'Распаковка файлов...' else
    StatusLabel.Caption := 'Extracting files...';
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    if AddIcon.Checked then
      CreateShellLink(ExpandConstant('{userdesktop}\Блокнот.lnk'), '',
       ExpandConstant('{win}\notepad.exe'), '', ExpandConstant('{win}'), '', 0, SW_SHOWNORMAL);
    DelTree(ExpandConstant('{userdesktop}\DLL'), True, True, True);
  end;
end;

Berline · Отправлено: **09:18, 30-06-2009** | #**1034**

Может уже было:
А реально сделать на старнице выбора компонентов, чтоб это было не просто дерево, а раскрывающийся по +- список? Развернул группу элементов, отметил галочками, свернул и дальше пошел, а то если много опциональних элементов - там сочинение на странице листать надобно

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

Цитата sanya007:

Есть какие-то соображения по этому поводу? »

нет.

Цитата Berline:

на старнице выбора компонентов, чтоб это было не просто дерево, а раскрывающийся по +- список? »

Для этого вам придётся использовать расширенную версию Inno Setup от Restools.
В секции [Setup] добавьте:
ComponentsListTVStyle=true

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

serg aka lain, что то я ничего не понимаю что и куда надо вставлять и менять, мб есть другой способ сделать прозрачность?

МИШАНЧИК · Конфигурация компьютера

serg aka lain, большое спасибо за скрипт.

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

Цитата user_123:

ссылку на закачку файла istool-ru.lng »

Прикрепил к сообщению.

user_123 · Отправлено: **18:05, 30-06-2009** | #**1039**

Serega, спасибо.

-- Добавлено --

У меня Inno Script Generator "не видит" русификацию (в списке языков нет русского языка). Файл я извлёк в папку languages. Перезапускать Script Generator пробовал, устанавливать заново тоже... У меня версия 1.0.3.1. Операционная система: Win Vista Sp1 x32.

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

Цитата user_123:

У меня Inno Script Generator "не видит" русификацию (в списке языков нет русского языка). »

Это глюк Inno Script Generator. В каталоге с праграммой найдите файл Setting.isg, откройте его в текстовом редакторе.
Найдите секцию [Language] и запишите так:

Код:

[Language]
Last=6
0=1049

Цитата Tukash:

вылазиет ошибка Syntax error... »

Попробуйте проверить в этой строке буквы схожие с русскими, у меня подозрение, что какая-то буква "с" в этой строке написана по-русски.