VPF::XP Manifest - Форум программистов

The MASTER

Дата 7.7.2005, 00:33 (ссылка)

(нет голосов)

Загрузка ...

Old master)

Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5

Здарова, у меня вопрос, как использовать XP Manifest только для отдельных компонентов?

--------------------

http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru

NoeR

Дата 7.7.2005, 00:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 233
Регистрация: 6.2.2005

Репутация: нет
Всего: нет

Ставить опред. компоненты, манифест на отдельные компоненты - наверное незя smile

--------------------

По факту пропажи мужа, возбуждено... Два соседа.Если у Вас проблемы с ребенком, спросите у жены, может, это не Ваши проблемы!>>> NoeR++ <<<

Quadr0

Дата 7.7.2005, 01:09 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 22:38

SoWa

Дата 7.7.2005, 09:08 (ссылка)

(нет голосов)

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74

Или использовать специальные готовые компоненты в стиле ХР.

--------------------

Всем добра smile

Akella

Дата 7.7.2005, 10:02 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Есть XPThemeManager, а также можно поставить Jedi (JVCL) - там есть отдельные компоненты, а также есть пакет XPControl

Girder

Дата 7.7.2005, 10:52 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 31
Всего: 155

Например... прописываем в Uses: XPMan далее... смотри код:

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses UxTheme;

procedure TForm1.FormCreate(Sender: TObject);
//Отключаем для всех TButton
var i:integer;
begin
 for i:=0 to ComponentCount-1 do
  if (Components[i] is TButton) then SetWindowTheme(TWinControl(Components[i]).Handle,'',''); 
end;

procedure TForm1.Button2Click(Sender: TObject);
//Включаем для всех TButton
var i:integer;
begin
 for i:=0 to ComponentCount-1 do
  if (Components[i] is TButton) then SetWindowTheme(TWinControl(Components[i]).Handle,nil,nil);
end;

end.

Это сообщение отредактировал(а) Girder - 7.7.2005, 10:54

--------------------

Как слышим, так и пишим.
Истина где-то там...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »