Hi,
erstmal danke für deine Antwort!
Ich weiß schon, wie man auf PaintBox zugreift - allerdings braucht man m.E. keine Hilfsvariable für PaintBox.Canvas.
Hier der Quelltext, der mir Rätsel aufgibt und für den ich keine schlüssige Erklärung finde...
Delphi-Quellcode:
procedure TForm1.PaintBox1Paint(Sender: TObject);
var
X,Y,W,H,X1,Y1: Integer;
begin
{bei Interesse bitte einfach mal testen - mit Komma erscheint das Gitter
wie beabsichtigt - ersetzt man das Komma durch den korrekten Punkt wird es stark
vergrößert und dadurch nur ein Teil dargestellt!!!}
with PaintBox1,Canvas do //das ist die Fragen aufwerfende Stelle
begin
W := (Width-2) div 3;
H := (Height-2) div 3;
X1 := Width mod W div 2;
Y1 := Height mod H div 2;
FillRect(ClientRect);
Pen.Color := clMaroon;
Brush.Style := bsClear;
for Y := 0 to 2 do
for X := 0 to 2 do
Rectangle(X1+X*W, Y1+Y*H, X1+X*W + W+1, Y1+Y*H + H+1);
end;
end;
Vielleicht weiß ja jemand eine Antwort drauf!
Elicia