Version instantanée du 2 janvier 2015 : PANORAMIC V 0.9.26i4

Admin Nombre de messages : 2381 Date d'inscription : 28/05/2007

Version instantanée du 2 janvier 2015 : PANORAMIC V 0.9.26i4

Une version instantanée est la version actuelle du développement de PANORAMIC, elle vous permet d'utiliser les toutes dernières améliorations, sans attendre la sortie de la prochaine version.
Une version instantanée n'a pas de procédure d'installation (c'est un fichier zip contenant l'EDITEUR).
Les nouveaux mots-clés n'ont pas de coloration syntaxique dans l'EDITEUR.

Cette version instantanée est disponible sur mon Webdav dans le répertoire : PANORAMIC_VERSION_DE_TRAVAIL

Voici les améliorations de cette version, par rapport à la dernière version instantanée PANORAMIC V0.9.26i3 du 16 décembre 2014:

SEPARATOR_IS_POINT : le séparateur pour les nombres réels est le point (option par défaut)
SEPARATOR_IS_COMMA : le séparateur pour les nombres réels est la virgule

exemple :

Code:: dim f$
f$="123.456"
print val(f$)
separator_is_comma
f$="123,456"
print val(f$)
separator_is_point
f$="123.456"
print val(f$)

OBJECT_INTERNAL(N) : retourne un numéro interne généré à la création de l'objet système de numéro N et -1 si l'objet de numéro N n'existe pas.
(cette fonction avait été demandée par Klaus pour sa DLL)

exemple :

Code:: button 1
caption 0,object_internal(1)

Correction de bugs :

l'objet HVIEWER est actif
le séparateur pour les nombres réels est le point

_________________

Version instantanée du 2 janvier 2015 : PANORAMIC V 0.9.26i4 Webdav

username : panoramic@jack-panoramic password : panoramic123

J’ai téléchargé.
J’ai testé.

Code:: button 1 : left 1,300
form 10 : left 10,400
print "object_internal du bouton 1 :" + str$(object_internal(1))
print "handle du bouton 1 .........: " + str$(handle(1)) : print

print "object_internal du form 0 : " + str$(object_internal(0)) : ' --> donne 0
print "handle du form 0 .........: " + str$(handle(0)) : print

print "object_internal du form 10 : " + str$(object_internal(10))
print "handle du form 10 .........: " + str$(handle(10))
print "object_internal d'un objet inéxistant" + str$(object_internal(100)) : ' ERREUR

Je constate :
• OBJECT_INTERNAL(N) et HANDLE(N) sont deux choses différentes
• OBJECT_INTERNAL(0) donne 0
• Si l’objet n’existe pas OBJECT_INTERNAL(N) renvoie une erreur et non -1

J'aime bien savoir :
A quoi sert OBJECT_INTERNAL(N) et comment peut-on l’appliquer ?

Magnifique, Jack ! J'attendais cela depuis longtemps, et ça va non seulement simplifier mon codage de KGF.dll, mais également ajouter de nouveaux horizons !

Deux remarques, cependant.

1. Dans la doc provisoire, tu publies:

Citation :: NUMBER_INTERNAL(N) : retourne un numéro interne généré à la création de l'objet système de numéro N

Je pense que ça devrait être:

Citation :: OBJECT_INTERNAL(N) : retourne un numéro interne généré à la création de l'objet système de numéro N

comme dans l'exemple qui suit.

2. Cette fonction marche parfaitement, et remplit exactement le rôle que j'imaginais. Parfait. Seul b-mol: elle ne marche pas sur l'objet 0. Elle ne retourne pas -1, mais la valeur 0 (zéro) ce qui n'est pas utilisable. Pourrait cette fonction retourner la valeur de integer(FORM1) ? Ca marche bien sur une autre form créée explicitement par la commande FORM. Je pense que c'est un détail à corriger...

Je suis en tout cas super content de cette fonction qui est un vrai cadeau de Noël pour moi ! Merci mille fois !

@Papydall:

Pour ceux qui écrivent des DLLs, c'est hyper important ! Car, à ce jour, on ne pouvait passer que le handle d'un objet ou le handle_canvas, et les actions possible dans ce contexte sont limitées et compliquées, et possibles uniquement via les API de Windows. Ce n''est pas simple.

Avec cette fonction, on obtient une autre valeur. Ce n'est pas un "handle", mais l'identifiant interne de l'"objet". Et dans la DLL, je peux interroger cet objet pour en déduire son type (on peu comme le fait la fonction OBJECT_TYPE de Panoramic), et ensuite, je peux traiter cet objet dans son contexte précis de façon beaucoup plus souple et beaucoup plus étendue.

Donc, tu vois, pour quelqu'un qui n'écrit qu'en Panoramic, cela n'a aucune utilité. Absolument aucune. Par contre, pour un concepteur de DLL, cela ouvre des horizons complètement nouveaux.

Merci Klaus.
Je comprends un tout petit mieux maintenant après ton explication.
Et puisque tu es super content, ça rendra tout le monde qui profite de ton extra super hyper KGF.dll aussi super content !
2015 débute super bien !

Merci Jack!

Une découverte avec cette nouvelle fonction: on peut maintenant passer des objets non visibles et des objets n'ayant pas de handle, comme ALPHA, PICTURE, DLIST etc ! Génial ! C'est ce que j'espérais, mais ne ne pouvais pas en être sûr.

Donc, le seul point en suspens pour moi, c'est qu'on ne peut pas passer la form 0, car la valeur retournée est 0. Mais ça marche bien sur tous les autres objets !!

Invité

Bonsoir Jack, et bonne année aninsi qu'aux autre Panoramicien.

J'ai téléchargé, et essayé.

Citation :: l'objet HVIEWER est actif

Malheureusement hviewer ne fonctionne pas.

Code:: hviewer 1

résultat d'erreur.

Ensuite serait-il possible d'avoir au moins un on_click pour cet objet.
Je pense que je pourrai mettre un premier code avec cet objet d'ici la fin du mois (tout du moins si la version de panoramic le permet) selon le temps que je dispose. Pour ma part je reprends la dernière qui accepte hviewer.

Exact ! HVIEWER n'est pas reconnu à la compilation !

Sujet: Re Ven 02 Jan 2015, 17:59

Merci Jack !

Je cours au téléchargement de cette nouvelle version !
Laughing

@ Klaus,

La nouvelle commande Object_internal(n) signifie t elle
la fin des objets cachés pour ceux créés par KGF.dll ?... geek

@Ygeronimi:

Je ne pourrai jamais les rendre inutiles complètement, car dans beaucoup de cas, il faut pouvoir retourner des informations plus ou moins complexes. J'envisage à terme d'utiliser un DLIST pour cela. Actuellement, je vais pourvoir utiliser indifféremment, comme objet caché, un EDIT, un MEMO ou un LIST. Malheureusement, je ne peux pas le supprimer complètement, car il manque encore de deuxième point essentiel: le fait de pouvoir générer un évènement Panoramic.

Dans ce post, j'avais proposé ceci:

Citation :: c. pouvoir déclencher un évènement Panoramic.
Actuellement, je le fais en utilisant on objet EDIT caché par HIDE, ayant un évènement ON_CHANGE. Et dans la DLL, j'utilise l'API SendMessage avec le code WM_SETTEXT pour déposer un texte dans cet objet (identifié par son handle). L'évènement se déclenche, et je peux le traiter en Panoramic. Or, ceci est lourd et nécessite un objet Panoramic "abusé" de cette façon. Je suggère un évènement spécifique DLL_EVENT qui serait géré par les commandes:
ON_DLL_EVENT label
OFF_DLL_EVENT
et on déclencherait cet évènement par un SendMessage avec le code message de type "user_defined" PANORAMIC_DLL_EVENT qui pourrait avoir la valeur WM_USER+x (WM_USER = 0400 hexa, et x étant choisi par Jack). Et ce message serait adressé à la form 0 dans tous les cas, ce qui déclencherait l'évènement ON_DLL_EVENT qui appellerait alors le label en question. Et les valeurs LPARAM et HPARAM du message seraient mises à disposition du programme Panoramic dans des variables système DLL_LPARAM et DLL_HPARAM.

Si un jour cette possibilité est offerte, alors il n'y aura plus d'objet caché - un simple DLIST fera alors l'affaire, et les évènements déclenchés par la DLL seront gérés comme n'importe quel évènement Panoramic. Mais pour le moment, le vais modifier mes fonctions de sorte à accepter indifféremment un EDIT, MEMO ou LIST (MEMO ou LIST uniquement pour des fonctions retournant du texte multi-lignes), avec reconnaissance automatique du type de l'objet. Et tout nouveau programme pourra utiliser un MEMO - ainsi ce sera plus simple au codage.

Mais, en effet, ce serait super si les comandes ON_DLL_EVENT et OFF_DLL_EVENT pourraient voir le jour...

Sujet: re Ven 02 Jan 2015, 18:45

Sniff !!!....

Il va nous falloir encore un peu de patience.
A moins que...Jack accède à mes multiples demandes d' objets créés par la dll en natif Laughing

.

Admin Nombre de messages : 2381 Date d'inscription : 28/05/2007

Il s'agit de la commande OBJECT_NUMBER(N) et non pas de NUMBER_INTERNAL(N). J'ai rectifié dans l'annonce.

Dans une prochaine version, OBJECT_NUMBER(N) rendra -1 si l'objet n'existe pas.

J'ai oublié de coder OBJECT_NUMBER pour l'objet n°0 (la forme qui est créé automatiquement). Embarassed

J'ai à nouveau desactivé l'objet HVIEWER par erreur. Embarassed

Une option permettant de créer des objets système, des Sprites ou des objets 3D, visibles ou invisible viendra bientôt.

De même, les appels de DLL seront facilités.

Je n'ai pas encore regardé la façon de déclencher un événement panoramic de l'extérieur. Je pensais que TRIGGER_CLICK (et les commandes qui vont suivre : TRIGGER_DOUBLE_CLICK, TRIGGER_CHANGE, ...) répondait à la demande.

_________________

username : panoramic@jack-panoramic password : panoramic123

Merci Jack et bonne année

@Jack:
Ok, Jack. OBJECT_NUMBER vaut OBJECT_INTERNAL pour moi. Et OBJECT_INTERNAL est même plus logique...

TRIGGER_CLICK (et les commandes qui vont suivre : TRIGGER_DOUBLE_CLICK, TRIGGER_CHANGE) semblent correspondre à autre chose que ce que j'imaginais. Ces noms me suggèrent un déclenchement des évènements correspondants - par quel moyen, au fait ?

Ce que je fais actuellement: je crée un objet Panoramic (un EDIT, un MEMO, ...), je le cache par HIDE et je lui donne un évènement ON_CHANGE. Et je déclenche cet évènement à partir de la DLL, en envoyant un message Windows par l'API SendMessage avec le code WM_SETTEXT. Pour cela, il faut passer le handle de l'objet à la DLL, qui le mémorise, puis envoie ce message, le moment venu. Ca marche, mais c'est lourd.

J'imaginais un autre mécanisme. En créant un évènement DLL_EVENT, géré par deux commandes ON_DLL_EVENT label et OFF_DLL_EVENT, on pourrait déclencher une routine évènement Panoramic par un évènement provoqué par la DLL, mais sans aucun lien avec un objet Panoramic quelconque. Et la DLL provoquerait cet évènement, toujours par l'API SendMessage, mais avec un code message privé, dont valeur peut être librement choisie au-delà de la limite inférieure des messages privés qui est WM_USER (actuellement $400 en Delphi, donc 400 hexa). Par exemple, DLL_EVENT = WM_USER + 1. J'enverrais ce message systématiquement à la form 0.

Le message reçu par la form 0, outre le code message identifiant qu'il s'agit du message DLL_EVENT, transmet deux paramètres en format integer, qui sont LPARAM et WPARAM. Ces valeurs pourraient être mises à disposition du code Panoramic via deux variables système: NUMBER_LPARAM et NUMBER_WPARAM. Ainsi, la routine Panoramic déclenchée par DLL_EVENT aurait tout le contexte nécessaire pour traiter l'évènement.

Invité

Bon, comme pour Klaus, je vais développer ma demande de on_click pour HVIEWER. Il est évident qu'il faut utiliser une ancienne version. J'utilise celle du 26 septembre actuellement.

L'objet hviewer n'a aucun événement, et on pourrait penser qu'on_click ne sert à rien. J'ai fait un petit programme pour pouvoir savoir ce qui se passe lorsque l'on clique sur un lien (c'est un éditeur, et hviewer ne navigue pas sur internet, mais les liens fonctionnent sur des ancres de la page).

Pour pouvoir suivre les liens, ou savoir où on se trouve, j'ai fait ce teste suivant (je voulais savoir si cela fonctionnait).

code et texte:

Code:: ' teste de réaction sur hviewer

width 0,830 : label teste, control, off
dim form_hviewer%, no ,hviewer_hvier$, hviewer_fich$
dim me, hv, temps, img, pic, fo, dl, ed, retour_hviewer%, page, flag

hviewer_hvier$ = "C:\temp\teste_hviewer.html"
hviewer_fich$ = "C:\temp\teste_hviewer.txt"
if dir_exists("C:\temp\") = 0 then dir_make "C:\temp\"

form_hviewer%= 100
FORM form_hviewer%:width form_hviewer%,700 : height form_hviewer%,screen_y : left form_hviewer%,900 : border_small form_hviewer%
no =110:PANEL no : parent no,form_hviewer% : full_space no :height no,height(no)-50
no=no+1:HVIEWER no: parent no,no-1: full_space no : height no,height(no-1)-5 : hv = no
 if file_exists(hviewer_hvier$) = 1 then file_load no,hviewer_hvier$
no=no+1:MEMO no : top no,100 : width no, 800 : height no, height(0)-130 : font_size no,10 : font_bold no : top no,30
 bar_vertical no : font_name no,"Consolas" : me = no
 if file_exists(hviewer_fich$) = 1 then file_load no,hviewer_fich$
no=no+1:Button no : left no, 10 : caption no,"Contrôle de modification" : width no,160: on_click no,teste
no=no+1:TIMER no : timer_off no : timer_interval no,500 : on_timer no,control : temps = no
no=no+1:image no : img = no

no=no+1:form no : border_small no : left no,left(form_hviewer%) : top no,top(form_hviewer%) : width no,width(form_hviewer%)
 height no,height(form_hviewer%) : fo = no : left no,-2000
no=no+1:picture no: parent no,fo : full_space no : display : hide fo : pic = no : top no,2 : left no,2
no=no+1:dlist no : dl = no
no=no+1:edit no : left no,200:font_bold no:width no,200 : ed=no : color no,255,255,100
no=no+1:button no : left no,420 : caption no,"timer_off":on_click no,off
END
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
teste:
 timer_off temps : repeat : until scancode = 1
 repeat : until scancode = 0 : teste() : return
off:
 timer_off temps : repeat : until scancode = 0
 set_focus 112:return
' ==================================
sub teste()
 dim_local a%,a$,htm$
 if count(me) > 0
 clear dl :' dlist
 item_add dl,"<html><body bgcolor='#FFFFFF'>"
 ' simplification extrème
 for a% = 1 to count(me)
 a$ = item_read$(me,a%)
 if left$(a$,5) = "<hr1>" then item_add dl,"<HR align='left' width=1300 size=3 color='#ff0000'>" :' marque rouge pour le teste
 if left$(a$,5) = "<hr2>" then item_add dl,"<HR align='left' width=1300 size=3 color='#0000ff'>" :' marque bleu pour le teste
 if left$(a$,5) = "<hr3>" then item_add dl,"<HR align='left' width=1300 size=3 color='#fffff0'>" :' marque invisible pour le teste
 if left$(a$,1) = " " then item_add dl,a$
 item_add dl,"</body></html>"
 file_save dl,hviewer_hvier$ : file_save me,hviewer_fich$ : file_load hv,hviewer_hvier$
 next a%
 end_if
 set_focus 110 : timer_on temps
end_sub
' ----------=====================
control:
 timer_off temps : repeat : until scancode = 1
 repeat : until scancode = 0 : control() : timer_on temps
return
' ----
sub control()
 hviewer()
end_sub
' =============================
sub hviewer()
 if hide(form_hviewer%)= 1 then file_load numero_hviewer% , hviewer_hvie$ : show form_hviewer%
 2d_target_is form_hviewer% : display
 2d_image_copy img,0,0,width(form_hviewer%),height(form_hviewer%)
 2d_target_is fo : 2d_image_paste img ,0,0 : show fo
 page = 1 : reperage_marque_hviewer(255,0,0)
 page = 2 : reperage_marque_hviewer(0,0,255)
 page = 3 : reperage_marque_hviewer(255,255,240)
end_sub
================================
sub reperage_marque_hviewer(r,g,b) : ' --------------- teste pour récupérer un emplacement
 dim_local a%,v% ,v1%,v2% : retour_hviewer% = 0
 2d_target_is form_hviewer% : display
 2d_image_copy img, left(hv ), top(hv ) ,300+left(hv ),height(hv) : show fo
 2d_target_is pic : 2d_image_paste img,0,0
 for a% = 1 to height(pic) step 3
 v% = color_pixel_red(pic,15,a%) : v1% = color_pixel_green(pic,15,a%) : v2% = color_pixel_blue(pic,15,a%)
 if v%=r and v1%=g and v2%=b then text ed,"page= " + str$(page)+" "+str$(a%) : exit_for
 next a% : display : hide fo
end_sub

Il faut utiliser un fichier qu'on enregistre dans: "C:\temp\". Dans ce programme, il aurait le nom suivant: "C:\temp\teste_hviewer.txt"

Code:: <a name="Ancre0">PAGE 1</a>
<hr1>
Ceci est un essai pour control
<ul>

<li><a href="#Ancre1">page 2</a>
<li><a href='#Ancre2'>page 3</a>
</ul>

ceci est un teste pour pour voir les 
changement de page avec les marqueurs 
et savoir si cela marche 
Je continu à remplir l'espace afin 
de pouvoir mettre une nouvelle marque 
<a name="Ancre1">PAGE 2</a> 
Le trait de couleur est une marque pour retrouver une position.
Ici le repère est de couleur pour montrer le principe, mais dans
un programme, il suffit que la marque est la couleur de l'écran à une différence de
1 pixel, pour que le programme retrouve cette marque. Avec
plusieurs marques de couleurs différentes, on peut ainsi faire
faire des repèrage de page, ou de position.
Pour la page 3, on a une couleur du hviewer: 255,255,255, et la marque est: 255,255,240. Celle-ci
est invisible, mais le programme la retrouve.

<hr2><a href="#Ancre0">retour</a>
<a href="#Ancre0">retour</a>
 
On est en page 2 
 

 
<a name="Ancre2">PAGE 3</a>
<hr3>
<a href="#Ancre0">retour</a>

La liste des c'est pour faire des lignes avec le minimum de texte.

Une fois lancé on a à gauche un memo de commande et de texte, et à droite hviewer. Si on active le timer par appuie sur le bouton de gauche, on cliquant sur les liens, on a le repérage des pages dans l'edit jaune. pour modifier le texte du memo, on désactive le timer.

C'est la seule façon que j'ai trouvé pour avoir une info sur hviewer.
Ce qui m'ennuie, c'est de devoir utilisé un timer. Ici cela ne pose pas de problème, mais le programme actuel, qui a plein de sophistication, avec des objets panoramic, est un include qui a déjà près de 3000 lignes, et le timer n'est certainement pas le meilleur objet.

Cela dit, je comprend parfaitement, qu'il est presque certain que pour les membres, mon programme sera de côté. Moi en ayant les yeux dessus, je m'aperçois qu'il facilite grandement la programmation, et le visuel des contenus. Ainsi par exemple les demandes faite pour GRID, pour améliorer le contenu, ce programme est idéal pour cela.

Merci Jack
Bonne Année 2015

» Version instantanée du 7 janvier 2015 : PANORAMIC V 0.9.26i5
» Version instantanée du 4 nov 2015 : PANORAMIC V 0.9.27i2
» Version instantanée du 30 mai 2015 : PANORAMIC V 0.9.26i6
» Version instantanée du 9 dec 2015 : PANORAMIC V 0.9.27i3
» Version instantanée du 15 déc 2015 : PANORAMIC V 0.9.27i5