Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Пользователь


Сообщения: 62
Благодарности: 19

Профиль | Отправить PM | Цитировать


R.i.m.s.k.y., ссылка не прямая была, а на просмотр. терь норм
через [Components] такое не сделать
я кое-чего сделал похожее через [код]. спрятал TypeCombo и поднял повыше ComponentsList, подобавлял элементы. вот что вышло
читать дальше »
Код: Выделить весь код
[коде]
var
lang,langrus,langeng,sound,soundrus,soundeng : TComponent;

procedure InitializeWizard();
begin
  WizardForm.TypesCombo.Hide;
  WizardForm.ComponentsDiskSpaceLabel.Hide;
  WizardForm.ComponentsList.Top:= WizardForm.ComponentsList.Top - 20;
  lang:=WizardForm.ComponentsList.AddCheckBoxEx('язык игры','',0,true,false,true,true,WizardForm,true)
  langrus:=WizardForm.ComponentsList.AddRadioButton('русский','',1,false,True,WizardForm)
  langeng:=WizardForm.ComponentsList.AddRadioButton('английский','',1,false,True,WizardForm)
  sound:=WizardForm.ComponentsList.AddCheckBoxEx('язык озвучки','',0,true,false,true,true,WizardForm,true)
  soundrus:=WizardForm.ComponentsList.AddRadioButton('русский','',1,false,True,WizardForm)
  soundeng:=WizardForm.ComponentsList.AddRadioButton('английский','',1,false,True,WizardForm)
end;

про with ... do begin end знаю, можете не писать

теперь надо как-то отображать страницу SelectComponentsPage при отсутствии соотв. секции, привязать к файлам компоненты и будет норм

Отправлено: 15:43, 20-05-2011 | #1654