Form mit PNG Skin und VCL Controls

[Mark90]

Hi

alle!

nach kurzem probieren hab ich es geschafft den xp-style bei meiner png form zu verwenden!

[Yheeky]

Frage: Wie kann ich denn PNG fest einbinden? Ich möchte die nicht aus einer Datei heraus laden...vielleicht kann mir da ja jemand helfen.

Danke!

[Blink]

Zitat:

Zitat von Yheeky

Frage: Wie kann ich denn PNG fest einbinden? Ich möchte die nicht aus einer Datei heraus laden...vielleicht kann mir da ja jemand helfen.

Danke!

Hi

Als Ressource in die exe mit einbinden. Vielleicht hilft dir das ja HIER

[Yheeky]

Okay danke, das habe ich hinbekommen :-)
Nun hab ich noch eine Frage: Ich zeichne mit einem PNG den Umriss einer Form inklusive Titelleiste. Wie kann ich nun einen Minimieren, Maximieren bzw. Schließen Knopf einfügen? Egal was ich mache (auch wenn ich ein TButton auf die Form setze) wird nichts angezeigt :-/

[turboPASCAL]

Zitat:

Egal was ich mache (auch wenn ich ein TButton auf die Form setze) wird nichts angezeigt :-/

Lies dir doch bitte mal diesen Thread durch, hier wurde das wieso und warum schon "durchgekaut". ;)
(glaube ich... :gruebel: )

Also, mit UpdateLayeredWindow wird ein 32-Bit Bitmap mit Alphakanal als "Windowsersatz" verwendet.
Es wird dann nur noch dieses Bitmap auf dem bildschirm angezeigt. Will man nun irgendwelche Controls
wie zB. ein Label oder Button haben muss dieser auf das 32-Bit Bitmap.

Es gibt nun zwei Möglichkeiten, entweder man baut sich eigene Controls die direct auf dieses Bitmap zeichnen oder man Trickst ein wenig und kopiert das Bitmap der Form welches man über GetFormImage erhält und dieses mit TransparentColor durchsichtig gemacht hat auf
das 32-Bit Bitmap.

[kalmi01]

@turboPASCAL: so gibts kein MemoryLeak

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  PNGBmp32.Free;
  ScrBmp32.Free;    <<< hat gefehlt
end;

[turboPASCAL]

Zitat:

Zitat von kalmi01

@turboPASCAL: so gibts kein MemoryLeak ...

Es stimmt schon das dort am Ende eine Freigabe einer Resource fehlte die aber nicht so tragisch ist/war. Es lag an etwas anderem und dieser Fehler wurde beseitigt.

Ich habe mal in Post #6 eine neuere Version hochgeladen.

Das Ändert aber nichts an der Tatsache das bei der Textausgabe mit gr32.RenderText() so viele Page Faults kommen das sich das Prg. nach einer längeren Laufzeit ohne Fehlermeldung verabschiedet.
( Grund: MemoryLeak ? :gruebel: )

[kalmi01]

Zitat:

Zitat von turboPASCAL

Das Ändert aber nichts an der Tatsache das bei der Textausgabe mit gr32.RenderText() so viele Page Faults kommen das sich das Prg. nach einer längeren Laufzeit ohne Fehlermeldung verabschiedet.

Nicht nur das !
Unter XP-SP2 habe ich festgestellt, das andere Fenster (Explorer, usw.) nach einiger Zeit nicht mehr korrekt funktionieren.
Der rechte Rand wird ca. daumenbreit nicht mehr korrekt gezeichnet.
Wie das zusammen hängt kann ich nicht sagen, aber es ist auf dem Rechenr reproduzierbar.
Könnte aber mit der GraKa zusammenhängen.
Unter Win2000 mit gleicher GraKa tritt der Effekt nicht auf.

[RobertP]

Ist das normal dass ich bei der Lösung von turboPascal immer ne Prozessorauslastung von ~50% habe, ohne dass ich die Form bewege? Ich hab nen Athlon 64 3000+ (sollte eigentlich für Delphiforms reichen :-D )

[turboPASCAL]

:gruebel: Nö.

CPU: AMD Athlon(tm) XP 2400+ (2,0 GHz)
RAM: 512 MB
GraKa: NVIDIA GeForce FX 5200 128 MB

Kann das an der GraKa. liegen ?