[Del] TCanvas.pixels → HBitMap

[Alex Cones]

Собственно есть HBitMap. Как обратиться и считать или изменить один из пикселей этого изображения? Или подключать Graphics и связывать TBitMap и HBitMap?

[BOBAH13]

Что значит есть HBITMAP ? Просто с потолка появился ? Создайвайте через CreateDIBSection, там указываите и получаите прямой доступ (адресс) на первый байт, + у вас доступ как HBITMAP, HDC (через SelectObject), ну и еще Scan0. А вообще, MSDN в помощь, ведь надо заглядывать изредка щас гляну может сразу и скажу

ну и вот ответ: GetDIBBits/SetDIBIBits... вытащить биты, модифицируите, и обратно ставите.

[raxp]

не нужно TBitMap... допустим:

var hdcScreen, hdcImage: hdc;
     hBitmaps: hbitmap;
begin
 hBitmaps:= LoadImage(hInstance, text('bmp.bmp'), IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE);

// или
// hdcImage:= CreateCompatibleDC(0);
// hdcScreen:= hdcImage;
// hBitmaps:= CreateCompatibleBitmap(hdcScreen, 16, 16); // если иконку 32х32
 
 ...
 hdcScreen: = GetDC(hWnd);
 hdcImage: =CreateCompatibleDC(hdcScreen);
 SelectObject(hdcImage, hBitmaps);
 BitBlt(hdcScreen, 0, 0, w, h, hdcImage, 0, 0, SRCCOPY);

тогда...

цвет:= GetPixel(hdcScreen, точка x, точка y); // setpixel(hdc, x, y, цвет)

UPD
---------------

BOBAH13
В принципе да, но, если вызов производится редко, и не часто. Иначе забудьте про программу Будет очень медленно

верно... но так как догадываюсь, где это будет использоваться, там такие скорости не нужны

[BOBAH13]

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

допустим...
тогда...

цвет:= GetPixel(hdcScreen, точка x, точка y);

В принципе да, но, если вызов производится редко, и не часто. Иначе забудьте про программу Будет очень медленно.

[Alex Cones]

hBitmaps:= CreateCompatibleBitmap(hdcScreen, 16, 16); // если иконку 32х32

Мне немного не понятна эта строка. А именно цифры в ней. 16=32? Или нужно домножать на 2? Как тогда создать битмап размером 9*372?

В принципе да, но, если вызов производится редко, и не часто. Иначе забудьте про программу Будет очень медленно.

Общаться с битмапом буду только в начале программы при её загрузке.

[raxp]

Мне немного не понятна эта строка. А именно цифры в ней. 16=32? Или нужно домножать на 2? Как тогда создать битмап размером 9*372

просто скопировал из своего модуля вывода текста в трей... забыл убрать 32, виноват

Общаться с битмапом буду только в начале программы при её загрузке

значит ок

[Alex Cones]

// или
// hdcImage:= CreateCompatibleDC(0);
// hdcScreen:= hdcImage;
// hBitmaps:= CreateCompatibleBitmap(hdcScreen, 16, 16); // если иконку 32х32

...
hdcScreen: = GetDC(hWnd);
hdcImage: =CreateCompatibleDC(hdcScreen);
SelectObject(hdcImage, hBitmaps);
BitBlt(hdcScreen, 0, 0, w, h, hdcImage, 0, 0, SRCCOPY);

тогда...
Код:


цвет:= GetPixel(hdcScreen, точка x, точка y); // setpixel(hdc, x, y, цвет)

Одновременно можно редактировать несколько битмапов? или это

 hdcScreen: = GetDC(hWnd);
 hdcImage: =CreateCompatibleDC(hdcScreen);
 SelectObject(hdcImage, ДРУГОЙ БИТМАП);
 BitBlt(hdcScreen, 0, 0, w, h, hdcImage, 0, 0, SRCCOPY);

нужно повторять при начале редактирования следующей картинки? Их у меня 27.

[raxp]

если уже есть готовый контексты hdc картинок, то не нужно... если нет, то нужно... эм, хорошо бы проверить... так как сам много картинок не использовал раньше

[Alex Cones]

Тогда не буду рисковать и буду задавать каждой отдельно по очереди.

[Alex Cones]

Что-то я наверное неправильно делаю, выводится черный прямоугольник.

Procedure CreateBinImage(W,H:SmallInt; Var BitMap:HBitMap);
Begin
 hdcImage  := CreateCompatibleDC(0);
 hdcScreen := hdcImage;
 BitMap    := CreateCompatibleBitmap(hdcScreen, W, H);
End;

Procedure LoadBinaryImages;
Var
 F,F2:File;
 FFLine:String;
 X,Y:SmallInt;
 I:Byte;
 SomeBit:Byte;
 N:Array[0..15] of Integer;
 MaxX,MaxY:SmallInt;
Begin
 AssignFile(F,Directory.Resource+'\Interface.pack');
 Reset(F,SizeOf(Byte));
 AssignFile(F2,Directory.Resource+'\Palette.pal');
 Reset(F2,SizeOf(N));
 FFLine:='';
 MaxX:=0;
 MaxY:=0;
 While Not (Eof(F)) do
  Begin
   BlockRead(F,SomeBit,1);
   FFLine:=FFline+IntToHex(SomeBit,2);
  End;
 For I:=0 to 26 do
  Begin
   BlockRead(F2,N,1);
    Case I of
     0..1,4..5,7..8,11..12,15..16,20..23,25..26: Begin MaxX:=29; MaxY:=17; End;
     2..3,9..10: Begin MaxX:=61; MaxY:=17; End;
     6: Begin MaxX:=282; MaxY:=47; End;
     13:Begin MaxX:=9; MaxY:=372; End;
     17:begin MaxX:=9; MaxY:=372; End;
     14: Begin MaxX:=282; MaxY:=14; End;
     18..19: Begin MaxX:=152; MaxY:=37; End;
     24: Begin MaxX:=300; MaxY:=28; End;
    End;
   CreateBinImage(MaxX,MaxY, Bit[I]);// Bit.Width:=MaxX; Bit.Height:=MaxY;
   For Y:=0 to MaxY-1 do
    Begin
     For X:=0 to MaxX-1 do
      Begin
       SetPixel(hdcScreen,X,Y,N[StrToInt('$'+Copy(FFLine,1,1))]); //Bit.Canvas.Pixels[X,Y]:=N[StrToInt('$'+Copy(FFLine,1,1))];
       Delete(FFLine,1,1);
      End;
    End;
  End;
 CloseFile(F);
 CloseFile(F2);
 ////////////
 SendMessage(IMGMiddle.Handle, STM_SETIMAGE, IMAGE_BITMAP, Bit[14]);
 ////////////
End;

Если заменить строки на закоментенные, то все работает. Похоже я как-то не так общаюсь с hdc.