Translate into Italian the words in tDataRow

Board index FiveWin for Harbour/xHarbour Translate into Italian the words in tDataRow

Posts: 181

Joined: Thu Apr 17, 2008 02:38 PM

Translate into Italian the words in tDataRow
Posted: Wed Jan 08, 2020 12:28 PM

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

Posts: 1091

Joined: Thu Nov 17, 2005 11:08 AM

Re: Translate into Italian the words in tDataRow
Posted: Wed Jan 08, 2020 03:31 PM

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

Code (fw): Select all Collapse

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.

Marco Boschi
info@marcoboschi.it

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Translate into Italian the words in tDataRow
Posted: Thu Jan 09, 2020 09:43 AM

easy use fwstring()

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion