Текущий архив: 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.47 MB
Время: 0.021 c
