bmp не сделать

← →
ВадимММ (2009-12-15 21:58) [0]

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 , битмапа нет, черточки не видать!

← →
zorik © (2009-12-15 22:05) [1]

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

← →
ВадимММ (2009-12-15 22:08) [2]

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

← →
zorik © (2009-12-15 22:14) [3]

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);

← →
zorik © (2009-12-15 22:16) [4]

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

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

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

← →
{RASkov} © (2009-12-15 22:57) [6]

> [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);

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

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

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

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

> IM.Picture.Bitmap.Create;

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

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

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

bmp не сделать Найти похожие ветки