Я использую Delphi 6. В программу я внедрил XPStyle.Res с манифестом,
поэтому в программе все отображается в стиле XP. У меня возникла проблема:
обычные кнопки TButton отображаются в стиле XP, а TBitBtn и TSpeedButton
отображаются "квадратными", не в стиле XP.
Я создал потомка TBitBtn:
unit AdvBitBtn;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls, Buttons,
Graphics;
type
TAdvBitBtn = class(TBitBtn)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property Align;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('AdvButtons', [TAdvBitBtn]);
end;
{ TAdvBitBtn }
end.
Как сделать, чтобы он отображался в стиле XP? Я так понимаю, что надо перекрыть метод
Paint. Я смотрел модуль buttons.pas, но разобраться не смог.
Может быть, кто-нибудь это делал?
Заранее спасибо!