Grafik mit Canvas

[Binärbaum]

Zitat von JOMA:

Setze doch einfach 7*7 Button's auf das Formular. Zahlen lassen sich über Caption eingeben und für jeden Button kann man eine Aktion auslösen.

Naja, geht zwar auch, aber da finde ich doch die Variante mit Canvas besser:

Delphi-Quellcode:

procedure ZeichneKaestchen(breite, hoehe, spalten, zeilen: Cardinal);
var i,j: Integer;
begin
  for i:= 0 to spalten-1 do
    for j:= 0 to zeilen-1 do
      Form1.Canvas.Rectangle(i*breite, j*hoehe, (i+1)*breite, (j+1)*hoehe);
end;

//Aufruf (Beispiel):
//Zeichnet 7*5 Kästchen, die je 20 Pixel breit und 25 Pixel hoch sind
ZeichneKaestchen(20, 25, 7, 5);

MfG
Binärbaum