Скрипты Inno Setup. Помощь и советы [часть 3]

[Dark_Delphin]

Подскажите возможно ли сделать прозрачным, а не черным?

http://i30.fastpic.ru/big/2011/1016/23/f763ef9d468377b14211842d0977af23.png

[No4noylis]

А что это за строка? :
Код:
WizardForm.ComponentsList.LoadBGBmpFromFile(BGImgFile, WizardForm.ComponentsList.Left+BorderWidt »
ntrx, именно эта строка ставит картиночку, чтобы компонент-лист был как-бы прозрачным. У меня все отлично компилировалось...
Ошибка, должно помочь если добавить это в скрипт:

procedure LoadBGBmpFromFile(FileName: String; OffsetX, OffsetY: Integer);

[Dark_Delphin]

No4noylis, вот такое выбивает эта строка((((

http://i31.fastpic.ru/big/2011/1016/b6/8ec7f866eee795ebe68fe15ac9895db6.png

[VASYAKRN]

http://s017.radikal.ru/i408/1110/ca/5c4914b9db8c.jpg
Пожалста подскажите как сделать деинсталятор похож на инсталятор(добавить маску маска и сделать 3 странице:Приветствие,Деинсталяция и готово)
ссилка (http://inno.at.ua/load/0-0-0-494-20)

[Gnom_aka_Lexander]

вот такое выбивает эта строка(((( »
Потому, что в стандартной версии нет такой функции. ставь расширенную.

[Blid]

Подскажите как сделать такую фиху
http://s010.radikal.ru/i313/1110/60/8acc28dfe778.jpg

[valyok666]

Blid, ты имеешь ввиду рамку или что?

[Gnom_aka_Lexander]

Подскажите как сделать такую фиху »
#define NeedSize 4380
#define NeedInstallSize 7890

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp

[_code]
var
SpaceLabel:array[0..3]of TLabel;
FreeMB, TotalMB: Cardinal;

function NumToStr(Float: Extended): String;
begin
Result:= format('%.2n', [Float]); StringChange(Result, ',', '.');
while (Result[Length(Result)] = '0')or((Result[Length(Result)] = '.')and(Pos('.', Result) > 0)) do
SetLength(Result, Length(Result)-1);
end;

function MbOrTb(Float: Extended): String;
begin
if Float < 1024 then Result:= NumToStr(Float)+' Мб' else
if Float/1024 < 1024 then Result:= NumToStr(Float/1024)+' Гб' else
Result:= NumToStr(Float/(1024*1024))+' Тб';
end;

procedure DirEditOnChange(Sender: TObject);
var Drive: String;
begin
Drive:= ExtractFileDrive(WizardForm.DirEdit.Text);
GetSpaceOnDisk(Drive, True, FreeMB, TotalMB);
SpaceLabel[0].Caption:= 'Всего места на диске: '+MbOrTb(TotalMB);
SpaceLabel[1].Caption:= 'Доступно места на диске: '+MbOrTb(FreeMB)+' ('+IntToStr(round(FreeMB*100/TotalMB))+'%)';
SpaceLabel[2].Caption:= 'Требуется места для установки: '+MbOrTb({#NeedInstallSize});
SpaceLabel[3].Caption:= 'Требуется места на диске: '+MbOrTb({#NeedSize});
WizardForm.NextButton.Enabled:= (FreeMB>{#NeedInstallSize})and(FreeMB>{#NeedSize});
WizardForm.SelectDirPage.Repaint;
end;

procedure InitializeWizard();
var i:integer;
begin
{ SpaceLabel }
for i:=0 to 3 do
begin
SpaceLabel[i]:= TLabel.Create(WizardForm);
with SpaceLabel[i] do
begin
Transparent:=True;
Parent:= WizardForm.SelectDirpage;
SetBounds(ScaleX(7),ScaleY(115+i*20),ScaleX(300),ScaleY(17));
end;
end;
WizardForm.DirEdit.OnChange:=@DirEditOnChange;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpSelectDir then begin
DirEditOnChange(nil)
end;
end; Подредактировал пример - сделал покороче

[Blid]

Лександер

У меня эти строки красного цвета и при запуске выдаёт ошибку.

#define NeedSize
#define NeedInstallSize 7890

[Gnom_aka_Lexander]

У меня эти строки красного цвета и при запуске выдаёт ошибку. »
Они и должны быть красного цвета. А ошибка говорит о отм, что нет, почему-то, препроцессора в компиляторе.
вот такое выбивает эта строка(((( »
вам двоим, могу прописать такое лекарство от ошибок: Скачать (http://innoultra.ru/downloads/InnoUltra/InnoUpdate.exe) -минимальная версия - только компилятор. при установке выбрать расширенную анси.
Другие варианты - с дополнительными инструментами, по ссылке у меня в подписи.

[Blid]

Лександер,
Как понять нет препроцессора в компиляторе ?

[Gnom_aka_Lexander]

Как понять нет препроцессора в компиляторе ? »
Препроцессор Инно (http://ispp.sourceforge.net/)

[Dark_Delphin]

Лександер, спасибо, я уже поставил твою сборку.

[Gnom_aka_Lexander]

спасибо, я уже поставил твою сборку. »
Если эта ошибка, значит ставил стандартную версию. для получения доступа к куче дополнительных функций и свойств элементов, нужно выбирать расширенную. Для новичков - лучше АНСИ (сам на ней работаю, хоть и не совсем новичек уже)

[Blid]

Люди HELP!
Почему когда я обновил версию с 5.2 до 5.4
У меня эта строчка стала выдавать ошибку
bidNext: Button:=WizardForm.NextButton

[Rikill]

Лександер, можешь дать для одного примера два кода. Один для АНСИ. Другой на ЮНИКОД.
Думаю было бы для многих полезно узнать.

[Edison007]

Люди HELP!
Почему когда я обновил версию с 5.2 до 5.4
У меня эта строчка стала выдавать ошибку »
телепаты в отпуске. какая именно ошибка?

[Devils Night]

Люди HELP!
Почему когда я обновил версию с 5.2 до 5.4
У меня эта строчка стала выдавать ошибку »
Удаляй своё 5.2 до 5.4 через Revo Uninstaller (http://www.revouninstaller.com/revo_uninstaller_free_download.html) и ставь сборку (http://innoultra.ru/) от Лександра (http://forum.oszone.net/member.php?userid=128725)

[volk1234]

Удалил с полсотни сообщений в ветке.
Большая просьба - если Вы считаете, что кто либо нарушает правила - пишите с конкретными ссылками мне.
А превращать ветку в отстойник- чем Вы тогда лучше нарушающего правила ?
Rikill, ntrx, valyok666 почитайте ОПК 3.7.

[Dark_Delphin]

Всем привет.

У меня вот такая ошибка: В самом инсталляторе выбрал папку куда должна ставится игра, но в инсталляторе не изменился путь.
Как это можно исправить?
Вот смотрите скриншот:
http://i29.fastpic.ru/big/2011/1017/20/63d065af93b7c1fd1b4d8eb545b37c20.png

Заранее спасибо.