Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)

Модерирует : gyra, Maz

Widok (23-11-2010 10:55): лимит страниц. продолжаем здесь  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

manuchu



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

procedure InitializeWizard();
begin
  WizardForm.Color:=Color;
  WizardForm.TypesCombo.Hide;
  WLabel1 := TLabel.Create(WizardForm);
  WLabel1.Left := ScaleX(0);
  WLabel1.Top := ScaleY(16);
  WLabel1.Width := ScaleX(301);
  WLabel1.Height := ScaleY(100);
  WLabel1.AutoSize := False;
  WLabel1.WordWrap := True;
  WLabel1.Font.Size := 10;
  WLabel1.Font.Style := [fsBold];
  WLabel1.Font.Color:= clWhite;
  WLabel1.ShowAccelChar := False;
  WLabel1.Caption := WizardForm.WelcomeLabel1.Caption;
  WLabel1.Transparent := True;
  WLabel1.Parent := WizardForm.WelcomePage;
 
  WLabel2 :=TLabel.Create(WizardForm);
  WLabel2.Top := ScaleY(76);
  WLabel2.Left := ScaleX(0);
  WLabel2.Width := ScaleX(301);
  WLabel2.Height := ScaleY(234);
  WLabel2.AutoSize := False;
  WLabel2.WordWrap := True;
  WLabel2.Font.Color:= clWhite;
  WLabel2.Font.Style := [fsBold];
  WLabel2.ShowAccelChar := False;
  WLabel2.Caption := WizardForm.WelcomeLabel2.Caption;
  WLabel2.Transparent := True;
  WLabel2.Parent := WizardForm.WelcomePage;
 
  FLabel1 := TLabel.Create(WizardForm);
  FLabel1.Left := ScaleX(0);
  FLabel1.Top := ScaleY(16);
  FLabel1.Width := ScaleX(301);
  FLabel1.Height := ScaleY(54);
  FLabel1.AutoSize := False;
  FLabel1.WordWrap := True;
  FLabel1.Font.Size := 10;
  FLabel1.Font.Style := [fsBold];
  FLabel1.Font.Color:= clWhite;
  FLabel1.ShowAccelChar := False;
  FLabel1.Caption := WizardForm.FinishedHeadingLabel.Caption;
  FLabel1.Transparent := True;
  FLabel1.Parent := WizardForm.FinishedPage;
 
  FLabel2 :=TLabel.Create(WizardForm);
  FLabel2.Top := ScaleY(76);
  FLabel2.Left := ScaleX(0);
  FLabel2.Width := ScaleX(301);
  FLabel2.Height := ScaleY(77);
  FLabel2.AutoSize := False;
  FLabel2.WordWrap := True;
  FLabel2.Font.Color:= clWhite;
  FLabel2.Font.Style := [fsBold];
  FLabel2.ShowAccelChar := False;
  FLabel2.Caption := ExpandConstant('{cm:finish}')
  FLabel2.Transparent := True;
  FLabel2.Parent := WizardForm.FinishedPage;
  end;
end;

Всего записей: 155 | Зарегистр. 22-03-2010 | Отправлено: 19:02 17-11-2010
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)
Widok (23-11-2010 10:55): лимит страниц. продолжаем здесь


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru