无法在 Lazarus 中使用 TFPColor 标识符

Question

我正在尝试声明一个 returns TFPColor 类型的函数，但我收到一条错误消息：

Error: Identifier not found "TFPColor"

function luminosity(img: TImage; i,j: Integer): TFPColor;
var
  r, g, b: byte;
begin
  r:= round(red(img.Picture.bitmap.canvas.pixels[i,j]) * 0.21);
  g:=  round(green(img.Picture.bitmap.canvas.pixels[i,j]) * 0.72);
  b:= round(blue(img.Picture.bitmap.canvas.pixels[i,j]) * 0.07);
  luminosity := TColorToFPColor(RGBToColor(r, g, b));
end;

我已经在单元序言中声明了Graphics单元！

Answer 1

TFPColor声明在FPImage.Pas单元：

  TFPColor = record
    red,green,blue,alpha : word;
  end;

因此您需要将 FPImage.Pas 添加到您的使用列表中。

顺便说一句，它没有在任何 Delphi7 标准单元中声明。

无法在 Lazarus 中使用 TFPColor 标识符

Cannot use TFPColor identifier in Lazarus

pascal

lazarus