VPF::Сохранить рисунок с TPanel - Форум программистов

Delphist

Дата 11.1.2006, 17:38 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Есть наследник от TPanel

Код


TMyPicturePanel = class(TPanel)

private
image1: TImage;
...
imageN: TImage; {N - определенное кол-во компонентов TImage которые размещаются на TPanel'и}
...
end;

Задача состоит в следующем:
Создаём экземпляра класса MyPicturePanel: TMyPicturePanel;
Нужно каким-то образом сохранить картинки размещенные на TMyPicturePanel как единое целое в файл.
Как это сделать - может быть свойство какое -либо добавить в TMyPicturePanel, ведь сам TPanel не умеет такого делать.

Это сообщение отредактировал(а) Delphist - 11.1.2006, 17:40

--------------------

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

Romikgy

Дата 11.1.2006, 17:49 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Эти имаги есть куски целой картинки? или просто набор картинок в файл?
ксати имаги все размера одинакового?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

z-END

Дата 11.1.2006, 17:53 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

создаем TBitmap размером c TMyPicturePanel и перерисовываем на нем все Image1-ImageN также как они и располагаются на панеле. и сохраняем этот TBitmap

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Delphist

Дата 11.1.2006, 18:05 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(z-END @ 11.1.2006, 17:53)

Примерчик не мог бы дать.

--------------------

z-END

Дата 11.1.2006, 18:09 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

Цитата(Delphist @ 11.1.2006, 18:05

)

Примерчик не мог бы дать.

написать за тебя? smile

увы...не мог бы=)
сложного ничего нет, почитай как создавать TBitmap как на нем рисовать
зы дам подсказку: TBitmap.Canvas.Draw тебе поможет smile

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Alexeis

Дата 11.1.2006, 18:17 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  bmp : TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.Height := panel1.Height;
  bmp.Width := panel1.Width;
  bmp.Canvas.Draw(image1.Left, image1.Top, image1.Picture.Graphic);
  bmp.Canvas.Draw(image2.Left, image2.Top, image2.Picture.Graphic);
  bmp.SaveToFile('1.bmp');
  bmp.Free;
end;

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

DemoCode

Дата 11.1.2006, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 890
Регистрация: 20.10.2005
Где: Россия

Репутация: 2
Всего: 41

Цитата(Delphist @ 11.1.2006, 19:05

)

Примерчик не мог бы дать.

Я же тебе давал пример, в твоём топике по сохранению канвы нескольких компонентов.
Или он не подошёл?
Добавлено @ 18:29
http://forum.vingrad.ru/index.php?showtopic=75525

Только там все TImage со всей формы.
Замени Form1 на имя панели содержащей компоненты TImage

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »