| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

О свойстве ScanLine

Ш-К ©   (2005-06-29 13:07:00) 

procedure TForm1.Button1Click(Sender: TObject);
var
 j: Integer;
 I: Integer;
 Row: pByteArray;
 Bitmap: TBitmap;
begin
 Bitmap := TBitmap.Create;
 try
   if ImageList1.GetBitmap(0, Bitmap) then
     begin
       for I := 0 to Bitmap.Height - 1 do
         begin
           Row := Bitmap.ScanLine[I];
           for j := 0 to Bitmap.Width - 1 do
               begin
                 Row^[J * 3] := 255; //или др. алгорим
                 Row^[J * 3 + 1] := 255;
                 Row^[J * 3 + 2] := 255;
               end;
         end;
       Canvas.Draw(10, 10, Bitmap);
     end;
 finally
   FreeAndNil(Bitmap);
 end;
end;

По идее картинка должна рисоваться измененной. А рисуется оригинал.
Что не так?

---

Ш-К   (2005-06-29 14:08:00) [1]

MBo ©   (29.06.05 13:15) [1]
Тогда уж и pf24bit.
Спасибо.

---

MBo   (2005-06-29 13:15:00) [2]

Для использования ScanLine битмап должен иметь тип HandleType bmDIB, а не bmDDB

---

Наверх