Pues este es el codigo Roman de los procedures
procedure OutputMap2(hDC: OLE_HANDLE; X: Integer; Y: Integer; Width: Integer; Height: Integer); overload;
procedure OutputMap2(hDC: OLE_HANDLE; X: Integer; Y: Integer; Width: Integer; Height: Integer;
DrawFlags: OleVariant); overload;
y mis variables son de tipo real, por eso les doy una conversión a enteros cuando la mando llamar
|