Hilfe! Rechtecke im Imagefenster

[bitsetter]

Hi,

so könnte man es machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Size, HalfSize, iLeft, iTop: integer;

  procedure Draw2Rect;
  begin
    Image1.Canvas.Polyline([Point(0, 0), Point(Size, 0),
      Point(Size, Size), Point(0, Size), Point(0, 0)]);

    Image1.Canvas.Polyline([Point(HalfSize, 0), Point(Size, HalfSize),
      Point(HalfSize, Size), Point(0, HalfSize), Point(HalfSize, 0)]);
  end;

begin
  Size := 100;

  iLeft := (Image1.Width - Size) div 2;
  iTop := (Image1.Height - Size) div 2;
  HalfSize := Size div 2;

  SetViewportOrgEx(Image1.Canvas.Handle,iLeft, iTop, nil);
  Draw2Rect;

  Size := HalfSize;
  HalfSize := Size div 2;

  SetViewportOrgEx(Image1.Canvas.Handle,iLeft + HalfSize, iTop + HalfSize, nil);
  Draw2Rect;

  SetViewportOrgEx(Image1.Canvas.Handle, 0, 0, nil);
end;