AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

TimageList und transparenter Hintergrund

Ein Thema von tofse · begonnen am 21. Jun 2012 · letzter Beitrag vom 21. Jun 2012
Antwort Antwort
tofse

Registriert seit: 6. Jun 2011
Ort: Saarlouis
128 Beiträge
 
Delphi XE Professional
 
#1

TimageList und transparenter Hintergrund

  Alt 21. Jun 2012, 12:08
Hallo,
ich fülle eine TImageList mit Bitmaps aus einem Verzeichnis.

Code:
    DummyBmp.Transparent:=true;
    DummyBmp.TransparentColor:=$00D8E9EC;
    DummyBmp.TransparentMode:=tmFixed;
    DummyBmp.LoadFromFile('logout.bmp');
    ImageListMenu.Add(DummyBmp,nil);
Die transparente Farbe wird aber leider nicht richtig umgesetzt. "nicht richtig" deshalb, weil schon irgendwas passiert, denn an Stelle von Transparenz wird die Farbe nun weiß dargestellt.
Wenn ich die Bilder im Editor in die ImageList lade, und die Farbe setze, dann funktioniert es, aber es muss doch auch dynamisch klappen, oder?
Wo ist der Fehler?

Grüße
Christof
Miniaturansicht angehängter Grafiken
img_trans.png  
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer
Online

Registriert seit: 13. Aug 2002
Ort: Oberreichenbach
16.511 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: TimageList und transparenter Hintergrund

  Alt 21. Jun 2012, 12:14
Wieso nimmst du nicht PNG's. Müsste doch mittlerweile in XE schon fast überall unterstützt werden und die Semitransparenz ist auch um welten besser und störunanfällliger (BMP haben von sich aus keine Transparenz).
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
tofse

Registriert seit: 6. Jun 2011
Ort: Saarlouis
128 Beiträge
 
Delphi XE Professional
 
#3

AW: TimageList und transparenter Hintergrund

  Alt 21. Jun 2012, 12:21
Wieso nimmst du nicht PNG's.
Deshalb, siehe Anhang, hatte ich zu Beginn auch versucht. Die Transparenz wird in der ImageList schwarz dargestellt und dann auch im Menü, das die ImageList verwendet.
Und wie gesagt, bei Bitmaps klappt es doch auch , wenn ich es manuell in der Entwicklungsumgebung mache.
Miniaturansicht angehängter Grafiken
imglist.png  
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#4

AW: TimageList und transparenter Hintergrund

  Alt 21. Jun 2012, 13:20
Delphi-Quellcode:
var
  Bmp: TBitmap;
  p : TPNGImage;
begin
  Bmp:=TBitmap.Create;
  p:=TPNGImage.Create;
  try
    p.LoadFromFile('C:\Icons\IconCollection\ix_ap_all\48x48\shadow\about.png');
    Bmp.Assign(p);
    ImageList1.Add(Bmp,nil);
  finally
    Bmp.Free;
    p.Free;
  end;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
tofse

Registriert seit: 6. Jun 2011
Ort: Saarlouis
128 Beiträge
 
Delphi XE Professional
 
#5

AW: TimageList und transparenter Hintergrund

  Alt 21. Jun 2012, 13:21
Danke
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 10:25 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf