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

Вниз

Нарисованную картинку - в файл   Найти похожие ветки 

 
Ray ©   (2006-05-28 17:08) [0]

Есть форма, на ней панель, на панели несколько Image"й, которые рисуют отдельные части картинки. Как сохранить в .bmp файл ВСЁ, что получилось? Всю картинку?
Проблема в том, что при рисовании эта форма невидима.


 
TUser ©   (2006-05-28 17:17) [1]

TBitMap

потом вычислить размер целой картинки

потом CopyRect


 
unknown ©   (2006-05-28 17:24) [2]

Как вариант - взять Graphics.TBitMap, задать ему соответствующие размеры,
в него скопировать данные с > несколько Image"й и сохранить.
Например :
(на форме 2 TImage, компонуем их в одну картинку)
procedure TForm1.Button1Click(Sender: TObject);
var
 Bmp: Graphics.TBitmap;
 R:   TRect;
begin
 Bmp := Graphics.TBitmap.Create;
 Bmp.Width := Image1.Width + Image2.Width;
 Bmp.Height := Max(Image1.Height, Image2.Height);
 R   := Rect(0, 0, Image1.Width, Image2.Height);
 Bmp.Canvas.CopyRect(R, Image1.Canvas, R);
 R := Rect(Image1.Width, 0, Image2.Width + Image1.Width, Image2.Height);
 Bmp.Canvas.CopyRect(R, Image2.Canvas, Rect(0, 0, Image2.Width, Image2.Height));
 Bmp.SaveToFile("c:\bmp.bmp");
 Bmp.Free;
end;


 
Ray ©   (2006-05-28 20:18) [3]

Еще одна проблема в том, что координаты этих Image"й на экране разные,
а надо сохранять всю картинку с сохранением положения рисунков.
Вот как это выглядит: http://r7.org.ru/files/images.jpg

На выходе нужно получить картинку, размером и цветом Image3,
чтобы на ней были надписи из Image1 и Image2. На разных экранах положение Image1 и Image2 тоже различное.

Как тут быть?


 
wsih ©   (2006-05-28 23:49) [4]

Сделать скриншот формыи из него вырезать прямоугольник размерами Image3 и сохранить его по принципу [2]


 
Ray ©   (2006-05-29 11:04) [5]

А как этот скриншот сделать?
Напоминаю, что форма невидима...


 
wsih ©   (2006-05-29 13:36) [6]

http://www.bib.com.ua/conf/topic_12_926.html



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

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

Наверх




Память: 0.48 MB
Время: 0.057 c
15-1147741674
Imbac
2006-05-16 05:07
2006.06.18
Коррекция зрения


15-1148298698
Gryegh
2006-05-22 15:51
2006.06.18
GPRS перестало работать! Что делать?


2-1149069396
АндрейК
2006-05-31 13:56
2006.06.18
свернутая форма


4-1142953168
Дмитрий_177
2006-03-21 17:59
2006.06.18
Отобразить в Label текст неустановленным на компе шрифтом


2-1148765656
IAH
2006-05-28 01:34
2006.06.18
Как динамически менять имя метода/свойста?