Mega Code Archive

 

Categories / Delphi / Graphic

 

Bitmap rotate

//drony@mynet.com // icq:266148308 {90º çevirir} Procedure cevir(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;