TPNGBitBtn und XPStyle

[Die Muhkuh]

Hi,

ich hab hier ein komisches Phänomen. Ich hab mir von www.thany.org die PNG-Komponenten runtergeladen. Da ich ja TD benutze, muss ich mein Zeugs dynamisch erzeugen, soweit kein Problem.

Auch PNG lassen sich darauf anzeigen etc. pp. Das Problem ist jetzt nur folgendes:

Trotz einbinden des XPMan, hat der Button kein XP-Style. Was allerdings noch komischer ist: Wenn Detlef (DeddyH) einen Button dynamisch mit Delphi7 erzeugt, hat der XPStyle. Bei mir (TurboDelphi) nicht.

Er compiliert zwar unter XP und ich unter Vista, aber wenn ich meine Exe auf einem XP-PC ausführe, hat der Button kein XPStyle.

Jetzt stellt sich mir die Frage, wie ich den Button in XPStyle hinbekomme. Hat jemand eine Idee?

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    PNG: TPNGBitBtn;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  PNG := TPNGBitBtn.Create(Self);
  PNG.Parent := Self;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  PNG.Free;
end;

end.