Diese folgende Code war zuvor in ein ButtomClick Procedure.
Als ich mit dem testen fertig war, wollte ich daraus eine D_KO_8_zeichnen Procedure machen
damit ich dann in der OnPaint dieses aufrufen kann.
Mit dem Buttomclick funktionierte es aber nach dem umändern in einer eigene Procedure nicht mehr.
Irgendwie stehe ich gerade auf der Leitung und kriege das gerade nicht hin ??
Delphi-Quellcode:
procedure D_KO_8_zeichnen();
var
s: string;
i: integer;
begin
D_KO_8;
i := 1;
while i < 27 do
begin
s := IntToStr(Spielfeld_array[i,1]);
DrawBox(Paintbox1.Canvas.Handle, Spielfeld_array[i,2], Spielfeld_array[i,3], s);
inc(i);
end;
end;