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

Вниз

Image+Label = сохранение картинки   Найти похожие ветки 

← →
Литвиненко Вадим   (2003-04-28 15:28) [0]

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

---

← →
ProgMan   (2003-04-28 18:47) [1]

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

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 лежит в левом верхнем углу формы


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

---

← →
DimaK   (2003-05-04 23:20) [2]

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

---

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

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

Наверх

Память: 0.44 MB
Время: 0.01 c