[Klyaksa]

Доброго времени суток. Искал на форуме про Fastdib набрел на это. Если я компилирую этот код у меня вылетает ошибка.

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
split:integer;
  bmp:tfastdib;
  x,y,k: Integer;
  Lin1: PLine24;
  pc: PFColor;
begin
  for y:=0 to Bmp.AbsHeight-1 do //--Здесь ошибка
  begin
    Lin1:=Bmp.Scanlines[y];
    for x:=0 to Bmp.Width-1 do
    begin
      k:=(76*Lin1[x].r+150*lin1[x].g+30*lin1[x].b) div 256;
      if k < Split then k:=0 else k:=255;
      Lin1[x].r:=k;
      Lin1[x].g:=k;
      Lin1[x].b:=k;
    end;
  end;
end;

Вот ошибка .

[NumLock]

причина: не создан объект bmp:tfastdib
решение: его нужно создать
подробнее: Create()

[Klyaksa]

Какие параметры мне нужно прописать чтобы он создался? Делаю так

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
bmp := Tfastdib.Create;
bmp.Width  := image1.Width;
bmp.Height := image1.Height;
//bmp.PixelFormat := pf24bit;--в fastdib этого нет
end;

[NumLock]

Сообщение от Klyaksa

Какие параметры мне нужно прописать чтобы он создался?

не знаю - мне лень качать его и устанавливать, чтобы посмотреть что подскажет Ctrl+Shift+Space, собираюсь кино посмотреть

[Klyaksa]

У кого есть Fastdib или хотя бы пользовался им, помогите пожалуйста!

[angvelem]

У меня валяется древняя-древняя версия. В ней имеются свйства:

Код:

  Pixels8, Pixels16, Pixels24, Pixels32

на сегодняшний день FastDib не актуален.