FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Immortaliser les photos de famille
par Jean Claude Hier à 21:24

» Concours de Morpions
par jjn4 Hier à 16:34

» Tout est tranquille
par Jean Claude Ven 22 Sep 2017 - 21:41

» Texte en gif animé
par JL35 Ven 22 Sep 2017 - 13:29

» BasicEditor
par Yannick Mer 20 Sep 2017 - 17:17

» Simuler l’appui d'une touche ou combinaison de touches.
par pascal10000 Lun 18 Sep 2017 - 19:30

» Utilisation de HVIEWER pour afficher des images
par papydall Lun 18 Sep 2017 - 17:43

» Panoramic et les gifs animés.
par papydall Lun 18 Sep 2017 - 16:32

» recover source
par pascal10000 Dim 17 Sep 2017 - 14:21

» Recent dans vos menu
par Jean Claude Sam 16 Sep 2017 - 11:41

» Comment centrer un texte 3D.
par pascal10000 Ven 15 Sep 2017 - 20:20

» Carte interface 16 entrées et 16 sorties
par Jicehel Ven 15 Sep 2017 - 16:30

» Version instantanée V 0.9.28i9 possédant l'objet SYNEDIT
par pascal10000 Ven 15 Sep 2017 - 16:20

» Compilateur FBPano
par jean_debord Ven 15 Sep 2017 - 9:59

» 1 (en analyse): 3D_TARGET_IS ne fonctionne pas sur 3D_TEXT
par Jack Jeu 14 Sep 2017 - 19:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 KGF_dll - nouvelles versions

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : Précédent  1, 2, 3, 4, 5, 6 ... 22 ... 40  Suivant
AuteurMessage
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF_dll - nouvelles versions   Mer 3 Déc 2014 - 13:33

La doc de KGF.dll est maintenant complète en ce qui concerne les fonctions Syneditxxx ! Elles sont documentées dans une nouvelle section Synedit. Il suffit de charger KGF.chm. Pas de changement dans KGF.dll.

Cette nouvelle doc est également intégrée dans le programme d'installation de Synedit_Editor.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Invité
Invité



MessageSujet: Re: KGF_dll - nouvelles versions   Mer 3 Déc 2014 - 16:22

En rapport avec la discution sur ton site, j'ai fait un essai pour imprimer.
Comme je n'ai presque plus d'encre, j'ai repris Greencloud, qui est un utilitaire d'économie d'encre, pour voir le résultat. Et là je pense qu'il y a problème.

Comme je travaille dans un endroit sombre, j'ai configuré les couleurs pour avoir un écran qui fatigue (à mon sens) moins les yeux. Donc j'ai un fond noir, ce qui donne, tel que j'ai défini:
écran:
 

Au vu du résultat pour imprimer sans le fond, voilà ce que cela donne:
impression:
 

Je ne suis pas sûre qu'il soit nécessaire de mettre en couleur, la méthode de Jack n'est pas mal, il met les mots clés en gras, mais ça il faut en discuter avec tout le monde.

Ensuite, il y a le nombre de pages, il faudrait pouvoir choisir les pages à imprimer. Pour mon programme qui n'est pas fini, j'ai déjà 51 pages, et si je veux imprimer, il me faut faire un choix pour n'imprimer qu'un certain nombres de pages. J'imagine Pedro... essayer avec ses 34000 lignes vouloir imprimer. Il est toujours possible de sélectionner une partie de l'écran pour la recopier dans un autre onglet, servant à l'impression.

Là je sors de cette discussion, laissons la place à d'autres intervenants.
Revenir en haut Aller en bas
Jicehel

avatar

Nombre de messages : 5855
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: KGF_dll - nouvelles versions   Mer 3 Déc 2014 - 17:23

En attendant une solution de la part de Klaus, tu peux imprimer vers une imprimante pdf => tu obtiendras un document pdf que tu pourras alors imprimer avec la mise en page de ton choix et dont tu pourras choisir la page de départ et de fin.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: KGF_dll - nouvelles versions   Mer 3 Déc 2014 - 17:47

Merci Jicehel.
Je ne veux pas imprimer, je montre juste le résultat du teste. D'ailleur j'ai plus d'encre.

Et même il y a un problème de couleur, dans mon cas si je voulais imprimer, il faudrait que je redéfinisse toutes les couleurs juste pour imprimer. Klaus voulait savoir si j'avais fait l'essai d'imprimer, et je fais un rapport.

Avec GreenCloud, j'ai l'aperçu des pages imprimées, et d'ailleurs je peux choisir les pages à imprimer, et le niveau d'encre pour l'économie. Mais la plupart d'entre-vous imprimez directement sur l'imprimante.

Avec le choix d'impression, il n'y a aucun choix, ni celui de l'imprimante, ni du sens d'orientation, ni rien ... C'est l'impression par défaut directement.
Revenir en haut Aller en bas
Jicehel

avatar

Nombre de messages : 5855
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: KGF_dll - nouvelles versions   Mer 3 Déc 2014 - 18:05

Tu as raison après tout, c'est indigne de notre Klaus national ça, juste l'impression sans que l'on ait un minimum d'options... Il s'était laissé allé à la facilité sur ce coup là !! ^^
Bon, j'arrète de plaisanter et je vous laisse continuer vos tests et programmation.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5531
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: KGF_dll - nouvelles versions   Mer 3 Déc 2014 - 18:30

Klaus, quelqu'un te défie !!!  Laughing

Sachant que tu aimes les défis, on s’attend à du nouveau.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF_dll - nouvelles versions   Mer 3 Déc 2014 - 20:44

D'accord, d'accord... Je vois que vous voulez plus de souplesse pour l'impression. Je vais ajouter la possibilité de choisir et paramétrer l'imprimante.

Mais cela ne règle pas le problème de fond, pour Cosmos70. Il a un écran noir, avec l'écriture en blanc et couleurs claires comme le jaune. Cela se détache bien sûr bien du fond noir, mais est difficilement lisible sur papier blanc. Or, l'objet Synedit que j'utilise, n'imprime pas le fond, ni pour le texte, ni pour la marge gauche avec les numéros de page. Et il y a une bonne raison à cela: cela viderait les cartouches d'encre en un rien de temps ! Et je le laisserai comme ça - en aucun cas, j'essayerai d'imprimer le fond.

Solution 1: utiliser du papier noir (mdr - désolé, je n'ai pas pu me retenir...)
Solution 2: choisir des couleurs et styles visibles sur fond noir et sur fond blanc
Solution 3: utiliser un fond clair non-blanc de sorte à pouvoir utiliser des couleurs et styles plus foncés

Désolé den ne pas avoir à offrir mieux. Mais essayez d'imprimer un document d'un traitement de texte qui est rédigé sur fond noir - vous m'en direz des nouvelles.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Invité
Invité



MessageSujet: Re: KGF_dll - nouvelles versions   Mer 3 Déc 2014 - 21:03

J'avais posé la question par curiosité, après m'être rendu compte que imprimer ne faisait pas parti de Synedit.

Ne peux-tu pas reprendre le texte et l'imprimer en noir et blanc comme la plupart des éditeurs. Panoramic met en gras les commandes, peut-être partir sur ce principe pour Synedit, c'est pas mal.

Personnellement je trouve que la majorité de mes sources ont trop de lignes pour envisager l'impression, surtout qu'un code est rarement définitif, et si je parle de numéro de page, c'est que imprimer a son utilité lorsqu'on a un problème et qu'on veut voir une partie du code de loin pour faciliter le décodage.

De toute façon on peut prendre une sélection du code, et le recopier dans Panoramic pour imprimer.
Revenir en haut Aller en bas
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF_dll - nouvelles versions   Mer 3 Déc 2014 - 21:42

@Cosmos70:
Je viens de mettre en place une nouvelle version. La seule nouveauté: la fonction "Imprimer" ouvre maintenant le sélecteur d'imprimantes de Windows. Tu peux y choisir l'imprimante, puis toutes les options de l'imprimante choisie, y compris, dans l'onglet "Couleur", de la mettre en nuances de gris. C'est le même fonctionnement que pour tout programme Windows. Cela devrait résoudre ton problème...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Invité
Invité



MessageSujet: Re: KGF_dll - nouvelles versions   Mer 3 Déc 2014 - 21:55

Merci Klaus.
Citation :
Cela devrait résoudre ton problème...
Mais pas de problème pour moi. Je ne fais que montrer l'état des lieux les conséquences éventuelles.
Revenir en haut Aller en bas
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF_dll - nouvelles versions   Jeu 4 Déc 2014 - 3:53

Nouvelle version:
KGF.dll V3.95 du 04/12/2014

Nouveautés:
nouvelle fonction GetPrinterNames


Modules modifiés:
KGF.dll
KGF.chm


Les sources et la doc sont à jour.

Voici une démo:
Code:
dim res%, s$
memo 10 : bar_both 10
dll_on "KGF.dll"
res% = dll_call1("GetPrinterNames",handle(10))
end

Simple, non ? Et en voici le résultat (sur ma machine):
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
papydall

avatar

Nombre de messages : 5531
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: KGF_dll - nouvelles versions   Jeu 4 Déc 2014 - 4:51

On ne peut plus simple.
Testé et approuvé. Bravo!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF_dll - nouvelles versions   Jeu 4 Déc 2014 - 17:30

Nouvelle version:
KGF.dll V3.96 du 04/12/2014

Nouveautés:
- la fonction GetPrinterNames a subi deux changements:
Code:
1. pour la liste retournée, il faut passer le handle d'un objet LIST et non plus d'un objet MEMO
2. le résultat numérique n'est plus le nombre d(imprimantes installées, mais le numéro de l'imprimante par défaut (1, 2, ...)
- la fonction PrinterManager a reçu 4 nouveaux codes fonction:
Code:
8 = Sélectionner l'imprimante de nom adr(opt%) comme imprimante par défaut
9 = Sélectionner l'imprimante de numéro opt% comme imprimante par défaut
10 = Sélectionner l'imprimante de nom adr(opt%) comme imprimante temporaire
11 = Sélectionner l'imprimante de numéro opt% comme imprimante temporaire

Modules modifiés:
KGF.dll
KGF.chm


Les sources et la doc sont à jour.

Ceci permet, par exemple, de programmer une SUB de configuration de l'imprimante. En voici un premier jet:
Code:
' test_ConfigurerImprimante.bas

dim res%

dll_on "KGF.dll"
ConfigurerImprimante(1000)

end

sub ConfigurerImprimante(obj%)
  dim_local no% : no% = obj%
  if label("CloseCnfImp")=0
    label CloseCnfImp, ConfImpDef, ConfImpNom, ConfImpPay
    dim ConfigurerImprimante% : ConfigurerImprimante% = obj%
    dim ConfigurerImprimanteDefaut% : ConfigurerImprimanteDefaut% = 0
    dim ConfigurerImprimantePhnd%, ConfigurerImprimantePdev%, ConfigurerImprimanteS$
    form no% : on_close no%,CloseCnfImp : width no%,600 : height no%,300
      caption no%,"Configuration de l'imprimante à effet immédiat"
      top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
    list no%+1 : parent no%+1,no%  : on_click no%+1,ConfImpNom

      height no%+1,200 : width no%+1,150 : top no%+1,10 : left no%+1,10
    check no%+2 : parent no%+2,no% : top no%+2,10 : left no%+2,180
      caption no%+2,"Par défaut" : on_click no%+2,ConfImpDef
    check no%+3 : parent no%+3,no% : top no%+3,30 : left no%+3,180
      caption no%+3,"Paysage" : on_click no%+3,ConfImpPay
  else
    no% = ConfigurerImprimante%
    show no%
    inactive 0
  end_if

  res% = dll_call1("GetPrinterNames",handle(no%+1))
  ConfigurerImprimanteDefaut% = res%
  if res%>0
    res% = dll_call2("SelectListBoxItem",handle(no%+1),res%)
    mark_on no%+2
  end_if
  exit_sub
CloseCnfImp:
  hide ConfigurerImprimante%
  active 0
  return
ConfImpNom:
'  ConfigurerImprimanteS$ = item_index$(ConfigurerImprimante%+1)
'  res% = dll_call4("PrinterManager",8,adr(ConfigurerImprimantePhnd%),adr(ConfigurerImprimantePdev%),adr(ConfigurerImprimanteS$))
  res% = dll_call4("PrinterManager",11,adr(ConfigurerImprimantePhnd%),adr(ConfigurerImprimantePdev%),item_index(ConfigurerImprimante%+1))
  clear ConfigurerImprimante%+1
  mark_off ConfigurerImprimante%+2
  res% = dll_call1("GetPrinterNames",handle(ConfigurerImprimante%+1))
  res% = dll_call2("SelectListBoxItem",handle(ConfigurerImprimante%+1),res%)
  off_click ConfigurerImprimante%+2
  if ConfigurerImprimanteDefaut%=item_index(ConfigurerImprimante%+1)
    mark_on ConfigurerImprimante%+2
  else
    mark_off ConfigurerImprimante%+2
  end_if
  on_click ConfigurerImprimante%+2,ConfImpDef
  return
ConfImpDef:
  off_click ConfigurerImprimante%+2
  if checked(ConfigurerImprimante%+2)=1
    if ConfigurerImprimanteDefaut%<>item_index(ConfigurerImprimante%+1)
      res% = dll_call4("PrinterManager",9,adr(ConfigurerImprimantePhnd%),adr(ConfigurerImprimantePdev%),item_index(ConfigurerImprimante%+1))
      ConfigurerImprimanteDefaut% = item_index(ConfigurerImprimante%+1)
    end_if
  else
    mark_on ConfigurerImprimante%+2
  end_if
  on_click ConfigurerImprimante%+2,ConfImpDef
  return
ConfImpPay:
  res% = dll_call4("PrinterManager",4,adr(ConfigurerImprimantePhnd%),adr(ConfigurerImprimantePdev%),checked(ConfigurerImprimante%+3))
  return
end_sub

La procédure peut être appelée autant de fois que nécessaire. Elle crée, au premier appel, ses propres variables et objets qu'elle retrouve aux appels suivants. Le seul paramètre est le numéro d'objet de départ utilisable par la procédure (dans l'exemple, c'est 1000). La procédure crée actuellement 4 objets.

Et, note importante, les changements sont répercutées immédiatement dans le système, sans validation particulière.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jicehel

avatar

Nombre de messages : 5855
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: KGF_dll - nouvelles versions   Jeu 4 Déc 2014 - 17:51

Super boulot Klaus. J'espère que Jack pourra intégrer ces fonctions dans Panoramic directement pour améliorer la partie gestion des imprimantes en s'appuyant entre autre sur tes sources.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 4 Déc 2014 - 18:24

Bon, ben, je retourne me mettre à jours... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5855
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: KGF_dll - nouvelles versions   Jeu 4 Déc 2014 - 18:28

Tu n'utilises pas l'outil de maj auto de la dll de Klaus ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 4 Déc 2014 - 19:17

Embarassed  A force de nettoyage, je ne sais plus où il est passé.
Disparu de la circulation, perdu de vue... Sad
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5855
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: KGF_dll - nouvelles versions   Jeu 4 Déc 2014 - 20:17

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 4 Déc 2014 - 21:14

En son temps, je m' étais fait un truc comme çà mais, je ne sais pourquoi, il ne fonctionne plus.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF_dll - nouvelles versions   Jeu 4 Déc 2014 - 21:41

J'ai déterré mon utilitaire KGF_updater.bas qui fait les mises à jour automatiques. Il a fallu corriger KGF_SUB.bas et OBJ_SUB.bas, tous deux disponibles, soit sur mon site, soit sur mon WebDav dossier Sources\KGF soit dans DLLs\KGF_SUB. On peut alors utiliser KGF_Updater.bas que je donne ici, pour plus de facilité:
Code:
                 ' ******************************************************************************
' *                            KGF_UPDATER                                    *
' *                            ----------                                    *
' *                      Version 0.4 du 04/12/2014                            *
' ******************************************************************************

Variables()
Constantes()
Labels()
Init()
GUI()

end

' __________________________________________________________________DECLARATIONS

Sub Variables()
  dim i%,Autre$
  dim Clic%
  dim Nb_Fich%
  dim vKGF$,vBDR$
End_Sub

Sub Constantes()
  dim url1$  : url1$  = "http://klauspanoramic.comxa.com/versions/KGF.dll"
  dim url2$  : url2$  = "http://klauspanoramic.comxa.com/versions/BDR.dll"
  dim url3$  : url3$  = "http://klauspanoramic.comxa.com/versions/KGF_SUB.bas"
  dim url4$  : url4$  = "http://klauspanoramic.comxa.com/versions/KGF.chm"
  dim url5$  : url5$  = "http://klauspanoramic.comxa.com/versions/KGF.doc"
  dim url6$  : url6$  = "http://klauspanoramic.comxa.com/versions/KGF.pdf"
  dim url7$  : url7$  = "http://klauspanoramic.comxa.com/versions/BDR_SUB.chm"
  dim url8$  : url8$  = "http://klauspanoramic.comxa.com/versions/BDR_SUB.doc"
  dim url9$  : url9$  = "http://klauspanoramic.comxa.com/versions/BDR_SUB.pdf"
  dim url10$ : url10$ = "http://klauspanoramic.comxa.com/versions/Synedit_Editor_Setup.zip"
  dim path$  : path$  = Dir_Current$+""
'  dim KGF$  : KGF$  = path$+"KGF.dll"
'  dim BDR$  : BDR$  = path$+"BDR.dll"
  dim KGF$  : KGF$  = "KGF.dll"
  dim BDR$  : BDR$  = "..\BDR\BDR.dll"
  dim T$ :T$ = "KGF.dll/BDR.dll/KGF_SUB.bas/KGF.chm/KGF.doc/KGF.pdf/BDR_SUB.chm/BDR_SUB.doc/BDR_SUB.pdf/Synedit_Editor_Setup.zip/"
  dim D$ :D$ = path$+"temp"
  dim Fic$  : Fic$  = D$+"Versions.txt"
End_Sub

Sub Labels()
  Label Clic,Clic2
End_Sub

' _______________________________________________________________INITIALISATIONS

Sub Init()
  KGF_initialize(KGF$)
  BDRinitialize(BDR$)
End_Sub

' _____________________________________________________________________INTERFACE

Sub GUI()
  Dim_local T%,Sep%,C$
  O_Form(0,0,1,0,0,290,400,"KGF UPDATER")
  font_name 0,"arial"
  O_Alpha(110,0,1,15,10,0,0,"Choisissez les fichiers à mettre à jour :")
  font_color 110,0,0,255 :font_bold 110
  T%=20
  For i%= 1 to 5
      T%=T%+25 :O_Check(i%,0,1,T%,10,0,0,""):on_click i%,clic2:cursor_point i%
  Next i%
  T%=20
  For i%= 6 to 10
      T%=T%+25 :O_Check(i%,0,1,T%,200,0,0,""):on_click i%,clic2:cursor_point i%
  Next i%
  For i%= 1 to 10
      Sep%=instr(T$,"/")
      C$=left$(T$,Sep%-1)
      if len(T$)>1 : T$=Right$(T$,Len(T$)-Sep%):end_if
      Caption i%,C$
  Next i%
  O_Button(11,0,1,190,350,25,25,"q",1)
  font_name 11,"Webdings":font_size 11,14:font_color 11,255,0,0
  hint 11,"Mise à jour"
  O_Statut_Bar(12,0,1,0)
  O_Alpha(13,0,1,height(0)-56,20,0,0,"")
  O_Progress_Bar(14,0,0,height(0)-58,width(0)-140,0,100)
  O_DList(15,"")
  O_Button(16,0,1,190,100,0,150,"Autres fichiers à mettre à jour",1)
  O_DList(17,"")
End_Sub

Sub F_Autre()
  If object_exists(18)=0
      O_Form(18,0,1,top(0),left(0)+width(0)+5,height(0),400,"Autres...")
      font_name 18,"arial"
      O_Alpha(19,18,1,10,10,0,0,"Fichiers sélectionnés")
      font_bold 19 : font_color 19,0,0,255
      O_List(23,18,1,30,10,150,364,"",0)
      O_Button(21,18,1,185,315,21,21,"+",1):font_size 21,12:font_bold 21
      hint 21,"Ajouter un fichier à la liste"
      O_Button(22,18,1,185,341,21,21,"-",1):font_size 22,12:font_bold 22
      hint 22,"Supprimer un fichier de la liste"
  else
      Show 18
  end_if
End_Sub

Clic:
  Clic%=Number_Click
  Select Clic%
  case 11 :Chargement()
  case 16 :F_Autre()
  case 21 :AjoutFich()
  case 22 :SupprFich()
  End_Select
return

Clic2:
  For i%=1 to 10
      If Clicked(i%)=1
        If Checked(i%)=1
            Nb_Fich%=Nb_Fich%+1
        Else
            Nb_Fich%=Nb_Fich%-1
        End_if
      End_if
  Next i%
return

Sub AjoutFich()
  if variable("File$")=1 : File$="" :End_if
  O_Open_Dialog(24,0,"","*.bas ;*.chm ;*.pdf ;*.doc;*.dll|*.bas ;*.chm ;*.pdf ;*.doc;*.dll",5)
  If File$<>""
      item_add 17,File$
      item_add 23,File$
  End_if
End_Sub

Sub SupprFich()
  if count(23)>0
      If item_index$(23)<>""
        Item_delete 17,item_index(23)
        Item_delete 23,item_index(23)
      end_if
  else
      if message_warning_ok("Liste vide !")=1:end_if
  end_if
End_Sub

Sub Chargement()
  Dim_local x%,nf%,cpt%,i$,dir$
  if Dir_exists(D$)=0 :Dir_Make D$ : End_if
  for x%=1 to 9 :inactive x% :next x%
  caption 13,"Chargement des fichiers..."
  display
  show  14 :Min 14,0 : max 14,Nb_Fich% :position 14,0
  display
  if checked(1)=1:DownloadFile(url1$,D$+"KGF.dll")    :position 14,position(14)+1:display:End_if
  if checked(2)=1:DownloadFile(url2$,D$+"BDR.dll")    :position 14,position(14)+1:display:End_if
  if checked(3)=1:DownloadFile(url3$,D$+"KGF_SUB.bas"):position 14,position(14)+1:display:End_if
  if checked(4)=1:DownloadFile(url4$,D$+"KGF.chm")    :position 14,position(14)+1:display:End_if
  if checked(5)=1:DownloadFile(url5$,D$+"KGF.doc")    :position 14,position(14)+1:display:End_if
  if checked(6)=1:DownloadFile(url6$,D$+"KGF.pdf")    :position 14,position(14)+1:display:End_if
  if checked(7)=1:DownloadFile(url7$,D$+"BDR_SUB.chm"):position 14,position(14)+1:display:End_if
  if checked(8)=1:DownloadFile(url8$,D$+"BDR_SUB.doc"):position 14,position(14)+1:display:End_if
  if checked(9)=1:DownloadFile(url9,D$+"BDR_SUB.pdf"):position 14,position(14)+1:display:End_if
  if checked(10)=1:DownloadFile(url10$,D$+"Synedit_Editor_Setup.zip"):position 14,position(14)+1:display:End_if
  position 14,0 :caption 13,""

  GetActualVersions(Fic$)
  file_load 15,Fic$

  KGFdllversion()
  vKGF$ = KGFdllversion$

  BDRversion(vers$)
  vBDR$ = BDRversion$

  if checked(1)=1
      nf%=nf%+1
      if vKGF$<>item_read$(15,1)
        Min 14,0 :Max 14,4
        Caption 13,"Mise à jour de KGF.dll" :display
        UnloadDLL(BDR_handle%)
        position 14,1 :display
        dll_off
        position 14,2 :display
        if file_exists(KGF$):file_delete KGF$:End_if
        free KGF_initialize : free KGF_res%
        position 14,3 :display
        file_rename D$+"KGF.dll",KGF$
        position 14,4
        wait 500 :position 14,0 :caption 13,""
      else
        file_delete D$+"KGF.dll"
      end_if
  end_if

  if checked(2)=1
      nf%=nf%+1
      if vBDR$<>item_read$(15,2)
        Min 14,0 :Max 14,4
        Caption 13,"Mise à jour de BDR.dll" :display
        UnloadDLL(BDR_handle%)
        position 14,1 :display
        dll_off
        position 14,2 :display
        if file_exists(BDR$) then file_delete BDR$
        position 14,3 :display
        file_rename D$+"BDR.dll",BDR$
        position 14,4
        wait 500 :position 14,0 :caption 13,""
      else
        file_delete D$+"BDR.dll"
      end_if
  end_if

  nf% = Nb_Fich% -nf%
  Min 14,0 :Max 14,nf%
  caption 13,"Mise à jour des fichiers"
  if checked(3)=1
      if file_exists(path$+"KGF_SUB.bas")=1 :file_delete path$+"KGF_SUB.bas":end_if
      file_rename D$+"KGF_SUB.bas",path$+"KGF_SUB.bas"
      position 14,position(14)+1 :display
  end_if
  if checked(4)=1
      if file_exists(path$+"KGF.chm")=1 :file_delete path$+"KGF.chm":end_if
      file_rename D$+"KGF.chm",path$+"KGF.chm"
      position 14,position(14)+1 :display
  end_if
  if checked(5)=1
      if file_exists(path$+"KGF.doc")=1 :file_delete path$+"KGF.doc":end_if
      file_rename D$+"KGF.doc",path$+"KGF.doc"
      position 14,position(14)+1 :display
  end_if
  if checked(6)=1
      if file_exists(path$+"KGF.pdf")=1 :file_delete path$+"KGF.pdf":end_if
      file_rename D$+"KGF.pdf",path$+"KGF.pdf"
      position 14,position(14)+1 :display
  end_if
  if checked(7)=1
      if file_exists(path$+"BDR_SUB.chm")=1 :file_delete path$+"BDR_SUB.chm":end_if
      file_rename D$+"BDR_SUB.chm",path$+"BDR_SUB.chm"
      position 14,position(14)+1 :display
  end_if
  if checked(8)=1
      if file_exists(path$+"BDR_SUB.doc")=1 :file_delete path$+"BDR_SUB.doc":end_if
      file_rename D$+"BDR_SUB.doc",path$+"BDR_SUB.doc"
      position 14,position(14)+1 :display
  end_if
  if checked(9)=1
      if file_exists(path$+"BDR_SUB.pdf")=1 :file_delete path$+"BDR_SUB.pdf":end_if
      file_rename D$+"BDR_SUB.pdf",path$+"BDR_SUB.pdf"
      position 14,position(14)+1 :display
  end_if

  if checked(10)=1
      if file_exists(path$+"Synedit_Editor_Setup.zip")=1 :file_delete path$+"Synedit_Editor_Setup.zip":end_if
      file_rename D$+"Synedit_Editor_Setup.zip",path$+"Synedit_Editor_Setup.zip"
      position 14,position(14)+1 :display
  end_if

  if object_exists(18)=1
  cpt%=count(23):nf%=0
  Min 14,0 :Max 14,cpt% : position 14,0
  caption 13,"Mise à jour des fichiers annexes..."
  If Count(23)>0
      for x%=1 to cpt%
        i$=item_read$(23,1)
        dir$=file_extract_path$(i$)
        file_delete i$
        if file_extract_name$(i$)="KGF.dll":file_copy KGF$,dir$+"KGF.dll":End_if
        if file_extract_name$(i$)="BDR.dll":file_copy KGF$,dir$+"BDR.dll":End_if
        if file_extract_name$(i$)="KGF_SUB.bas":file_copy KGF$,dir$+"KGF_SUB.bas":End_if
        if file_extract_name$(i$)="KGF.chm":file_copy KGF$,dir$+"KGF.chm":End_if
        if file_extract_name$(i$)="KGF.doc":file_copy KGF$,dir$+"KGF.doc":End_if
        if file_extract_name$(i$)="KGF.pdf":file_copy KGF$,dir$+"KGF.pdf":End_if
        if file_extract_name$(i$)="BDR_SUB.chm":file_copy KGF$,dir$+"BDR_SUB.chm":End_if
        if file_extract_name$(i$)="BDR_SUB.doc":file_copy KGF$,dir$+"BDR_SUB.doc":End_if
        if file_extract_name$(i$)="BDR_SUB.pdf":file_copy KGF$,dir$+"BDR_SUB.pdf":End_if
        if file_extract_name$(i$)="Synedit_Editor_Setup.zip":file_copy KGF$,dir$+"Synedit_Editor_Setup.zip":End_if
        item_delete 17,1
        item_delete 23,1
        nf%=nf%+1
        position 14,nf%
        display
      next x%
      caption 13,""
      hide 18
  End_if
  End_if

  if variable("KGF_initialize")=0
      KGF_initialize(KGF$)
      BDRinitialize(BDR$)
  end_if

  for x%=1 to 9 :active x% :mark_off x% :next x%
  Nb_Fich%=0
  file_delete D$+"Versions.txt"
  Dir_Remove D$
  position 14,0 :caption 13,"" :hide 14
End_Sub

#include "KGF_SUB.bas"
#include "OBJ_SUB.bas"

Les URLs ont été modifiées pour tenir compte du nouveau site. Et j'ai ajoute Synedit_Editor dans la liste...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 4 Déc 2014 - 22:23

Je vais regarder tout cela de près, très près... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5855
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: KGF_dll - nouvelles versions   Ven 5 Déc 2014 - 2:29

Merci Klaus, c'est vrai que j'avais oublié que le site avait changé depuis...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Ven 5 Déc 2014 - 19:18

Des petites corrections :


---lignes 218 à 258 du programme :
à chaque adresse définie par path$+"......"
il faut ajouter un \  : path$+"\......"


---ligne 185 du programme :
Code:
if file_exists(KGF$):file_delete KGF$:End_if
il faut rajouter =1
if file_exists(KGF$)=1:file_delete KGF$:End_if

---ligne 3419 de KGF_Sub.bas
Code:
' res% = DLL_call2("DownloadFile",adr(url$),adr(fic$))
sub DownloadFile(url$,fic$)
  if variable("DownloadFile")=0 : dim DownloadFile% :end_if
  KGF_res% = DLL_call2("DownloadFile",adr(url$),adr(fic$))
  DownloadFile% = KGF_res%
end_sub

il faut rajouter % à :
if variable("downloadfile%")=0
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF_dll - nouvelles versions   Ven 5 Déc 2014 - 19:46

Merci, Ygeronimi. Voici mes commentaires:

Citation :
---lignes 218 à 258 du programme :
à chaque adresse définie par path$+"......"
il faut ajouter un \  : path$+"\......"
Ce n'est pas exact. path$ contient déjà ce caractère. Voir ligne 36:
Code:
 dim path$  : path$  = Dir_Current$+"\"

Citation :
---ligne 185 du programme :

Code:
   if file_exists(KGF$):file_delete KGF$:End_if
Exact. Je prends. Idem d'ailleurs en ligne 205:
Citation :
       if file_exists(BDR$)=1 then file_delete BDR$

Citation :
---ligne 3419 de KGF_Sub.bas

Code:
' res% = DLL_call2("DownloadFile",adr(url$),adr(fic$))
sub DownloadFile(url$,fic$)
if variable("DownloadFile")=0 : dim DownloadFile% :end_if
KGF_res% = DLL_call2("DownloadFile",adr(url$),adr(fic$))
DownloadFile% = KGF_res%
end_sub

Exact. Je prends.

J'ai tout mis en place sur le WebDav et sur mon site. Voici la version à jour de KGF_Updater.bas:
Code:
' ******************************************************************************
' *                            KGF_UPDATER                                    *
' *                            ----------                                      *
' *                      Version 0.4 du 04/12/2014                            *
' ******************************************************************************

Variables()
Constantes()
Labels()
Init()
GUI()

end

' __________________________________________________________________DECLARATIONS

Sub Variables()
  dim i%,Autre$
  dim Clic%
  dim Nb_Fich%
  dim vKGF$,vBDR$
End_Sub

Sub Constantes()
  dim url1$  : url1$  = "http://klauspanoramic.comxa.com/versions/KGF.dll"
  dim url2$  : url2$  = "http://klauspanoramic.comxa.com/versions/BDR.dll"
  dim url3$  : url3$  = "http://klauspanoramic.comxa.com/versions/KGF_SUB.bas"
  dim url4$  : url4$  = "http://klauspanoramic.comxa.com/versions/KGF.chm"
  dim url5$  : url5$  = "http://klauspanoramic.comxa.com/versions/KGF.doc"
  dim url6$  : url6$  = "http://klauspanoramic.comxa.com/versions/KGF.pdf"
  dim url7$  : url7$  = "http://klauspanoramic.comxa.com/versions/BDR_SUB.chm"
  dim url8$  : url8$  = "http://klauspanoramic.comxa.com/versions/BDR_SUB.doc"
  dim url9$  : url9$  = "http://klauspanoramic.comxa.com/versions/BDR_SUB.pdf"
  dim url10$ : url10$ = "http://klauspanoramic.comxa.com/versions/Synedit_Editor_Setup.zip"
  dim path$  : path$  = Dir_Current$+"\"
'  dim KGF$  : KGF$  = path$+"KGF.dll"
'  dim BDR$  : BDR$  = path$+"BDR.dll"
  dim KGF$  : KGF$  = "KGF.dll"
  dim BDR$  : BDR$  = "..\BDR\BDR.dll"
  dim T$ :T$ = "KGF.dll/BDR.dll/KGF_SUB.bas/KGF.chm/KGF.doc/KGF.pdf/BDR_SUB.chm/BDR_SUB.doc/BDR_SUB.pdf/Synedit_Editor_Setup.zip/"
  dim D$ :D$ = path$+"temp\"
  dim Fic$  : Fic$  = D$+"Versions.txt"
End_Sub

Sub Labels()
  Label Clic,Clic2
End_Sub

' _______________________________________________________________INITIALISATIONS

Sub Init()
  KGF_initialize(KGF$)
  BDRinitialize(BDR$)
End_Sub

' _____________________________________________________________________INTERFACE

Sub GUI()
  Dim_local T%,Sep%,C$
  O_Form(0,0,1,0,0,290,400,"KGF UPDATER")
  font_name 0,"arial"
  O_Alpha(110,0,1,15,10,0,0,"Choisissez les fichiers à mettre à jour :")
  font_color 110,0,0,255 :font_bold 110
  T%=20
  For i%= 1 to 5
      T%=T%+25 :O_Check(i%,0,1,T%,10,0,0,""):on_click i%,clic2:cursor_point i%
  Next i%
  T%=20
  For i%= 6 to 10
      T%=T%+25 :O_Check(i%,0,1,T%,200,0,0,""):on_click i%,clic2:cursor_point i%
  Next i%
  For i%= 1 to 10
      Sep%=instr(T$,"/")
      C$=left$(T$,Sep%-1)
      if len(T$)>1 : T$=Right$(T$,Len(T$)-Sep%):end_if
      Caption i%,C$
  Next i%
  O_Button(11,0,1,190,350,25,25,"q",1)
  font_name 11,"Webdings":font_size 11,14:font_color 11,255,0,0
  hint 11,"Mise à jour"
  O_Statut_Bar(12,0,1,0)
  O_Alpha(13,0,1,height(0)-56,20,0,0,"")
  O_Progress_Bar(14,0,0,height(0)-58,width(0)-140,0,100)
  O_DList(15,"")
  O_Button(16,0,1,190,100,0,150,"Autres fichiers à mettre à jour",1)
  O_DList(17,"")
End_Sub

Sub F_Autre()
  If object_exists(18)=0
      O_Form(18,0,1,top(0),left(0)+width(0)+5,height(0),400,"Autres...")
      font_name 18,"arial"
      O_Alpha(19,18,1,10,10,0,0,"Fichiers sélectionnés")
      font_bold 19 : font_color 19,0,0,255
      O_List(23,18,1,30,10,150,364,"",0)
      O_Button(21,18,1,185,315,21,21,"+",1):font_size 21,12:font_bold 21
      hint 21,"Ajouter un fichier à la liste"
      O_Button(22,18,1,185,341,21,21,"-",1):font_size 22,12:font_bold 22
      hint 22,"Supprimer un fichier de la liste"
  else
      Show 18
  end_if
End_Sub

Clic:
  Clic%=Number_Click
  Select Clic%
  case 11 :Chargement()
  case 16 :F_Autre()
  case 21 :AjoutFich()
  case 22 :SupprFich()
  End_Select
return

Clic2:
  For i%=1 to 10
      If Clicked(i%)=1
        If Checked(i%)=1
            Nb_Fich%=Nb_Fich%+1
        Else
            Nb_Fich%=Nb_Fich%-1
        End_if
      End_if
  Next i%
return

Sub AjoutFich()
  if variable("File$")=1 : File$="" :End_if
  O_Open_Dialog(24,0,"","*.bas ;*.chm ;*.pdf ;*.doc;*.dll|*.bas ;*.chm ;*.pdf ;*.doc;*.dll",5)
  If File$<>""
      item_add 17,File$
      item_add 23,File$
  End_if
End_Sub

Sub SupprFich()
  if count(23)>0
      If item_index$(23)<>""
        Item_delete 17,item_index(23)
        Item_delete 23,item_index(23)
      end_if
  else
      if message_warning_ok("Liste vide !")=1:end_if
  end_if
End_Sub

Sub Chargement()
  Dim_local x%,nf%,cpt%,i$,dir$
  if Dir_exists(D$)=0 :Dir_Make D$ : End_if
  for x%=1 to 9 :inactive x% :next x%
  caption 13,"Chargement des fichiers..."
  display
  show  14 :Min 14,0 : max 14,Nb_Fich% :position 14,0
  display
  if checked(1)=1:DownloadFile(url1$,D$+"KGF.dll")    :position 14,position(14)+1:display:End_if
  if checked(2)=1:DownloadFile(url2$,D$+"BDR.dll")    :position 14,position(14)+1:display:End_if
  if checked(3)=1:DownloadFile(url3$,D$+"KGF_SUB.bas"):position 14,position(14)+1:display:End_if
  if checked(4)=1:DownloadFile(url4$,D$+"KGF.chm")    :position 14,position(14)+1:display:End_if
  if checked(5)=1:DownloadFile(url5$,D$+"KGF.doc")    :position 14,position(14)+1:display:End_if
  if checked(6)=1:DownloadFile(url6$,D$+"KGF.pdf")    :position 14,position(14)+1:display:End_if
  if checked(7)=1:DownloadFile(url7$,D$+"BDR_SUB.chm"):position 14,position(14)+1:display:End_if
  if checked(8)=1:DownloadFile(url8$,D$+"BDR_SUB.doc"):position 14,position(14)+1:display:End_if
  if checked(9)=1:DownloadFile(url9,D$+"BDR_SUB.pdf"):position 14,position(14)+1:display:End_if
  if checked(10)=1:DownloadFile(url10$,D$+"Synedit_Editor_Setup.zip"):position 14,position(14)+1:display:End_if
  position 14,0 :caption 13,""

  GetActualVersions(Fic$)
  file_load 15,Fic$

  KGFdllversion()
  vKGF$ = KGFdllversion$

  BDRversion(vers$)
  vBDR$ = BDRversion$

  if checked(1)=1
      nf%=nf%+1
      if vKGF$<>item_read$(15,1)
        Min 14,0 :Max 14,4
        Caption 13,"Mise à jour de KGF.dll" :display
        UnloadDLL(BDR_handle%)
        position 14,1 :display
        dll_off
        position 14,2 :display
        if file_exists(KGF$)=1 : file_delete KGF$ : End_if
        free KGF_initialize : free KGF_res%
        position 14,3 :display
        file_rename D$+"KGF.dll",KGF$
        position 14,4
        wait 500 :position 14,0 :caption 13,""
      else
        file_delete D$+"KGF.dll"
      end_if
  end_if

  if checked(2)=1
      nf%=nf%+1
      if vBDR$<>item_read$(15,2)
        Min 14,0 :Max 14,4
        Caption 13,"Mise à jour de BDR.dll" :display
        UnloadDLL(BDR_handle%)
        position 14,1 :display
        dll_off
        position 14,2 :display
        if file_exists(BDR$)=1 then file_delete BDR$
        position 14,3 :display
        file_rename D$+"BDR.dll",BDR$
        position 14,4
        wait 500 :position 14,0 :caption 13,""
      else
        file_delete D$+"BDR.dll"
      end_if
  end_if

  nf% = Nb_Fich% -nf%
  Min 14,0 :Max 14,nf%
  caption 13,"Mise à jour des fichiers"
  if checked(3)=1
      if file_exists(path$+"KGF_SUB.bas")=1 :file_delete path$+"KGF_SUB.bas":end_if
      file_rename D$+"KGF_SUB.bas",path$+"KGF_SUB.bas"
      position 14,position(14)+1 :display
  end_if
  if checked(4)=1
      if file_exists(path$+"KGF.chm")=1 :file_delete path$+"KGF.chm":end_if
      file_rename D$+"KGF.chm",path$+"KGF.chm"
      position 14,position(14)+1 :display
  end_if
  if checked(5)=1
      if file_exists(path$+"KGF.doc")=1 :file_delete path$+"KGF.doc":end_if
      file_rename D$+"KGF.doc",path$+"KGF.doc"
      position 14,position(14)+1 :display
  end_if
  if checked(6)=1
      if file_exists(path$+"KGF.pdf")=1 :file_delete path$+"KGF.pdf":end_if
      file_rename D$+"KGF.pdf",path$+"KGF.pdf"
      position 14,position(14)+1 :display
  end_if
  if checked(7)=1
      if file_exists(path$+"BDR_SUB.chm")=1 :file_delete path$+"BDR_SUB.chm":end_if
      file_rename D$+"BDR_SUB.chm",path$+"BDR_SUB.chm"
      position 14,position(14)+1 :display
  end_if
  if checked(8)=1
      if file_exists(path$+"BDR_SUB.doc")=1 :file_delete path$+"BDR_SUB.doc":end_if
      file_rename D$+"BDR_SUB.doc",path$+"BDR_SUB.doc"
      position 14,position(14)+1 :display
  end_if
  if checked(9)=1
      if file_exists(path$+"BDR_SUB.pdf")=1 :file_delete path$+"BDR_SUB.pdf":end_if
      file_rename D$+"BDR_SUB.pdf",path$+"BDR_SUB.pdf"
      position 14,position(14)+1 :display
  end_if

  if checked(10)=1
      if file_exists(path$+"Synedit_Editor_Setup.zip")=1 :file_delete path$+"Synedit_Editor_Setup.zip":end_if
      file_rename D$+"Synedit_Editor_Setup.zip",path$+"Synedit_Editor_Setup.zip"
      position 14,position(14)+1 :display
  end_if

  if object_exists(18)=1
  cpt%=count(23):nf%=0
  Min 14,0 :Max 14,cpt% : position 14,0
  caption 13,"Mise à jour des fichiers annexes..."
  If Count(23)>0
      for x%=1 to cpt%
        i$=item_read$(23,1)
        dir$=file_extract_path$(i$)
        file_delete i$
        if file_extract_name$(i$)="KGF.dll":file_copy KGF$,dir$+"KGF.dll":End_if
        if file_extract_name$(i$)="BDR.dll":file_copy KGF$,dir$+"BDR.dll":End_if
        if file_extract_name$(i$)="KGF_SUB.bas":file_copy KGF$,dir$+"KGF_SUB.bas":End_if
        if file_extract_name$(i$)="KGF.chm":file_copy KGF$,dir$+"KGF.chm":End_if
        if file_extract_name$(i$)="KGF.doc":file_copy KGF$,dir$+"KGF.doc":End_if
        if file_extract_name$(i$)="KGF.pdf":file_copy KGF$,dir$+"KGF.pdf":End_if
        if file_extract_name$(i$)="BDR_SUB.chm":file_copy KGF$,dir$+"BDR_SUB.chm":End_if
        if file_extract_name$(i$)="BDR_SUB.doc":file_copy KGF$,dir$+"BDR_SUB.doc":End_if
        if file_extract_name$(i$)="BDR_SUB.pdf":file_copy KGF$,dir$+"BDR_SUB.pdf":End_if
        if file_extract_name$(i$)="Synedit_Editor_Setup.zip":file_copy KGF$,dir$+"Synedit_Editor_Setup.zip":End_if
        item_delete 17,1
        item_delete 23,1
        nf%=nf%+1
        position 14,nf%
        display
      next x%
      caption 13,""
      hide 18
  End_if
  End_if

  if variable("KGF_initialize")=0
      KGF_initialize(KGF$)
      BDRinitialize(BDR$)
  end_if

  for x%=1 to 9 :active x% :mark_off x% :next x%
  Nb_Fich%=0
  file_delete D$+"Versions.txt"
  Dir_Remove D$
  position 14,0 :caption 13,"" :hide 14
End_Sub

#include "KGF_SUB.bas"
#include "OBJ_SUB.bas"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Ven 5 Déc 2014 - 21:45

Je constate.

Avant de rajouter le \ dans les adresses, tout se retrouvait sur mon bureau
Après ce rajout, tout est à sa place.
scratch

Je vais essayer en faisant un nouveau dossier avec les sources que tu as mise à jour.
Je verrai bien ce que cela renvoi mais surtout où... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: KGF_dll - nouvelles versions   

Revenir en haut Aller en bas
 
KGF_dll - nouvelles versions
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 5 sur 40Aller à la page : Précédent  1, 2, 3, 4, 5, 6 ... 22 ... 40  Suivant
 Sujets similaires
-
» Nouvelles versions éditeur et firmware FR3X
» Nouvelles versions de TC et TP
» Nouvelles versions de TypViewer 4.015 et suivantes
» Deux nouvelles versions de la Porsche 911 (type 991)
» Dacia : La Success Story Continue Avec Quatre Nouvelles Versions Et Séries Limitées

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: Activité des sites créés par les Panoramiciens. :: Le site de Klaus-
Sauter vers: