Form mit PNG Skin und VCL Controls

[Coder90]

Edit//
turboPASCAL hat wahrscheinlich eine bessere Lösung gefunden
http://www.delphipraxis.net/internal...=606056#606056

Hi
Nach endlosem rumgefriemel hab ichs endlich geschafft.

http://img134.imageshack.us/img134/785/skinbl1.png
Screenshot 2

Eine transparente PNG Form mit VCL Controls.
Kein geruckel beim verschieben und sehr CPU freundlich.
Perfekt geeignet für kleine Utilities und Widgets.
Und das Beste: es ist kostenlos.

Die ganze Sache besteht aus 2 Forms.
Einmal die Hauptform mit den Controls. Durch TransparentColor wird der Hintergrund durchsichtig gemacht. Nachteil: Komponenten mit Transparents wie die XP Buttons werden mit Rand dargestellt.
Auf der 2. Form wird die PNG per Graphics32 angebracht. Dadurch gehn die VCL Controls verloren. Deshalb auf einer extra Form.
Durch ein bischen friemelei wird die erste Form immer vor der zweiten Form gehalten und beim verschieben mitbewegt.

Zum kompilieren braucht man die Graphics32, die GR32_PNG.pas (unten) und PNGImage.

Der Source ist nicht der beste.
Über Verbesserungvorschläge würd ich mich freuen.
Danke

Crossposting DF

MfG, Coder90

[jakobwenzel]

@Schneehasi: Graka-Overlays deaktivieren

[julben]

Ist es normal, dass die Schrift so "unsauber" ist (also mit dem Rand)? Das ist bei der Demo-App und bei meiner Selbsterstellten. Auf Coder90's Screenshot isses ja ganz sauber.

[Coder90]

Schau dir lieber mal die Lösung von turboPASCAL an.
Ich glaube die ist besser als meine.
Bin nur leider noch nicht dazu gekommen das ausgiebig zu testen.

MfG

[julben]

Da hat die Schrift auch den pinken Rand.
Ich vermute ma, liegt an Windows, hab ja die schon kompilierten Demos genommen.

[Coder90]

Das liegt daran, weil bei dir die Schriftart am Rand halbtranzparente Pixel hat.
Der gleiche Grund warum man auch den XP-Style nicht benutzen kann.

Versuch mal in deinem Programm eine Schriftart einzustellen die keine halbtranzparente Pixel am Rand hat.

MfG

[julben]

Aaaahhhh... Halbtransparent - ClearType.
Fortsetzung: http://www.delphipraxis.net/internal...=680297#680297

edit: Oder kann man die Schrift ohne dieses Problem glätten?

[Basic-Master]

Danke für die Unit, sieht sehr, sehr gut aus

Man kann überings das 1. transparente Fenster weglassen, wenn man einfach nach dem draggen UpdateLayeredWindow() mit den gleichen Parametern wie in FormCreate aufruft, ist mir gerade durch experiementieren aufgefallen

Edit: Argh, dafür sieht man danach die VCLs nicht mehr, Form wird wohl doch benötigt

[turboPASCAL]

Guckst Du mal Post #6 .

[Basic-Master]

Hmm, mein Fehler Die 1. Methode hat aber doch was, damit kann man z.B. Browser oder andere Controls masken und gleichzeitig Transparenz beibehalten.

[Mark90]

Hi Coder 90.

ich hab gerade dein Projekt getestet. Es ist wirklich Hammer.

DANKE