아래의 델파이 함수를 C함수로 바꾸는 방법좀?

Procedure DrawControl(AControl:TControl; AShape:TTreeNodeShape);
var P:TPoint;
begin
  AControl.Visible:=AShape.Visible;
  if AControl.Visible then
  begin
    With AShape do P:=Tree.Canvas.Calculate3DPosition(X0,Y0,0);
    AControl.Left:=P.x;
    AControl.Top:=P.y;
  end;
end;