سورسهاي نمونه آموزشي

[mbshareat]

سریع ترین کد برای قرینه کردن بیت مپ:

procedure FlipBmp(B:TBitmap;Mode:Byte);

Var

  R,R2:TRect;

begin

  R:=B.Canvas.ClipRect;

  If Mode=1 then

    R2:=Rect(R.Right,R.Top,R.Left,R.Bottom)

  Else

    R2:=Rect(R.Left,R.Bottom,R.Right,R.Top);

  B.Canvas.CopyRect(R2,B.Canvas,R);

end;