Transparenz unter Vista probleme

[delphinia]

Hi,

ich habe unter Vista das Problem, dass mir die Farbe "Fuchsia" welche ich für Transparenz benutzte angezeigt wird unter XP (bedingt es gibt eingie user die nen Vista-Style beutzten die das selbe Problem haben) ist alles ok


Siehe Bild 1 unter xp_1 wie es sein sollte und Bild vista_1 unter Vista wie es nicht sein sollte,,,

[delphinia]

Erledigt

[Zacherl]

Teilst du uns auch mit, wie?

[delphinia]

hmmm :gruebel: :gruebel:
Na gut aber nur weil ihr es seid hihihi ;-)
Nein scherz...

Google hat geholfen und habe das gefunden:

Delphi-Quellcode:

procedure TForm1.DisableFontSmoothing(LabelName: TLabel);
var
  tagLOGFONT: TLogFont;
begin
  GetObject(LabelName.Font.Handle, SizeOf(TLogFont), @tagLOGFONT);
  tagLOGFONT.lfQuality  := NONANTIALIASED_QUALITY;
  LabelName.Font.Handle := CreateFontIndirect(tagLOGFONT);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DisableFontSmoothing(Label2);
end;