Inno Setup (создание инсталяционных пакетов). Часть 1

[Snoopak96]

Katarn,
Капшен для лейбла та задал, а сам лейбл создать забыл:

Спойлер

Function NumToStr(Float: Extended): String;
Begin
Result:= Format('%.1n', [Float]); StringChange(Result, ',', '.');
while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = '.')) and (Pos('.', Result) > 0) do
SetLength(Result, Length(Result)-1);
End;

Procedure PercentsProc(h, msg, idevent, dwTime: Longword);
Begin
with WizardForm.ProgressGauge do
begin
PercentsLabel.Caption:= 'Выполнено ' + NumToStr((Position*100)/Max) + ' %';
end;
End;

Создай лейбл (размеры уж сам выставишь):

Спойлер

Function NumToStr(Float: Extended): String;
Begin
Result:= Format('%.1n', [Float]); StringChange(Result, ',', '.');
while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = '.')) and (Pos('.', Result) > 0) do
SetLength(Result, Length(Result)-1);
End;

Procedure PercentsProc(h, msg, idevent, dwTime: Longword);
Begin
with WizardForm.ProgressGauge do
begin
PercentsLabel := TLabel.Create(WizardForm);
PercentsLabel.Top := 210;
PercentsLabel.Left:= 20;
PercentsLabel.Width:= 441;
PercentsLabel.Height:= 108;
PercentsLabel.AutoSize:= false;
PercentsLabel.Transparent:= true;
PercentsLabel.WordWrap:= true;
PercentsLabel.Parent := WizardForm.InstallingPage;
PercentsLabel.Caption:= 'Выполнено ' + NumToStr((Position*100)/Max) + ' %';
end;
End;

 

[ARS_23]

DineX,
присоединяюсь
мне тоже было бы интересно почитать и узнать про все ее функции,
а то знаю только самое основное

 

[Snoopak96]

и при чём тут размеры ?

Добавлено через 1 минуту
ARS_23,
DineX,
А вы в папку Modules пробывали смотреть, там все функции расписаны проще некуда.

 

[Edison007]

DineX, ARS_23
Сам модуль, и так хорошая справка, а тем более, есть куча скриптов где юзается ботва

 

[ARS_23]

А вы в папку Modules пробывали смотреть, там все функции расписаны проще некуда.

читал я пояснения к функциям и примеры смотрел
но все же не все там расписано

 

[Edison007]

ARS_23
абсолютно все функции ботвы расписаны...

 

[sergey3695]

Возможно ли изменить действия при нажатии кнопок свернуть,закрыть? (например: с помощью winmsgctrl.dll можно дополнить эти действия, но не изменить) p.s. создать кнопки с помощью ботвы и повесить на них функции, это не то.

 

[ARS_23]

может кто-нибудь чиркануть пример отрисовки формы из картинки.png?

 

[Edison007]

ARS_23

Спойлер

#include "Modules\botva2.iss"

function InitializeSetup:boolean;
begin
  if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
  if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
  if not FileExists(ExpandConstant('{tmp}\CallbackCtrl.dll')) then ExtractTemporaryFile('CallbackCtrl.dll');
  Result:=True;
end;

procedure InitializeWizard;
begin
  CreateFormFromImage(WizardForm.Handle,ExpandConstant('{tmp}\frame.png'));
end;

procedure DeinitializeSetup;
begin
  gdipShutdown;
end;[/SPOILER]

[size="1"][color="#808080"]Добавлено через 1 минуту[/color][/size]
вот на ботве, но на такой форме не будут видны контролы (кнопки, чекбоксы, эдиты и т.д.) !!!

 

[ARS_23]

Edison007,
спасибо

но на такой форме не будут видны контролы (кнопки, чекбоксы, эдиты и т.д.)

form:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\form.png'),0,0,WizardForm.ClientWidth,WizardForm.ClientHeight,True,True);

имеет смысл такая строчка?

 

[Edison007]

имеет смысл такая строчка?

нет...

 

[ARS_23]

Edison007,
красавчик, коротко и ясно

 

[DineX]

Подскажите пожалуйста как убрать обводу эту белую и как сделать текст читабельным

Спойлер: картинка

 

[Edison007]

DineX
может стоит внимательно смотреть пример?

Необходимо добавлять каждую кнопку расположенную на стекле, до инициализации стекла для того что бы не было дыр ))
iswin7_add_button(ButtonName.Handle);

 

[David.D.Rocco]

sergey3695,

Возможно ли изменить действия при нажатии кнопок свернуть,закрыть?

вот пример для расширенной версии инно
http://rghost.ru/35532879

 

[sergey3695]

Как убрать строчку 'Закрыть ALT + F4' ? (которая выше строчки о программе)

 

[LexBell]

Inno Setup 5.4.3 released.

 

[South]

Как убрать строчку 'Закрыть ALT + F4' ? (которая выше строчки о программе)

чем тебе помешал этот пункт меню?
а так

DeleteMenu(GetSystemMenu(WizardForm.Handle,False),61536,0);

ЗЫ примеров везде полно, учимся сначала внимательно смотреть

 

[LexBell]

Inno_ISCmplr_Setup111225

 

[PUNISHER]

Gnom, нововведения есть?