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

[VASYAKRN]

да с етим я загнул
http://inno.at.ua/load/utility/game_stripts/f_e_a_r_3/9-1-0-131
но все остальни мои закоси

[insombia]

VASYAKRN хорошо поверю
P.S. http://inno.at.ua/load/utility/game_stripts/bkm_torrent_convintion/9-1-0-172 удали от тудого

[VASYAKRN]

+ спи**ил мой скрипт и не удаляешь со своего сайта »
какой?

VASYAKRN хорошо поверю
P.S. http://inno.at.ua/load/utility/game_...tion/9-1-0-172 удали от тудого »
сделано

[Gnom_aka_Lexander]

сделано »
Все 4 моих тоже убирай. было-же сказано - я не хочу иметь ничего общего с твоим сайтом.
этот (http://inno.at.ua/load/utility/game_stripts/cs_1_6/9-1-0-126), этот (http://inno.at.ua/load/utility/game_stripts/insertmag_4/9-1-0-149), этот (http://inno.at.ua/load/utility/game_stripts/minecraft/9-1-0-159), и этот (http://inno.at.ua/load/utility/game_stripts/s_t_a_l_k_e_r_narodnaja_soljanka/9-1-0-402).

[VASYAKRN]

услуга за услугу
Соедините пожалста ети два скрипта
http://rghost.ru/24665331
http://rghost.ru/24665211 »

[Gnom_aka_Lexander]

услуга за услугу »
Это не просьба об услуге. Это просьба вернуть украденное.

[VASYAKRN]

не хочешь, как хочешь

[Gnom_aka_Lexander]

А реально ли сделать чтоб и DescCtrl.dll работал (описание компонентов), и чтоб компоненты можно было сворачивать?
С DescCtrl.dll невозможно.

[insombia]

VASYAKRN лучше убери его скрипты а то хрен потом кто подскажет тебе что-то

[VASYAKRN]

VASYAKRN лучше убери его скрипты а то хрен потом кто подскажет тебе что-то »
подскажите сейчас и уберу а потом могу зогегистрируватса под другим именем

[Gnom_aka_Lexander]

подскажите сейчас и уберу а потом могу зогегистрируватса под другим именем »
Ну, тебя легко узнать по любым именем. А помогать не буду в любом случае. Потерплю. Терпеть я умею. И за свои права бороться тоже.

[VinTagE]

VASYAKRN,
Дам совет: выучи русский язык, ото читать больно.

[Raf-9600]

А реально ли сделать чтоб и DescCtrl.dll работал (описание компонентов), и чтоб компоненты можно было сворачивать?»
С DescCtrl.dll невозможно. »
Тогда такой вопрос\просьба, ктонить может реализовать возможность вставки комментариев к компонентам, без использования DescCtrl.dll?
Мне раньше говорили, что такое возможно Лови пример как это сделать без библиотеки (компилируется на последней версии (Inno Setup build 110319)). http://ifolder.ru/25414377 » но самому, к сожалению, не хватает знаний переделать пример, под свои нужды.

P.S.
Если когонить заинтересовало предложение касательно инвайта на форум 0day.kiev.ua, или бублики с их трекера, то оно ещё активно. Больше, мне, наверно, нечего предложить.

[Shegorat]

Тогда такой вопрос\просьба, ктонить может реализовать возможность вставки комментариев к компонентам, без использования DescCtrl.dll?
Мне раньше говорили, что такое возможно »
Угу, такое возможно. Я такое уже делал. Вот код, требуется расширенная версия Inno Setup

[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
ComponentsListTVStyle=true

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[CustomMessages]
russian.ComponentsName1=Моя программа™
russian.ComponentsName2=Помощь
russian.ComponentsName2_1=Документация
russian.ComponentsName2_2=Руководство пользователя
russian.ComponentsInfoPanel1=Описание
russian.ComponentsInfoPanel2=Наведите курсор мыши на компонент, чтобы прочитать его описание.
russian.ComponentsDescription1=Устанавливается обязательно
russian.ComponentsDescription2=Помощь
russian.ComponentsDescription3=Прочитать документацию
russian.ComponentsDescription4=Прочитать руководство пользователя

[Components]
Name: readme; Description: Справка; Types: full custom;
Name: readme\en; Description: "Английская "; Types: full custom; Flags: fixed
Name: readme\ru; Description: Русская; Types: full

;*************************************************************************
Name: plugs; Description: Плагины; Types: full ; Flags: collapsed
Name: plugs\wlx; Description: Внутреннего просмотра; Types: full
Name: plugs\wcx; Description: Архиваторные; Types: full
Name: plugs\wfx; Description: Системные; Types: full
Name: plugs\wfx\CanonCam; Description: CanonCam; Types: full
Name: plugs\wfx\PluginManager; Description: PluginManager; Types: full
Name: plugs\wfx\Registry; Description: Registry; Types: full
Name: plugs\wfx\Services; Description: Services; Types: full
Name: plugs\wfx\StartupGuard; Description: StartupGuard; Types: full
Name: plugs\wdx; Description: Другие; Types: full

[ Code]
type
TComponentDesc = record Description: String; Index: Integer; end;

var
Descs: array of TComponentDesc;
Info: TNewStaticText;
InfoCaption: TNewStaticText;
InfoPanel: TPanel;
Indx: Integer;

procedure ShowDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);
var i: Integer;
begin
Indx:=-1;
for i:= 0 to GetArrayLength(Descs)-1 do begin
if (Descs[i].Index=Index) then begin Indx:=i; Break end; end;
if (Indx >=0)and(Area=iaItem) then Info.Caption:= Descs[Indx].Description else Info.Caption:= ExpandConstant('{cm:ComponentsInfoPanel2}');
end;

procedure AddDescription(AIndex: Integer; ADescription: String);
var i, k: Integer;
begin
i:= GetArrayLength(Descs); SetArrayLength(Descs, i+1);
Descs[i].Description:= ADescription; Descs[i].Index:= AIndex-1
end;

procedure InitializeWizard();
begin
WizardForm.TypesCombo.Visible:=False;
WizardForm.ComponentsList.Height := ScaleY(181) - WizardForm.TypesCombo.Top;
WizardForm.ComponentsList.Top := WizardForm.TypesCombo.Top;
WizardForm.ComponentsList.Width := ScaleX(417);
WizardForm.ComponentsList.OnItemMouseMove:= @ShowDescription

InfoPanel := TPanel.Create(WizardForm);
InfoPanel.Parent := WizardForm.SelectComponentsPage;
InfoPanel.Caption := '';
InfoPanel.Top := ScaleY(190);
InfoPanel.Left := ScaleX(0);
InfoPanel.Width := ScaleX(417);
InfoPanel.Height := ScaleY(40);
InfoPanel.BevelInner := bvRaised;
InfoPanel.BevelOuter := bvLowered;
InfoCaption := TNewStaticText.Create(WizardForm);
InfoCaption.Parent := WizardForm.SelectComponentsPage;
InfoCaption.Caption := ExpandConstant('{cm:ComponentsInfoPanel1}');
InfoCaption.Left := ScaleX(7);
InfoCaption.Top := InfoPanel.Top - ScaleY(6);
InfoCaption.Font.Color := clActiveCaption;

Info := TNewStaticText.Create(WizardForm);
Info.Parent := InfoPanel;
Info.AutoSize := False;
Info.Left := ScaleX(6);
Info.Width := ScaleX(403);
Info.Top := ScaleY(12);
Info.Height := ScaleY(24);
Info.Caption := ExpandConstant('{cm:ComponentsInfoPanel2}');
Info.WordWrap := true;

AddDescription(1, 'Справка'); //первый параметр - это номер компонента, идет последовательно от начала записи компонентов
AddDescription(2, 'Английская справка'); //Второй параметр - это собственно описание компонента
AddDescription(3, 'Русская справка');
AddDescription(4, 'Плагины');
AddDescription(5, 'Внутреннего просмотра');
AddDescription(6, 'Архиваторные');
AddDescription(7, 'Системные');
AddDescription(8, 'CanonCam');
AddDescription(9, 'PluginManager');
AddDescription(10, 'Registry');
AddDescription(11, 'Services');
AddDescription(12, 'StartupGuard');
AddDescription(13, 'Другие');

end;


VASYAKRN
Лучше послушай что тебе говорят. Ты может и зайдешь под другой учеткой, но тебя легко узнать. Да и удали те скрипты что ты скачал с форума http://www.forum.krinkels.ru

[R.i.m.s.k.y.]

я смотрю тут есть несколько репакеров игр:
вот вы мучаетесь делаете скрипты с красивыми картинками, музыкой и прочим медиапр0ном, но не знаете чту нужно нам - игрофанам на самом деле, а нужно всего то найти папку d:\games и по-умолчанию предлагать ставить туда, а не с-програмфилесы
такая мелочь зарулит в минуса любую оформлялку, которая еще в половине случаев дает ошибки "Rage out of bounds"

[VASYAKRN]

как сделать такии переходи в окне
http://s017.radikal.ru/i420/1110/c2/85b0842f61e6.jpg

[VinTagE]

VASYAKRN
как сделать такии переходи в окне
Ручками - ручками и головой :wink:

[Rikill]

VASYAKRN, в слайд шоу от экспедитора есть варианты переходов.
VinTagE, тут я думаю уже ничего не поможет. У пациента последняя стадия ФГМ и переизбыток ЧСВ. Лечили убер-сортировщиками. Не помогло. Будем игнорировать пациента.
R.i.m.s.k.y., можешь пояснить. Что ты имеешь ввиду? Лично я люблю устанавливать в с-програмфайлзы :)
Лександер, сразу вспоминается shepards :boks:

[Raf-9600]

Угу, такое возможно. Я такое уже делал. Вот код, требуется расширенная версия Inno Setup »
Скомпилировал, но описаний компонентов, я там не нахожу.

http://i31.fastpic.ru/thumb/2011/1009/66/5ba4634cd491a189a9e556032b71ad66.jpeg (http://fastpic.ru/view/31/2011/1009/5ba4634cd491a189a9e556032b71ad66.jpg.html)

[Rikill]

Raf-9600, значит не правильно сделал из простого инно в рестулз.
Специально для тебя скомпилировал. (http://rghost.ru/24816171)
[hr]
Друзья, Shegorat работает над библиотекой (http://rghost.ru/24736811) для правильного отображения шрифта в инсталляторе. Просим протестировать. В архиве два инсталлятора. Простой и от Shegorat. Напишите о результатах работ обеих библиотек!
Прошу не игнорировать, а тестировать! Многие будут вам благодарны!