Равноценная замена

← →
Gens © (2006-09-14 13:09) [0]

Здравствуйте уважаемые мастера.У меня проблема следующего рода - перевожу один VCL проект в KOL и столкнулся с пренеприятнейшей вещью.Не могу найти аналогов некоторых стандартных функций.
var
floor1,floorsh:tbitmap;
floorshb:pbytearray;
floorsh.Canvas.Draw(0,0,floor1);
*****
floor1.Transparent:=true;
floor1.TransparentColor:=floor1.Canvas.Pixels[0,0];
floorsh.Transparent:=true;
floorsh.TransparentColor:=floorsh.Canvas.Pixels[0,0];
*****
image1.Canvas.Draw(x1[j,i]-round(tlwidth/2),y1[j,i],floor1);

Может быть кто нибудь покажет как это должно выглядеть в Kol?Заранее благодарен.

← →
homm © (2006-09-15 06:45) [1]

DrawTransparent

Равноценная замена Найти похожие ветки