| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Image+Label = сохранение картинки

Литвиненко Вадим ©   (2003-04-28 15:28:00) 

На форме лежит Image и на ней прозрачный Label. Загружаю в Image картинку, печатаю текст в Label. Как теперь сохранить в файл получившуюся картинку?
Заранее спасибо за ответы.

---

DimaK   (2003-05-04 23:20:00) [1]

Обсолютно верно, как-то необходимо было мне написать форму отчета, да так, что-бы ее надо было заполнять, вот и придумал создавать в run time компонент метки, перемещать его куда надо и при нажатии на кнопку сохранить, примерно тем же путем копировал координать экрана и создавал обычную bmp.

---

ProgMan   (2003-04-28 18:47:00) [2]

Сляпал на скорую руку (может пригодится):

procedure TForm1.Button1Click(Sender: TObject);
Var
TB:TBitMap;
begin
TB:=TBitmap.Create;
TB.Width:=100;
TB.Height:=100;
TB.Canvas.CopyRect(Rect(0,0,99,99),Form1.Canvas,Rect(0,0,99,99));
TB.SaveToFile("1.bmp");
TB.Free;
end;
При условии, что Image лежит в левом верхнем углу формы


Координаты и размеры задавай для себя сам.

---

Наверх