Отрисовка из ImageList

← →
WD (2008-03-09 11:13) [0]

Здравствуйте,
такая проблема: когда пытаюсь рисовать на канве картинку из ImageList"a, то она не отрисовывается

res:=TBitmap.Create; res.LoadFromFile("1.bmp"); img:=TImageList.CreateSize(25,25); img.Add(res,res); ... img1.Draw(Form1.Image.Canvas,0,0,9,dsNormal,itImage,true);

Но если же перед этим отрисовать Bitmap, загружаемый из файла, то отрисуется и из файла, и из ImageList"a... Например:

res:=TBitmap.Create; res.LoadFromFile("1.bmp"); img:=TImageList.CreateSize(25,25); img.Add(res,res); image:=TBitmap.Create; image.LoadFromFile("2.bmp"); ... Form.Image.Canvas.Draw(25,0,image); img1.Draw(Form.Image.Canvas,0,0,9,dsNormal,itImage,true);

В чём загвоздка? Почему просто из ImageList"a не хочешь рисовать?

← →
WD (2008-03-09 11:16) [1]

Там img1=img... Т.е. imageLst один и тот же... Опечатался просто..

img.Draw(Form.Image.Canvas,0,0,9,dsNormal,itImage,true);

... Form.Image.Canvas.Draw(25,0,image); img.Draw(Form.Image.Canvas,0,0,9,dsNormal,itImage,true);

← →
KilkennyCat © (2008-03-09 11:52) [2]

> когда пытаюсь рисовать на канве

на канве кого?

← →
WD (2008-03-09 12:06) [3]

> на канве кого?

На канве объекта Image класса TImage(Form.Image.Canvas)

← →
KilkennyCat © (2008-03-09 12:16) [4]

Ага. А она есть?

← →
WD (2008-03-09 12:44) [5]

А разве нет? Или я что-то недопонимаю... На форме лежит Image...
Form.Image.Canvas.Draw(25,0,image2); рисует, где image2 - это загр. картинка, а
img.Draw(Form.Image.Canvas,0,0,9,dsNormal,itImage,true); не рисует...

← →
KilkennyCat © (2008-03-09 12:55) [6]

> Form.Image.Canvas.Draw(25,0,image2);
> img.Draw(Form.Image.Canvas,0,0,9,dsNormal,itImage,true);

ага, ну просто совершенно одинаковые штуки... особенно учитывая, что вторая то же начинает работать, если после первой.

← →
KilkennyCat © (2008-03-09 13:03) [7]

добавлю: разница меж ними такая же, как например: красить забор, размазывая по нему краску, или забором возюкая по краске.

← →
WD (2008-03-09 14:26) [8]

Никто не говорил, что это одно и тоже... Спасибо, что помогли с забором и краской, жалко, что у меня др. вопрос... Может Вам на форум маляров с такими познаниями в данной области?

> [8] WD (09.03.08 14:26)

Не кипятись.... в ответах есть намеки.... просто нужно чуть чуть подумать....
> Но если же перед этим отрисовать Bitmap

Глянь как создаются совйства-объекты у TImage в часности Canvas...
Подсказка: function TImage.GetCanvas: TCanvas;
И все поймешь...) Удачи.

рисуй на image1.picture.bitmap.canvas, только учти, что у bitmap свои размеры, не зависящие от размеров image

Отрисовка из ImageList Найти похожие ветки