Скачать: CL | DM;

Вопрос по Image   Найти похожие ветки 

← →
zero-g ©   (2005-11-05 18:47) [0]

ДОброго времени суток!

Скажите, в Image1 есть изображение, я хочу выдрать кусок в bmp файл, а палучаю белый фон....

     bmp := tbitmap.Create;
     bmp.Width := 180;
     bmp.Height := 240;
     BitBlt(Bmp.Canvas.Handle, 0, 0, 180, 240,
     form7.Image1.Picture.Bitmap.Canvas.Handle,0,0, SRCCOPY);
     bmp.SaveToFile("c:\1.bmp");
     bmp.Free;
     form7.Image1.Picture := Nil;

В чем фишка????

---

← →
Eraser ©   (2005-11-05 22:39) [1]

> zero-g ©   (05.11.05 18:47)

Вроде должно работать, если картинка загружена правильно в этот Image1.

> form7.Image1.Picture := Nil;

А это что за чудо?

---

← →
zero-g ©   (2005-11-06 08:41) [2]

>Вроде должно работать, если картинка загружена правильно в этот Image1.

ну загружена таким макаром...

var jpg : TJPGImage;
begin

jpg := TJPGImage.create;
jpg.loadfromfile(".\1.jpg");

form7.image1.picture.assign(jpg) // помоему так, не помню ...
jpg.free;
end;

> form7.Image1.Picture := Nil;

>>А это что за чудо?
Ну это после того как выдираю то что надо, типо убираю картинку из Image, чтоб память не занимать. )

---

← →
zero-g ©   (2005-11-06 08:46) [3]

Кстате, когда вдя bmp типа TBITMAP то работает... а вот и Imag не работает....
Тока не говорите что мол работай с переменными ))

Мне нужен Image )
На Imagе есть кнопка, которая имеет определенный размер, и перемешается по изображению, кнопка типо прозрачная... когда на нее кликаешь, мне надо вытащить именно тот кусок изображения,  который лежит за кнопкой... Смысл понятен?
я пока тока пытаюсь вообще выдрать хоть чтото из Image... если прокатит, но надо будет думать как выдрать нужный врагмент...

---

← →
Набережных С. ©   (2005-11-06 10:14) [4]

> zero-g ©   (06.11.05 08:41) [2]


> form7.image1.picture.assign(jpg)

В результате в Image.Picture создается Graphic типа TJPegImage. При попытке обращения к Image1.Picture.Bitmap.Canvas.Handle этот Graphic уничтожается и вместо него создается Graphic типа TBitmap, который, естественно, пустой.
 Можно сделать так:

jpg := TJPGImage.create;
jpg.loadfromfile(".\1.jpg");

form7.image1.picture.Bitmap.assign(jpg)
jpg.free;

---

← →
zero-g ©   (2005-11-06 10:16) [5]

хорошо, попробую :)
спасиб.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c