Zitat von
mimi:
...doch leider geht FillPixel nicht so wie ich es mir vorgestellt habe. hier ein Bild ich würde gerne nur die umrahmung und nicht das Innere, das lieg an in der FillPixl funktion und zwar bei den For y schleifen.
Das habe ich jetzt nicht Verstanden, möchtest du nur einen Rahmen zeichnen ? Bild, was wo ?
Delphi-Quellcode:
procedure FillPixel(sx, sy, zx, zy: Integer; PaintBox: TPaintBox; Fill: Boolean);
begin
PaintBox.Canvas.Pen.Color := clRed;
PaintBox.Canvas.Brush.Color := clBlack;
if Fill = True
then PaintBox.Canvas.Brush.Style := bsSolid // ausmalen
else PaintBox.Canvas.Brush.Style := bsClear; // nicht ausmalen
PaintBox.Canvas.Rectangle( Rect(sx, sy, zx - sy, zy - sx) );
end;