Hi leute, ich will sone Art Schiffe versenken proggen und brauche n kleinen Tipp:

Ich kann Zellen meines DrawGrid schon färben mit FillRect in der OnDrawCell-Prozedur... aber wie zum Teufel mache ich, dass diese Zelle ein Bild enthält statt nur gefärbt (bemalt) zu werden?

Bisher sieht meine Färbeprozedur so aus:

DgSpielfeld.Canvas.Brush.color:=clred;
DgSpielfeld.Canvas.FillRect(Rect);

wie mache ich nun also, dass mir ein Bild angezeigt wird.
Falls das wichtig/nützlich ist:
Meine Zellen sind jeweils 30x30 groß und mein Bild heißt
water.jpg und ist ebenfalls 30x30 groß.

Über schnelle Hilfe würde ich mich sehr freuen!

Danke

Hi,
versuch's doch mal so:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.DrawStein(sx,sy: integer);
var
  x,y: integer;
  Rect: TRect;
begin
 with Spielfeld do
 begin
  Rect:=CellRect(sx,sy);
  x:=Rect.Left;
  y:=Rect.Top;
  ImageList1.Draw(canvas,x,y,Feld[sx,sy]);
 end;
end;

Dein Bild legst du einfach in einer ImageList ab.
Feld[x,y] ist dein Bild-Index! Allerdings solltest du dein Bild in ein Bitmap wandeln...

[edit=FuckRacism]Delphi-Syntax hinzugefügt. Mfg, FuckRacism[/edit]