[msqrc]

Если после создания bitmap-а загрузить изображение (loadfromfile()) то изменение пикселей через scanline[] работает правильно, но если bitmap пустой то каждый последующий вызов scanline[] уничтожает все изменения!!!! Почему так происходит??

[Alegun]

Так здесь ещё нужно указать какой будет PixelFormat, поскольку напр. pf24bit соответствует разрядность 3 байта на пиксель, а для pf8bit только один байт, отсюда и глюки

[msqrc]

Тоже не работает!(
Вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

type Tmycolor = record   B,G,R,C : byte;       ///не пойму зачем "C", но без него все смещается!   end; type Tmya = array[0..W-1] of Tmycolor; var .......      P : pointer;      B : TBitmap;      byf : byte; begin B :=TBitmap.Create; B.Height :=H; B.Width :=W; for j:=0 to H-1 do  begin  P :=B.scanline[j];  for i:=0 to W-1 do    begin    byf :=...........    Tmya(P^)[i].B :=byf;    ..............    end;  end; end;

[NumLock]

См. второе сообщение!