PureBasic

Bonjours,

Je fais dans mon coin, depuis un certain temps, un programme qui "ne sert à rien" d'après tout le monde que j'ai tout simplement baptisé Gestion Presse-Papier.
J'ai lu vos conseils, et j'ai décidé de faire un système multi-langage.
J'ai dd'abbord pris le cas où il n'y a pas de pack, un tableau qui prand ds data... enfin bon c pas dutout encore pris des sources de l'editeur ça

.
Avec mon manque de passiance, je voudrais savoir si quelqu'un serait OK pour m'aider à réaliser ne serait-ce que ces data... il y a des décalages quelque part dans mon tableau de messages, et je trouve pas où.
Si quelqu'un est interressé (mais aussi pour le rendre openSources), qu'il(s) me le dise(nt).
Regardez déjà ce qui a été fait en suivant le lien que j'ai glicé parmis tout ça...

, et si ça vous plait pas, comme dirait le chanteur, Renaud, je me le mait "dans ma culotte". Sauf que si je fais ça avec touts mes projet, ça sera pas un "vrai jukbox", mais une vraie logitech!

Merci d'avance.
PS: Je ne veux pas faire du débalage de code, les sources se trouvent ici.
Je dis ça au cas où, pour une fois, mon programme interresserait quelqu'un!

Oh p...

J'ai rien compris à ton truc! Tu veux faire quoi?. Gérer plusieurs langues?

Pour avoir plusieurs langues, soit tu mets plusieurs groupes de datas, un par langue, soit tu fais des fichiers, également un par langue.

J'ai essayé de compiler ton code. Erreur sur AppRunning(). C'est quoi, ça? une lib utilisateur, si oui, laquelle.
Quelles sont les libs que tu utilises dans ton code?

Quand on saura ça, on aura déjà bien avancé

Tiens, petit exemple.

Code : Tout sélectionner

;/Constantes Window
Enumeration
  #Window_0
EndEnumeration

;/Constantes Gadget
Enumeration
  #Text
  #Btn_French
  #Btn_English
  #Btn_Quit
EndEnumeration

Dim Langue$(3)

Procedure ReadLang(Lang$)
  Select Lang$
    Case "Francais"
      Restore French
    Case "English"
      Restore English
  EndSelect
  
  For i = 0 To 3
    Read Langue$(i)
  Next
EndProcedure

Procedure UpdateGadgets()
  SetGadgetText(#Text, Langue$(0))
  SetGadgetText(#Btn_French, Langue$(1))
  SetGadgetText(#Btn_English, Langue$(2))
  SetGadgetText(#Btn_Quit, Langue$(3))
EndProcedure

ReadLang("Francais")

If OpenWindow(#Window_0, 300, 300, 300, 200, #PB_Window_SystemMenu, "Fenêtre 1",0)
  If CreateGadgetList(WindowID(#Window_0))
    TextGadget(#Text, 10,10, 280, 20, Langue$(0))
    ButtonGadget(#Btn_French,10,50,100,20,Langue$(1))
    ButtonGadget(#Btn_English,120,50,100,20,Langue$(2))
    
    ButtonGadget(#Btn_Quit, 100, 170, 100, 25, Langue$(3))
  EndIf
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_EventGadget
        Select EventGadgetID()
          Case #Btn_English
            ReadLang("English")
            UpdateGadgets()
            
          Case #Btn_French
            ReadLang("Francais")
            UpdateGadgets()
          
          Case #Btn_Quit : quit = 1
        EndSelect
        
      Case #PB_EventCloseWindow : quit = 1
    EndSelect
  Until quit = 1
  End
EndIf

DataSection
French:
Data$ "Petit exemple de texte"
Data$ "Français"
Data$ "Anglais"
Data$ "Quitter"

English:
Data$ "Small text example"
Data$ "French"
Data$ "English"
Data$ "Quit"

EndDataSection

pas de panique je déplace juste le sujet dans Application. Je pense qu'il est mieux ici

Annonces c surtout pour faire connaôtre un programme

Pour demander de l'aide le mieux dans ce cas c'est le forum Applications

En plus c la rubrique Divers ici donc c vrai que pour demander de l'aide c pas évident de passer par ici à chaque connexion

Ne t'inquietes pas Gansta

j'ai laissé un traçeur dan sl'autre forum pour qu'on retrouve ton message

Amicalement

Je t'ai mis en ligne une version modifiée de ton code.

Si il y a des fichiers *.lng dans le dossier "Lang", le programme crée un menu "Langue" ou chaque valeur est le titre du fichier trouvé sans l'extension.

Il y a deux fichiers, "Francais.lng", et "English.lng" dans le dossier.
Je n'ai pas tout traduit dans le fichier anglais, juste quelques mots pour qu'on voit la différence.

Si il n'y a pas de fichiers, alors la programme charge les datas contenues dans le programme.

Par contre, je n'ai rien modifié quand un menu ou la barre de statuts affiche à la fois des trucs en français, et des trucs en anglais, parce que c'est à toi de faire le ménage dans ton code.

Pour ce que j'ai ajouté, c'est pas trop du beau boulot, mais j'ai du adapter ma façon de coder à la tienne, et c'est pas une petite affaire!

Jamais vu un bordel pareil dans un code

C'est une calamité ton truc

tu peux télécharger ça ici

Bonjour,

Je téléchargerais ça demain soir... pas possible de faire autrement.
Merci.
AppRunning() c la lib AppRunning qui est trouvable sur le site purearea.net dans les lib.
Je regarderais ton code... les data, ct au cas où aucun fichier de langue n'était trouvé.
Et mon problème, c'était pour le tableau pour les langues, j'avais fais un déccalage que je ne trouvais pas et le seul truc qui reste en français normalemant, c'est le Gestion Presse-Papier et tout le copyright.

Encore merci.

C'est comme ça que mon code fonctionne.
Si aucun fichier de langue n'existe, il lit les datas. Sinon, il lit le fichier concernant la langue qui est définie au début du prog.

Chris a écrit :C'est comme ça que mon code fonctionne.
Si aucun fichier de langue n'existe, il lit les datas. Sinon, il lit le fichier concernant la langue qui est définie au début du prog.

OK... je nevais rien dire tant que je n'aurais pas vu ça. Donc pas avant demain soir.

Encore merci.

Salut,

Je vien de télécharger le code que tu as modifié, merci beaucoup!
Tu figureras dans les remerciments parce que sans toi... ben j'en serait peut-être encore à la 4.0

.
Mais en fait j'ai un problème... mais à paremment j'ai des solutions!
La chance me sourie, je vais devoir jouer au loto moi!

La chance me sourie, je vais devoir jouer au loto moi!

Si tu gagnes, contacte moi par MP, je t'expliquerai comment investir ton fric

Chris a écrit :
La chance me sourie, je vais devoir jouer au loto moi!
Si tu gagnes, contacte moi par MP, je t'expliquerai comment investir ton fric

T'inquiette pas, j'ai mes idées!

gansta93 a écrit :T'inquiette pas, j'ai mes idées!

Oui, mais moi, j'ai de très grandes poches

Ce soir à 23:30 il me semble, regarde TF1, il y a une émition où on s'occupe des gens comme toi

.
Euh j'ai un pb c le gros bordel dans les langues... il n'initialise plus rien j'ai fais par un fichier ini... s'il n'y a pas de valeure, il mait Français mais ça marche pas... je remait le code source mis à jours sans les langues sauf si tu les reveux je refait un zip.
http://gansta93.free.fr/Gestion Presse-Papier.pb

Tu as vérifié que le nom du dossier est bien "Lang", et que le nom de la langue dans le fichier ini est bien "Français", avec la cédille.

Sinon, tu mets "Francais".

Il y a certainement un nom qui ne correspond pas quelque part.

Tu peux poster ton fichier ini?

J'ai refais tout ce qui concernait le ini... rien ne marche... enfin si l'initialisation.
Mais si je change de langue, il ne l'écrit pas pourtant je lui ai demandé... en précisant même bien le répertoir par un getpathpart() mais il ne le crait nul part... si tu peux juste vérifier ce qui concerne le ini stp... moi je vais regarder l'émition des gens comme toi et je revien demain

.

Merci d'avance.

PureBasic

Projet Gestion Presse-Papier... besoin d'aide svp

Projet Gestion Presse-Papier... besoin d'aide svp