Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Transparenz in eigener Komponente (https://www.delphipraxis.net/113774-transparenz-eigener-komponente.html)

Angel4585 14. Mai 2008 14:12


Transparenz in eigener Komponente
 
Hallo,

ich habe eine eigene Komponente von TGraphicControl abgeleitet und die Paint-Methode überschrieben.
Jetzt habe ich in Gimp ein bmp gemalt welches die Komponente darstellen soll. Dieses Bitmap soll geladen und angezeigt werden. Das funktioniert alles ganz gut, nur muss ich mich darauf verlassen, dass der Hintergrund von meinem Bild mit dem vom Formular übereinstimmt, was ich doof finde.

Deswegen möchte ich jetzt den Hintergrund von mienem Bild transparent machen, sodass nurnochdas Oval in der Mitte zu sehen ist, der rest bis in die Ecken komplett transparent.

Wie kann ich das amchen, ohne mit Ellipsen usw die Komponente komplett selbst zu zeichnen, sondern weiterhin mein Bitmap zu laden?

:angel:

vsilverlord 14. Mai 2008 14:30

Re: Transparenz in eigener Komponente
 
welches Oval? Kannst du vllt ein Screenshot reinstellen? :-D

Angel4585 14. Mai 2008 14:46

Re: Transparenz in eigener Komponente
 
Ob ichs hohcladen darf weis ich nicht.
Es ist ein normales Bitmap, 100 breit und 60 hoch.
Hintergrund weiss, in der Mitte ein Oval in Dunkelblau, der Rand des Ovals ist bissl verziert.
Der weisse Hintergrund soll transparent gezeichnet werden.

uligerhardt 14. Mai 2008 15:31

Re: Transparenz in eigener Komponente
 
Zitat:

Zitat von Angel4585
Deswegen möchte ich jetzt den Hintergrund von mienem Bild transparent machen, sodass nurnochdas Oval in der Mitte zu sehen ist, der rest bis in die Ecken komplett transparent.

Schau dir mal an, wie TImage mit der Property Transparent umgeht. Vielleicht kannst du da was abgucken.

Uli.

Muetze1 14. Mai 2008 20:59

Re: Transparenz in eigener Komponente
 
Delphi-Referenz durchsuchenTBitmap.Transparent, Delphi-Referenz durchsuchenTBitmap.TransparentMode, Delphi-Referenz durchsuchenTBitmap.TransparentColor, Delphi-Referenz durchsuchenTCanvas.Draw()

Beachte: MSDN-Library durchsuchenBitBlt() beachtet die von der VCL bereitgestellte Transparenzeigenschaften natürlich nicht, von daher Draw() verwenden.

SirThornberry 14. Mai 2008 21:05

Re: Transparenz in eigener Komponente
 
das sinnvollste ist es dein Bitmap mit 32bit zu verwenden. Dann kannst du im so genannten Alphakanal die Transparenz bestimmen und die windowsfunktion (unit windows, funktion alphablend) verwenden.

Angel4585 15. Mai 2008 10:45

Re: Transparenz in eigener Komponente
 
Zitat:

Zitat von Muetze1
Delphi-Referenz durchsuchenTBitmap.Transparent, Delphi-Referenz durchsuchenTBitmap.TransparentMode, Delphi-Referenz durchsuchenTBitmap.TransparentColor, Delphi-Referenz durchsuchenTCanvas.Draw()

Beachte: MSDN-Library durchsuchenBitBlt() beachtet die von der VCL bereitgestellte Transparenzeigenschaften natürlich nicht, von daher Draw() verwenden.

Danke das klappt :)

Code:
Image1.Picture.Bitmap.TransparentMode:=tmAuto;
Image1.Picture.Bitmap.Transparent:=True;
Image1.Transparent:=True;
Canvas.Draw(0,0,Image1.Picture.Bitmap);


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:23 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz