|
下载了最新的1.9版本,但是在编译的时候,报错,不认识参数中的SrcPoint,它是TFixedPoint record类型,在GR32单元中声明的。
procedure RoundShift1(var DstPoint: TFixedPoint; const SrcPoint: TFixedPoint; const T: TTransformation); {$IFNDEF TARGET_x86}{$IFDEF INLININGSUPPORTED} inline; {$ENDIF}{$ENDIF}
{$IFNDEF TARGET_x86}
begin
DstPoint.X := (SrcPoint.X + $7F) div 256;
DstPoint.Y := (SrcPoint.Y + $7FFF) div 65536;
{$ELSE}
asm
MOV ECX, [SrcPoint.X]
ADD ECX, $0000007F
SAR ECX, 8 // sub-sampled
MOV [DstPoint.X], ECX
MOV EDX, [SrcPoint.Y]
ADD EDX, $00007FFF
SAR EDX, 16
MOV [DstPoint.Y], EDX
{$ENDIF}
end;
郁闷啊,哥一个组件也装不上。 |
|