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

**Gandalfus**

Warum benutzt du nicht Regions?

**himitsu**

Ich würd mal sagen, weil Regions keine Teiltransparenz zulassen?

Dennoch ist es nicht gerade 'ne ideale Lösung

(hab aber och nüschts Besseres)

PS: das mit dem "Rahmen" um abgerundete (XP)-Controls tauchst auch schon auf, wenn man DoubleBuffered aktiviert . liegt halt daran, daß beim Zeichnen der Hintergrund nicht vorhanden ist und daher dieser als Schwarz gezeichnet wird

**Coder90**

Zitat von himitsu:

Dennoch ist es nicht gerade 'ne ideale Lösung

Aber die einzige die ich kenne.

Hab bisher nirgendwo eine bessere gesehn.

**BrainCracked**

Ich habe die Graphics32 jetzt installiert. Aber bei der GR32_PNG.pas kommt immer eine Fehlermeldung. Soll die Komponente noch in das Package von Graphics32? Wie macht man das? Ich nutze Delphi 2005 PE.

**turboPASCAL**

Zugegeben, die Idee ist nicht schlecht aber auch nicht neu.

Ich gehe einen anderen Weg, einfach das Bitmap der Form verwenden ( FormX.GetFormImage ).
Das wird dan per Transparentcolor auf das "Pngfenster" gezeichnet.

Im Anhang mal ein Demoprojeckt. Aber Achtung, irgrnd wo ist noch ein dickes Memoryleak.
Entweder in meinem Programm oder in der GR32.Pas.

An sonsten bleibt nur noch der Weg sich die Controld wie Buttons, Labels usw. neu zu schreiben und diese auf das Bitmap zu zeichnen.

**Coder90**

@BrainCracked: Es reicht wenn die GR32_PNG.pas in einem Verzeichniss ist, welches Delphi im Suchpfad hat
oder im gleichen Ordner wie das Projekt, dass sie verwendet.
Auserdem musst du noch

PNGImage installieren.
Ich hab auch D2005PE und es funktioniert. ^^

@turboPASCAL:
Gute Idee ABER deine Form lässt sich nicht verschieben.
Meine schon. (Einfach irgendwo aufs PNG klicken)
Edit// Werds nochmal unter die Lupe nehmen

**turboPASCAL**

Zitat von Coder90:

@turboPASCAL:
Gute Idee ABER deine Form lässt sich nicht verschieben.
Meine schon. (Einfach irgendwo aufs PNG klicken)

...

Hatte ich bei dem Demo auch nicht vorgesehen, das verschieben ist das einfachste.
DAs Prob. war nur die Form ohne Form aber mit Controls.

**Schneehasi**

leg das transparente Form mal über nen Video ... dann ist leider Schluss mit transparenz

gibt es dafür nen Weg, oder ist das aussichtslos ?

**delphinia**

gibt es ne möglichkeit das auch für D5 zu machen?

Gandalfus Delphi 2006 Professional	#2 25. Aug 2006, 14:41 Warum benutzt du nicht Regions?
	Zitat

Coder90 Delphi 2007 Architect	#4 25. Aug 2006, 15:00 Zitat von himitsu: Dennoch ist es nicht gerade 'ne ideale Lösung Aber die einzige die ich kenne. Hab bisher nirgendwo eine bessere gesehn.
	Zitat

BrainCracked	#5 26. Aug 2006, 18:26 Ich habe die Graphics32 jetzt installiert. Aber bei der GR32_PNG.pas kommt immer eine Fehlermeldung. Soll die Komponente noch in das Package von Graphics32? Wie macht man das? Ich nutze Delphi 2005 PE.
	Zitat

turboPASCAL Delphi 6 Personal	#8 11. Sep 2006, 22:36 Zitat von Coder90: @turboPASCAL: Gute Idee ABER deine Form lässt sich nicht verschieben. Meine schon. (Einfach irgendwo aufs PNG klicken) ... Hatte ich bei dem Demo auch nicht vorgesehen, das verschieben ist das einfachste. DAs Prob. war nur die Form ohne Form aber mit Controls. Matti
	Zitat

Schneehasi Delphi 7 Personal	#9 5. Dez 2006, 09:58 leg das transparente Form mal über nen Video ... dann ist leider Schluss mit transparenz gibt es dafür nen Weg, oder ist das aussichtslos ?
	Zitat

delphinia Delphi 11 Alexandria	#10 15. Dez 2006, 16:05 gibt es ne möglichkeit das auch für D5 zu machen? Doreen
	Zitat

Form mit PNG Skin und VCL Controls

Forumregeln