Hmm, irgendwie will das nicht funktionieren. Ich lade ja erst ein TImage und davon dann den bitmap inhalt zu modifizieren geht irgendwie nicht =(.
EDIT: Doch man kann die Werte modifiziern. Trotz all dem wirds nicht transparent ins DrawGrid gezeichnet =(.
Hab jetzt folgende Codes:
Im Form Create wird erstmal ''rectangle'' vorbereitet.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender : TObject);
var
rectangle: TRect;
begin
rectangle := rect(0,0,32,32); //32 und 32 stehen für Höhe und Breite des Images
.............
end;
Dann
Delphi-Quellcode:
procedure TForm1.DrawGrid1DrawCell(Sender : TObject; Acol, Arow : integer;
Rect : TRect; State : TGridDrawState);
var
Tile : TImage;
begin
Tile := Timage.Create(self);
Tile.Picture.Bitmap.TransparentColor := Tile.Picture.Bitmap.Canvas.Pixels[1,1];
Tile.Picture.Bitmap.Transparent := True;
............
Drawgrid1.Canvas.CopyRect(Drawgrid1.CellRect(acol, arow), Tile.Picture.Bitmap.Canvas, rectangle);
end;
Aber trotzdem wirds nicht transparent darein gezeichnet? Mach ich was falsch?