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

[turboPASCAL]

Ja also mit den vielen Informationen bin ich überfordert...

[lbccaleb]

Schaut aus wie mein Fernseher wenn selbiger gerade die Hufe hoch macht!

Sorry, den konnte ich mir jetzt nicht verkneifen xD

[miLeRiAm]

Zitat von turboPASCAL:

Ja also mit den vielen Informationen bin ich überfordert...

hast du das PNG verändert?
warum klappts nun bei dir?

habs in die rc gepackt, neu compiliert und loadfromfile versucht, no way.

[lbccaleb]

Du meinst wieso es bei Ihm Transparent ist??

Er hat einen niedrigeren Blend-Wert verwendet!

Der Source aus dem ersten Post:

Delphi-Quellcode:

  BlendF.SourceConstantAlpha := 255;
//geändert in 240 (sowie tP) dann sollte alles gut sein...

Edit:

Du könntest aber auch das beigefügte png verwenden, dieses ist zu 15% Transparent, und sollte mit deiner Version des Programms klappen...
(neues png beigefügt)

[miLeRiAm]

Zitat von lbccaleb:

Du meinst wieso es bei Ihm Transparent ist??

Er hat einen niedrigeren Blend-Wert verwendet!

Nein, das PNG hat bei mir einfach gar nicht erst geladen.

In dem Source läd er ja aus der eincompilierten RES eines der beiden PNGs.
Das ausgewählte PNG wird dann auf den Hintergrund der Form gezeichnet, inkl. Transparenz.

Das ist bei meinem PNG allerdings nicht passiert.
Es ist einfach gar nichts passiert, wirklich gar nichts.

Delphi-Quellcode:

MYPNGIMAGE RCDATA DISCARDABLE "MyPNGImg01.png"
MYPNGIMAGE2 RCDATA DISCARDABLE "test.png"

Sonst nichts am Demo-Projekt geändert, neu compiliert, aber wenn ich "Hintergrund 2" anklicke, passiert folgendes:

http://i39.tinypic.com/t69ffd.jpg

Man sieht, ich klicke "Hintergrund 2" an, aber es passiert -nichts-.

P.S.
Du hast das PNG irgendwie verändert.
Mein Original ist 99 KB groß, deins grade mal 29 KB.

Welches Format muss das PNG haben?

[lbccaleb]

Zitat von miLeRiAm:

P.S.
Du hast das PNG irgendwie verändert.
Mein Original ist 99 KB groß, deins grade mal 29 KB.

Welches Format muss das PNG haben?

Mhh, keine Ahnung, habs so wie du auch mit Photoshop gemacht, einfach deins geladen, höheren Transparenz Wert eingestellt und gespeichert??!!

Weiß nicht genau was fürn Format, hat mich nicht gefragt!!
Hab beim speichern noch interlaced (oder wie das heißt) gewählt


Warum er das bei dir nicht läd, kann ich dir net sagen, muss mir dann dienen Code erst nochmal ansehen! Hast du es denn richtig in die .res Datei eingefügt?

[Garfield]

Zitat von miLeRiAm:

habs in die rc gepackt, neu compiliert und loadfromfile versucht, no way.

Wie die Bezeichnung LoadFromFile andeutet, lädt man eine Datei, allerdings keine aus einer Resource.

[turboPASCAL]

Das einfachste wäre wohl wenn er mal den Sourcecode anhängt, sonst raten wir hier noch nächstes Jahr.
Da meine in der Reparatur ist kann ich nicht mal 'n brauchbaren Tipp abgeben.

[Gruber_Hans_12345]

Hat jemand eine Idee, wie man den Textcursor von Editfeldern anzeigen lassen kann?

Ich bracuhe das ganze für einen Loginscreen, und da wäre es halt nicht schlecht, wenn der User den Textcursor sieht ...

[turboPASCAL]

Kommt darauf an wie du das Editfeld anzeigst.
Ich denke mal den Cursor musst du bei verwendung von UpdateLayeredwindow selber Zeichnen und Positionieren.