| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
KOL: EditBox и темы WinXP [Delphi, Windows]
kvv1974 © (2002-10-11 11:21:00)Здравствуйте.
Есть на форме компонент EditBox и компонет TKOLMHXP.
При запуске под XP EditBox не отрисовывается в соответствии с текущей темой. остальные контролы (buttons,checkbox,groupbox) отображаются правильно. Как решается это проблема?
Спасибо.
Gandalf (2002-10-14 21:23:00) [1]>Код программы выслал на твой адрес.
Ждемсс...
kvv1974 (2002-10-14 09:43:00) [2]Спасибо, в этом примере помогло, но в форме, созданной визуально, с помощью MKC, EditBox все равно не отрисовался в соответствии с темой. Код программы выслал на твой адрес.
Gandalf (2002-10-11 23:19:00) [3]>Вот в догонку еще одна странность:
Странности, нет - MHXP только для MKC - , если хочешь использовать в КОЛ, то помимо ресурса добавь строку:
InitCommonControls;
kvv1974 (2002-10-11 14:34:00) [4]Вот в догонку еще одна странность:
program test;
uses windows,kol;
{$R form1_mhxp1.res}
var Form,P: PControl;
begin
Applet := NewApplet("Autorun Builder");
Form := NewForm(Applet,"test").SetSize(200,200).CenterOnParent;
NewEditBox(Form,[]).SetPosition(10,10);
NewButton(Form,"ok").SetPosition(10,50).SetSize(100,25);
NewCheckBox(Form,"ch1").SetPosition(10,100);
Run(Applet);
end.
Коментируем вставку ресурса с манифестом - отображаются все 3 контрола, раскоментируем - остается EditBox.
Gandalf (2002-10-11 11:34:00) [5]Странно. Можешь прислать код проги?
Gandalf@kol.mastak.ru (или Gendalf_the_gr@mail.ru)
| |
