Сохранение области формы

[Marsik]

Здравствуйте!Помогите пожалуйста с вопросом:
У меня есть форма,а на ней два имиджа,причем так что один из них сверху другого!И мне нужно сохранить получившийся рисунок.Если есть какие-то идеи,то помогите,пожалуйста!

[Barahlush]

Попробуй сделать так, запускаешь форму, нажимаешь Print Screen, потом запускаешь Paint нажимаешь Сtrl+V и у тебя получается снимок твоего окна, потом открываешь какой ни будь графический редактор и вырезаешь все, что тебе нужно!

[bill]

А почему бы не поместить эти image-ы на panel(при этом свободного места там нет,т.е. размещаешь их по левому краю и поверху повозможности). Если размеры одинаковые, то просто сохраняешь весь канвас панели, если нет, то нужен цикл, который отщепляет пиксели изображений-помещает их на новую канву в соответствии с их позицией.
Если что не понятно спрашивай.

[zetrix]

Подкорректируй немного код, я на скорую руку делал, и в сохранённом файле есть лишнее.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
bit:Tbitmap;
r:Trect;
begin
bit:=TBitmap.Create;
bit.Width:=form1.Width;
bit.Height:=form1.Height;
r.Left:=0;
r.Top:=0;
r.Right:=form1.Width;
r.Bottom:=form1.Height;
bit.Canvas.CopyRect(r,form1.canvas,r);
bit.SaveToFile('C:\111.bmp');
bit.Free;
end;

[Marsik]

Да...сфоткали мне форму!Но мне ведь нужно чтобы сохранялись только имиджы(причем один имидж сверху другога),а не всю форму!!! А это можно сделать?

[mihali4]

Сообщение от Marsik

Да...сфоткали мне форму!Но мне ведь нужно чтобы сохранялись только имиджы(причем один имидж сверху другога),а не всю форму!!! А это можно сделать?

Зетрикс и сказал - подкорректируй.
А подкорректировать нужно параметры TRect.
Может, пора начинать самостоятельно мыслить, а не сидеть, как птенец, с вечно открытым клювом?

[Marsik]

Да Михалыч...Мстительный вы человек :-( .Чем ругать,лучше литературу хорошую посоветай плиз!

[zetrix]

Литературу? Пожалуйста - смотрите подпись мою.

Вам надо корректировать вот эти строчки:

bit.Width:=form1.Width; //ширина будущей картинки
bit.Height:=form1.Height; // выстота будущей картинки

// левая верхняя точка скриншота
r.Left:=0;
r.Top:=0;

//правая нижняя точка скриншота
r.Right:=form1.Width;
r.Bottom:=form1.Height;

Все значения Вы можете узнать, зная параметры имэйджев. (left, top, width, height)
Нарисуйте на бумажке, чтоб нагляднее было, и всё поймёте.

[Marsik]

Зетрикс,извини за глупейший вопрос:как найти right и bottom?Как я понял чтобы right найти нужно из width формы отнять лефт и width имиджа,чтобы боттом аналогично.Но вот загвозда в чем-сохраняет,но совершенно другое место!Почему?

[mihali4]

Наоборот:
Right:=Left+Width;
Bottom:=Top+Height;
Все параметры - соответствующие для искомого TImage.