Thema: Delphi Imagelist - bug ?

Einzelnen Beitrag anzeigen

Flips

Registriert seit: 17. Feb 2005
Ort: Sankt Wendel
491 Beiträge
 
Delphi 7 Professional
 
#1

Imagelist - bug ?

  Alt 23. Jul 2007, 16:23
Hi.

Diese ***** Imagelist macht mich noch wahnsinnig.
Folgende Situation:
Ich habe eine Imagelist mit Icons (*.ico), welche ich mit
ImageList1.Draw(StringGrid1.Canvas,0,StringGrid1.CellRect(0,2).Top,2); in ein Stringgrid zeichnen lasse. In diesem Beispiel wird das 3. Bild (mit Index 2) genau an den Anfang der 3. Zeile geschrieben. Soweit sogut.

Wenn ich das ganze jetzt mit mehreren Mache, gehts auch
Delphi-Quellcode:
ImageList1.Draw(StringGrid1.Canvas,0,StringGrid1.CellRect(0,0).Top,0);
ImageList1.Draw(StringGrid1.Canvas,0,StringGrid1.CellRect(0,1).Top,1);
ImageList1.Draw(StringGrid1.Canvas,0,StringGrid1.CellRect(0,2).Top,2);
ImageList1.Draw(StringGrid1.Canvas,0,StringGrid1.CellRect(0,3).Top,3);
ImageList1.Draw(StringGrid1.Canvas,0,StringGrid1.CellRect(0,4).Top,4);
Ich habe 6 Bilder in der Imagelist. Wenn ich jetzt das 6. auch zeichen lasse, sieht das ganze so aus.
Delphi-Quellcode:
ImageList1.Draw(StringGrid1.Canvas,0,StringGrid1.CellRect(0,0).Top,0);
ImageList1.Draw(StringGrid1.Canvas,0,StringGrid1.CellRect(0,1).Top,1);
ImageList1.Draw(StringGrid1.Canvas,0,StringGrid1.CellRect(0,2).Top,2);
ImageList1.Draw(StringGrid1.Canvas,0,StringGrid1.CellRect(0,3).Top,3);
ImageList1.Draw(StringGrid1.Canvas,0,StringGrid1.CellRect(0,4).Top,4);
ImageList1.Draw(StringGrid1.Canvas,0,StringGrid1.CellRect(0,5).Top,5);
Sollte eigentlich gehen, tuts aber nicht. Das 6. Bild wird zwar gezeichnet, allerdings wird das erste Bild gleichzeitig vom 6. Bild überschrieben...
Wers nich versteht, schaut auf die Screenshots.

Was habe ich falsch gemacht?

Thx,
Flips
Miniaturansicht angehängter Grafiken
imagelist_195.png  
Philipp F.
  Mit Zitat antworten Zitat