L
let_it_be
Unregistered / Unconfirmed
GUEST, unregistred user!
var
x, y, xP, yP: Integer;
yP2, xP2: Integer;
begin
xP2 := ((Width - 1) shl 15) div Dst.Width
// 缩放比例
yP2 := ((Height - 1) shl 15) div Dst.Height;
不理解shl 怎么用的.
x, y, xP, yP: Integer;
yP2, xP2: Integer;
begin
xP2 := ((Width - 1) shl 15) div Dst.Width
// 缩放比例
yP2 := ((Height - 1) shl 15) div Dst.Height;
不理解shl 怎么用的.