AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Transparenz in eigener Komponente

Ein Thema von Angel4585 · begonnen am 14. Mai 2008 · letzter Beitrag vom 15. Mai 2008
Antwort Antwort
Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#1

Transparenz in eigener Komponente

  Alt 14. Mai 2008, 15:12
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?

Martin Weber
Ich bin ein Rüsselmops
  Mit Zitat antworten Zitat
Benutzerbild von vsilverlord
vsilverlord

Registriert seit: 7. Jan 2008
Ort: Baden Württemberg- Hohenlohekreis
174 Beiträge
 
RAD-Studio 2009 Arc
 
#2

Re: Transparenz in eigener Komponente

  Alt 14. Mai 2008, 15:30
welches Oval? Kannst du vllt ein Screenshot reinstellen?
Volker
~beware
Wizards First Rule:
People are stupid; given proper motivation, almost anyone will believe almost anything. Because people are stupid, they will believe a lie because they want to believe it’s true, or because they are afraid it might be true
  Mit Zitat antworten Zitat
Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#3

Re: Transparenz in eigener Komponente

  Alt 14. Mai 2008, 15:46
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.
Martin Weber
Ich bin ein Rüsselmops
  Mit Zitat antworten Zitat
Benutzerbild von uligerhardt
uligerhardt

Registriert seit: 19. Aug 2004
Ort: Hof/Saale
1.746 Beiträge
 
Delphi 2007 Professional
 
#4

Re: Transparenz in eigener Komponente

  Alt 14. Mai 2008, 16:31
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.
Uli Gerhardt
  Mit Zitat antworten Zitat
Muetze1
(Gast)

n/a Beiträge
 
#5

Re: Transparenz in eigener Komponente

  Alt 14. Mai 2008, 21:59
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.
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#6

Re: Transparenz in eigener Komponente

  Alt 14. Mai 2008, 22:05
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.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#7

Re: Transparenz in eigener Komponente

  Alt 15. Mai 2008, 11:45
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);
Martin Weber
Ich bin ein Rüsselmops
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:06 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