TImage, Canvas, Pixels. пропадает изображение

[J1Mmy]

доброго времени суток. появилась нужна сделать "картиночную кнопку". выбрал в качестве родительского класса TImage. добавил всяческие обработчики и с обычными изображениями(bmp, jpeg) всё отлично. Но, хотел переделать под png, чтобы навод мыши определялся если пиксель[х,у] не прозрачен.
Попробовал через

if Picture.Bitmap.Canvas.Pixels[msg.XPos, msg.YPos] <> -1 then

Но столкнулся с тем, что эта проверка, а точнее вызов

Picture.Bitmap.Canvas.Pixels[msg.XPos, msg.YPos]

вызывает сброс всей канвы кнопки, что в итоге она(картинка) просто исчезает. Кто сталкивался с этим? можете ткнуть, что не так делаю... Заранее благодарен

[Stilet]

Я сталкивался. Давно. Поставил сторонние компоненты (от JEDI кажись) - это дало плоды. Классический Image в этом плане нододелан. Впрочем может быть в новых Делфи уже решена эта проблема с несовмещением битмапа и канвы.

[J1Mmy]

Я попробовал так-же в качестве родительского TGraphicControl брать, с ним та же история... наверное потому, что я подглядывал в TImage, когда делал.

[Stilet]

Я бы делал на основе TPaintBox такие вещи.

[xrob]

А я бы опустился до уровня ScanLine.
у TPNGObject есть ScanLine для самого изображения и AlphaScanline для маски прозрачности

[J1Mmy]

ScanLine необходим при переносе/наложении, ибо выдает строками. а мне надо обрабатывать точками, чтобы можно было делать кнопки любой формы и сложности, и реагировали только при наводе на непрозрачный пиксель

[Rin]

Вот так можно обратиться именно к пикселю.

type 
  TRGBA; = packed record
    rgbtBlue: Byte;
    rgbtGreen: Byte;
    rgbtRed: Byte;
    rgbtAlpha:Byte;
   end;
PRGBA = ^TRGBA;
................
function GetPixel(My_BitMap:TBitmap;X, Y: Integer): TColor;
var
  P: PRGBA;
begin
  P:= My_Bitmap.ScanLine[Y];
  Inc(P, X);
  Result:= (P^.rgbtBlue shl 24) or (P^.rgbtGreen shl 16) or (P^.rgbtRed shl 8) or P^.rgbtAlpha;
end;

procedure foo();
var BM:TBitMap;
begin
BM:=TBitMap.Create;
BM.LoadFromFile('путь\*.*');
if (GetPixel(BM,4,5)=clWhite) then showmessage('Белый я, белый!');
end;

[xrob]

ScanLine необходим ... а мне надо ...

J1Mmy, кто хочет - ищет возможность.

uses PNGImage;
var PNG:TPNGObject;

procedure TForm1.FormCreate(Sender: TObject);
begin
PNG:=TPNGObject.Create;
PNG.LoadFromFile('C://test.png');
PNG.CreateAlpha;
end;



procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var
p:PByteArray;
b:byte;
begin
//PNG-картинка рисуется на форме в координатах 0:0, 
//поэтому X и Y координат мышки совпадают с координатами картинки
p:=PNG.AlphaScanline[y];
b:=p^[x];
caption:=inttostr(b); // показать непрозрачность пиксела 
end;