Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];

Вниз

Вопрос по 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 вся ветка

Форум: "Начинающим";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.048 c
14-1130301586
vidiv
2005-10-26 08:39
2005.11.20
Вывод страниц на PHP


14-1130482664
Изобретатель
2005-10-28 10:57
2005.11.20
Подсчет контрольной суммы файлов. Новая функция!


3-1128048706
Извращенец2
2005-09-30 06:51
2005.11.20
Interbase 5.6 жрет память


2-1130516275
DelphiLexx
2005-10-28 20:17
2005.11.20
Подскажите где ошибка


3-1128778466
alpine
2005-10-08 17:34
2005.11.20
Через что лучше установить соединение с MySQL ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский