Войти

Показать полную графическую версию : Скрипты Inno Setup. Помощь и советы [часть 3]


Страниц : 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 [48] 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188

Vamp1re
02-03-2011, 19:00
Как прикрепить свое лого к инсталлятору в указаной позиции?
(см.рис.) http://i082.radikal.ru/1103/2f/62d9199a6b3e.jpg

Vamp1re
02-03-2011, 19:38
Лександер, У меня не хочет компилировать пишет Error: Indentifer name (Name := 'BitmapImage1';)

STRAYKER
02-03-2011, 19:38
Как создаь такой инсталятор ???
http://www.pictureshack.ru/images/3928dhaighjdgfyertrefsdfgs.jpg

Gnom_aka_Lexander
02-03-2011, 19:38
Vamp1re, А ты положил файл LOGO.bmp рядом со скриптом?
STRAYKER, Зачем? Возьми готовый (http://rghost.ru/3632626)

Vamp1re
02-03-2011, 19:42
Лександер, да

Gnom_aka_Lexander
02-03-2011, 19:44
Vamp1re,
Тогда проще (тот код редизайнер выдал :)
[Files]
Source: "LOGO.bmp"; Flags: dontcopy solidbreak

var
BitmapImage1: TBitmapImage;

procedure InitializeWizard();
begin
{ BitmapImage1 }
BitmapImage1 := TBitmapImage.Create(WizardForm);
with BitmapImage1 do
begin
Name := 'BitmapImage1';
Parent := WizardForm;
Left := ScaleX(0);
Top := ScaleY(313);
Width := ScaleX(241);
Height := ScaleY(48);
ExtractTemporaryFile('LOGO.bmp');
Bitmap.LoadFromFile(ExpandConstant('{tmp}\LOGO.bmp'));
end;
end;
Если не получится - значит руки кривые - работают оба кода на 100%.

Vamp1re
02-03-2011, 19:45
STRAYKER, качаешь скрипт Hitman Blood Money и если хочешь меняешь его размер
можешь скачать одсюда: http://rghost.ru/3632626

LinkOFF
02-03-2011, 19:50
Кто-нибудь знает как мне сделать картинку на весь инсталлятор и только на первую страницу

Vamp1re
02-03-2011, 19:51
Лександер, Всеравно не хочет

LinkOFF, Смотри ниже:
procedure InitializeWizard(); begin ExtractTemporaryFile('img1.bmp'); MainImage := TBitmapImage.Create(WizardForm); WizardForm.PageDescriptionLabel.Visible:= False; WizardForm.PageNameLabel.Visible:= False; with MainImage do begin Parent := WizardForm; Left := 0; Top := 0; Width := 500; Height := 313; Bitmap.LoadFromFile(ExpandConstant('{tmp}\img1.bmp')); end; ExtractTemporaryFile('img2.bmp'); FinishedImage := TBitmapImage.Create(WizardForm); with FinishedImage do begin Parent := WizardForm; Left := 50; Top := 10; Width := 500; Height := 313; Bitmap.LoadFromFile(ExpandConstant('{tmp}\img1.bmp')); end; //WelcomePage, создаем надписи на странице WelcomeLabel1:= TLabel.Create(WizardForm); with WelcomeLabel1 do begin Left:= ScaleX(176); Top:= ScaleY(66); Width:= ScaleX(301); Height:= ScaleY(71); AutoSize:= false; Transparent:= true; WordWrap:= true; Font.Size:= 14; Font.Color:=ClWhite Font.Style := [fsBold] Parent:= WizardForm; Font.Name:= 'Georgia' Caption:= WizardForm.WelcomeLabel1.Caption; end; WelcomeLabel2:=TLabel.Create(WizardForm); with WelcomeLabel2 do begin Top:= ScaleY(136); Left:= ScaleX(176); Width:= ScaleX(301); Height:= ScaleY(300); AutoSize:= false; WordWrap:= true; Font.Color:=ClWhite Font.Name:= 'Georgia' Font.Size:= 10; Transparent:= true; Parent:= WizardForm; Caption:= WizardForm.WelcomeLabel2.Caption; end;

STRAYKER
02-03-2011, 19:58
Vamp1re,
Лександер,
Спасиба всем, но у меня ещо вопрос.
Как сделать что бы писало
Создать ярлык 1
Создать ярлык 2

LinkOFF
02-03-2011, 19:58
Он мне пишет Unknown identifier 'MainImage'

Vamp1re можеш мне пример скрипта прописать.Пожалуйста

И цвет самого инсталятора можешь сказать как поменять на черный

STRAYKER
02-03-2011, 20:07
LinkOFF,
Скрипт для картинки

var
MyPanel: TPanel;

procedure InitializeWizard();
begin
MyPanel := TPanel.Create(WizardForm);
with MyPanel do
begin
Align := alClient;
Parent := WizardForm;
end;

with WizardForm.WizardBitmapImage do
begin
Align := alClient;
Parent := MyPanel;
end;

with TLabel.Create(WizardForm) do
begin
AutoSize := WizardForm.WelcomeLabel1.AutoSize;
WordWrap := WizardForm.WelcomeLabel1.WordWrap;
Left := WizardForm.WelcomeLabel1.Left;
Top := WizardForm.WelcomeLabel1.Top;
Width := WizardForm.WelcomeLabel1.Width;
Height := WizardForm.WelcomeLabel1.Height;
Caption := WizardForm.WelcomeLabel1.Caption;
Font.Size := WizardForm.WelcomeLabel1.Font.Size;
Font.Style := WizardForm.WelcomeLabel1.Font.Style;
Font.Color := clWhite;
TransParent := True;
Parent := MyPanel;
end;

with TLabel.Create(WizardForm) do
begin
AutoSize := WizardForm.WelcomeLabel2.AutoSize;
WordWrap := WizardForm.WelcomeLabel2.WordWrap;
Left := WizardForm.WelcomeLabel2.Left;
Top := WizardForm.WelcomeLabel2.Top;
Width := WizardForm.WelcomeLabel2.Width;
Height := WizardForm.WelcomeLabel2.Height;
Caption := WizardForm.WelcomeLabel2.Caption;
Font.Size := WizardForm.WelcomeLabel2.Font.Size;
Font.Style := WizardForm.WelcomeLabel2.Font.Style;
Font.Color := clWhite;
TransParent := True;
Parent := MyPanel;
end;

WizardForm.NextButton.BringToFront;
WizardForm.CancelButton.BringToFront;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
MyPanel.Hide;
if CurPageID = wpWelcome then
MyPanel.Show;
end;

LinkOFF
02-03-2011, 20:07
STRAYKER попробуй вот так

[Icons]

Name: "{userdesktop}\Ярлык 1"; Filename: "{app}\Games1.exe"; WorkingDir: "{app}"; Tasks: desktopicon;
Name: "{userdesktop}\Ярлык 2"; Filename: "{app}\Games2.exe"; WorkingDir: "{app}"; Tasks: desktopicon;

Vamp1re
02-03-2011, 20:09
STRAYKER, Вставляешь в любое поле шаблона.И вот собственно скрипт:
[Icons] Name: "{group}\Название программы"; Filename: "{app}\MyProg.exe" Name: "{group}\{cm:UninstallProgram,My Program}"; Filename: "{uninstallexe}" Name: "{commondesktop}\Название программы"; Filename: "{app}\MyProg.exe"; Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\Название программы"; Filename: "{app}\MyProg.exe";

Тебе надо только вставить, изменить название программы и екзешника

LinkOFF
02-03-2011, 20:09
STRAYKER спасибо бальшое

LinkOFF
02-03-2011, 20:12
STRAYKER, а как цвет текста поменять на черный?

Vamp1re
02-03-2011, 20:13
LinkOFF, вот еще один пример: //************************************************ [Начало - Вн. вид инсталла] ***************************************************// procedure RepaintInstall(); begin ExtractTemporaryFile('button.bmp') ExtractTemporaryFile('DirBitmap.bmp'); ExtractTemporaryFile('GroupBitmap.bmp'); ExtractTemporaryFile('Logo.bmp'); WizardForm.WizardBitmapImage.Width := ScaleX(224); WizardForm.WizardBitmapImage2.Width := ScaleX(224); WizardForm.PageNameLabel.Width:=ScaleX(300); WizardForm.PageDescriptionLabel.Hide; WizardForm.Font.Color:=clWhite; WizardForm.Color:=Color; WizardForm.WelcomePage.Color:=Color; WizardForm.InnerPage.Color:=Color; WizardForm.FinishedPage.Color:=Color; WizardForm.SelectDirPage.Color:=Color; WizardForm.SelectComponentsPage.Color:=Color; WizardForm.SelectProgramGroupPage.Color:=Color; WizardForm.SelectTasksPage.Color:=Color; WizardForm.ReadyPage.Color:=Color; WizardForm.InstallingPage.Color:=Color; WizardForm.PageNameLabel.Color:=Color; WizardForm.PageNameLabel.Font.Color:=ClWhite; WizardForm.MainPanel.Color:=Color; WizardForm.WelcomeLabel1.Hide; WizardForm.WelcomeLabel2.Hide; WizardForm.SelectDirLabel.Color:=Color; WizardForm.SelectDirBrowseLabel.Color:=Color; WizardForm.DirEdit.Color:=Color; WizardForm.DiskSpaceLabel.Color:=Color; WizardForm.ComponentsList.Color:=Color; WizardForm.SelectComponentsLabel.Color:=Color; WizardForm.TypesCombo.Hide; WizardForm.ComponentsDiskSpaceLabel.Hide; WizardForm.GroupEdit.Color:=Color; WizardForm.SelectStartMenuFolderLabel.Color:=Color; WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color; WizardForm.SelectTasksLabel.Color:=Color; WizardForm.TasksList.Color:=Color; WizardForm.ReadyMemo.Color:=Color; WizardForm.ReadyMemo.ScrollBars:= ssNone WizardForm.ReadyLabel.Color:=Color; WizardForm.StatusLabel.Color:=Color; WizardForm.FilenameLabel.Color:=Color; WizardForm.FinishedHeadingLabel.Hide; WizardForm.FinishedLabel.Hide; WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\DirBitmap.bmp')); WizardForm.SelectDirBitmapImage.AutoSize:=true; WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\GroupBitmap.bmp')); WizardForm.SelectGroupBitmapImage.AutoSize:=true; LogoImage := TBitmapImage.Create(WizardForm); with LogoImage do begin SetBounds(ScaleX(10), ScaleY(320), ScaleX(175), ScaleY(40)); Bitmap.LoadFromFile(ExpandConstant('{tmp}\Logo.bmp')); Parent := WizardForm; end; with WizardForm.WizardSmallBitmapImage do begin SetBounds(ScaleX(335), ScaleY(2), ScaleX(160), ScaleY(50)); end; with WizardForm.ComponentsList do begin Top:=ScaleY(55); Height:=ScaleY(150); end; with TLabel.Create(WizardForm) do begin AutoSize:=WizardForm.WelcomeLabel1.AutoSize; Left:=WizardForm.WelcomeLabel1.Left; Top:=WizardForm.WelcomeLabel1.Top Width:=WizardForm.WelcomeLabel1.Width Height:=WizardForm.WelcomeLabel1.Height WordWrap:=WizardForm.WelcomeLabel1.WordWrap; Font.Name:=WizardForm.WelcomeLabel1.Font.Name; Font.Size:=WizardForm.WelcomeLabel1.Font.Size; Font.Color:=clWhite; Font.Style:=WizardForm.WelcomeLabel1.Font.Style; Caption:=WizardForm.WelcomeLabel1.Caption; Parent:=WizardForm.WelcomeLabel1.Parent Transparent:=True end; with TLabel.Create(WizardForm) do begin AutoSize:=WizardForm.WelcomeLabel2.AutoSize; Left:=WizardForm.WelcomeLabel2.Left; Top:=WizardForm.WelcomeLabel2.Top Width:=WizardForm.WelcomeLabel2.Width Height:=WizardForm.WelcomeLabel2.Height WordWrap:=WizardForm.WelcomeLabel2.WordWrap; Font.Name:=WizardForm.WelcomeLabel2.Font.Name; Font.Size:=WizardForm.WelcomeLabel2.Font.Size; Font.Color:=clWhite; Font.Style:=WizardForm.WelcomeLabel2.Font.Style; Caption:=WizardForm.WelcomeLabel2.Caption; Parent:=WizardForm.WelcomeLabel2.Parent Transparent:=True end; with TLabel.Create(WizardForm) do begin AutoSize:=WizardForm.FinishedHeadingLabel.AutoSize; Left:=WizardForm.FinishedHeadingLabel.Left; Top:=WizardForm.FinishedHeadingLabel.Top Width:=WizardForm.FinishedHeadingLabel.Width Height:=WizardForm.FinishedHeadingLabel.Height WordWrap:=WizardForm.FinishedHeadingLabel.WordWrap; Font.Name:=WizardForm.FinishedHeadingLabel.Font.Name; Font.Size:=WizardForm.FinishedHeadingLabel.Font.Size; Font.Color:=clWhite; Font.Style:=WizardForm.FinishedHeadingLabel.Font.Style; Caption:=WizardForm.FinishedHeadingLabel.Caption; Parent:=WizardForm.FinishedHeadingLabel.Parent Transparent:=True end; FinishedLabel:= TLabel.Create(WizardForm) with FinishedLabel do begin AutoSize:=WizardForm.FinishedLabel.AutoSize; Left:=WizardForm.FinishedLabel.Left; Top:=WizardForm.FinishedLabel.Top Width:=WizardForm.FinishedLabel.Width; Height:=WizardForm.FinishedLabel.Height+50; WordWrap:=WizardForm.FinishedLabel.WordWrap; Font.Name:=WizardForm.FinishedLabel.Font.Name; Font.Size:=WizardForm.FinishedLabel.Font.Size; Font.Color:=clWhite; Font.Style:=WizardForm.FinishedLabel.Font.Style; Caption:=ExpandConstant('{cm:FinishedLabel}'); Parent:=WizardForm.FinishedLabel.Parent Transparent:=True end; end; procedure InitializeUninstallProgressForm1; begin FileCopy(ExpandConstant('{app}\WizardSmallImage.bmp'), ExpandConstant('{tmp}\WizardSmallImage.bmp'), False); FileCopy(ExpandConstant('{app}\Logo.bmp'), ExpandConstant('{tmp}\Logo.bmp'), False); UninstallProgressForm.Color:=Color; UninstallProgressForm.InnerPage.Color:=Color; UninstallProgressForm.MainPanel.Color:=Color; UninstallProgressForm.PageNameLabel.Color:=Color; UninstallProgressForm.PageDescriptionLabel.Hide; UninstallProgressForm.PageNameLabel.Font.Color:=clWhite; UninstallProgressForm.PageNameLabel.Width:=ScaleX(300); UninstallProgressForm.StatusLabel.Color:=Color; UninstallProgressForm.StatusLabel.Font.Color:=clWhite; LogoImage := TBitmapImage.Create(UninstallProgressForm); with LogoImage do begin SetBounds(ScaleX(10), ScaleY(320), ScaleX(175), ScaleY(40)); Bitmap.LoadFromFile(ExpandConstant('{tmp}\Logo.bmp')); Parent := UninstallProgressForm; end; with UninstallProgressForm.WizardSmallBitmapImage do begin Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardSmallImage.bmp')); SetBounds(ScaleX(335), ScaleY(2), ScaleX(160), ScaleY(50)); end; end; //************************************************ [Конец - Вн. вид инсталла] ***************************************************//

STRAYKER
02-03-2011, 20:15
LinkOFF,
[code]
procedure InitializeWizard();
begin
WizardForm.Font.Color:=ClЦвет;
WizardForm.WelcomeLabel1.Font.Color:=ClЦвет;
WizardForm.FinishedHeadingLabel.Font.Color:=ClЦвет;
WizardForm.PageNameLabel.Font.Color:=ClЦвет;
end;

обязательно оставляй перед названиям цвета Cl

Gnom_aka_Lexander
02-03-2011, 20:15
LinkOFF, Самый простой способ - использовать черный скин (например, Tiger.cjstyles)

STRAYKER
02-03-2011, 20:17
Лександер,
Как зделать Сплаш
и
Создать ярлык 1
Создать ярлык 2




© OSzone.net 2001-2012