Равноценная замена [Delphi, Windows]
Gens © (2006-09-14 13:09:00)
Здравствуйте уважаемые мастера.У меня проблема следующего рода
- перевожу один 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:00) [1]
DrawTransparent
Наверх 
ЧАТ |
Орешник |
|
