Program AlphaTest;
Uses alpha;
Var im: image;
i:integer;
Begin
im:=LoadImage('/123.png'); // Загрузка картинки
DrawText('Уровней: '+GetAlphaLevels, 5, 5); // Отображаем количество альфа-уровней (256 по-идее)
Repaint; Delay(1000);
setcolor(255,255,255);
for i:=1 to 255 do begin
fillrect(0,0,GetWidth,GetHeight);
im:=SetOpaque(im, i);
DrawImage(im, 0, 0);
Repaint; Delay(10);
End;
end.
А меня вот при таком коде картинка становится все синее и синее. Наоборот наверное не синий изменяется цвет а какой то другой уменьшается. А синий из-за этого выделяется. Хотя я не знаю
буду ждать готовую библиотеку. Заранее спасибо