26.03.2009, 20:33
|
|
Активный
|
|
Регистрация: 22.09.2007
Адрес: SPb
Сообщения: 228
Версия Delphi: 7, 2009, XE2
Репутация: 70
|
|
можно путем "отключения" тем для каждого контрола на форме.
Код:
uses
UxTheme;
procedure TForm1.FormCreate(Sender: TObject);
begin
InitThemeLibrary;
SetWindowTheme(Button1.Handle, nil, '');
SetWindowTheme(Memo1.Handle, nil, '');
end;
__________________
Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра.
|