Re: Keyboard() on editor

Now I use dBasePLUS 2.6.1.3 and I see that the problem is the same for 
KEYBOARD() on entryfield

Does dBI consent to say me if the problem is known, if they search out a 
solution...
Thank you very much

Etienne Gounon




"4m" <contact@c-4m.com> a écrit dans le message de news: 
awgmfEzXIHA.1240@news-server...
> You can see on attach .JPG that Langage setting is French
>
> Etienne
>
>
>> Have you checked what your current Windows Locale is set to?
>> dBASE uses the Windows Locale to set its default Language Driver when
a
>> table is not in use.
>>
>> - Marty -
>>
>> Martin Kay
>> dataBased Intelligence, Inc.
>>
>>
>>
>
>
> 

In article <6bJWqpOZIHA.1532@news-server>, contact@c-4m.com says...

Monsieur Gougeon,

Dans le fichier PLUS.ini (situé dans le répertoire où dBASE a été 
installé), plus précisément dans la section appelée 
"[OnOffCommandSettings]", avez-vous l'entrée suivante:

[OnOffCommandSettings]
LDriver=Windows

Jean-Pierre Martel, editor
The dBASE Developers Bulletin

In article <r84mr39k1bkj09bplnc4q9g9t1do643p8m@4ax.com>, 
bergishagen@it.notthis.dk says...
> 
> You must mean the Plus.ini section [CommandSettings].
> Entries in [OnOffCommandSettings] are not read by Plus.

Ooops! You're right; I meant the [CommandSettings] section.

Jean-Pierre Martel, editor
The dBASE Developers Bulletin

In article <tqXfGyycIHA.632@news-server>, contact@c-4m.com says...

Alors aux grands maux, les grands remèdes.

Vous allez exécuter la fenêtre sous ma signature. Dans la moitié 
supérieure, vous verrez deux boîtes de saisies (inactives): la première 
doit indiquer "WINDOWS", tandis que la deuxième doit indiquer 
"'WEurope' ANSI". Si tout est conforme, appuyez sur le bouton
"Copier": 
avez-vous ajouté le texte "Voilà" dans l'éditeur ou du texte 
incompréhensible?

Jean-Pierre Martel, editor
The dBASE Developers Bulletin
Blue Star dBASE Plus Core Concepts Graduate

if not file('Diagnostique.dbf')   // if the table isn't found...
   create table Diagnostique (Numero AutoInc, ChampMemo Blob(10,1))
   local q
   q = new query('select * from Diagnostique')
   q.rowset.beginAppend()
   q.rowset.fields[2].value = "Voici un texte insignifiant " +;
                              "pour meubler l'éditeur"
   q.rowset.save()
   q.rowset.active = false
   q = null
   use Diagnostique excl
   index on Numero tag Numero
   use
   _app.databases[1].copyTable( "Diagnostique",
"Diagnostique2" )
endif

** END HEADER -- do not remove this line
//
// Generated on 2008/02/19
//
parameter bModal
local f
f = new GougonForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class GougonForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      canClose = class::FORM_CANCLOSE
      metric = 6	// Pixels
      height = 309.0
      left = 336.0
      top = 5.0
      width = 403.0
      text = ""
   endwith

   this.Diagnostique1 = new QUERY()
   this.Diagnostique1.parent = this
   with (this.Diagnostique1)
      left = 230.0
      top = 267.0
      sql = 'select * from "Diagnostique.DBF"'
      active = true
   endwith

   this.EDITOR1 = new EDITOR(this)
   with (this.EDITOR1)
      height = 220.0
      left = 9.0
      top = 80.0
      width = 256.0
      dataLink = form.Diagnostique1.rowset.fields["champmemo"]
   endwith

   this.TEXTLABEL1 = new TEXTLABEL(this)
   with (this.TEXTLABEL1)
      height = 14.0
      left = 9.0
      top = 25.0
      width = 130.0
      text = "lDriver :"
      colorNormal = "gray/BtnFace"
      fontSize = 8.0
   endwith

   this.TEXTLABEL2 = new TEXTLABEL(this)
   with (this.TEXTLABEL2)
      height = 14.0
      left = 9.0
      top = 51.0
      width = 112.0
      text = "La langue de la table :"
      colorNormal = "gray/BtnFace"
      fontSize = 8.0
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      enabled = false
      height = 19.0
      left = 120.0
      top = 23.0
      width = 135.0
      colorNormal = "WindowText/BtnFace"
      value = lDriver()
   endwith

   this.ENTRYFIELD2 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD2)
      enabled = false
      height = 19.0
      left = 120.0
      top = 48.0
      width = 135.0
      colorNormal = "WindowText/BtnFace"
      value = ""
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 24.0
      left = 281.0
      top = 22.0
      width = 107.0
      text = "Copier"
   endwith

   this.PUSHBUTTON2 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON2)
      onClick = class::PUSHBUTTON2_ONCLICK
      height = 24.0
      left = 281.0
      top = 55.0
      width = 107.0
      text = "Fermer"
   endwith

   this.rowset = this.Diagnostique1.rowset

   Function Form_OnOpen
      local oFile, cTableLanguage
      oFile = new file()
      oFile.open("Diagnostique2.mdx", "R")
      oFile.seek(0x01F, 0)
      cTableLanguage = itoh(asc(oFile.read(1)), 2)
      oFile.close()
      Form.entryfield2.value = ;
           iif(cTableLanguage=="58",;
           "'WEurope' ANSI", inconnu)
      return

   Function PUSHBUTTON1_onClick
      Form.Editor1.setFocus()
      Form.Editor1.keyboard(" Voilà. ")     
      return

   Function PUSHBUTTON2_onClick
      Form.close()
      return

   Function Form_canClose
      Form.Diagnostique1.active = false
      Form.Diagnostique = null
      return

In article <AsjLSp0cIHA.632@news-server>, contact@c-4m.com says...
> Résultat: "Voilà" est ajouté en clair au curseur.

Bravo !

Et dans les boîtes de saisie, je présume que tout est parfait, n'est-ce 
pas ?

Jean-Pierre Martel, editor
The dBASE Developers Bulletin