Смотрите видео ниже, чтобы узнать, как установить наш сайт в качестве веб-приложения на домашнем экране.
Примечание: Эта возможность может быть недоступна в некоторых браузерах.
это: жми сюда.. или так и задумано?
 Думаю, что нет, так не задумано, но мысль подобной реализации разноцветного лейбела а-ля ГОГ-Каталист у меня была, отказался, ввиду гемора великого, в плане необходимости учета невероятно огромной кучи ситуаций, в которых подобный косяк вылезет
 Думаю, что нет, так не задумано, но мысль подобной реализации разноцветного лейбела а-ля ГОГ-Каталист у меня была, отказался, ввиду гемора великого, в плане необходимости учета невероятно огромной кучи ситуаций, в которых подобный косяк вылезет 
ОО, а ты не думал про ситуацию, когда у пользователя будет нестандартная размерность экрана? Там это вообще прикольно смотреться будет. Примерно в таком-же стиле, только еще смешней. А в нашу эпоху здоровенных мониторов, чтоб чего-то увидеть на экране, людям приходится изменять размерность, отчего уплывают криво описанные кнопки, и смещаются относительно друг-друга, лейбелы с разноразмерными шрифтами. Так что советую искать другой способ, тем более он есть, лично потратил полминуты в гугле, чтоб проверить.просто эти лейблы скрыть забыл.
 
	 
	Сразу скажу, читай справку к ISDone3. и установка почему то идет до 500%
Смотри примеры как ребята делали...1. Сделать такое выделение текста в начале и конце установки
Пример:2. Лого переместить в левый нижний угол
procedure LogoOnClick(Sender: TObject); 
var ResCode: Integer; 
begin 
  ShellExec('', 'http://www.forum.ru-board.com', '' , '', SW_SHOW, ewNoWait, ResCode) 
end; 
 
procedure InitializeWizard(); 
var 
  BtnPanel: TPanel; 
  BtnImage: TBitmapImage; 
begin 
  ExtractTemporaryFile('Button.bmp') 
     
  BtnPanel:=TPanel.Create(WizardForm) 
  with BtnPanel do begin 
    Left:=20 
    Top:=325 
    Width:=132 
    Height:=27 
    Cursor:=crHand 
    OnClick:=@logoOnClick 
    Parent:=WizardForm 
  end 
  BtnImage:=TBitmapImage.Create(WizardForm) 
  with BtnImage do begin 
    AutoSize:=True; 
    Enabled:=False; 
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp') 
    Parent:=BtnPanel 
  end 
end;[/MORE]
[quote="Suhov, post: 6334"]3. и установка почему то идет до 500%[/quote]Цитата:
[quote="Krinkels, post: 6335"]Сразу скажу, читай справку к ISDone[/quote]
[b]Suhov[/b], ЗЫ: Вот [URL="http://innoultra.ru/?page_id=18/"]сайт[/URL] с примерами!function GetSystemMetrics(nIndex:Integer):integer; external 'GetSystemMetrics@user32.dll stdcall delayload'; 
 
procedure InitializeWizard(); 
begin 
 //Выносим кнопку "Отмена" на передний план  
 WizardForm.CancelButton.BringToFront; 
end; 
 
 procedure CurPageChanged(CurPageID: Integer); 
 begin 
  if CurPageID=wpInstalling then 
   begin 
    WizardForm.BorderStyle:=bsDialog; 
    WizardForm.MainPanel.Visible:=False; 
    WizardForm.Width:=ScaleX(320); 
    WizardForm.Height:=ScaleY(127); 
    WizardForm.InnerNotebook.Left:=ScaleX(7); 
    WizardForm.InnerNotebook.Top:=ScaleY(7); 
    WizardForm.InnerNotebook.Width:=ScaleX(300); 
    WizardForm.StatusLabel.Left:=ScaleX(0); 
    WizardForm.StatusLabel.Top:=ScaleY(0); 
    WizardForm.StatusLabel.Width:=WizardForm.InnerNotebook.Width; 
    WizardForm.FileNameLabel.Left:=ScaleX(0); 
    WizardForm.FileNameLabel.Top:=ScaleY(17); 
    WizardForm.FileNameLabel.Width:=WizardForm.InnerNotebook.Width; 
    WizardForm.ProgressGauge.Top:=ScaleY(37); 
    WizardForm.ProgressGauge.Left:=ScaleX(0); 
    WizardForm.ProgressGauge.Width:=WizardForm.InnerNotebook.Width; 
    WizardForm.CancelButton.Left:=ScaleX(122); 
    WizardForm.CancelButton.Top:=ScaleY(70); 
    WizardForm.Left:=GetSystemMetrics(16)-ScaleX(330); 
    WizardForm.Top:=GetSystemMetrics(17)-ScaleX(110); 
       WizardForm.Bevel.hide;  
       WizardForm.Bevel1.hide;     
    end; 
if CurPageID=wpFinished 
 then 
  begin 
  WizardForm.Width:=502;{Размер окна по горизонтали} 
  WizardForm.Height:=392;{Размер окна по вертикали} 
  WizardForm.Position:=poScreenCenter; {Возврат в исходное состояние} 
 end 
end;#else
#define A "A"
PAnsiChar = PChar1. инсталятор теперь не черный
2. лого написано неправильно >.< (SuhoW)

 
	 
	KorwiN лого в прогрессбарe >.<

