Translate into Italian the words in tDataRow

[mauri.menabue]

hi all

is there a method to translate into Italian the words: "Data Modified. Save/Discard Changes?", { "Save", "Discard", "Cancel" }
without modifying the tDataRow class?

TIA

[MarcoBoschi]

TIA,
take a look into source\classes\datarow.prg
Maybe is in this method

Code: Select all  Expand view

METHOD CloseMsg( lSave ) CLASS TDataRow

   local nChoice  := 0
   local a

   nChoice  := If( lSave == .t., 1, If( lSave == .f., 2, 0 ) )

   if ::cSrcType $ "ARR"
      AEval( ::aOrg, { |a,i| ASize( ::aData[ i ], Len( a ) ) } )
   elseif ::cSrcType $ "HSH"
      for each a in ::aData
         ::uSource[ a[ 1 ] ] := a[ 2 ]
      next
   elseif ! ::lReadOnly .and. ::Modified()
      if nChoice == 0
         nChoice  := Alert( "Data Modified. Save/Discard Changes?", { "Save", "Discard", "Cancel" } )
      endif
      if nChoice == 1
         ::Save()
      elseif nChoice == 2
         ::Undo()
      else
         return .f.
      endif
   endif

return .t.
 

[Silvio.Falconi]

easy use fwstring()