Пользователь
Сообщения: 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 при отсутствии соотв. секции, привязать к файлам компоненты и будет норм
|