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

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

bmp не сделать

ВадимММ ©   (2009-12-15 21:58:00) 

IM: TImage;
кинута на форму, битмап делаем динамически
выравнивает по форме
IM.Left:=20;
IM.Top:=20;
IM.Height:=b;
IM.Width:=a;
IM.Picture.Bitmap.Create;
IM.Canvas.LineTo(0,0);
IM.Canvas.MoveTo(60,60);

где a и b>0 , битмапа нет, черточки не видать!

---

{RASkov}   (2009-12-16 19:52:00) [1]

> [8] zorik ©   (16.12.09 14:36)
> Image ведь кинут на форму написано в [1]

Да, просмотрел.... но в любом случае строка:

> IM.Picture.Bitmap.Create;

или "исправленный" ее вариант:

> IM.Picture.Bitmap := TBitmap.Create;

Лишняя. Т.е. из кода в [6] убрать первые две сторки. Будет достаточно.

---

zorik   (2009-12-16 14:36:00) [2]

> {RASkov} ©   (15.12.09 22:57) [6]


Image ведь кинут на форму написано в [1]

---

{RASkov}   (2009-12-15 23:05:00) [3]

> IM.Width:=a;
> IM.Width:=b;

IM.Width:=a;
IM.Height:=b;

---

{RASkov}   (2009-12-15 22:57:00) [4]

> [5] ВадимММ   (15.12.09 22:37)
> да битмап надо IM.Picture.Bitmap := TBitmap.Create; вот
> так задать

не нужно ничего задавать
нужно родителя указать
IM:=TImage.Create({self});
IM.Parent:={Self};
IM.Left:=20;
IM.Top:=20;
IM.Width:=a;
IM.Width:=b;
IM.Canvas.MoveTo(0,0);
IM.Canvas.LineTo(a,b);

---

ВадимММ   (2009-12-15 22:37:00) [5]

спасибо работает,
да битмап надо IM.Picture.Bitmap := TBitmap.Create; вот так задать

---

zorik   (2009-12-15 22:16:00) [6]

Работает, но надо разобратся как устроен TImage и его Picture

---

zorik   (2009-12-15 22:14:00) [7]

IM.Left:=20;
IM.Top:=20;
IM.Height:=b;
IM.Width:=a;
IM.Picture.Bitmap := TBitmap.Create;
IM.Picture.Bitmap.Width := a;
IM.Picture.Bitmap.Height := b;
IM.Canvas.MoveTo(0,0);
IM.Canvas.LineTo(a,b);

---

ВадимММ   (2009-12-15 22:08:00) [8]

поменял - ничего не произошло,
на форме бип не виден - по идее белым должен стать,
так как все точки цвета clWhite

---

zorik   (2009-12-15 22:05:00) [9]

LineTo и MoveTo поменять местами

---

Наверх