PDA

View Full Version : چرخاندن یک تصویر



kamalhamidi
چهارشنبه 27 آبان 1388, 21:54 عصر
سلام

من میخوام یه تصویر را بچرخانم و سپس آن رو ذخیره کنم

منظورم اینه که یه تصویر را 90 درجه به سمت چپ یا راست بچرخانم

از چه کدی برای این کار استفاده کنم

merced
چهارشنبه 27 آبان 1388, 21:58 عصر
http://www.delphi3000.com/articles/article_2764.asp?SK=

kamalhamidi
پنج شنبه 28 آبان 1388, 21:00 عصر
دوستان کسی میتونه یه کد بهتری بده چون کد پایین مدت زمان زیادی برای چرخش تصویر ها نیاز داره حدود 2 الی 3 ثانیه




Procedure TurnImage(Src, Dst: TImage);
var x,y: integer;
begin
Dst.Width:= Src.Height; Dst.Height:= Src.Width;
For x:= 0 to Src.Width-1 do begin
For y:= 0 to Src.Height-1 do begin
Dst.Canvas.Pixels[(Src.Height-1)-y,x]:= Src.Canvas.Pixels[x,y];
end;
end;
end;

merced
پنج شنبه 28 آبان 1388, 21:59 عصر
چرا از كامپوننت هايي مثل ImageEn استفاده نمي كني.