Главная страница
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.036 c
1-1147460541
Mao
2006-05-12 23:02
2006.06.18
подскажите решение клиент/сервер


3-1145617005
Экспериментатор
2006-04-21 14:56
2006.06.18
Есть Query с запросом, научите как получить значение REGS.TypeReg


15-1148362806
cyborg
2006-05-23 09:40
2006.06.18
Нужно в одном интерпретаторе добавить функцию


1-1147260207
Dr. Andrew
2006-05-10 15:23
2006.06.18
Как создать алгоритм возвращения поряд. номера слова в строке.


2-1148988632
Ламот
2006-05-30 15:30
2006.06.18
Открыть "Языки и рег. стандарты" из своей программы