var
Wdt, Hgt, nw: Integer;
begin
Canvas.FillRect(Clientrect);
SetStretchBltMode(Canvas.Handle, HALFTONE);
Wdt := b.Width;
Hgt := b.Height;
nw := Round(Wdt * Cos(Phi));
StretchBlt(Canvas.Handle, (Wdt - nw) div 2, 0, nw, Hgt,
b.Canvas.Handle, 0, 0, Wdt, Hgt, SRCCOPY);
Phi := Phi + Pi / 72; |