Текущий архив: 2002.11.11;
Скачать: CL | DM;

Вниз

TImage в файл   Найти похожие ветки 

← →
Anatoly P   (2002-10-31 19:44) [0]

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

---

← →
pusrg   (2002-10-31 20:25) [1]

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


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 :)

---

← →
Anatoly P   (2002-10-31 20:29) [2]

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

---

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

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

---

← →
pusrg   (2002-10-31 21:19) [4]

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

---

← →
Anatoly P   (2002-11-02 11:14) [5]

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

---

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

Текущий архив: 2002.11.11;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.008 c