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;
