Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.04.24;
Скачать: [xml.tar.bz2];

Вниз

Изменеие размеров 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 вся ветка

Форум: "Основная";
Текущий архив: 2003.04.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.008 c
1-76968
tytus
2003-04-12 23:53
2003.04.24
new style


3-76829
victor_ch
2003-04-04 10:36
2003.04.24
не получается подсоединиться к ORACLE


14-77136
Ricks
2003-04-05 18:48
2003.04.24
Office 2003


9-76740
Ev_genus
2002-11-21 23:56
2003.04.24
---|Ветка была без названия|---


4-77222
Andrej
2003-02-26 12:47
2003.04.24
Буфер





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский