Изменеие размеров Canvas

← →
Alexander Vasjuk (2003-04-14 11:12) [0]

Был ответ уже, хоть убей, не помню.
Как при увеличении TImage увеличить и ее Canvas, не пересоздавая компонент?
Спасибо заранее, мастера.

← →
MBo © (2003-04-14 11:21) [1]

у свойства Bitmap обнови размеры

← →
Diouzshev © (2003-04-14 11:25) [2]

Canvas и так имеет размеры ограниченные только системой (ОС).
Попробуй метод Invalidate, чтобы перерисовать компонент.

← →
Alexander Vasjuk (2003-04-14 11:31) [3]

MBo © (14.04.03 11:21)
Я не пользуюсь Битмапом, рисую прямо на санве

Diouzshev © (14.04.03 11:25)
Да, но если я начал на нем рисовать он принимает размер image и больше его не меняет.
Invalidate попробую...

← →
Skier © (2003-04-14 11:36) [4]

procedure TForm1.Button1Click(Sender: TObject); procedure DrawOnImage(AImage : TImage; const AWidth, AHeight : Integer; const AColor : TColor); begin if Assigned(AImage) then begin AImage.AutoSize := False; AImage.Width := AWidth; AImage.Height := AHeight; AImage.Canvas.Brush.Color := AColor; AImage.Canvas.FillRect(Rect(0, 0, AImage.Width, AImage.Height)); end; //if end; //DrawOnImage Begin DrawOnImage(Image1, 70, 70, clNavy); End;

← →
Alexander Vasjuk (2003-04-14 12:25) [5]

Skier © (14.04.03 11:36)
Ну а если теперь АImage.Width := АImage.Width * 2;
то Canvas останется прежнего размера.

← →
MBo © (2003-04-14 12:36) [6]

Повторю для особо упрямых
Image.Picture.Bitmap.Width:=Image.Width;

← →
Alexander Vasjuk (2003-04-14 13:04) [7]

MBo © (14.04.03 12:36)
Все-все-все, изменяю...
MBo, а почему именно Bitmap а не Picture. Когда я рисую на канве, я автоматически меняю Bitmap?
(Мой проект дома, я на работе, поэтому немедленно не могу проверить а лишь уточняю, извини)

>Когда я рисую на канве, я автоматически меняю Bitmap?
При первом обращении к TImage.Canvas , если Image.Picture = Nil? автоматически создаётся Bitmap с размерами Image и рисуется именно на этом Bitmap"е.

← →
Alexander Vasjuk (2003-04-14 20:03) [9]

Это для меня откровение.
Спасибо, мастера

Изменеие размеров Canvas Найти похожие ветки