Début d'un constructeur d'un GUI Panoramic

Cet outil, encore en version Alpha, permet de construire visuellement un GUI Panoramic et d'en générer la code Panoramic exécutable directement.

Il sert également de démonstration des capacités des objets KGFTreeView, KGFGrid, 7Zip et Designer.
Il gère une notion de "projet" qui repsésente une form Panoramic complète avec tous ses objets.
On peut créer autant de projets que nécessaire. La liste des projets s'adapte automatiquement.

Le programme est basé sur l'utilisation de maquettes pour les objets. Une maquette est la liste des propriétés d'un objet, y conpris ses évènements. Une maquette spéciale nommée "*" sert de matrice pour créer les maquettes des différents objets,'BUTTON, EDIT, PANEL, ...). Chaque maquette créée sera automatiquement visible dans une combo de sélection de type d'objet.

Pour ajouter un objet à un projet (une form), il fait sélectionner le type via la combo de sélection,, puis cliquer sur "Ajouter". Toutes les propriétés de l'objet s'affichent alors, avec leurs valeurs par défaut, dans un KGFGrid en bas à gauche, l'objet est créé en position (0,0) dans le terrain de jeu représentant la form à configurer, et il est sélectionné automatiquement avec un Designer pour le déplacer et redimensionner.

En tirant le Designer par l'icône de déplacment, non seulement l'objet est déplacé, mais les propriétés Left et Top dans la liste des propriétés sont automatiquement actualisées. Idem pour Width et Height si l'objet est redimensionné en tirant une des poignées.

On peut aussi modifier les propriétés directement dans la liste des propriétés, en faisant un clic droit dans la cellule concernrée. Une fenêtre de saisie s'affiche alors par-dessus la propriété permettant la saisie d'une nouvelle valeur. Cette nouvelle valeur sera immédiatement appliquée à l'objet visualisée, que ce soit des propriétés comme Top, Width, Color, Caption etc. Particularité des options Color: ce sont des valeurs hexa-décimales précédées optionnellement d'un caractère "$".

En particulier, l'option Parent permet de placer n'importe quel objet dans un autre (selon les règles de Panoramic): un BUTTON dans un PANEL est possible, par exemple.

Un objet ajouté au projet n'apparaît non seulement dans la partie visible du terrain de jeu, mais égamement en haut à gauche dans la liste des objets du projet, avec le nom de son type complété par un numéro d'ordre propre à chaque type. On peut avoir ainsi BUTTON_1, EDIT_1, BUTTON_2, PANEL_1 etc.

Un clic sur un de ces noms sélectionne l'objet, ses proprétés seront affichées et le Designer lui sera attaché. Un clic sur un autre objet affiche alors les propriétés de cet autre objet et déplace le Designer sur lui.

Un projet peut être enregistré et rechargé à partir du disque. Lors de l'enregistrement du projet, toutes les maquettes présentes, y compris la maquette matrice, seront enregistrées dans le projet. Lors du chargement d'un projet, une conformation sera demandée pour restutuer la maquette matrice et, séparément, pour l'ensemble des autres maquettes. Le projet est enregistré dans un unique fichier ZIP via l'objet 7Zip de KGF.dll.

Le tout est disponible sur mon WebDav, dossier GUI_Builder. Il y a le source ainsi qu'un fichier ZIP contenant un prjet avec un PANEL et un BUTTON dans le PANEL. Téléchargez ces deux fichiers n'importt où et lancez le soruce dans Panoramic. Il trouvera autiomatiquement le projet. Sélectionnez ce projet dans la combo des projets en haut au milieu, puis cliquez zue "Charger". Répondez "Oui" aux deux questions successives et vour aurez, non seulement le projet, mais également toutes les maquettes. Puis amusez-vous...

Pour le moment, il y a très peu de maquettes (objets Panoramic configurables), mais le concept est oopérationnel.

Bonjour Klaus !

Bon et bien ça commence mal....  

J'ai installer les versions 7zip ( ) indiquées 32 et 64 bits. Sauf que j'ai toujours une erreur en ligne 201 ???!!!

Merci Klaus pour toutes ces richesses informatiques partagées.

Je viens de tester GUI_Builder.bas .

J’ai quelques difficultés :

- La fonction CheckInstallation7Zip ne trouve pas 7-zip que ce soit en 32 ou en 64 bits.

- Une erreur en ligne 201 : La commande "message " est écrite avec 3 « s ».

- J’ai une erreur fatale en ligne 263 :

Code:

res% = dll_call3("SetKGFGridAbsolutePosition",KG_proprietes%,left(0)+left(n_pproprietes%),top(0)+top(n_pproprietes%))

Bon courage pour la suite et encore merci !

Ben, ce n'est pas ZIP mais 7Zip...
Pour ma part, j'utilise la version 32 bits, mais peu importe - ça passe par une commande DOS avec 7Zip en version commande.

Pour vérifier, fais ceci:
- ouvre une fenêtre DOS
- tape la commande 7z

Tu dois alors voir l'affichage de toutes les commandes et options de 7Zip.
Lors de l'installation, il faut accepter toutes les options d'adaptation de l'environnement pour que les chemins d'accès soient accessibles.

Chez moi, la variable PATH a la valeur suivante:

Voici le texte:

Citation :

PATH=C:\Program Files (x86)\Embarcadero\Studio\20.0\bin;C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl;
C:\Program Files (x86)\Embarcadero\Studio\20.0\bin64;C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\Win64;
C:\Program Files\Java\jdk-13.0.1\bin;C:\Program Files (x86)\Common Files\Oracle\Java\javapath;C:\Program Files (x86)\Windows Resource Kits\Tools\;
C:\ProgramData\Oracle\Java\javapath;C:\Program Files (x86)\Intel\TXE Components\TCS\;C:\Program Files\Intel\TXE Components\TCS\;
C:\Windows\System32;C:\Windows;C:\Windows\System32\wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:\Program Files (x86)\Borland\Delphi6\Bin;
C:\Program Files (x86)\Borland\Delphi6\Projects\Bpl;C:\Program Files (x86)\Calibre2\;C:\Program Files (x86)\Common Files\eBook Technologies;
C:\Program Files (x86)\TOSHIBA\Bluetooth Toshiba Stack\sys\;C:\Program Files (x86)\TOSHIBA\Bluetooth Toshiba Stack\sys\x64\;C:\Program Files\TortoiseSVN\bin;
C:\Program Files\7-Zip;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\WINDOWS\System32\WindowsPowerShell\v1.0\;
C:\WINDOWS\System32\OpenSSH\;C:\Program Files (x86)\nodejs\;C:\ProgramData\chocolatey\bin;C:\Program Files\Git\cmd;C:\SQLite367;C
:\Users\klausgunther\AppData\Local\Programs\Python\Python310\Scripts\;C:\Users\klausgunther\AppData\Local\Programs\Python\Python310\;
C:\Program Files (x86)\Microsoft Visual Studio\Common\Tools\WinNT;C:\Program Files (x86)\Microsoft Visual Studio\Common\MSDev98\Bin;
C:\Program Files (x86)\Microsoft Visual Studio\Common\Tools;C:\Program Files (x86)\Microsoft Visual Studio\VC98\bin;C:\Users\klausgunther\AppData\Local\Microsoft\WindowsApps;
C:\Users\klausgunther\AppData\Roaming\Dashlane\4.6.8.25848\bin\Firefox_Extension\{442718d9-475e-452a-b3e1-fb1ee16b8e9f}\components;
C:\Program Files\Java\jdk-13.0.1\bin;C:\Users\klausgunther\AppData\Roaming\npm;C:\Src\flutter\bin;C:\SQLite367;

7-Zip apparaît en ligne 8.

Citation :

La fonction CheckInstallation7Zip ne trouve pas 7-zip que ce soit en 32 ou en 64 bits.

Voir ma réponse ci-dessus. Installer 7Zip et non ZIP, et accepter les modifications de l'environnement.

Citation :

Une erreur en ligne 201 : La commande "message " est écrite avec 3 « s ».

Oups... mais tu as corrigé toi-même...

Citation :

- J’ai une erreur fatale en ligne 263 :

res% = dll_call3("SetKGFGridAbsolutePosition",KG_proprietes%,left(0)+left(n_pproprietes%),top(0)+top(n_pproprietes%))

Recharge KGF.dll dernière version - tu verras que cette fonction fait partie des nouveautés publiées ce jour.

Heeeuuuuu Klaus, nous prendrais tu pour des débutants ????!!!!        

Bien sûr qu'on a suivi les liens 32 et 64 bits que tu as indiqué...

Par contre étant sous Windows 10 est ce qu'il n'y aura pas un problème de compatibilité ?
De plus quand tu avais intégré cette fonction 7ZIP il me semble que déjà à l'époque cela posait quelques soucis...

Je suis sous W10 64 bits toutes mises à jour faites.

As-tu essayé la commande 7z (juste ces deux lettres !) dans une fenêtre DOS ?

Rien. Nada. Il ne reconnais même pas la commande 7z !

Et pourtant l'installation est bien faite.

Klaus a écrit:

Recharge KGF.dll dernière version - tu verras que cette fonction fait partie des nouveautés publiées ce jour.

KGF.DLL téléchargé ce jour à 17h20 puis à 19h59 nous donne la version fichier du 24/03/2022 0h52.



J'ai bien installé 7zip 64 puis 32 bits.

La command dos : 7z n'est pas trouvé.

Je peux ajouter dans le path Windows le chemin de 7z.exe si tu veux...

Il faudrait que tu insères dans PATH, quelque part:

Citation :

C:\Program Files\7-Zip;

Ca devrait suffire pour reconnaître la commande 7z, et ainsi, tout fonctionnera.

Citation :

C:\Program Files\7-Zip

et il devrait contenir 7z.exe.

Je viens de redéposer KGF.zip sur mon site, à tout hasard...

Voici le code de ma fonction CheckInstallation7Zip. cela devrait permettre de vérifier si vos configurations sont conformes:

Code:

// vérifier l'installation et l'accessibilité de 7Zip (pour 7z.exe)
// codes retour:
//    2 = 7Zip 32 bits enstallé et accessible
//    1 = 7Zip 64 bits enstallé et accessible
//    0 = erreur nattendue
//    -2 = version 64 bits installée, mais PATH ne contient pas le dossier nécessaire
//    -3 = version 32 bits installée, mais PATH ne contient pas le dossier nécessaire
//    -4 = 7Zip est introuvable
function CheckInstallation7Zip():integer; stdcall; export;
var
  path: string;
begin
  result := 0;
  try
    path := GetEnvironmentVariable('path');
    if pos('7-zip',LowerCase(path))=0 then begin
      if directoryexists('C:\`Program files\7-Zip') then begin
        SetEnvironmentVariable('path','%path%;program files\7-Zip');
        showmessage('Attention 7Zip 64 bits: PATH ne contient pas "C:\program files\7-Zip" !');
        result := -1;
        exit;
      end else begin
        if directoryexists('C:\`Program files\7-Zip') then begin
          SetEnvironmentVariable('path','%path%;program files (86)\7-Zip');
          showmessage('Attention 7Zip 32 bits: PATH ne contient pas "C:\program files (86)\7-Zip" !');
          result := -2;
          exit;
        end else begin
          showmessage('Veuillez installer 7-Zip (freeware):'+#13#10
                    +'Téléchargement:  32 bits: http://www.7-zip.org/a/7z1801.exe'+#13#10
                    +'                64 bits; http://www.7-zip.org/a/7z1801-x64.exe');
          result := -3;
          exit;
        end;
      end;
    end else begin
      if directoryexists('C:\`Program files\7-Zip') then result := 1
                                                    else result := 2;
    end;
  except
  end;
end;
exports CheckInstallation7Zip;

C'est tout bon, Klaus !

- Je viens de re-télécharger KGF et ce coup-ci c'est bon !  



- J'ai ajouté dans les variables d'environnement Windows le chemin pour 7zip.




- Je n'ai plus de message d'erreur lors du lancement de GUI_Builder.bas.



Encore merci pour tout !

Ben pas chez moi !!!

J'ai rechargé KGF et j'ai ajouté la variable d'environnement.

Mais toujours le message d'erreur en ligne 201 ! Le programme ne détecte aucune version de 7-Zip.

@Minibug

Ligne 201, c'est la commande "message" qui a un "s" de trop.

Merci Marc

Cela dit le problème est toujours présent. il ne détecte pas la version de 7-Zip !

@Minibug

Citation :

Cela dit le problème est toujours présent. il ne détecte pas la version de 7-Zip !

As-tu rebooté ton PC après avoir ajouté manuellement le path vers 7-Zip dans les variables d'environnement de Windows ?

J'ai corrigé un bug dans GUI_Builder:
lorsqu'on restaure un projet et on a dans le dossier des définitions d'objets qui n'existaient pas lors de l'enregistrement du projet, alors ces objets plus récents ne figurent plus dans la combo bdes objets possibles.*

Ceci est corrigé. Et duu coup, j'ai ajouté la définition du CONTAINER...

Oui oui j'ai tout fait mais cela ne change rien !

Bon j'abandonne jusqu'à ce que Klaus trouve une solution.

Bonjour à tous !

@Klaus
Sujet : GUI_Builder
Dans le sous programme « generer_panoramic: », ligne 959 il manque le « % » à la variable typ%.




Pour info.
Sujet : CheckInstallation7Zip
J'ai désinstallé la version 7-zip 32bits et installé la version 64 bits, puis changé le path dans les variables d'environnement Windows.
Pas de problème, cela fonctionne bien aussi.

Eh bien tu as bien de la chance !

Je viens encore de tout désinstaller redémarrer réinstaller etc.
Remettre la variable d environnement en place.

Mais rien de rien. Toujours pas de détection de 7-Zip !

Si ce n'est pas installé automatiquement, voici ce qu'il faut faire:
- dans me menu "Demarrer" (l'icône en bas à gauche), cliquer sur "Paramètres" (2ème icône du bas)
- dans le champ de recherche, saisir "Environnement"
- puis cliquer sur la ligne 'Modifier les variables d'environnement système" qui apparaît automatiquement

- cliquer sur le bouton "Variables d'environnement" qui apparaît enn bas à droite

Dans le cadre "Variables système", défiler et choisir la variable Path

- défiler que la ligne "C:\Progam files\7Zip" figure bien dans la liste (version 64 bits)

Si ne n'est pas le cas, alors:
- Cliquer sur "Nouveau"
- dans la ligne qui s'ouvre, saisir exactement la référence ci-dessus, puis valider
- Valider la fenêtre par le bouton "OK"

Les autres fenêtres peuvent être fermées maintenant par n'importe quel moyen.
Il est possible qu'il soit nécessaire de redémarrer la machine pour que ce soit pris en compte.

A tout hasard, vérifier que 7Zip.exe est bien installé dans C:\Progam files\7Zip...

P.S.
J'ai corrigé la ligne 959...

Bonsoir Klaus,

Sujet : CheckInstallation7Zip

Merci Klaus pour le partage du source de cette fonction.

J’ai remarqué trois petits problèmes qui font que, sauf erreur de ma part, les fonctions DirectoryExist() utilisées renverront toujours False.
Lignes 17, 23 et 37 : Dans les noms de chemin, il y a un caractère parasite « ` ». C’est le caractère ASCII 96 en décimal.
Je les ai entourés dans cette capture d’écran :

Spoiler:

Autre remarque : il n’y a pas « result := -4 » si 7_Zip est introuvable.


EDIT 1h47 :

Ligne 23 : il manque, saut erreur de ma part,  « (86) »
ligne actuelle :
if directoryexists('C:\`Program files\7-Zip') then begin
au lieu de
if directoryexists('C:\Program files (86)\7-Zip') then begin


Dans les commentaires du source, lignes 6, 7 et 8, les codes "retour" sont erronés.

Dans documentation (KGF.chm) :
- la variable i% du fichier d'exemple n'est pas déclarée dans la ligne DIM.
- La dernière ligne du fichier d'exemple fait référence à une valeur de retour de fonction =-4 qui n'existe pas.

Spoiler:

Oui, je sais - la doc est à reprendre pour cette fonction, pas pas que... J'ai déjà corrigé plusieurs anomalies et je suis en train de documenter les nouveautés - un gros travail.

Merci d'avoir signalé ces nomalies - ce sera ajouté à la liste des corrections à faire.

J'ai corrigé quelques petites anomalies dans le GUI_Builder et je lui ai ajouté une maquette pour un objet FORM.

Si l'on veut créer un FORM avec cet outil, il est conseillé de déplacer la fenêtre de terrain de jeu vers le bas - elle est totalement indépendane. Il suffit de la tirer. On peut alors ajouter un objet FORM sans problème d'affichage.

A cette occasion, on constate qu'à la place du terrain de jeu, la form 0 du GUI_Builder a été "percée" d'un trou réctangulaire...

J'ai également finalisé la génération du code Panoramic. Il est maintenant placé dans le pesse-papier et est directement utilisable. Les évènements sont actifs.

J'ai ajouté aussi un projet test_form dans le WebDav, dont voici le code généré, sans modification:

Code:

' généré le 04/04/2022 à 09:47:52 heures
labels()
variables()
objets()
end

sub objets()
  no% = no% + 1
  FORM no%
    n_FORM% = no%
  Left no%,338
  Top no%,212
  Width no%,417
  Height no%,332
  ' Numéro Panoramic no%,
  ' Name no%,"FORM_1"
  ' Comment no%,"FORM_1"
  Color no%,240,240,240
  Font_Size no%,8
  Font_Color no%,0,0,0
  Font_Bold_Off no%
  Font_Italic_Off no%
  Font_Underline_Off no%
  Font_Strike_Off no%
  no% = no% + 1
  EDIT no%
    n_EDIT% = no%
  Left no%,54
  Top no%,45
  Width no%,170
  Height no%,29
  ' Numéro Panoramic no%,
  ' Name no%,"EDIT_1"
  ' Comment no%,"EDIT_1"
  Parent no%,1000
  Text no%,"Essai"
  Color no%,255,255,0
  Font_Size no%,8
  Font_Color no%,0,0,255
  Font_Bold_Off no%
  Font_Italic no%
  Font_Underline_Off no%
  Font_Strike_Off no%
  On_Click no%,click_edit
  On_Change no%,change_edit
  no% = no% + 1
  CONTAINER no%
    n_CONTAINER% = no%
  Left no%,112
  Top no%,114
  Width no%,185
  Height no%,105
  ' Numéro Panoramic no%,
  ' Name no%,"CONTAINER_1"
  ' Comment no%,"CONTAINER_1"
  Parent no%,1000
  Caption no%,"Mon container"
  Color no%,240,240,240
  Font_Size no%,8
  Font_Color no%,0,0,0
  Font_Bold_Off no%
  Font_Italic_Off no%
  Font_Underline_Off no%
  Font_Strike_Off no%
  no% = no% + 1
  BUTTON no%
    n_BUTTON% = no%
  Left no%,53
  Top no%,32
  Width no%,75
  Height no%,25
  ' Numéro Panoramic no%,
  ' Name no%,"BUTTON_1"
  ' Comment no%,"BUTTON_1"
  Parent no%,1002
  Caption no%,"Mon bouton"
  Font_Size no%,8
  Font_Bold_Off no%
  Font_Italic_Off no%
  Font_Underline_Off no%
  Font_Strike_Off no%
  On_Click no%,click_button
end_sub

sub labels()
  label click_edit
  label change_edit
  label click_button
end_sub

sub variables()
  dim no% : no% = 999 : ' numéro de base pour les objets générés
  dim n_FORM%
  dim n_EDIT%
  dim n_CONTAINER%
  dim n_BUTTON%
end_sub

' routines évènements
click_edit:
  message "click_edit"
  return

change_edit:
  message "change_edit"
  return

click_button:
  message "click_button"
  return