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

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

TImage ;в файл [D6, WinXP]

Anatoly P ©   (2002-10-31 19:44:00) 

Не могу сохранить содержимое Image в файл с размерами самого Image на форме (Image.Height и Image.Widht), сохраняется с размерами картинки в файле из которого был загружен

---

Anatoly P   (2002-11-02 11:14:00) [1]

Пробовал Proportional и Stretch менять ничего не происходит, может нужно читать по пиксельно?

---

pusrg   (2002-10-31 21:19:00) [2]

А при растягивании картинки на TImage искажения цвета не присутствуют?

---

Anatoly P   (2002-10-31 20:47:00) [3]

Работает, только присутствуют искажения (цвета), можно ли избавиться от этого побочного эффекта?

---

Anatoly P   (2002-10-31 20:29:00) [4]

Попаду домой - попробую, заранее спасибо

---

pusrg   (2002-10-31 20:25:00) [5]

Элементарно:


procedure TForm1.BSaveClick(Sender: TObject);
var SaveFileName:string;
SaveBmp:TBitmap;
begin
SaveBmp:=TBitmap.Create;
try
SaveBmp.Width:=Image.Width;
SaveBmp.Height:=Image.Height;
SaveBmp.Canvas.CopyRect(SaveBmp.Canvas.ClipRect, Image.Canvas, Image.Canvas.ClipRect);

SaveFileName:=Format("%s\SavePic.bmp", [ExtractFilePath(Application.ExeName)]);
SaveBmp.SaveToFile(SaveFileName);

//ShellExecute(Handle, "open", PChar(SaveFileName), "", "", SW_SHOW);
finally
SaveBmp.free;
end;


А если хочешь видеть реальный размер рисунка в TImage ставь Stretch:=false :)

---

Наверх