Transparenz in TImage mit WinXP SP2 versagt ?

[Kostas]

Ich hatte das gleiche Problem.
Die Lösung ist recht einfach: Eine neue ImageList auf das Form,
Masket auf false setzen, und die bmps einzeln wieder einlesen, fertig.

Die bmps können ja vorher einzeln aus der ImageList in ein Verzeichnis exportiert werden.

Gruß Kostas

[DerAndereMicha]

Ich habe mein Problem damals anders gelöst. Und zwar trat es nur auf, wenn ich Images aus der TImageList direkt mit

Delphi-Quellcode:

ImageList1.GetBitmap();

einem TImage zugewiesen haben. Als ich das auf

Delphi-Quellcode:

ImageList1.GetIcon();

geändert habe, funktionierte alles einwandfrei.

Gruß
Micha

[vsti]

Tag,

hier auch nochmal meine Lösung, nicht schön, aber funzt ;)

Delphi-Quellcode:

  Bild:=tbitmap.Create;
  Imagelist1.GetBitmap(0,Bild);
  Bild.Transparent := true;
  Bild.TransparentMode :=  tmFixed;
  Bild.TransparentColor := clWhite;
  dbgrid1.Canvas.Draw(rect.left+3,rect.Top+1,Bild);
  Bild.Free;

[Hallo_Thomas]

Ich hatte mal Probleme, als ich die Bilder mit unter 24bit abgespeichert habe, also versuch es mal mal mit 24bit Bildern!

[xZise]

Zitat:

Zitat von vsti

Tag,

hier auch nochmal meine Lösung, nicht schön, aber funzt ;)

Delphi-Quellcode:

  Bild:=tbitmap.Create;
  Imagelist1.GetBitmap(0,Bild);
  Bild.Transparent := true;
  Bild.TransparentMode :=  tmFixed;
  Bild.TransparentColor := clWhite;
  dbgrid1.Canvas.Draw(rect.left+3,rect.Top+1,Bild);
  Bild.Free;

Hmmm Komisch. Ich habe das gleiche Problem (Mein Thread), aber der Code tut es nicht...

[EWeiss]

Zitat:

Zitat von xZise

Zitat:

Zitat von vsti

Tag,

hier auch nochmal meine Lösung, nicht schön, aber funzt ;)

Delphi-Quellcode:

  Bild:=tbitmap.Create;
  Imagelist1.GetBitmap(0,Bild);
  Bild.Transparent := true;
  Bild.TransparentMode :=  tmFixed;
  Bild.TransparentColor := clWhite;
  dbgrid1.Canvas.Draw(rect.left+3,rect.Top+1,Bild);
  Bild.Free;

Hmmm Komisch. Ich habe das gleiche Problem (Mein Thread), aber der Code tut es nicht...

Keine effektive lösung.. aber vielleicht ein.

Die beliebige Farbe welche transparent sein soll über die API GetPixel ermitteln
Dann das Pic durch eine schleife laufen lassen ahängig von weite,höhe
mit SetPixel die Farbe löschen.
Bild darf dann aber nicht die eigenschaft Transparent besitzen.

gruß

[turboPASCAL]

Delphi-Quellcode:

Bild.TransparentColor := clWhite;

Sicher das die Farbe auf dem Bitmap clWhite ist und nicht $00FFFFF9 (halt ein fasst White Color) ?
Denn dann geht es garantiert nicht.

[EWeiss]

Zitat:

Zitat von turboPASCAL

Delphi-Quellcode:

Bild.TransparentColor := clWhite;

Sicher das die Farbe auf dem Bitmap clWhite ist und nicht $00FFFFF9 (halt ein fasst White Color) ?
Denn dann geht es garantiert nicht.

kann er ja vorher mal mit GetPixel ermitteln :)

gruß

[turboPASCAL]

@EWeiss, upps hab dein Beitrag nicht gesehen. Ja im Grunde kann man es so machen.

[EWeiss]

Die Auskunft ist ja spärlich hier.
Mich würde mal interessieren ob das problem generell oder nur auftritt
je nachdem welches Design(Theme) man gewählt hat.

Windows klassisch
Windows Xp

gruß