Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.02.14;
Скачать: CL | DM;

Вниз

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


 
{RASkov} ©   (2009-12-15 23:05) [7]

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

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


 
zorik ©   (2009-12-16 14:36) [8]


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


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


 
{RASkov} ©   (2009-12-16 19:52) [9]

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

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

> IM.Picture.Bitmap.Create;

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

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

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



Страницы: 1 вся ветка

Текущий архив: 2010.02.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.009 c
15-1260214408
Павел33333
2009-12-07 22:33
2010.02.14
Копирование программы с одного компьютера на другой.Не пашет.


2-1260805424
JohnKorsh
2009-12-14 18:43
2010.02.14
Delphi 7 перестал останавливатться по Breakpoint.


15-1260262525
tesseract
2009-12-08 11:55
2010.02.14
Узнай сколько ты должен родной стране (ток РФ) :-)


4-1229006142
ZiZiTop
2008-12-11 17:35
2010.02.14
Как разговаритвать со звуковой под WinNT


1-1237570264
atruhin
2009-03-20 20:31
2010.02.14
Как реализовать контроль MouseClick в приложении