Guten Abend zusammen,
schonmal entschuldigung, wenn ich die Suche falsch benutzt habe.
Ich bin noch ein blutiger Anfänger und möchte durch einen Buttonklick die procedure DrawCell aufrufen.
Es wird mit allerdings immer angezeigt, dass es zu wenig Parameter sind und ich auch nicht wirklich weiß was und ob ich noch etwas eintragen muss.
Code:
procedure TSpielfeld.Button1Click(Sender: TObject);
begin
Spielfeld.DGDrawCell(Sender: TDrawGrid; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState)
end;
procedure TSpielfeld.DGDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ACol = posx) and (ARow = posy) then
with Sender as TDrawGrid do
begin
DG.Canvas.Draw(rect.left,rect.top,Zahl2.Picture.Bitmap);
end;
end;