KGF.dll Bug ou pas ?

@ Klaus,

Pour remplacer la fonction EXECUTE de Panoramic qui bug en ce moment,
j' ai voulu utiliser celle de KGF et j' ai créer cette sub :

Code:: sub LanceOutils()
   dim_local res%,path$,param$,folder$

   path$ = "C:\Users\Yannick\Desktop\Outils_Couleurs\PanoColorSelect.exe"
   param$ = str$(Handle_form("Exemple d utilisation de Outils Couleurs"))
   folder$ = ""
   res% = DLL_call4("ExecuteProgram",adr(path$),adr(param$),adr(folder$),0)
   if res%<0
   message "Echec du lancement !"
   end_if
end_sub

mais j' ai toujours le message d' échec... Sad

Aurai je raté quelque chose ou il y a un problème avec la fonction ?

edit :
Il en est de même pour
res% = DLL_call3("ExecuteProgramAndWait",adr(path$),adr(param$),adr(folder$))

Il y avait deux points à corriger, dans ma fonction:
1. le "paramètre" était supposé être un nom de fichier. La fonctioin en déduisait implicitement le nom court, et pan ! ça ne marche pas évidemment pour un paramètre numérique ! Ceci est corrigé.
2. il y a un gros problème avec Panoramic et des chaînes de caractères encadrées par des guillemets. Il faudrait entourer le chemin vers le fichier EXE par des guillemets, mais je n'ai trouvé aucun moyen de le faire. J'ai donc ajouté cela à la fonction DLL pour ajouter ces guillemets systématiquement.

D'ailleurs, Jack, si tu nous lis, ce dernier point est vraiment un handicap. Panoramic "interprète" le contenu d'une chaîne de caractères, au moment de son affectation dans une autre, en éliminant les guillemets extérieurs. Même de double guillemets extérieurs ! Exemple:

Code:: dim s$, c$
c$ = chr$(34)
s$ = c$+"Ceci est mon texte"+c$

s$ ne contiendra aucun guillemet. Si tu ne peux pas modifier cela, pourrais-tu créer une fonction du type

Code:: s$ = QuotedString(s$,c$)

avec c$ étant le caractère à ajouter devant et derrière s$ ?

Pour en revenir à ton problème, Yannick:
J'ai testé avec le code suivant:

Code:: caption 0,"Exemple d utilisation de Outils Couleurs"
  dim res%,path$,param$,folder$, c$
  c$ = chr$(34)

  dll_on "KGF.dll"
  open_dialog 1
  path$ = file_name$(1)
  if path$="_" then terminate

  param$ = str$(Handle_form("Exemple d utilisation de Outils Couleurs"))
  folder$ = ""
  res% = DLL_call4("ExecuteProgram",adr(path$),adr(param$),adr(folder$),0)
  if res%<0
   message "Echec du lancement !"
  end_if

Comme les deux points ci-dessus sont gérés dans ma DLL, le programme appelé est lancé correctement. Mais il y a toujours ce message au démarrage du programme, qui tente de lancer un autre programme dont le nom serait composé du nom du programme lui-même et du paramètre... On valide ce message, et le programme s'exécute normalement. Recharge la nouvelle version de KGF.dll.

Ceci est toujours le même bug dans l'interpréteur de Panoramic, présent et signalé depuis un bon moment, par moi et d'autres. Faudra bien un jour ou l'autre que Jack corrige cela, même si je sais bien qu'en ce moment, il n'est pas en mesure de le faire.

Ton petit programme fonctionne, j' ai du raté quelque chose dans ma sub Wink

.
Mais, malheureusement, il n' empêche pas le bug panoramic des paramètres etc...
J' ai aussi droit au message du fichier introuvable avec le paramètre en nom de fichier. Mad

Ce qui est curieux c' est que ton file_name$(1) renvoie la même chose que ce que j' ai mis dans la variable path$.
ma variable path$ bug et pas la tienne.... Suspect

Qu'est-ce que tu veux que je dise... charge le résultat de FILE_NAME$ dans une autre variable et compare les deux - visuellement et par programme. Il doit y avoir une différence.

c' est un peu ma faute, j' utilisais la fonction ExecuteProgramAndWait
qui elle n' a apparemment pas été modifié.
Laughing

Oups... je vais y remédier !

J'ai un souci avec TreeView et l' affichage des icônes.

Pour être sûr de mon fait, je crée un imagelist avec 4 icônes *.bmp au format 16x16 que je sauvegarde
avant de créer le treeview.
( donc 4 fichiers bmp de ton cru feront l' affaire pour tester.)

Pendant la création, je les extrait dans bmp2$ pour visualiser les images enregistrées dans un button_picture.

Mais voilà, pas tout ce passe comme je le voudrai.
Voilà le code, tes yeux verraient ils une erreur de ma part ? ou il y a un souci avec Kgf ?

Code:: dim It$
dim txt$

dim kgf$ : kgf$ = "C:\KGF\KGF.dll"
dim dir$ : dir$ = "C:\Users\Yannick\Desktop\PanoramicTools\Outils\"
dim fic$ : fic$ = "C:\Users\Yannick\Desktop\PanoramicTools\ico.ilb"

dim res%
dim IL%
dim TV%

label change

dll_on kgf$

height 0,400
width 0,350
top 0,100
left 0,100

font_name 0,"Arial"
font_size 0,8
font_bold 0

caption 0,"Pano Toolbox"

edit 1 : hide 1 : on_change 1,change

button_picture 2
height 2,24
width 2,24
top 2,height_client(0)-24
left 2,0

CreateImageList()

TV% = dll_call3("CreateTreeViewEx",handle(0),1,adr(fic$))
res% = dll_call3("SetTreeViewEventReceiver",TV%,1,handle(1))
res% = dll_call5("ResizeTreeView",TV%,0,0,width_client(0),height_client(0)-24)

dir_change dir$
res% = dll_call4("AddTreeViewRootNode",TV%,adr(dir$),0,0)
res% = dll_call4("SetTreeViewOptions",TV%,1,7,0)
res% = dll_call4("SetTreeViewOptions",TV%,1,8,1)

it$ = file_find_first$
if instr(it$,chr$(46))=0
txt$ = "Outils"
res% = dll_call3("SelectTreeViewNode",TV%,0,0)
res% = dll_call4("AddTreeViewChildNode",TV%,adr(txt$),0,1)
end_if
it$ = file_find_next$
while it$<>"_"
if instr(it$,chr$(46))=0
txt$ = "Outils"
res% = dll_call3("SelectTreeViewNode",TV%,0,0)
res% = dll_call4("AddTreeViewChildNode",TV%,adr(txt$),0,1)
end_if
it$ = file_find_next$
end_while
file_find_close
end
' ------------------------------------------------------------------------------
change:
if left$(text$(1),instr(text$(1),chr$(44))-1) = "double_click"
message text$(1)
end_if
return
' ------------------------------------------------------------------------------
sub CreateImageList()
dim_local i%,bmp$,bmp2$
bmp2$ = "C:\Users\Yannick\Desktop\PanoramicTools\But.bmp"

IL% = dll_call2("CreateImageList",16,16)

for i%=0 to 3
bmp$ = "C:\Users\Yannick\Desktop\PanoramicTools\B00"+str$(i%+1)+".bmp"
res% = dll_call4("AddImageToImageList",IL%,adr(bmp$),0,0)
if res%<>0
message "Echec !"+chr$(13)+"Création de l' imagelist a échoué."
exit_sub
else
res% = dll_call5("ExtractImageFromImageList",IL%,i%,0,0,adr(bmp2$))
file_load 2,bmp2$
end_if
next i%

res% = dll_call2("SaveImageList",IL%,adr(fic$))
if res%<>0
message "Echec !"+chr$(13)+"Création de l' imagelist a échoué."
exit_sub
end_if
end_sub

Je n'arrive pas à bien comprendre le but poursuivi par ton programme.

Déjà, pour commencer, dans la SUB CreateImageList, tu crées une ImageList (ok), tu y charges 4 images (ok), et immédiatement après le chargement de chaque image, tu l'extraits dans un fichier toujours du même nom pour ensuite charger ce fichier dans toujours le même objet picture 2. A quoi ça sert ?

Ensuite, je ne comprends pas bien ta boucle de recherche de fichier dans un dossier. Le principe est le suivant:

Code:: it$ = file_find_first$
while it$<>"_"
if left$(it$,1)<>"."
' ici, un a un candidat possible pour nom de fichier
if dir_exists(it$)=0
' ici, c'est vraiment un fichier, pas un dossier
' donc traiter de fichier ici...
end_if
end_if
end_while
file_find_close

Si tu as un problème avec une fonction DLL en particulier, essaie de faire un petit code mettant en oeuvre juste cette erreur. Sinon, c'est vraiment très complexe à trouver, surtout si on a juste l'indication "ça ne marche pas", sans savoir ce qui cloche, dans quelles conditions, pour quelles fonctions... enfin, tu n'es pas un novice et tu sais de quoi je parle.

Autant pour moi... Embarassed

Mon erreur vient du fait que dans presque tous les cas d' utilisation d'une imagelist on utilise
le numéro d' indice de l' image à utiliser donc en partant de 0 jusqu' à ...
Or, pour le treeview on part de 1, 0 signifie pas d' image.

J' ai fait des noeuds et pourtant ce n' est pas la première fois que je me sers de cet objet.
Embarassed

Klaus,

Je m' aperçois que le souci vient des fonctions d' imagelist.
L' imagelist est créé, il contient bien des images mais elles sont vides (blanches).
Sad

Alors, es-tu sûr que tes 4 images sont bien en format 16x16 pixels ? Je ne vois rien qui puisse se passer mal, sinon...
Essaie avec

Code:: ...
for i%=0 to 3
bmp$ = "C:\Users\Yannick\Desktop\PanoramicTools\B00"+str$(i%+1)+".bmp"
res% = dll_call4("AddImageToImageList",IL%,adr(bmp$),1,0)
...

Je sais, le noir sera pris comme couleur de transparence. C'est juste pour observer le résultat... Pour ma part, je me sers de cette fonction en permanence et tout semble marcher.

Sujet: KGFDLL Bug de ma part Dim 10 Mar 2019 - 15:18

Bonjour KLAUS

J’essaye de tester la fonction RangeEditable et j' ai une erreur

no correct arithmetic expression

Ci dessous la ligne que j' ai écrite

res% = dll_call6("SetKGFGridCellRangeEditable",KG%,2,20,1,16,1) .

Lignes 2 à 20 colonnes 1 à 16

Peux tu me dire STP ce qui ne va pas

Merci.

Sujet: KGF BUG ???? Lun 11 Mar 2019 - 15:40

Bonjour Klaus

Je te remercie de m'avoir indiqué les liens pour poster des demandes de modifs, de bugs ..

Je reviens donc sur le post mis hier dans cette rubrique.

J' ai le Compilateur

PANORAMIC EDITEUR 0.9.28.exe. qui fonctionne bien

Je me sers du KGFGRID et mon programme fonctionne bien avec couleurs etc ..

Si je mets le dernier KGF, et alors que je n'ai fait aucune modif le programme plante en disant

que le programme a cessé de fonctionner.

J'ai récupéré le KGF.DLL situé après ta signature

Merci pour ta réponse

Sujet: Re: KGF.dll Bug ou pas ? Lun 11 Mar 2019 - 18:20

Citation :: J’essaye de tester la fonction RangeEditable et j' ai une erreur

no correct arithmetic expression

Ci dessous la ligne que j' ai écrite

res% = dll_call6("SetKGFGridCellRangeEditable",KG%,2,20,1,16,1) .

En principe, il n'y a pas de point en fin de ligne, dans Panoramic...

Citation :: Je me sers du KGFGRID et mon programme fonctionne bien avec couleurs etc ..

Si je mets le dernier KGF, et alors que je n'ai fait aucune modif le programme plante en disant

que le programme a cessé de fonctionner.

Je n'ai pas d'explication. Ca marche bien chez moi, et apparemment chez Papydall aussi. Par contre, j'ai cette erreur de temps en temps, indépendamment de l'utilisation de KGFGrid ou pas. Je relance, et ça passe... C'est lié à Panoramic, pas à KGF.dll ni à ton code.

Sujet: Re: KGF.dll Bug ou pas ? Mer 13 Mar 2019 - 2:42

@lepetitmarocain:
Je n'ai pas de précisions sur ton problème. Mais à partir de ma démo de facture, j'ai fait une version "réduite" permettant de voir ce qu'il faut faire pour rendre des cellules éditables:

Code:: ' demo validite_SetKGFGridCellRangeEditable.bas

label UserEvent
dim res%, KG%

dll_on "KGF.dll"

KG% = dll_call4("CreateKGFGrid",object_internal(0),handle(0),1,1)
res% = dll_call5("LocateKGFGrid",KG%,10,100,652,377)
res% = dll_call5("SetGlobalKGFGridDimensions",KG%,15,7,50,25)

' !!!!!!!!!! en absence de ces 2 lignes suiavntes,
' !!!!!!!!!! les cellules ne sont pas éditables MEME si elles sont déclarées éditables !
res% = dll_call6("SetKGFGridCellRangeType",KG%,2,15,1,1,1)
res% = dll_call6("SetKGFGridCellRangeType",KG%,2,15,2,7,3)

res% = dll_call4("SetKGFGridColumnRangeWidth",KG%,1,1,200)
res% = dll_call4("SetKGFGridColumnRangeWidth",KG%,2,2,80)
res% = dll_call4("SetKGFGridColumnRangeWidth",KG%,3,3,100)

res% = dll_call6("SetKGFGridCellRangeActive",KG%,2,14,1,3,1)

' !!!!!!!!!! cellules de la colonne 1 à 6 sont déclarées éditables
' !!!!!!!!!! mais seules les colonnes 1 à 2 le sont vraiment car
' !!!!!!!!!! leur type de données est compatible avec une saisie directe:
' !!!!!!!!!! types possibles: chaîne de caractères (type 1), entier (type 2) ou flottant (type 3)
res% = dll_call6("SetKGFGridCellRangeEditable",KG%,2,14,1,6,1)

on_user_event UserEvent

end

UserEvent:
message "event"
return

Pour être éditable une cellule doit être:
1. active - SetKGFGridCellRangeActive
2. éditable = SetKGFGridCellRangeEditable
3. numérique = SetKGFGridCellRangeType avec type 1, 2 ou 3

Dans l'exemple ci-dessus, les lignes de 2 à 14 et les colonnes de 1 à 3 sont éditables. Pas le reste du tableau, même si SetKGFGridCellRangeEditable inclut toutes les colonnes. Mais les colonnes de 4 à 6 sont du type indéfini, et donc non éditables même si on les déclare explicitement ainsi.

J'espère que cela te fournira une piste de réflexion...

Sujet: KGF Erreur Mer 13 Mar 2019 - 14:44

Bonjour KLAUS

Ci joint un morceau de mon programme pour que tu puisses vérifier la ligne editable

Beaucoup épuré, mais toujours la mème erreur

Je ne sais pas comment créer une fenêtre pour ajouter du code.

-----------************************************

dim res%, KG%, KGtot%, f1$, Types$(6), v$, f, img$
Types$(0) = "Inconnu (traité comme Integer)"
Types$(1) = "Chaîne"
Types$(2) = "Entier"
Types$(3) = "Flottant"
Types$(4) = "Booléen"
Types$(5) = "Image"
Types$(6) = "Mémo"

dim lig, col, id%, type%, res$,Z , col% , lig%

dim a$

dim mg$
dll_on "KGF.dll"
full_space 0

' ****************creation du KFGRID **************************

KG% = dll_call2("CreateKGFGrid",handle(0),50)

res% = dll_call5("LocateKGFGrid",KG%,16,100,1200,750)
res% = dll_call5("SetGlobalKGFGridDimensions",KG%,40,16,50,25)

res% = dll_call6("SetKGFGridCellRangeValue",KG%,1,1,16,16,adr(v$))

dim lignes%
dim colonnes%
lignes%=1
colonnes%=0
res% = dll_call6("SetKGFGridCellRangeActive",KG%,1,50,1,10,0)
res% = dll_call6("SetKGFGridCellRangeType",KG%,2,2,1,16,1) : ' ligne des mvts

' **************************************************** affichage *****************
a$="Dcarrefour 100.00111111111111"

res% = dll_call6("SetKGFGridCellRangeType",KG%,1,40,1,16,1) : ' metrre type pour toutes les lignes

v$ = mid$(a$,1,1) : ' Débit ou credit
res% = dll_call6("SetKGFGridCellRangeValue",KG%,lignes%,lignes%,1,1,adr(v$))

if v$=" " then exit_while

v$ = mid$(a$,2,30) : ' Libéllé
res% = dll_call6("SetKGFGridCellRangeValue",KG%,lignes%,lignes%,2,2,adr(v$))

v$ = mid$(a$,32,15) : ' Montant
res% = dll_call6("SetKGFGridCellRangeValue",KG%,lignes%,lignes%,3,3,adr(v$))

res% = dll_call6("SetKGFGridCellRangeType",KG%,2,20,1,12,1)
res% = dll_call6("SetKGFGridCellRangeActive",KG%,1,50,1,10,1)
res% = dll_call6("SetKGFGridCellRangeEditable",KG%,2,20,1,12,1)

end

Merci pour ta patience pour un problème que tu n'as pas mais que auras j'espere avec ce petit programme

Sujet: Re: KGF.dll Bug ou pas ? Mer 13 Mar 2019 - 17:26

Citation :: Je ne sais pas comment créer une fenêtre pour ajouter du code.

Dans la barre d'icônes au-dessus du cadre de saisie pour le post, tu as une icône "<>" (la 10èle icône à partir de la droite). Elle crée les balises pour placer le code, et tu le colles entre ces deux balises.

Maintenant retour au sujet: je prends le source que tu as posté et je vais regarder cela.

Sujet: Re: KGF.dll Bug ou pas ? Mer 13 Mar 2019 - 18:28

Problème résolu.

En fait, il y avait plusieurs problèmes. Le principal, et le plus grave, c'est une erreur sur l'utilisation de la fonction CreateKGFGrid. Il lui manquent deux paramètres, rien que ça ! A cette occasion, je reconnais que la doc n'est pas à jour, et ce sera corrigé dans la soirée. Mais dans mon programme de démo, la fonction est bien appelée avec 4 paramètres, et cela aurait dû te mettre la puce à l'oreille...

Il y a des petits problèmes de données à charger dans les cellules. Règle de base: je jamais laisser des espaces inutiles, ni devant ni derrière. Puis, il vaut mieux définir le type de données avant de charger des valeurs. Sinon, le type de la cellule est considérée comme "non défini" et sa valeur est considérée, soit comme une chaîne de caractères, soit comme une valeur entière, mais certainement pas comme une valeur flottante.

Je te poste ici le code corrigé et fonctionnel. Toutes mes corrections sont annotées dans le code, avec des commentaires précis.

Encore mes excuses pour le problème de la doc de CreateKGFGrid - ce cera corrigé.

Code:: ' probleme_lepetitmarocain.bas

dim res%, KG%, KGtot%, f1$, Types$(6), v$, f, img$
Types$(0) = "Inconnu (traité comme Integer)"
Types$(1) = "Chaîne"
Types$(2) = "Entier"
Types$(3) = "Flottant"
Types$(4) = "Booléen"
Types$(5) = "Image"
Types$(6) = "Mémo"

dim lig, col, id%, type%, res$, Z , col% , lig%
dim a$, mg$, lignes%, colonnes%

dll_on "KGF.dll"
full_space 0

' ****************creation du KFGRID **************************

' KG% = dll_call2("CreateKGFGrid",handle(0),50) <=========== il manque 2 paramètres !
KG% = dll_call4("CreateKGFGrid",object_internal(0),handle(0),50,1)

res% = dll_call5("LocateKGFGrid",KG%,16,100,1200,750)
res% = dll_call5("SetGlobalKGFGridDimensions",KG%,40,16,50,25)

' res% = dll_call6("SetKGFGridCellRangeValue",KG%,1,1,16,16,adr(v$)) <======== je ne vois pas à quoi ça sert de charger un string vide dans la cellule (1,16)...

lignes%=1
colonnes%=0
res% = dll_call6("SetKGFGridCellRangeActive",KG%,1,50,1,10,0)
res% = dll_call6("SetKGFGridCellRangeType",KG%,2,2,1,16,1) : ' ligne des mvts

' **************************************************** affichage *****************
a$="Dcarrefour 100.00111111111111"

res% = dll_call6("SetKGFGridCellRangeType",KG%,1,40,1,16,1) : ' mettre type pour toutes les lignes
' <<<<<<<<<<<<<<<<<<<<<< il vaut mieux définir le type de cellule AVANT de charger les premières valeurs. Question de représentation innterne...
res% = dll_call6("SetKGFGridCellRangeType",KG%,2,20,1,12,1) : ' <<<<<<<<<< est-ce bien raisonnable ? La colonne 3 semblerait être de type flottant, non ?

v$ = mid$(a$,1,1) : ' Débit ou credit
res% = dll_call6("SetKGFGridCellRangeValue",KG%,lignes%,lignes%,1,1,adr(v$))

if v$=" " then exit_while

' v$ = mid$(a$,2,30) : ' Libéllé <<<<<<<<<< pourquoi laisser tous ces espaces après le libellé ?
v$ = trim$(mid$(a$,2,30)) : ' Libéllé
res% = dll_call6("SetKGFGridCellRangeValue",KG%,lignes%,lignes%,2,2,adr(v$))

' v$ = mid$(a$,32,15) : ' Montant <<<<<<<<<<<<< même raisonnement: pas d'espaces inutiles, ni devant ni derrière ! Et le début est faux...
v$ = trim$(mid$(a$,31,15)) : ' Montant : ' <<<<<<<<<<<<<<<<<< est-ce bien la bonne longueur ?
res% = dll_call6("SetKGFGridCellRangeValue",KG%,lignes%,lignes%,3,3,adr(v$))

' <<<<<<<<<<<<<<<<<<<<<< il vaut mieux définir le type de cellule AVANT de charger les premières valeurs. Question de représentation innterne...
' res% = dll_call6("SetKGFGridCellRangeType",KG%,2,20,1,12,1) : ' <<<<<<<<<< est-ce bien raisonnable ? La colonne 3 semblerait être de type flottant, non ?
res% = dll_call6("SetKGFGridCellRangeActive",KG%,1,50,1,10,1)
' res% = dll_call6("SetKGFGridCellRangeEditable",KG%,2,20,1,12,1) <<<<<<<<<<<< tu as une valeur en ligne 1. Pourquoi ne serait-elle pas éditable ?
res% = dll_call6("SetKGFGridCellRangeEditable",KG%,1,20,1,12,1)

end

Sujet: Re: KGF.dll Bug ou pas ? Mer 13 Mar 2019 - 19:13

La doc de CreateKGFGrid est corigée également.

Sujet: KGF bug ou pas Jeu 14 Mar 2019 - 15:02

Bonjour

Merci Klaus pour toutes tes remarques concernant mon programme.

J'avais récupéré la création d'un KGFGRID au début et du coup c'est pour cela que je n'avais que 2 paramètres.

J' ai donc modifié mon programme et la saisie dans une cellule fonctionne bien.

Merci Very Happy

Bonsoir à tous

@Klaus

je voudrais me servir de la commande

MetaPrinterMode

afin de visualiser au lieu d'imprimer.

J' ai un message dés même la commande dim apercu% (illegal variable name)

Peux tu me dire SVP s'il y a un problème

Je suis toujours en W7.

Merci

Bonne soirée

Oui, il y a évidemment un problème avec la doc.
Au lieu de

Code:: dim aperçu%

il faut lire bien sûr

Code:: dim apercu%

Le c cédille n'est pas reconnu par Panoramic dans unnom de variable/

Bonsoir à tour

Merci Klaus pour ta réponse qui permet effectivement au programme de mieux fonctionner.

J' ai tout de même un problème.

Avant l'ajout de la ligne pour visu , la taille de la police était respectée en impression.

Si je mets la ligne pour Visu, la taille est la plus petite possible, visualisable avec une loupe.

J' ai mis la taille de la police avant la ligne de Visu, mais rien n'y fait.

La visu fonctionne tés bien.

Merci pour ta réponse concernant mon nouveau problème.

Bonne soirée

Désolé, mais là, je ne comprends plus. La ligne de visu - qu'est-ce que c'est ? Peux-tu poster le code ?