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

ImageList1.GetBitmap(); einem TImage zugewiesen haben. Als ich das auf

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 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 von xZise:

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]

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 von turboPASCAL:

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ß