Версия для печати темы

Автор: sheka 26.11.2010 23:49

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

Автор: Client 27.11.2010 0:03

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

Автор: sheka 27.11.2010 1:06

Картинки.

Автор: Client 27.11.2010 1:25

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

Автор: sheka 27.11.2010 1:41

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

Автор: Client 27.11.2010 1:49

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

Автор: sheka 27.11.2010 2:00

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

Автор: volvo 27.11.2010 2:06

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

Автор: sheka 27.11.2010 2:24

  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 27.11.2010 19:01

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

Автор: Client 27.11.2010 19:49

давай

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


Прикрепленные файлы
 sheka.rar ( 4.33 килобайт ) Кол-во скачиваний: 210

Автор: sheka 28.11.2010 0:48

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