Gnom3
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: [Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[*code]
function ShouldSkipPage(PageID: Integer): Boolean;
begin
Result := PageID <> wpInstalling; // Скрываем все страницы, кроме установки
end;
procedure WizardFormCreate(Sender: TObject);
begin
WizardForm.NextButton.OnClick(WizardForm.NextButton); // поскольку страница готовности все равно вылазит, нажмем кнопку далее
end;
procedure InitializeWizard();
begin
with WizardForm do
begin
ClientHeight:= WizardForm.ClientHeight - ScaleY(230); // высота (с верху)
ClientWidth:= WizardForm.ClientWidth - ScaleX(100); // ширина (с низу)
// окно по центру экрана делать лучше сразу, после задания размера окна
Position:= poScreenCenter;
OuterNotebook.Hide;
MainPanel.Hide;
FilenameLabel.Hide;
CancelButton.Left:= WizardForm.CancelButton.Left - ScaleX(100); // отмена (вверх)
CancelButton.Top:= WizardForm.CancelButton.Top - ScaleY(230);
Bevel.Top:= WizardForm.Bevel.Top - ScaleY(230); // линия (вверх)
ProgressGauge.Top:= ScaleY(45);
ProgressGauge.Width:= ProgressGauge.Width - ScaleX(80);
ProgressGauge.Left:= (WizardForm.Width/2) - (ProgressGauge.Width/2); // прогрессбар (центрируем)
ProgressGauge.Parent:= WizardForm;
StatusLabel.Top:= ScaleY(10);
StatusLabel.Left:= (WizardForm.Width/2) - (ProgressGauge.Width/2); // текст (центрируем)
StatusLabel.Parent:= WizardForm;
FilenameLabel.Top:= ScaleY(25);
FilenameLabel.Left:= (WizardForm.Width/2) - (WizardForm.ProgressGauge.Width/2); // текст (центрируем)
FilenameLabel.Parent:= WizardForm;
// новый StaticText...
with TNewStaticText.Create(WizardForm) do
begin
Left:= ScaleX(30); // отступ с левой стороны
Top:= WizardForm.Bevel.Top - ScaleY(6);
Enabled:= False;
Caption:= ' Copyright 2012 © Boss911 ';
Parent:= WizardForm;
end;
Show; // сперва показываем окно, иначе ничего не выйдет
OnCreate := @WizardFormCreate;
end;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpInstalling then WizardForm.Visible := Pos('/verysilent', Lowercase(GetCmdTail)) = 0; // в принципе не нужна, при verysilent и так будет скрыто вообще все
end; |
|
Всего записей: 864 | Зарегистр. 14-11-2010 | Отправлено: 09:05 16-11-2012 | Исправлено: Gnom3, 09:08 16-11-2012 |
|
