Documentation | Méthode | Designer
| Retour
dsg_Explorer| `attention, o est utilisée par dsg_CaseOf qui peut purger toutes les variables |
| `de o . o ne doit pas être utilisée si dsg_CaseOf est appelée |
| `la méthode d'appel sur evenement OnEventCall est aussi nécessaire |
| Si (Nombre de parametres=0) |
| <>appVers:=Version application |
| Si (Type application#4D Server ) |
| $i:=Nouveau process("Dsg_Explorer";64000;"Dsg_Explorer";Launch ) |
| PASSER AU PREMIER PLAN($i) |
| C_POINTEUR(str_ptrCurList) |
| C_ENTIER(cboxReadWrite;bSearchInSel) |
| C_TEXTE(vText;vtOutSideCallMessage;vtEntry;www_HTMLSource;uid_Current;usr_CurrentOnLoadAdmin) |
| C_TEXTE(mnu_vtMenuBar;vtProcessType) |
| frm_vtEntryExeOnCloseBox:="" |
| `________________________________________________________________________________ |
| C_ENTIER LONG(vlh_DsgExplorer) |
| $ptrTxt:=o ("hls_ItemText";Est un texte ) |
| hls_Set (->vlh_DsgExplorer;$ptrTxt) |
| $ptrTxt->:="Structure virtuelle" |
| hls_Set (->vlh_DsgExplorer;$ptrTxt) |
| $ptrTxt->:="Préfixes & thèmes" |
| hls_Set (->vlh_DsgExplorer;$ptrTxt) |
| `construction de la liste des commandes 4D + plug in |
| Si (Page formulaire courante=1) |
| $vl_Error:=API Open Method Editor ($method;0) |
| COORDONNEES FENETRE($gauche;$haut;$droit;$bas) |
| POSITION SOURIS(sourisX;sourisY;boutonsouris) |
| $ref:=Fenetre premier plan |
| $prc:=Numero du process courant |
| COORDONNEES FENETRE($gauche2;$haut2;$droit2;$bas2;$ref) |
| $ok1:=((sourisX<$gauche) | (sourisX>$droit) | (sourisY<$haut) | (sourisY>$bas)) |
| $ok2:=((sourisX>$gauche2) & (sourisX<$droit2) & (sourisY>$haut2) & (sourisY<$bas2)) |
| Si ($ok1) & ($ok2) & (<>MousseButton=1) |
| Si (Page formulaire courante=1) |
| Si (Windows Ctrl enfoncee) |
| $txt:="$ptr"+$txt2+":=vs_getptr("+Caractere(Guillemets )+$txt+Caractere(Guillemets )+")" |
| $txt:="vs_getptr("+Caractere(Guillemets )+$txt+Caractere(Guillemets )+")" |
| $txt2:=Sous chaine($txt1;1;5) |
| $txt3:=Sous chaine($txt3;1;26) |
| Si (Windows Ctrl enfoncee) |
| $txt:="$ptr"+$txt2+":=vs_getptr("+Caractere(Guillemets )+$txt+Caractere(Guillemets )+")" |
| $txt:="vs_getptr("+Caractere(Guillemets )+$txt+Caractere(Guillemets )+")" |
| ECRIRE TEXTE DANS PRESSE PAPIERS($txt) |
| C_ENTIER($gauche;$haut;$droit;$bas) |
| COORDONNEES FENETRE($gauche;$haut;$droit;$bas;$ref) |
| CHANGER COORDONNEES FENETRE($gauche;$haut;$droit;$bas;$ref) |
| $prc2:=Process de premier plan(*) |
| $Structure:=Chercher process(Lire chaine dans liste(170;3)) |
| $wndTitle:=Titre fenetre(Fenetre premier plan) |
| Si (Position("method";$wndTitle)=1) |
| CACHER PROCESS(Numero du process courant) |
| ENDORMIR PROCESS(Numero du process courant;10) |
| Si (Non(<>appVers>"0680")) |
| GENERER EVENEMENT(Touche enfoncée ;Code ascii("v");Nombre de ticks+5;0;0;Masque touche commande ;$Structure) |
| GENERER EVENEMENT(Touche enfoncée ;Code ascii("v");Nombre de ticks+5;0;0;Masque touche commande ;$Structure) |
| ENDORMIR PROCESS(Numero du process courant;10) |
| MONTRER PROCESS(Numero du process courant) |
| C_BOOLEEN(<>OnDrag_flgAccept) |
| Si (Non(<>OnDrag_flgAccept)) |
| POSITION SOURIS(sourisX;sourisY;boutonsouris;*) |
| GENERER CLIC(sourisX;sourisY;$prc2;*) |
| GENERER FRAPPE CLAVIER(Code ascii("v");Masque touche commande ;$prc2) |
| TABLEAU TEXTE(dsg_arrtMethod;0) |
| CHANGER PROPRIETES LISTE(hls_vl1;A la Macintosh ;860;20) |
| hls_vtExecuteOnDBClic:=exe_SetExpr ("Dsg_Explorer('OnDoubleClic')") |
| vtext:="Toutes les méthodes" |
| C_ENTIER LONG(hls_vl2;hls_vl3) |
| Boucle ($i;1;Taille tableau(<>dsg_arrtPrefix)) |
| TABLEAU TEXTE(arr_ItemList;0) |
| $x:=Chercher dans tableau(dsg_arrtMethod;<>dsg_arrtPrefix{$i}+Wildcard ) |
| INSERER LIGNES(arr_ItemList;$arrSize1) |
| arr_ItemList{$arrSize1}:=dsg_arrtMethod{$x} |
| SUPPRIMER LIGNES(dsg_arrtMethod;$x) |
| TRIER TABLEAU(arr_ItemList;>) |
| hls_AddList (->hls_vl1;<>dsg_arrtChapterName{$i};->hls_vl2) |
| `construction de la liste des methodes |
| TRIER TABLEAU(dsg_arrtMethod;>) |
| SELECTIONNER ELEMENT(hls_vl1;1) |
| REDESSINER LISTE(hls_vl1) |
| : ($1="BuildListVirtualStructure") |
| `construction de la structure virtuelle |
| C_ENTIER LONG(hls_vl3;hls_vl4;hls_vl5) |
| TRIER TABLEAU(arr_FieldAndListDef;>) |
| Boucle ($i;1;Taille tableau(arr_FieldAndListDef)) |
| TABLEAU TEXTE(vs_arrTable;0) |
| Boucle ($ii;1;Taille tableau(arr_LibelléTables)) |
| vs_arrTable{arr_AddLine (->vs_arrTable)}:=arr_FieldAndListDef{$i}+"."+arr_LibelléTables{$ii} |
| hls_AddList (->hls_vl3;arr_FieldAndListDef{$i};->hls_vl4) |
| Boucle ($ii;1;Taille tableau(arr_LibelléTables)) |
| $ptrArrPictType:=o ("$ptrArrPictType";Est un tableau entierlong ) |
| $ptrArrStyleIndexe:=o ("$ptrArrStyleIndexe";Est un tableau entierlong ) |
| TABLEAU TEXTE(vs_arrField;0) |
| C_ENTIER LONG($type;$long) |
| Boucle ($iii;1;Taille tableau(arr_NumChamps)) |
| $ptrField:=Champ(Num(arr_NumTables{$ii});Num(arr_NumChamps{$iii})) |
| LIRE PROPRIETES CHAMP($ptrField;$type;$long;$indexe) |
| $ptrArrStyleIndexe->{arr_AddLine ($ptrArrStyleIndexe)}:=Num($indexe) |
| vs_arrField{arr_AddLine (->vs_arrField)}:=arr_FieldAndListDef{$i}+"."+arr_LibelléTables{$ii}+"."+arr_LibelléChamps{$iii} |
| $ptrArrOpened:=o ("$ptrArrOpened";Est un tableau booléen ) |
| TABLEAU BOOLEEN($ptrArrOpened->;Taille tableau(vs_arrField)) |
| hls_AddArray (->hls_vl5;->vs_arrField;$ptrArrOpened;$ptrArrStyleIndexe;$ptrArrPictType) |
| hls_AddList (->hls_vl4;arr_LibelléTables{$ii};->hls_vl5) |
Documentation | Méthode | Designer
| Haut de page | Retour
|
