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

A1EXXX · Отправлено: **08:25, 15-09-2009** | #**111**

Цитата Serega:

попробуйте так:
Код:
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpInfoBefore then WizardForm.Font.Name:= 'Verdana';
if CurPageID = wpLicense then WizardForm.Font.Name:= 'Verdana';
end; »

Почти то, но мне надо поставить не другой шрифт, о ставить стандартный (т.к. почему-то шрифт меняется и в rtf документе)...
Может есть какое-то обозначение для стандартного шрифта, чтоб поставить его вместо Vеrdana???

Или задать процедуру игнорирования смены шрифта на указанных страницах???

Berline · Отправлено: **14:31, 15-09-2009** | #**112**

В общем, проблемы пока с кнопками выделить все отменить все...
Смысл следующий - галочки ставятся - замечательно - но! размер не перессчитывается(если руками галочки проставить - все ок), и если галочки проставлены кнопкой - компоненты не устанавливаются - если руками - все ок!

pa60t9ra · Отправлено: **15:10, 15-09-2009** | #**113**

И вдовесок
http://pic.ipicture.ru/uploads/090915/pXIVjEvVUu.jpg
Не совсем корректно отображается...

BlackSelf · Отправлено: **19:58, 15-09-2009** | #**114**

Снова здравствуйте. Возможно сделать обводку текста? То есть создается лэйбл с белым шрифтом и сделать вокруг этого лэйбла обводку, например, в 1 пиксель черного цвета.

msatmb · Отправлено: **21:22, 15-09-2009** | #**115**

BlackSelf,
Попробуй так

Код:

procedure InitializeWizard(); 
var 
Panel1: TPanel; 
begin 
Panel1 := TPanel.Create(WizardForm); 
with Panel1 do 
begin 
Panel1.Parent := WizardForm; 
Panel1.Left := ScaleX(1); 
Panel1.Top := ScaleY(315); 
Panel1.Width := ScaleX(165); 
Panel1.Height := ScaleY(46); 
Panel1.TabOrder := 0; 
Panel1.Color := clWhite; 
Panel1.BevelInner := bvLowered; 
Panel1.BevelOuter := bvRaised; 
Panel1.BorderStyle := bsSingle; 
end;
end;

Или ты имел ввиду по контору букв? Если про буквы то незнаю, я только учусь

И посмотри пожалуйста мое сообщение

BlackSelf · Отправлено: **21:24, 15-09-2009** | #**116**

msatmb, по контуру букв (изначально неправильно выразился).

Serega · Конфигурация компьютера

A1EXXX, попробуйте:

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
  WizardForm.Font.Name:= 'Tahoma';
  if CurPageID = wpInfoBefore then WizardForm.Font.Name:= 'Microsoft Sans Serif';
  if CurPageID = wpLicense then WizardForm.Font.Name:= 'Microsoft Sans Serif';
end;

Цитата Berline:

Смысл следующий - галочки ставятся - замечательно - но! размер не перессчитывается »

пока не знаю, намдо подумать.

Цитата Berline:

и если галочки проставлены кнопкой - компоненты не устанавливаются »

у меня всё нормально устанавливается...

Цитата pa60t9ra:

Не совсем корректно отображается... »

Пример скрипта, это всего лишь - пример того, что можно сделать.
Вам никто не мешает двигать кнопки.

Цитата BlackSelf:

Возможно сделать обводку текста? То есть создается лэйбл с белым шрифтом и сделать вокруг этого лэйбла обводку, например, в 1 пиксель черного цвета. »

Теоретически возможно, с помощью API'шных функций, но ниразу не делал...

A1EXXX · Отправлено: **00:09, 16-09-2009** | #**118**

Цитата Serega:

A1EXXX, попробуйте:
Код:
procedure CurPageChanged(CurPageID: Integer);
begin
WizardForm.Font.Name:= 'Tahoma';
if CurPageID = wpInfoBefore then WizardForm.Font.Name:= 'Microsoft Sans Serif';
if CurPageID = wpLicense then WizardForm.Font.Name:= 'Microsoft Sans Serif';
end; »

Всё равно не то.... блин... я уже не знаю... а можно с помощью подобного кода, сменить шрифт не на всей странице, а только в документе, который будет отображаться???

Serega, спасибо за помощь!!! Придумал способ решения своей проблемы!!! (твой код меня вдохновил

) Сделаю так:

Цитата:

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpWelcome then WizardForm.Font.Name:= 'Tahoma';
if CurPageID = wpSelectDir then WizardForm.Font.Name:= 'Tahoma';
end;

для всех страниц, кроме wpLicense и wpInfoBefore, тогда всё будет как я хотел!!!

Denkxx · Отправлено: **14:09, 16-09-2009** | #**119**

Привет. Такая задача. Нужно что бы когда создавался ярлык к нему дописывался параметр запуска. К примеру: в ярлыке в строке объект "C:\Crystal.exe" нужно дописывать movie.avi
тогда при запуске сразу начинается проигрывание файла movie.avi, находящегося в папке с программой.
Кто подскажет как дописывать параметр при создании ярлыка? Поиск не помог (

A1EXXX · Отправлено: **15:37, 16-09-2009** | #**120**

Цитата Denkxx:

Привет. Такая задача. Нужно что бы когда создавался ярлык к нему дописывался параметр запуска. К примеру: в ярлыке в строке объект "C:\Crystal.exe" нужно дописывать movie.avi
тогда при запуске сразу начинается проигрывание файла movie.avi, находящегося в папке с программой.
Кто подскажет как дописывать параметр при создании ярлыка? Поиск не помог ( »

Можешь написать бантик с именами файлов, которые необходимо открыть, и затем создавать ярлык для него...