KGF_dll - nouvelles versions

Sujet: Re: KGF_dll - nouvelles versions Ven 25 Mar 2016 - 12:44

KGF.dll V6.19 du 25/03/2016

Nouveautés:
-détermination correcte du handle d'un objet passé par OBJECT_INTERNAL

Modules modifiés:
KGF.dll

La doc est inchangée. Les sources sont à jour.

Ceci est fait pour pallier à un problème de version, introduit par Panoramic récemment. Cela touche un certain nombre de fonctions. La première application est faite pour la fonction SetRoundObjectCorners qui ne marchait plus. J'avais placé sur mon WebDav une version "bidouillée" de KGF.dll pour fournir un palliatif pour cette fonction, mais au prix d'une modification du format d'appel. Ceci est annulé. Le format d'appel est à nouveau celui présenté dans la documentation d'origine.

EDIT du 25/3/2016 à 21:38

La version a été mise à jour avec une amélioration du procédé de recherche du handle d'un objet passé en paramètre par OBJECT_INTERNAL(N). Juste recharger la DLL, aucune modification des codes Panoramic.

Sujet: Re: KGF_dll - nouvelles versions Lun 28 Mar 2016 - 16:21

KGF.dll V6.20 du 27/03/2016

Nouveautés:
-nouvel objet KGraphic

Modules modifiés:
KGF.dll
KGF.chm (et non KGF.dll comme indiqué par JL35)

La doc et les sources sont à jour.

Regardez le programme de démo:

Code:: ' test_KGraphic.bas

label creer, supprimer
label form1, form2, form3, form4, form5, form6, form7, form8
label sauver1, sauver2, sauver3, charger3, cacher, mode3d

dim res%, KG%, bmp$, jpg$, v%, m3d%, txt$, fnt$
v% = 1

dll_on "KGF.dll"
width 0,1000 : height 0,600
panel 1 : top 1,10 : left 1,20 : width 1,700 : height 1,300
color 1,127,255,255
dlist 2
  item_add 2,"5,5"
  item_add 2,"35,235"
  item_add 2,"350,18"
  item_add 2,"90,140"
dlist 3
  item_add 3,"10,220"
  item_add 3,"70,40"
  item_add 3,"130,200"
  item_add 3,"200,120"
  item_add 3,"270,160"
  item_add 3,"340,80"

button 11 : top 11,10 : left 11,750 : width 11,120 : caption 11,"Créer KGraphic"
  on_click 11,creer
button 12 : top 12,40 : left 12,750 : width 12,120 : caption 12,"Supprimer KGraphic"
  on_click 12,supprimer
button 13 : top 13,70 : left 13,770 : width 13,170 : caption 13,"Rectangle rouge bord noir"
  on_click 13,form1
button 14 : top 14,100 : left 14,770 : width 14,170 : caption 14,"Rectangle bleu arrondi bord jaune"
  on_click 14,form2
button 15 : top 15,130 : left 15,770 : width 15,170 : caption 15,"Oval violet bord noir"
  on_click 15,form3
button 16 : top 16,160 : left 16,770 : width 16,170 : caption 16,"Rectangle transparent bord noir"
  on_click 16,form4
button 17 : top 17,190 : left 17,770 : width 17,170 : caption 17,"Polygone jaune"
  on_click 17,form5
button 24 : top 24,220 : left 24,770 : width 24,170 : caption 24,"Histogramme bleu"
  on_click 24,form6
button 25 : top 25,250 : left 25,770 : width 25,170 : caption 25,"Texte LED"
  on_click 25,form7
button 26 : top 26,280 : left 26,770 : width 26,170 : caption 26,"Texte normal"
  on_click 26,form8

button 18 : top 18,310 : left 18,750 : width 18,120 : caption 18,"Copier -> presse-papier"
  on_click 18,sauver1
button 19 : top 19,340 : left 19,750 : width 19,120 : caption 19,"Copier -> BMP"
  on_click 19,sauver2
button 20 : top 20,370 : left 20,750 : width 20,120 : caption 20,"Copier -> JPG"
  on_click 20,sauver3
button 21 : top 21,400 : left 21,750 : width 21,120 : caption 21,"Charger JPG"
  on_click 21,charger3
button 22 : top 22,430 : left 22,750 : width 22,120 : caption 22,"Cacher/Montrer"
  on_click 22,cacher
button 23 : top 23,460 : left 23,750 : width 23,120 : caption 23,"3D/2D"
  on_click 23,mode3d

alpha 31 : top 31,350 : left 31,10 : font_size 31,16 : font_bold 31
  caption 31,"Taper ctrl/Z pour annuler une étape..."

open_dialog 41 : filter 41,"Image JPG|*.jpg"

end

creer:
  if KG%<>0
   message "Cet objet existe déjà"
   return
  end_if
  KG% = dll_call6("CreateKGraphic",handle(1),20,20,650,250,0)
  return

supprimer:
  KG% = dll_call1("DeleteKGraphic",KG%)
  if KG%<0
   message "Erreur"
   KG% = 0
  end_if
  return

form1:
  if KG%=0
   message "KGraphic inexistant"
   return
  end_if
  res% = dll_call4("SetKGraphicPen",KG%,0,3,0)
  res% = dll_call3("SetKGraphicBrush",KG%,0,255)
  res% = dll_call5("DrawKGrapicShape",KG%,0,20*65536+30,320*65536+180,0)
  return

form2:
  res% = dll_call4("SetKGraphicPen",KG%,0,3,255*256+255)
  res% = dll_call3("SetKGraphicBrush",KG%,0,255*256*256)
  res% = dll_call5("DrawKGrapicShape",KG%,1,10*65536+90,280*65536+150,30*65536+20)
  return

form3:
  res% = dll_call4("SetKGraphicPen",KG%,0,5,0)
  res% = dll_call3("SetKGraphicBrush",KG%,0,127*256*256)
  res% = dll_call5("DrawKGrapicShape",KG%,2,80*65536+50,120*65536+180,0)
  return

form4:
  res% = dll_call4("SetKGraphicPen",KG%,0,2,0)
  res% = dll_call5("DrawKGrapicShape",KG%,3,190*65536+140,120*65536+60,0)
  return

form5:
  res% = dll_call4("SetKGraphicPen",KG%,0,2,255*256+255)
  res% = dll_call3("DrawKGraphicPolygon",KG%,1,object_internal(2))
  return

form6:
  res% = dll_call4("SetKGraphicPen",KG%,0,1,255*256*256)
  res% = dll_call3("SetKGraphicBrush",KG%,0,127*256*256)
' res% = dll_call4("KGraphicFunction",KG%,9,30,50) : ' 30°, profondeur 50 pixels (par défaut) res% = dll_call3("DrawKGraphicPolygon",KG%,0,object_internal(3))
  res% = dll_call3("DrawKGraphicPolygon",KG%,0,object_internal(3))
  return

form7:
  res% = dll_call4("KGraphicFunction",KG%,10,0,0)
  res% = dll_call4("KGraphicFunction",KG%,11,0,0)
' res% = dll_call4("KGraphicFunction",KG%,12,0,0)
   res% = dll_call4("KGraphicFunction",KG%,13,0,1) : ' interdire le ctrl/z, effacer historique !
  res% = dll_call4("SetKGraphicPen",KG%,0,3,255*256*256)
  res% = dll_call3("SetKGraphicBrush",KG%,0,255*256+255)
  txt$ = time$
  res% = dll_call5("DrawKGraphicTextAsLED",KG%,adr(txt$),1,6,1)
  txt$ = date$
  res% = dll_call4("KGraphicFunction",KG%,11,40,60)
  res% = dll_call4("KGraphicFunction",KG%,14,0,300)
  res% = dll_call4("KGraphicFunction",KG%,15,1,0-1)
  res% = dll_call5("DrawKGraphicTextAsLED",KG%,adr(txt$),1,4,1)
  res% = dll_call4("KGraphicFunction",KG%,14,0,0)
  res% = dll_call4("KGraphicFunction",KG%,15,1,1)
   res% = dll_call4("KGraphicFunction",KG%,13,1,1) : ' autoriser le ctrl/z, effacer historique !
  return

form8:
  txt$ = "Texte à 30°"
  fnt$ = "Arial"
  res% = dll_call5("SetKGraphicFontAttributes",KG%,adr(fnt$),12,255,1+2)
' res% = dll_call5("DrawKGraphicText",KG%,30,100,300,adr(txt$))
   res% = dll_call4("KGraphicFunction",KG%,14,0,300)
   res% = dll_call4("KGraphicFunction",KG%,15,1,0-1)
  res% = dll_call5("DrawKGraphicText",KG%,30,100,300,adr(txt$))
  return

sauver1:
  res% = dll_call3("SaveKGraphicImage",KG%,0,0)
  return

sauver2:
  bmp$ = "KGraphic.bmp"
  res% = dll_call3("SaveKGraphicImage",KG%,1,adr(bmp$))
  return

sauver3:
  jpg$ = "KGraphic.jpg"
  res% = dll_call3("SaveKGraphicImage",KG%,2,adr(jpg$))
  return

charger3:
  jpg$ = "KGraphic.jpg"
  jpg$ = file_name$(41)
  if jpg$="_" then return
  res% = dll_call3("LoadKGraphicImage",KG%,4,adr(jpg$))
  return

cacher:
  v% = 1 - v%
  res% = dll_call4("KGraphicFunction",KG%,7,v%,0)
  return

mode3d:
  m3d% = 1 - m3d%
  res% = dll_call4("KGraphicFunction",KG%,8,m3d%,0)
  return

Sujet: Re: KGF_dll - nouvelles versions Lun 28 Mar 2016 - 17:54

Citation :: Modules modifiés:
KGF.dll
KGF.dll

Je suppose que tu veux dire KGF.dll et KGF.chm
(c'était déjà comme ça page précédente...)

Cela dit, voilà un objet qui ouvre de sacrés horizons.
Je vais commencer à jouer avec.

Sujet: Re: KGF_dll - nouvelles versions Mar 29 Mar 2016 - 21:40

Klaus, au début de GPP avant d'intégrer les fonction de DESIGNER, j'avait mis en place un système de déplacement par pas. Un peu comme sur une grille magnétique. J'avait trouvé cela très pratique.

Penses tu que cela puisse être ajouter sur la fonction DESIGNER lors du déplacement des objets.
Peut être sous forme d'une option ou l'on pourrait régler le pas (nombre de pixels) de déplacement.

Comme cela on déplace l'objet selon le pas sélectionné (5, 10 pixels par exemple).
Qu'en penses tu ?

Sujet: Re: KGF_dll - nouvelles versions Mar 29 Mar 2016 - 23:55

Un peu comme une "grille magnétique" ? J'avais fait un peu la même chose avec mes IDE's... C'est une idée, et je vais y réfléchir lorsque j'aurai fini mes travaux sur l'objet StringGrid, ce qui ne saurait tarder. J'ai trouvé l'angle d'attaque, et ça marche. Reste la doc à fignoler...

Sujet: Re: KGF_dll - nouvelles versions Mer 30 Mar 2016 - 0:14

Merci Klaus, mais ne t'inquiètes pas. il n'y a pas d'urgence. Wink

GPP n'est pas encore terminé et encore moins finalisé donc tu as le temps devant toi. Laughing

Sujet: re Mer 30 Mar 2016 - 0:15

Grid vous avez dit Grid, hummmm...çà me plait.
Laughing

Sujet: Re: KGF_dll - nouvelles versions Mer 30 Mar 2016 - 1:07

KGF.dll V6.21 du 29/03/2016

Nouveautés:
-objet GRID (ou objet StringGrid plus correctement) complètement remanié
- 3 nouvelles fonctions pour cet objet

Modules modifiés:
KGF.dll
KGF.chm

La doc et les sources sont à jour.

Info importante:

Cette version de l'objet GRID (ou StringGrid) est complètement remaniée. En effet, depuis les récentes versions de Panoramic, il n'est plus possible d'intervenir sur un objet GRID de Panoramic, à partir d'une DLL écrite en Delphi 6. J'ai donc dû abandonner cette voie.

Mais j'ai créé une fonction CreateStringGrid qui permet de créer un tel objet et de l'afficher dans une form, un panel etc, tout comme Panoramic le fait avec la commande GRID. Mais ce n'est pas un objet Panoramic. Cet objet que la fonction CreateStringGrid crée, ne peut être manipulé que par les fonctions de KGF.DLL. Par contre, tous les suppléments (cellules modifiables en saisie, cellules non modifiables, cellules non sélectionnables, cellules cadrées à gauche ou à droite, cellules représentées par une checkbox avec un label, coloration de cellules uniques et/ou de lignes, colonnes ou de rectangles de cellules) - tout cela est possible. Et en plus, ce nouvel objet n'entre absolument pas en conflit avec l'objet GRID de Panoramic. Les deux peuvent parfaitement cohabiter dans le même programme, sans se perturber mutuellement.

On a donc un choix à faire. Pour un usage "basique" d'un objet GRID, celui de Panoramic suffit. Mais dès qu'on veut au moins une des fonctionnalités citées ci-dessus, il faut recourir aux fonctions de KGF.dll.

Voici le programme de démo:

Code:: ' test_GridFunction_code_12.bas

' Ce programme teste le code 12 de GridFunction.
' Ce code permet de définir des rectangles dans un GRID
' pour lesquels la sélection est interdite.

label clic

dim res%, l%, c%, RGB%, s$, x%, y%, status%, SG%
dim stat$(3)
stat$(0) = "Normal"
stat$(1) = "Libre"
stat$(2) = "Sélectionnable"
stat$(3) = "Bloqué"

dll_on "KGF.dll"

width 0,690 : height 0,310

edit 98 : ' hide 98
top 98,300 : on_change 98,clic
height 0,380

memo 99 : hide 99
item_add 99,"Width=660"
item_add 99,"Height=260"
item_add 99,"Rows=10"
item_add 99,"Columns=10"
item_add 99,"FixedRows=1"
item_add 99,"FixedColumns=1"
SG% = dll_call3("CreateStringGrid",handle(0),handle(99),handle(98))

for l%=1 to 10
for c%=1 to 10
s$ = str$(c%)+","+str$(l%)
res% = dll_call4("WriteGridCell",SG%,c%,l%,adr(s$))
next c%
next l%

width 0,920
memo 2 : width 2,200 : left 2,660+20 : ' width(1)+20
height 2,260 : ' height(1)
font_name 2,"Courier"
display

' première zone interdite totalement
res% = dll_call6("GridFunction",SG%,12,3,2,5,3)

' seconde zone interdite en saisie uniquement
res% = dll_call6("GridFunction",SG%,13,7,4,8,5)

' troisième zone CheckBox à gauche
res% = dll_call6("GridFunction",SG%,15,4,6,4,9)

' quatrième zone CheckBox à droite
res% = dll_call6("GridFunction",SG%,16,6,7,9,8)

' Cinquième zone CheckBox à gauche dans zone interdite
res% = dll_call6("GridFunction",SG%,15,4,2,4,3)

' Sixième zone CheckBox à droite dans zone protégée
res% = dll_call6("GridFunction",SG%,15,7,4,7,5)

' activer les couleurs personnalisées
res% = dll_call6("GridFunction",SG%,8,1,0,0,0)

RGB(255,200,200)
for l%=2 to 3
for c%=3 to 3 : ' 5
' couleur de la première zone interdite
res% = dll_call6("GridFunction",SG%,2,c%,l%,RGB%,0)
next c%
next l%

RGB(200,200,255)
for l%=4 to 5
for c%=7 to 8
' couleur de la seconde zone interdite
res% = dll_call6("GridFunction",SG%,2,c%,l%,RGB%,0)
next c%
next l%

' chercher la map du grid
s$ = string$(3000," ")
res% = dll_call2("GetGridCellMap",SG%,adr(s$))
text 2,trim$(s$)

' autoriser la saisie
res% = dll_call6("GridFunction",SG%,1,1,0,0,0)

end

sub RGB(R%,G%,B%) : ' produire une valeur RGB valide
RGB% = (B%*256+R%)*256+G%
end_sub

clic:
' caption 0,text$(98) : ' ici, ona déjà le numéro de ligne et de colonne dans Edit 98 !
res% = dll_call6("GridFunction",SG%,14,adr(x%),adr(y%),adr(status%),0)
caption 0, "click colonne "+str$(x%) +" ligne "+str$(y%)+" "+stat$(status%+1)
return

Vous verrez un petit EDIT qui s'affiche en bas et dont le contenu change lorsqu'on clique dans une des cellules. C'est le nouvel objet EDIT associé à l'objet StringGrid dont l'évènement ON_CHANGE informe de la nature et du lieu de l'évènement.

Sujet: re Mer 30 Mar 2016 - 14:52

Il faut que j' étudie toutes ces fonctions.
Cette objet pourrait être très intéressant pour Gest Compte.
Wink

Sujet: Re: KGF_dll - nouvelles versions Mer 30 Mar 2016 - 15:57

c'est cool Klaus, on va pouvoir reprendre les grids ou on s'était arrété... cheers:

Sujet: Re: KGF_dll - nouvelles versions Mer 30 Mar 2016 - 16:01

Au fait Klaus, est il possible de savoir si les ascenseurs sont visible sur un form panoramic ?

Sujet: Re: KGF_dll - nouvelles versions Mer 30 Mar 2016 - 16:09

Oui. Regarde le lien suivant vers la page correspondante dans la doc en ligne:
http://klauspanoramic.olympe.in/KGF.html?FonctionsdegestiondesfenetresWin.html#Fen%C3%AAtre_fr

Fonction GetScrollBarInfo.

Cela se trouve dans la rubrique de "Gestion des fenêtres".

Sujet: Re: KGF_dll - nouvelles versions Mer 30 Mar 2016 - 16:15

Merci pour le lien Klaus. En fait je voulais savoir si elles sont visibles sur la fenêtre...

Sujet: Re: KGF_dll - nouvelles versions Mer 30 Mar 2016 - 16:36

Alors, appelle cette fonction et regarde le code retour. Si c'est 0, il y a une erreur, et donc la barre visée n'est pas visible. Il faut faire 2 appels, un pour la barre horizontale et un pour la barre verticale.

Sujet: re Mer 30 Mar 2016 - 16:57

Malheureusement, il me manque une fonction StringGridAddRow pour l' utiliser.
Sad

Sujet: Re: KGF_dll - nouvelles versions Mer 30 Mar 2016 - 17:06

Effectivement. Pour le moment, les fonctions StringGrid reprennent ce que j'avais déjà fait, sous forme de possibilités supplémentaires à un objet GRID de Panoramic. J'ai réussi à tout faire marcher. Mais je sais bien que des fonctionnalités natives de l'objet GRID de Panoramic ne sont pas encore accessibles. L'ajout ou l'insertion d'une ligne ou d'une colonne en fait partie. Ca viendra, c'est prévu et en cours. De même la gestion de la hauteur des lignes et de la largeur des colonnes, globalement et de façon ciblée sur une ligne ou colonne.

Sujet: Re: KGF_dll - nouvelles versions Mer 30 Mar 2016 - 17:24

Ok Klaus je te remercie Wink

Sujet: re Mer 30 Mar 2016 - 17:46

On va te laisser plancher là dessus.
Et on l' intègrera plus tard.
Mais les fonctions de colorisation d' une colonne et autres sont super pour GestCompte.
Ce n' est qu' une question de temps avant que je l' intègre.

Sujet: Re: KGF_dll - nouvelles versions Mer 30 Mar 2016 - 18:34

KGF.dll V6.22 du 30/03/2016

Nouveautés:
- fonction Gridfunction: 6 nouveaux codes fonction:

Citation :: 17 = définir la hauteur des lignes
18 = définir la largeur des colonnes
19 = insérer une ligne
20 = insérer une colonne
21 = supprimer une ligne
22 = supprimer une colonne

Modules modifiés:
KGF.dll
KGF.chm

La doc et les sources sont à jour.

Sujet: Re: KGF_dll - nouvelles versions Mer 30 Mar 2016 - 18:46

J'ai du mal à suivre, tellement ça va vite, mais je m'accroche !

Petite remarque sur la doc (KGF.chm), dans l'exemple de WriteGridCell:
- il faut lire res% = DLL_call4("WriteGridCell",SG%,2,4,adr((txt$))
et non res% = DLL_call4("WriteGridCells",SG%,2,4,adr(txt$)) qui est une autre fonction.
pas de s à la fin de WriteGridCell, une parenthèse ouvrante en trop dans adr(txt$).
Également dans le commentaire du début, lire 'Cette fonction remplace le texte d'une cellule ...'

Toujours concernant l'exemple donné, le libellé de la variable
s$ = "L.2 C.4"
est ambigü, en réalité c'est Colonne 2, Rangée (Ligne) 4 et non Ligne 2 Colonne 4.

De plus, dans l'annonce ci-dessus, on est bien le 30/03/2016 (et non le 40 Very Happy

)

Sujet: re Mer 30 Mar 2016 - 18:47

He ! A quoi tu tournes !

Arriver à répondre à un casse bonbon comme moi, et pondre 6 fonctions pour le grid en même temps,
J' en veux, c' est de la bonne !

lol!

Sujet: Re: KGF_dll - nouvelles versions Mer 30 Mar 2016 - 19:22

Merci à JL35 pour son oeil de lynx ! La doc est corrigée sur mon WebDav et mon site miroir. Malheureusement, mon site de base est inaccessible en mise à jour, en ce moment. Mais il ya 2 solutions de rechange...

EDIT

Ca y est - la mise à jour du site principal est passée. Tout est en ordre.

Sujet: Re: KGF_dll - nouvelles versions Mer 30 Mar 2016 - 23:10

Ça va vite Klaus, j'ai vérifié !
Encore un petit détail qui n'a pas échappé à mon oeil de lynx (qui n'est plus ce qu'il était, hélas !) dans la doc de WriteGridCell, rubrique 'Exemple':
Au lieu de:

Code:: s$ = "L.2 C.4"
res% = DLL_call4("WriteGridCell",SG%,2,4,adr((txt$))

On devrait avoir (à mon sens):
s$ = "C.2 L.4": ' permutation ligne/colonne: = x1%, y1%
res% = DLL_call4("WriteGridCell",SG%,2,4,adr(s$))
- une parenthèse ouvrante en trop dans adr(
- et il faut mettre s$ au lieu de txt$
Ce sont des détails qui peuvent attendre la prochaine mise à jour, ça va sans dire, mais ça va encore mieux en le disant Wink

Sujet: Re: KGF_dll - nouvelles versions Mer 30 Mar 2016 - 23:49

Merci, Oeil de Lynx ! La correction est fait et mise en ligne - j'avais un petit moment de libre.

Sujet: Re: KGF_dll - nouvelles versions Jeu 31 Mar 2016 - 0:01

Merci Klaus (je vais me prendre pour un chef sioux) ! difficile de faire plus rapide ! je télécharge, et au lit !
Bonne nuit à toi en particulier (mais tu ne sembles pas te coucher si tôt), et, au diable l'avarice, à tout le monde ! Sleep

» Nouvelles versions
» KGF_dll - nouvelles versions
» Synedit_Editor - nouvelles versions
» KGF_dll - nouvelles versions
» KGF_dll - nouvelles versions