Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.10.2008, 20:21   #1
maxvodo.dll
Пользователь
 
Аватар для maxvodo.dll
 
Регистрация: 24.10.2008
Сообщений: 17
По умолчанию TImage

Приветствую. Такой вопрос
Цитата:
Panel1: TPanel;
Image1: TImage;
Изображение находится на панели. Image.align=alClient;
В теории - при изменении размера панели,изменяется размер изображения.
Окей, действует.
рисуем на канве (неважно, главное рисуем)(P.S. FillRect для проверки - пробовал)
Цитата:
Image1.Canvas.Draw(0,0,PBitMap(List OfBitMap.Objects[index-1])^);
то при растягивании панели (и изображения заодно) рисуется только часть, остальное - серая область.
Скажу сразу, да - BitMap размерами равен Изображению
Причем, если сжимать панель - изображение рисуется правильно
Картинки прилагаются
Изображения
Тип файла: gif trabl1.gif (2.9 Кб, 168 просмотров)
Тип файла: jpg trabl2.jpg (5.8 Кб, 156 просмотров)
maxvodo.dll вне форума Ответить с цитированием
Старый 24.10.2008, 20:45   #2
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Нужно не на канве имиджа а на канве его битмапа рисовать.
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 24.10.2008, 20:50   #3
_Dmitry
Участник клуба
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Сообщений: 1,193
По умолчанию

Придётся ручками менять размеры Bitmap внутри Image
Код:
procedure TForm1.FormResize(Sender: TObject);
begin
  Image1.Picture.Bitmap.Width:=Image1.Width;
  Image1.Picture.Bitmap.Height:=Image1.Height;
end;
_Dmitry вне форума Ответить с цитированием
Старый 24.10.2008, 21:29   #4
maxvodo.dll
Пользователь
 
Аватар для maxvodo.dll
 
Регистрация: 24.10.2008
Сообщений: 17
По умолчанию

решено. спасибо
maxvodo.dll вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TImage в TImage One.Love Общие вопросы Delphi 15 22.09.2008 19:37
TImage Killbrum Помощь студентам 8 27.08.2008 22:40
Timage Черничный Компоненты Delphi 10 04.07.2008 12:50
Timage RealSHELS Общие вопросы Delphi 2 03.05.2008 23:23
TImage Andrey9392 Компоненты Delphi 6 06.04.2007 10:43