Ver Mensaje Individual
  #1  
Antiguo 17-05-2004
Avatar de Picard
Picard Picard is offline
Miembro
 
Registrado: may 2004
Ubicación: Palamos
Posts: 23
Reputación: 0
Picard Va por buen camino
Traducir desde Pascal

Hola compañeros,tengo una seria duda o problema,ya no se como mirarlo.
Tengo una aplicacion en la cual utilizo un componente TEasyMap.esta en pascal y no se como prodria traducir el codigo para utilizarlo en c++ builder,ahi va el codigo
Código:
 mapX, mapY: Extended;//esto debe ser una declaracion,pero no me admite Extended 

begin 
EasyMap1.ScreenToMap(X, Y, mapX, mapY); 
Statusbar1.Panels[0].Text := Format('Cursor Location: B=%F deg, L=%F deg', [mapY, mapX]); 
end;
yo he intentado hacer lo siguiente,pero con resultados desastrosos:
Código:
void __fastcall TfrmPrincipal::PanelMapasMouseMove(TObject 
//Declaro mapX ,mapY
long double mapX;
long double mapY;
*Sender, 
	  TShiftState Shift, int X, int Y) 
{ 
	   PanelMapas->ScreenToMap(X,Y,mapX,mapY); 
	   lblLatitudMouse->Caption = Format ("%Fº",ARRAYOFCONST ((long double) mapX,(long double)mapY)
podeis echarme una manita?
Gracias
Responder Con Cita