FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Nouvelle version 0.32
par jean_debord Aujourd'hui à 8:55

» Le serpent qui se mange la queue avec LE DOSSIER EN COURS
par Fredisland Aujourd'hui à 8:37

» Convertir un fichier BAS panoramic en fichier EXE
par Fredisland Aujourd'hui à 8:36

» Et encore un éditeur...
par Jicehel Aujourd'hui à 8:23

» Les tableaux
par JL35 Hier à 22:15

» Numéro d'objet survolé par la souris.
par Pedro Alvarez Hier à 17:51

» GPP - Nouvelle version en cours de développement
par Jicehel Hier à 12:58

» Logiciel de traduction: dernières avancées.
par Jicehel Hier à 12:56

» Crash récurent de l'éditeur
par Fredisland Hier à 11:13

» Exemple d'une nouvelle version d'un GRID
par Minibug Mar 24 Avr 2018 - 19:07

» amelioration de digit1
par pascal10000 Mar 24 Avr 2018 - 8:25

» Demande de correction de la commande instr_right.
par pascal10000 Mar 24 Avr 2018 - 7:54

» Recherche de texte AVANT/ARRIERE dans un SYNEDIT
par silverman Lun 23 Avr 2018 - 18:51

» molette de la souris
par Fredisland Lun 23 Avr 2018 - 17:57

» Plusieurs fonctions pour la souris
par Fredisland Lun 23 Avr 2018 - 17:47

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Avril 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
30      
CalendrierCalendrier

Partagez | 
 

 Synchroniser deux LISTs

Aller en bas 
AuteurMessage
JL35



Nombre de messages : 6215
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Synchroniser deux LISTs   Jeu 20 Oct 2016 - 18:11

J'ai deux LIST parallèles qui doivent être synchronisées, c'est à dire que le déplacement de l'ascenseur de l'une doit entraîner le déplacement en parallèle de l'autre.
Le problème a déjà été soulevé il y a quelques années, sans solution simple à ma connaissance.

En fait mon problème était un peu plus simple, genre éditeur simplifié: un LIST qui contient le contenu d'un fichier texte (donc avec apparition d'ascenseur), et un petit LIST parallèle à gauche, qui contient les numéros de lignes du premier. Si je me déplace avec l'ascenseur, je veux que les numéros de ligne suivent.
C'est faisable en faisant appel à des fonctions de user32.dll, mais comme il n'y a pas d'événement déclenché par le déplacement de l'ascenseur, il faut mettre un Timer pour le surveiller, ce qui est beaucoup plus contraignant.

Par exemple:
Code:
LABEL Quit
DIM i%,f$,pr%,nl%
f$ = "C:\TEXTES\ANNU.txt": ' un  fichier texte quelconque
HEIGHT 0,800: FONT_NAME 0,"Lucida Console": ON_CLOSE 0,Quit
LIST 1: WIDTH 1,35: HEIGHT 1,HEIGHT(0)-40: ' List des numéros de lignes
LIST 2: LEFT 2,WIDTH(1): WIDTH 2,WIDTH(0)-WIDTH(1)-20: HEIGHT 2,HEIGHT(1)
MEMO 3: HIDE 3: WIDTH 3,900
FILE_LOAD 3,f$: FOR i% = 1 TO COUNT(3): ITEM_ADD 2,ITEM_READ$(3,i%): NEXT i%
Hlign(1): nl% = HEIGHT(1)/hlig%-1: ' nombre de lignes affichables dans List 1
pr% = -1: ' 1ère ligne affichée
WHILE 1>0: ' juste pour la démo
    Listelem(2)
    IF prem%<>pr%
        CLEAR 1
        FOR i% = prem% TO prem%+nl%-1: ITEM_ADD 1,RIGHT$("000"+STR$(i%),4): NEXT i%
        pr% = prem%
    END_IF
    PAUSE 200
END_WHILE
END
' ==============================================================================
Quit:
TERMINATE
' ==============================================================================
SUB Listelem(lst%)
' Renvoie dans prem% le rang du 1er élément de lst% affiché dans la fenêtre visible
' du liste (cas des ascenseurs).
IF VARIABLE("prem%") = 0 THEN DIM prem%
DLL_ON "User32"
  prem% = DLL_CALL4("SendMessageA",handle(lst%),398,0,0)
DLL_OFF
prem% = prem%+1: ' les numéros rendus commencent à 0
END_SUB
' ==============================================================================
SUB Hlign(lst%)
' Renvoie dans hlig% la hauteur en pixels d'une ligne du List lst%,
IF VARIABLE("hlig%") = 0 THEN DIM hlig%
DLL_ON "User32"
  hlig% = DLL_CALL4("SendMessageA",handle(lst%),417,0,0)
DLL_OFF
END_SUB
' ==============================================================================

C'est juste un exemple vite fait, et il y a des contraintes. Par exemple il faut que les polices des deux List soient les mêmes et de même taille. Entre autres. Et ce satané Timer.
L'action sur l'ascenseur n'est prise en compte qu'au relâchement de la souris.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10967
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Synchroniser deux LISTs   Jeu 20 Oct 2016 - 19:16

Déjà soulevé sans solution simple ? Alors, regarde mon pseudo-objet GLIST (100 % Panoramic, sans DLL !). Tu peux avoir un nombre quelconque de listes synchronisées (2, 3, ... 7, ...). Un défilelent dans une des listes défile les autres simultanément. Les insertions, les suppressions - tout est géré. Voir sur mon site, rubrique "Panoramic", lien "Pseudo-objet GLIST", ou utiliser le lien suivant (identique):
http://klauspanoramic.comxa.com/versions/GLIST.zip
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



Nombre de messages : 6215
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Synchroniser deux LISTs   Jeu 20 Oct 2016 - 22:28

Dont acte et mea culpa... je dois perdre un peu la mémoire... Rolling Eyes

Le pire, après vérification, c'est que j'ai bien ton GLIST dans mes archives, depuis sa création, avec son mode d'emploi détaillé (.rtf) mais je ne l'ai encore jamais utilisé...
Bon, eh bien il ne me reste plus qu'à m'y plonger, avec mes remerciements Klaus !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Synchroniser deux LISTs   

Revenir en haut Aller en bas
 
Synchroniser deux LISTs
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [Résolu] addition de deux variable.
» j'ai deux question qui m'intrigue
» Un ascenseur pour deux memos
» Mise à jour de deux GPS Garmin
» Arrondir un réel à deux chiffres après la virgule

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Présentation et bavardage-
Sauter vers: