Текущий архив: 2003.11.20;
Скачать: CL | DM;
Вниз
Проблема с CopyRect Найти похожие ветки
← →
Hatawa (2003-07-25 09:53) [0]Уважаемые мастера, подскажите пожалуйста, почему может такое происходить - после выполнения нижеследующего кода в файл NewFilename сохраняется белый прямоугольник?
Если попробовать сделать то же самое в примере из Graphics32 - всё работает.
var WidthRatio : real;
HeightRatio : real;
Factor : extended;
FuckImage : TImage32;
Image ( self)Уважаемые мастера, подскажите пожалуйста, почему может такое происходить - после выполнения нижеследующего кода в файл NewFilename сохраняется белый прямоугольник?
Если попробовать сделать то же самое в примере из Graphics32 - всё работает.
var WidthRatio : real;
HeightRatio : real;
Factor : extended;
FuckImage : TImage32;
Image : TImage;
begin
FuckImage:=Timage32.Create(self);
FuckImage.Visible:=false;
FuckImage.Parent:=self;
FuckImage.Bitmap.LoadFromFile(nFile);
WidthRatio := FuckImage.Bitmap.Width / ClientWidth;
HeightRatio := FuckImage.Bitmap.Height / ClientHeight;
Factor := Max(WidthRatio, HeightRatio)*1.1;
if (Factor < 1) then Factor := 1;
FuckImage.Width:=trunc(FuckImage.Bitmap.Width/factor);
FuckImage.Height:=trunc(FuckImage.Bitmap.Height/factor);
FuckImage.ScaleMode:=smScale;
FuckImage.Scale:=1/Factor;
FuckImage.Visible:=true;
Image:=TImage.Create(self);
Image.Parent:=self;
Image.Visible:=false;
Image.Width:=FuckImage.Width;
Image.Height:=FuckImage.Height;
image.Canvas.CopyMode:=srcCopy;
image.Canvas.CopyRect(FuckImage.Canvas.ClipRect,fuckimage.Canvas,FuckImage.Canvas.ClipRect);
Image.Picture.SaveToFile(NewFilename);
← →
AlexT1000 © (2003-07-25 15:52) [1]FuckImage ( FuckImage.Canvas{!!!!}.ClipRect,fuckimage.Canvas{!!!!},FuckImage.Canvas.ClipRect) FuckImage : TImage32;
image.Canvas.CopyRect(FuckImage.Canvas{!!!!}.ClipRect,fuckimage.Canvas{!!!!},FuckImage.Canvas.ClipRect);
Что то я не помню у TImage32 свойства Canvas, а заодно и ClipRect!
Страницы: 1 вся ветка
Текущий архив: 2003.11.20;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.017 c
