Image.Canvas Опции

[sheka]

У Image Anchors вот такие: [akLeft,akTop,akRight,akBottom]
Когда Resize формы, то размеры картинки меняются, но Image.Canvas.ClipRect нет. Что делать?

Сообщение отредактировано: sheka - 27.11.2010 1:06

[sheka]

  with form1.Image1.Canvas do
    begin
      brush.Color := clWhite;
      fillrect(ClipRect);
      MoveTo(x0,y0);
      LineTo(x0+round(d+r*sin(a)),y0-round((d+r*sin(a))*sin(a)/cos(a)));
    end;