Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.20;
Скачать: CL | DM;

Вниз

О свойстве ScanLine   Найти похожие ветки 

 
Ш-К   (2005-06-29 13:07) [0]

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;


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


 
MBo ©   (2005-06-29 13:15) [1]

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2005.11.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
2-1131225220
raskapulk
2005-11-06 00:13
2005.11.20
таблица и RegEdit


2-1130797663
Старт
2005-11-01 01:27
2005.11.20
Какую кнопку можно настроить так, чтобы при наведении на неё мыши


14-1130334857
Lexer
2005-10-26 17:54
2005.11.20
Нужна цифровая подпись для подписывания кода


14-1130493355
konda
2005-10-28 13:55
2005.11.20
Очередной "конец света"


1-1130522541
x.pro
2005-10-28 22:02
2005.11.20
как узнать, на каким комтролом находится курсор?