| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
KOL и темы XP [Delphi, Windows]
Turbid © (2006-12-12 02:15:00)Если использовать темы XP, то при создании объектов на TabControl происходит бяка - группа нес тем цветом, кнопки вообще не видать:
MainWnd := NewForm(Applet, 'Project');
MainWnd.Style := WS_CAPTION or WS_SYSMENU;
MainWnd.Font.FontName := 'MS Shell Dlg';
MainWnd.Font.FontHeight := -11;
TabCtrl := NewTabControl(MainWnd, ['Hello World'],
[], nil, 1).Shift(8, 8).Size(353, 353);
DevGroup := NewGroupbox(TabCtrl.Pages[0], 'General').Size(100, 100).Shift(8, 8);
TestBtn := NewButton(TabCtrl.Pages[0], '&Button').Size(75, 25).Shift(150, 150);
MainWnd.Size(377, 432);
MainWnd.CenterOnParent;
MainWnd.Visible := True;
Run(MainWnd);
Что я делаю не так? Манифест из KOLXPMan...
Turbid (2006-12-13 23:26:00) [41]Обращаюсь к автору Владимиру К. и другим гуру: возможно ли исправить сей досадный глюк?
Psychedelic (2006-12-12 15:09:00) [42]Используйте нестандартный Tab. В компонентах лежит. Мне также не нравитcя отрисовка Taba . Вот потому решил сделать покрасивее.
На днях закончу.
Turbid (2006-12-12 14:47:00) [43]Кстати у меня ошибка, надо:
TestBtn := NewButton(DevGroup, '&Butt... Но это ситуации не меняет.
Turbid (2006-12-12 08:51:00) [44]>>да кнопка в черной рамке...
И вид уже непотребный.
Обидно то, что на vcl все красиво...
Gr (2006-12-12 05:32:00) [45]Все бы ничего да кнопка в черной рамке...
TabCtrl := NewTabControl(MainWnd, ['Hello World'], [], nil, 1).Shift(8, 8).Size(353, 353);
TabCtrl.Pages[0].Transparent := true;
DevGroup := NewGroupbox(TabCtrl.Pages[0].Parent, 'General').Shift(8,26).SetSize(300,300);
DevGroup.Transparent := true;
TestBtn := NewButton(TabCtrl.Pages[0],'&Button').SetPosition(60,60).SetSize(75,25);
TestBtn.Transparent := true;
AndreyRus (2006-12-12 03:20:00) [46]Нормальная отрисовка табов при использовании тем OS всегда было проблемой. KOL здесь по большому счету ни причем. IMHO, хотя мог бы исправлять этот баг. Сдается мне, что здесь дело во флагах создаваемого окна, IMHO :) Это не добавит много кода.
| |
Страницы: 