Навел левый верхний угол(несколько пикселей включая самый левый и верхний) белым цветом в пейнте(хотя он и весь фон каринки и так белые)
constructor TPole.Create(k, i, raz:integer;AOwner : TComponent);
begin
Image:=TcxImage.Create(nil);
.......
Image.Style.Color:=clGray;
end;
procedure TDoska.PosBeg;//расставляем фигурки
var k,i:integer;
begin
Image.Picture.LoadFromFile('Kon.jpg');
with Image.Picture do
begin
Bitmap.TransparentColor:= Bitmap.Canvas.Pixels[1,1];
end;
end;
клеть остается пустой.
Если
//Bitmap.TransparentColor:= Bitmap.Canvas.Pixels[1,1];
вырисовывается в серой клетке картинка фигурки на белом фоне(как в предыдущей ссылке)
|