[medvedoff]

Доброго времени суток Знатоки! Есть следующая проблема: есть у меня функция для преобразования bmp в монохромное (pf8bit), причем интересненьким методом при помощи коэффицента, реализована она на skyLine, так вот хочется переписать её на fastDib, дабы на нем весь проект держится...ничего не получается. Можете хоть подсказать в какую сторону рыть?

Код:

procedure TForm1.BtseuilClick(Sender: TObject);
var
 rw,i,j,k,l:integer;
 seuil:integer;
 p:pbytearray;
begin
 seuil:=TrackSeuil.Position;
 image1.Picture.Bitmap.Assign(bt);
 rw := (((bt.Width * 32) + 31) and not 31) div 8;
 p:=image1.Picture.Bitmap.ScanLine[bt.Height-1];
 for j:=0 to bt.Height-1 do
 for i:=0 to bt.Width-1 do
 begin
  k:=i*4+j*rw;
  // passe en niveau de gris
  l:=(76*p[k+2]+150*p[k+1]+30*p[k+0]) div 256;
  //suivant le seuil choisi, c'est noir ou blanc
  if l<seuil then l:=0 else l:=255;
  // on met а jour le bitmap
  p[k+2]:=l;
  p[k+1]:=l;
  p[k+0]:=l;
 end;
end;

FastDib вот этот