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

[Gruber_Hans_12345]

Zitat von turboPASCAL:

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

Ja, mache es mit dem UpdateLayerdWindow, genau wie in deinem demo projekt.

Funkt soweit alles bestens, nur wäre es eben schön den cursor noch zu sehen.

Die markierung sehe ich ja, und den Textcursor kann ich auch verschieben, nur sehe ich diesen nicht.

Gibt es funktionen um den Textcursor zu zeichnen? Oder muß ich einfach einen Strich zeichnen, der eben blinkt?

[turboPASCAL]

Kannst du mal ein Demo bastteln, damit ich mir das angucken kann ?

[Gruber_Hans_12345]

Zitat von turboPASCAL:

Kannst du mal ein Demo bastteln, damit ich mir das angucken kann ?

das ist einfach, einfach ein TEDit in DEIN demo reinploppen, fertig

[turboPASCAL]

Ah, ja gut. Dan musst du die den Blinkecursor selber zeichnen, da dieser nicht mit kopiert wird.

[Gruber_Hans_12345]

Zitat von turboPASCAL:

Ah, ja gut. Dan musst du die den Blinkecursor selber zeichnen, da dieser nicht mit kopiert wird.

Hast du gerade Infos bei der Hand, obs dafür ne API Funktion gibt oder so?

[Progman]

So gehts auch:
als Cursor ein kleines Bitmap nehmen (5 x 20 Pixel in diesem Falle).

Delphi-Quellcode:

  CreateCaret(Edit1.Handle, Image1.Picture.Bitmap.Handle, 5, 25);
  ShowCaret(Edit1.Handle);

Einfach mal bissel rumprobieren 8)

[M1cha]

Hi,

Vorab, ich nutze Delphi 2010.

Die Demo von turboPascal funktioniert bei mir nicht richtig.
Denn erstmal meckert er "Res/resources.res" wurde nicht gefunden.
Wenn ich diese dann nach Res kopiere, compiliert er zwar,
aber statt tranzparenten Hintergründen habe ich nur einen Schwarzen Hintergrund.

Die Demo, die turboPascal für miLeRiAm gemacht hat funktioniert zwar bei mir,
allerdings macht er da einen weißen halbtranzparenten Rahmen um die PNG(auch in der precompiled exe).

Ich hoffe, mir kann einer helfen.
MfG M1cha

[termodox]

Man ich habe genau das gleiche Problem wie oben beschrieben, hat jemand schon eine Lösung gefunden?