PROCEDURE ColorToRGB(tnColor, tnRed, tnGreen, tnBlue)
tnBlue = BITRSHIFT(tnColor, 16)
tnGreen = MOD(BITRSHIFT(tnColor, 8), 256)
tnRed = MOD(tnColor, 256)
ENDPROC
与
PROCEDURE Image1.MouseMove(tnButton, tnShift, tnXCoord, tnYCoord)
LOCAL lnRed, lnGreen, lnBlue
ColorToRGB(ThisForm.Point(tnXCoord, tnYCoord), @lnRed, @lnGreen, @lnBlue)
WITH This.Parent
.Text1.Value = "(" + TRANSFORM(tnXCoord) + "," + TRANSFORM(tnYCoord) + ")"
.Text2.Value = "(" + TRANSFORM(lnRed) + "," + TRANSFORM(lnGreen) + "," + TRANSFORM(lnBlue) + ")"
ENDWITH
ENDPROC
是否可以考虑合并,仅供参考