@BadenPower
Und wo ist das Problem?
Ich wollte dir mit dem Beispiel nur zeigen, dass man innerhalb von fünf bis zehn Minuten ein Feld generieren kann und auch die Koordinaten abfragen kann. Du willst eine 3D-Zelle?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
BtnBmp: TBitmap;
begin
BtnBmp := TBitmap.Create;
with BtnBmp do
try
Canvas.Brush.Color := clBtnFace;
Width := 20;
Height := 20;
Canvas.MoveTo(0, Height-1);
Canvas.Pen.Color := clWhite;
Canvas.LineTo(0, 0);
Canvas.LineTo(Width-1, 0);
Canvas.Pen.Color := clGray;
Canvas.LineTo(Width-1, Height-1);
Canvas.LineTo(0, Height-1);
Self.Canvas.Draw(10, 10, BtnBmp);
finally
BtnBmp.Free;
end;
end;
Auch fünf Minuten.