Как правильно использовать функцию ExtFloodFill.

[SkAndrew]

Добрый день!

Подскажите в чем моя ошибка?

Заданы Bitmap и функция конвертирования HTML2Color:

  Bitmap := TBitmap.Create;
  Bitmap.PixelFormat := pf8bit; - должен быть такой!
  Bitmap.Height := 100;
  Bitmap.Width := 100;

функция HTML2Color(s : String) : TColor;

Так код работает:

  s := '#8e974f';
  Bitmap.Canvas.Brush.Color := HTML2Color(s);
  Bitmap.Canvas.FloodFill(0, 0, Bitmap.Canvas.Pixels[0,0], fsSurface);

А так не работает:

  s := '#8e974f';
  ExtFloodFill(Bitmap.Canvas.Handle, 0, 0, ColorToRGB(HTML2Color(s)), FloodFillSurface);

или

  s := '#8e974f';
  ExtFloodFill(Bitmap.Canvas.Handle, 0, 0, HTML2Color(s), FloodFillSurface);

Спасибо!