| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

DelphiX, TPictureCollectionItem, TPicture и TCanvas [Delphi, Windows]

Delphi_X_akep ©   (2004-02-17 16:44:00) 

DelphiX. Есть переменная класса TImageSprite и в ней картинка.
Можно ли нарисовать на этой картинке что нибудь (изменить ее),
используя TCanvas? При использовании этого кода:
 Sprite.Image.Picture.Bitmap.Canvas.LineTo(10,10);
картинка становится пустой.
И вообще возможно ли изменять картинку в программе,
находящуюся в классе TPicture (Рисовать линии, точки и т. п.)?

---

m-AAA-d   (2004-02-18 15:50:00) [1]

значит так, попробуй следующее:
- после c.freeдобавь ImageList.Items ... Bitmap.SaveToFile('name.bmp');и посмотри сохраненный рисунок - это для контроля действий
- а второе что мне кажется более вероятным: когда ты указываешь параметры для rsrcи rdst- это же в пикселях, то есть у тебя получается копирование всего одного пикселя. неудивительно что не заметно. :)

---

Delphi_X_akep   (2004-02-17 18:10:00) [2]

Нет, ну я вот например хочу поверх картинки в
ImageList нарисовать другую, в TBitmap;
Вот код:

var
  c : TBitmap;
  rsrc, rdst: TRect;
begin
  c := TBitmap.Create;
  c.LoadFromFile('c:\file.bmp');

  rdst := rect(1,1,1,1);
  rsrc := rect(1,1,1,1);
 
  ImageList.Items.Find('pic1').Picture.Bitmap.
     Canvas.CopyRect(rdst, c.Canvas,rsrc);
  c.free;

Но картинка в ImageList опять становиться пустой.

---

m-AAA-d   (2004-02-17 16:59:00) [3]

вот пример того как я на Image: TPictureCollectionItem рисовал картинку.

var rsrc, rdst: TRect;

... // Заполняем rdst и rsrc нужными нам значениями

FDXImageList.Items[FDXImageList.Items.Count-1].
 Picture.Bitmap.Canvas.CopyRect(rdst,
 FDXImageList.Items.Find('Fonts').Picture.Bitmap.Canvas,
 rsrc);


---

jab~   (2004-02-17 16:57:00) [4]

Я думаю можно рисовать... Для этого есть функция BitBlt()

BOOL BitBlt(

   HDC hdcDest, // handle to destination device context
   int nXDest, // x-coordinate of destination rectangle's upper-left corner
   int nYDest, // y-coordinate of destination rectangle's upper-left corner
   int nWidth, // width of destination rectangle
   int nHeight, // height of destination rectangle
   HDC hdcSrc, // handle to source device context
   int nXSrc, // x-coordinate of source rectangle's upper-left corner  
   int nYSrc, // y-coordinate of source rectangle's upper-left corner
   DWORD dwRop  // raster operation code
  );

Типа из одной картинки рисует на другой...
Вот кусочик того как я использовал эту функцию у себя:
BitBlt(b2.Canvas.Handle,0,0,w,h,Form1.Canvas.Handle,MonthCalendar1.Left,MonthCalendar1.Top+30,SRCCOPY);

где
 b2:TBitmap;
w,h:Integer;
Тоесть я с канваса формы где у меня расположен календарь, снимал изображение и помещал его в битмап. Код проверен на 100% работоспособен.
Наверно так с имыдж листами можно (не пробовал).

---

Наверх