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

DRIFTER2592

Цитата:

на кнопки

Конкретно на какую кнопку или на всех?

На все естественно (включая четбоксы)

Despofix вот пример
[more][Setup]
AppName=Black angel
AppVerName=Black angel 1.0
DefaultDirName={pf}\Black angel

[Code]
var
DirEditLabel, GroupEditLabel: TLabel;
SettingButton: TButton;
SettingPage, SetParameters: Boolean;

//======{Для обновления надписи при смене пути}======\\
procedure DirChange(Sender: TObject); begin DirEditLabel.Caption:=WizardForm.DirEdit.Text; end;
procedure GroupChange(Sender: TObject); begin GroupEditLabel.Caption := MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width); end;
//======{Для обновления надписи при смене пути}======\\

Function LabelP(Parent: TWinControl; AutoSize, WordWrap, Transparent: Boolean; FontName: String; FontStyle: TFontStyles; FontColor: TColor; FontSize: Integer; Alignment: TAlignment; Left, Top, Width, Height: Integer; Caption: String): TLabel;
Begin
Result:=TLabel.Create(Parent); Result.parent:= Parent;
if Top > 0 then result.Top:=Top; if Left > 0 then result.Left:= Left; if Width > 0 then result.Width:= Width; if Height > 0 then result.Height:= Height; result.AutoSize:= AutoSize; result.WordWrap:= WordWrap; result.Transparent:=Transparent;
if FontName <> '' then result.Font.Name:= FontName; if FontColor > 0 then result.Font.Color:= FontColor; if FontStyle <> [] then result.Font.Style:= FontStyle; result.Font.Size:= FontSize; if Caption <> '' then result.Caption:= Caption; result.Alignment:=Alignment;
End;

procedure CBLALL();
begin
// Строка для минемизацыи пути (При подключении замените: [ WizardForm.DirEdit.Text ] и [WizardForm.GroupEdit.Text] на [ '' ] в выше стоящих строках над ними)
DirEditLabel:= LabelP(WizardForm, false, true, true, 'Georgia', [fsBold, fsItalic], clBlue, 9, taLeftJustify, 70, 400, 550, 15, WizardForm.DirEdit.Text)
// DirEditLabel.Caption:= MinimizePathName(WizardForm.DirEdit.Text, DirEditLabel.Font, DirEditLabel.Width); // Строка для минемизацыи пути
GroupEditLabel:= LabelP(WizardForm, false, true, true, 'Georgia', [fsBold, fsItalic], clBlue, 9, taLeftJustify, 70, 425, 550, 15, WizardForm.GroupEdit.Text)
// GroupEditLabel.Caption:= MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width); // Строка для минемизацыи пути

//======{Для обновления надписи при смене пути}======\\
WizardForm.DirEdit.OnChange := @DirChange; //Для обновления надписи при смене пути
WizardForm.GroupEdit.OnChange := @GroupChange; //Для обновления надписи при смене пути
//======{Для обновления надписи при смене пути}======\\
end;

procedure SettingButtonOnClick(Sender: TObject);
begin
if SettingPage = False then begin
// Страница настройки где все находится
WizardForm.NextButton.Hide;
WizardForm.DirEdit.Show;
Wizardform.DirBrowseButton.Show;
//устанавливаем флаги
SettingPage:= True;
SettingButton.Caption:= 'Назад';
end else begin
// Страница Wellcome где все находится
WizardForm.NextButton.Show;
WizardForm.DirEdit.hide;
Wizardform.DirBrowseButton.hide;
Wizardform.GroupBrowseButton.hide;
GroupEditLabel.hide;
//устанавливаем флаги
SettingPage:= False;
SettingButton.Caption:= 'Настройки';
end;
end;

procedure InitializeWizard();
begin
WizardForm.ClientWidth:=ScaleX(798);
WizardForm.ClientHeight:=ScaleY(543);
WizardForm.Center;
WizardForm.OuterNotebook.Hide;
WizardForm.InnerNotebook.Hide;
WizardForm.Bevel.Hide;

SettingButton:= TButton.Create(WizardForm);
SettingButton.SetBounds(ScaleX(240),ScaleY(328), ScaleX(80), ScaleY(23))
SettingButton.Caption:= 'Настройки';
SettingButton.OnClick:= @SettingButtonOnClick;
SettingButton.Parent:= WizardForm;

WizardForm.DirEdit.Parent:= WizardForm;
WizardForm.DirEdit.Left:= WizardForm.DirEdit.Left + 40;
WizardForm.DirEdit.Top:= WizardForm.DirEdit.Top + 60;
WizardForm.DirEdit.Show;

// WizardForm.Color:=clBlack;
//======{Перемещение кнопок}======\\
{Назад}
WizardForm.BackButton.Top:=480;
WizardForm.BackButton.Left:=485;
// WizardForm.BackButton.Height:=23;
// WizardForm.BackButton.Width:=80;
{Далее}
WizardForm.NextButton.Top:=480;
WizardForm.NextButton.Left:=585;
// WizardForm.NextButton.Height:=23;
// WizardForm.NextButton.Width:=80;
{Отмена}
WizardForm.CancelButton.Top:=480;
WizardForm.CancelButton.Left:=670;
// WizardForm.CancelButton.Height:=23;
// WizardForm.CancelButton.Width:=80;
{Dir-Обзор}
Wizardform.DirBrowseButton.parent:= wizardform
Wizardform.DirBrowseButton.Top:=125
Wizardform.DirBrowseButton.Left:=390
Wizardform.DirBrowseButton.Height:=23
Wizardform.DirBrowseButton.Width:=80
{Group-Обзор}
Wizardform.GroupBrowseButton.parent:= wizardform
Wizardform.GroupBrowseButton.Top:=425
Wizardform.GroupBrowseButton.Left:=670
Wizardform.GroupBrowseButton.Height:=23
Wizardform.GroupBrowseButton.Width:=80
//======{Перемещение кнопок}======\\
CBLALL();
end;

procedure CurPageChanged(CurPageID: Integer);
begin
Case CurPageID of
wpWelcome:
begin
WizardForm.DirEdit.hide;
Wizardform.DirBrowseButton.hide;
Wizardform.GroupBrowseButton.hide;
GroupEditLabel.hide;
end;
end;
end;[/more]

bugron
[more]begin
DirEditLabel := TLabel.Create(WizardForm);
with DirEditLabel do begin
Left:= ScaleX(55);
Top:= ScaleY(125);
Width:= ScaleX(305);
Height:= ScaleY(20);
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
Font.Color:=$000000;
Font.Style := [fsBold]
Font.Name:='Times New Roman';
Font.Size:=10;
Caption := MinimizePathName(WizardForm.DirEdit.Text, DirEditLabel.Font, DirEditLabel.Width);
Parent := WizardForm;
end;[/more]

Добавлено:
vint56
благодарю

Цитата:

bugron
Подробнее...

А если сделаешь так

Код: Caption := WizardForm.DirEdit.Text;

insombia

как сделать readymemo прозрачним без
рамочки


Iswin7 нужно использовать

а примера нету

Добавлено:
insombia

как сделать readymemo прозрачним без
рамочки


Iswin7 нужно использовать

а примера нету

Добавлено:
как вставить изображение на каждую страницу через ботву inner onner notebook hide

bugron
да все уже, винт56 помог

del

VASYAKRN http://www.datafilehost.com/download-0dfe2a07.html

Цитата:

Как сделать такие проценты в инсталяторе? http://fastpic.ru/view/25/2011/0705/...e029a.png.html

404 Not Found

bugron
добрый день,ничего не получилось с иконкой музыки?

Цитата:

добрый день,ничего не получилось с иконкой музыки?

Да не получилось, но только эта иконка отображается на iswin7 не корректно. Тебе нужна помощь спецов.

Здравствуйте. Подскажите мне пожалуйста полное название сжатия в FreeArc'е, которое, требует 1024 Мб для распаковки.

Цитата:

Здравствуйте. Подскажите мне пожалуйста полное название сжатия в FreeArc'е, которое, требует 1024 Мб для распаковки.

Максимальное,но есть и максимальное которое требует всего лишь 256 мб

bugron
спасибо за попытку!

Кто может прикрутить такую верхнюю панель(Где типа закрыть-свернуть) http://uaimage.com/gallery/b5073689 в мой скрипт http://rghost.ru/18157871
вот скрипт с которого это хотелось бы прифигачить http://inno.at.ua/load/0-0-0-122-20

Sarcastic_94
Помню, что в 13 части кто-то смог на iswin7 наложить всой лого, не помню кто был, поищи, может он поможет.

bugron
так мне ж не лого..а кликабельную кнопку

Sarcastic_94


Цитата:

так мне ж не лого..а кликабельную кнопку

Да я понял, но вместо красивого динамика (тоесть этой иконки) появляется белый прямоугольник.

Цитата:

так мне ж не лого..а кликабельную кнопку

[more]var
MouseLabel,SiteLabel: TLabel;

procedure SiteLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://forum.ru-board.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;

procedure SiteLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clRed
end;

procedure SiteLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clBlue
end;

procedure SiteLabelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clGreen
end;

procedure SiteLabelMouseMove2(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clBlue
end;

procedure InitializeWizard();
begin
MouseLabel:=TLabel.Create(WizardForm)
MouseLabel.Width:=WizardForm.Width
MouseLabel.Height:=WizardForm.Height
MouseLabel.Autosize:=False
MouseLabel.Transparent:=True
MouseLabel.OnMouseMove:=@SiteLabelMouseMove2
MouseLabel.Parent:=WizardForm

SiteLabel:=TLabel.Create(WizardForm)
SiteLabel.Left:=10
SiteLabel.Top:=330
SiteLabel.Cursor:=crHand
SiteLabel.Font.Color:=clBlue
SiteLabel.Caption:='Forum Ru-Board'
SiteLabel.OnClick:=@SiteLabelOnClick
SiteLabel.OnMouseDown:=@SiteLabelMouseDown
SiteLabel.OnMouseUp:=@SiteLabelMouseUp
SiteLabel.OnMouseMove:=@SiteLabelMouseMove
SiteLabel.Parent:=WizardForm
end;[/more]

insombia
Это не то, нужно прикрутить ту маленькую кнопку, похожую на динамик, для выпольнения функций кноки Start/Pause.

Добавлено:
И в следующий раз засунь твой код в теги more

Добавлено:

Цитата:

Кто может прикрутить такую верхнюю панель(Где типа закрыть-свернуть) http://uaimage.com/gallery/b5073689 в мой скрипт http://rghost.ru/18157871

Вооюще то, это панль скина. Сам прикручивай с помощью isskin-а. Это же не трудно.

bugron bass.dll скачай там есть код

Цитата:

bass.dll скачай там кажись есть картинка

Вы что не понимаете, я прикручиваю эту картинку, НО, на iswin7 она НЕПРАВИЛЬНО отображается.

Цитата:

Цитата: Здравствуйте. Подскажите мне пожалуйста полное название сжатия в FreeArc'е, которое, требует 1024 Мб для распаковки.

Максимальное,но есть и максимальное которое требует всего лишь 256 мб

TBevel для GroupEditLabel как называется по умолчанию? А то все прописал для страницы выбора групповой папки кроме бевела

Добавлено:
вот те пример:
baqzar1

-m3 -lc512m -ld512m

Цитата:

Вы что не понимаете, я прикручиваю эту картинку, НО, на iswin7 она НЕПРАВИЛЬНО отображается.

Ааааа нужно использовать Fairy для этого

bugron

Цитата:

Да не получилось, но только эта иконка отображается на iswin7 не корректно.

Если речь идёт о botva2.dll и IsWin7.dll, то надо с раздельными хендлами работать, в одном хендле iswin7 убивает изображения ботвы.

Добавлено:
insombia
Парой страниц ранее писал:

Цитата:

Лого можешь сделать либо этим, либо этим. Только Fairy.dll левые ошибки иногда выдаёт.

baqzar1
без шаманстава:
arc.exe a -dses -ep1 -s; -lc- -di -i2 -r -mrep:700mb:a99+lzma:a1:mfbt4:d200m:fb128:mc10000:lc8 data.arc data\*.*
arc.exe a -dses -ep1 -s; -lc- -di -i2 -r -mrep:512mb:a99+lzma:a1:mfht4:d512m:fb128:mc10000:lc8 data.arc data\*.*

с шаманством, но сжатие лучше:
arc.exe a -dses -ep1 -s; -lc- -di -i2 -r -msrep:m3f:mem512mb:l256+lzma:a1:mfbt4:d512m:fb128:mc65536:lc8 data.arc data\*.*

baqzar1
с вопросами о разных сжатиях в другую тему!

Profrager
Ты хоть не поощряй их задавать вопросы не по теме.

кто-то может помочь вообщем при использовании маленького прогресс бара инсталятор такой

До http://uaimage.com/image/882763ba После http://uaimage.com/image/55730bb9

вот скрипт http://rghost.ru/18207171

Цитата:

кто-то может помочь вообщем при использовании маленького прогресс бара инсталятор такой

До http://uaimage.com/image/882763ba После http://uaimage.com/image/55730bb9

вот скрипт http://rghost.ru/18207171

Так лучше?

Добавлено:
У кого нибудь есть справки по процедурам и функциям следующих плагинов:

BASS v.1.1
FirewallInstallHelper 1.0
HWREQ
ImgGdiPlus
isgsg
ISPrecomp-0.7
issrep 0.15.1
ISTask
isxbb
плюс еще для плагинов от ResTools

Для большего ясности пример из ботвы:

Код:
procedure ImgRelease(img :Longint); external 'ImgRelease@{tmp}\botva2.dll stdcall delayload';
//удаляет изображение из памяти
//img - значение полученное при вызове ImgLoad