Всем привет! Вобщем, дело такое:
На форме есть image, который загружается из C:\image.jpeg. Этот image можно перемещать по форме во время работы программы.
Передо мной стоит задача - сохранить в отдельный файл определённую часть изображения. Как это сделать?
Использую вот такое:
Код:
rocedure TForm1.Button1Click(Sender: TObject);
var
B:TBitmap;
begin
B:=TBitmap.Create;
B.Width:=Bevel1.Width;
B.Height:=Bevel1.Height;
B.Canvas.Draw(0,0,Image1.Picture.Graphic);
B.SaveToFile('fragment.jpeg');
B.Free;
end;
Но он сохраняет верхюю правую часть image, где бы он не находжился на форме.
Помогите, заранее спасибо!
rocedure TForm1.Button1Click(Sender: TObject);
var
B:TBitmap;
begin
B:=TBitmap.Create;
B.Left:= тут указываешь нужное тебе значение;
B.Top:= тут указываешь нужное тебе значение;
B.Width:=Bevel1.Width;
B.Height:=Bevel1.Height;
B.Canvas.Draw(0,0,Image1.Picture.Graphic);
B.SaveToFile('fragment.jpeg');
B.Free;
end;
________________ Продаю приват читы для AION Absolute, desteny 3.5, Legend, Cataclysm, Ru, EU, NA Продаю многооконку на R2 Пишу читы на заказ под любые игры. Предложения в ЛС. Все мои читы/программы/статьи тут:http://zhyk.ru/forum/showpost.php?p=38501&postcount=21