Вопрос про Timage.

[jeckp]

Добрый день.

Я пытаюсь сделать, чтото вроде окна сообщений с дополнительными наворотами. И Хочу, разместить в окне картинку, которая бы изменялась в зависимости от типа окна.
Для этого я использую

Image1: TImage;
ImageList1: TImageList;

В ImageList1 я загонал весь нужный мне набор картинок. Прорисовываю я их с помощью

ImageList1.GetBitmap( N ,Image1.Picture.Bitmap);

Но наступил на грабли. Первая картинка никуда не девается. Все последующие рисуются сверху на первой, в той части, котрая не явлалась фоном для первой.
Я помучился с рефрешами и другими методами - не помогло.
В связи с этим вопросы.

1. Я вообще правильной дорогой иду?
2. Как побороть это явление?
3. Где можно качнуть документацию (на русском ) с описанием методов и свойств всех стандарнтных компонент для Delphi 7?

 

[Guest]

3. Где можно качнуть документацию (на русском ) с описанием методов и свойств всех стандарнтных компонент для Delphi 7?

Для 7 не знаю, но могу предложить для 6. Не скажу, что там все супер, но давольнотаки интерестно. Хотя я думаю серьезных отличий между 6 и 7 версиями нет. Так, что если надо пришли свое мыло.

 

[DZX]

C transparent TImage баловался ?

 

[AnCC]

Первая картинка никуда не девается. Все последующие рисуются сверху на первой, в той части, котрая не явлалась фоном для первой.

Так она никуда и не должна подеваться. Попробуйте поставить Transparent = false

 

[Coldfate]

Всё тут нормально, но Transparent=false не поможет. Попробуй это:

Image1.Canvas.Refresh

Или это:

w := image1.picture.bitmap.width;
Image1.Picture.Bitmap.Width := 0;
Image1.Picture.Bitmap.Width := w;

Или вот это:

image1.Picture.Bitmap := TBitmap.Create;

В-общем, выбирай на вкус.

 

[jeckp]

Попробовал все.
Этот не сработал

Image1.Canvas.Refresh

А эти два работают.

w := image1.picture.bitmap.width;
Image1.Picture.Bitmap.Width := 0;
Image1.Picture.Bitmap.Width := w;

Или вот это:

image1.Picture.Bitmap := TBitmap.Create;

В-общем, выбирай на вкус.

Спасибо!