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.