Tmp := TBGRABitmap.Create(Box,Box);
Tmp.ReplaceTransparent(TrCol);
with DestG do
begin
Width := Box; // needed to overide the size set at Design time
Height := Box;
Canvas.Brush.Color := TrCol; // set to colour being used as 'transparent'
Canvas.FillRect(0,0,Box,Box);
Picture.Clear;
Picture.Bitmap.SetSize(Box,Box);
Picture.Bitmap.TransparentColor:=TrCol;
Transparent:=True;
Top := Round(Y - Boy);
Left := Round(X - Boy);
end;
[...]
ShowArrow(tmp,N,C.x,C.y,R6);
tmp.Draw(DestG.Canvas,0,0,false);
application.ProcessMessages;
tmp.free;