Скачать: CL | DM;

Изменеие размеров 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?
(Мой проект дома, я на работе, поэтому немедленно не могу проверить а лишь уточняю, извини)

---

← →
icWasya ©   (2003-04-14 14:44) [8]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c