Думаю, что нет, так не задумано, но мысль подобной реализации разноцветного лейбела а-ля ГОГ-Каталист у меня была, отказался, ввиду гемора великого, в плане необходимости учета невероятно огромной кучи ситуаций, в которых подобный косяк вылезетэто: жми сюда.. или так и задумано?
ОО, а ты не думал про ситуацию, когда у пользователя будет нестандартная размерность экрана? Там это вообще прикольно смотреться будет. Примерно в таком-же стиле, только еще смешней. А в нашу эпоху здоровенных мониторов, чтоб чего-то увидеть на экране, людям приходится изменять размерность, отчего уплывают криво описанные кнопки, и смещаются относительно друг-друга, лейбелы с разноразмерными шрифтами. Так что советую искать другой способ, тем более он есть, лично потратил полминуты в гугле, чтоб проверить.просто эти лейблы скрыть забыл.
Сразу скажу, читай справку к 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 = PChar
Держи: http://rghost.ru/362773661. инсталятор теперь не черный
2. лого написано неправильно >.< (SuhoW)
так исправь!!!KorwiN лого в прогрессбарe >.<