Image.Canvas Опции

[sheka]

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

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

[Client]

но Canvas.ClipRect нет

У имеджа? или у формы?
а у меня попытка вывести Image1.Canvas.ClipRect.Right (например) сразу выдает ошибку

Сообщение отредактировано: Client - 27.11.2010 0:04

[sheka]

Картинки.

[Client]

а что ты с ним хочешь делать?

[sheka]

Рисовать рисунок.
Если изменился размер формы - изменить размер рисунка(масштабировать его).
а у меня получается так: размер формы изменил, рисунок масштабировал, а на экран выводится только та часть, которая попала в Image1.Canvas.ClipRect, хотя размеры картинки поменялись.

[Client]

т.е. нарисовал круг, потянул форму и у тебя не круг, а эллипс?
чем свойство stretch не нравится? эффект тот же

[sheka]

А если сделать движение от левого верхнего до правого нижнего угла канваса?

[volvo]

sheka, а ты уверен, что ClipRect с ClientRect-ом не перепутал?

[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;

[sheka]

Неа) ClientRect туда в принципе не вставляется.
Выложить полный проэкт?

[Client]

давай

Добавлено через 5 мин.
вот как я понял так и сделал. примитивный пример

[sheka]

Хохма. На RAD XE нормально, а на Delphi 7 - фигня. Твой же проэкт, но откомпилирован на Д7:  sheka.rar ( 166.51 килобайт ) Кол-во скачиваний: 561