Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Selectstring... scrollt nicht
Autor: Jörg Greve (---.dip0.t-ipconnect.de)
Datum:   13.10.17 15:26

Hallo Heinz,
dein Beispiel funktioniert super. Ist genau das, was Horst gesucht hat, weil er damit nicht auf die Mehrfachauswahl verzichten muß.
Ist wirklich ein wertvoller Schnipsel, dein Beispiel :-)

Mit ist beim Testen aufgefallen, daß du in 'FuelleGB' den SelectionsVorgang in der Füll-Schleife (also 150x) machst. War das zu Demo-Zwecken beabsichtigt?

Hab dies mal so abgeändert, das nach dem Füllen dann nur 1x selctiert wird.
Die drei Schritte dann nochmals zu einer Proc gebündelt.

Horst bräuchte jetzt nur die 3 Procs "LvDeSelect", "LvSelect", "LvScroll" einfügen, das GridBoxHandle anpassen und das Ergebnis von SelectString(N1,N2,S) an "LvSroll" schicken:
 LvScroll SelectString(gb,-1,"Dateiname")


Hier noch mal dein Code zur Demo leicht angepasst:
 'scrollt eine gridbox mit den selct()-befehl auch, wenn sie den status 2 oder 3 (mehrfachauswahl) hat.
  $H commctrl.ph
  Declare Handle gb, btn1, String sp
  
  sp = "Nummer;0;60;Name;0;100;"
  Window 600, 400
  
  btn1  = Create("Button", %HWnd, "Fülle", 10, 10, 60, 25)
  gb    = Create("Gridbox", %HWnd, sp, 3,  10, 50, 180, 150)
  
  FuelleGB()
  
  UserMessages $0010
  WhileNot %Umessage = $0010
    WaitInput
    If Clicked(btn1)
       ClearList gb
       FuelleGB()
    EndIf
  EndWhile
  
  Proc FuelleGB
  Declare Long z
  z = 0
  WhileLoop 0, 150   
    z = AddString(gb, Str$(&LOOP) + "|" + ".Eintrag")   
  EndWhile
  '------------ dient hier nur zur demo ---------------
  LvScroll z ' den letzten eintrag in den sichbaren bereich scrollen (Demo)
  Sleep 2000
  LvScroll SelectString(gb,-1,"87") 'den Wert 87 suchen und hinscrollen (Demo)
  '--------------------------------------------------------------------------
  EndProc
  
  Proc LvScroll
  'scrollt den eintrag mit den gewünschten index in den sichbaren bereich
   Parameters ix&     'index, dessen zeile in den sichbaren bereich kommen soll
   LvDeSelect(gb, -1) ' alle deselektieren
   LvSelect(gb, ix&)  'in den sichbaren bereich scrollen
   SetCurSel gb, ix&  'blau machen
  EndProc
  
  Proc LvDeSelect
  Parameters Lv&,Item&
   Declare s#
   Dim s#,1024
   Long s#,12=0
   Long s#,16=~LVIS_SELECTED | ~LVIS_FOCUSED
   SendMessage(Lv&,~LVM_SETITEMSTATE,Item&,s#)
   Dispose s#
  EndProc
  
  Proc LvSelect
  Parameters Lv&,Item&
  Declare s#
  Dim s#,1024
  Long s#,12=$2
  Long s#,16=~LVIS_SELECTED | ~LVIS_FOCUSED
  SendMessage(Lv&,~LVM_SETITEMSTATE,Item&,s#)
  SendMessage(lv&,~LVM_SETHOTITEM ,item&,0)
  SendMessage(lv&,~LVM_ENSUREVISIBLE ,Item&,0)
  Dispose s#
  Endproc
  
  End


Gruß Jörg

Ideen gibt es viele - man muss sie nur haben...
XProfan X2.1, X3.1 / XP-Pro, Win7-Pro (32/64) / Linux Mint-Mate, AntiX

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Selectstring... scrollt nicht  Neu
Horst Horn 04.10.17 09:42 
 Re: Selectstring... scrollt nicht  Neu
Jörg Sellmeyer 04.10.17 10:41 
 Re: Selectstring... scrollt nicht  Neu
Horst Horn 04.10.17 14:24 
 Re: Selectstring... scrollt nicht  Neu
Jörg Greve 04.10.17 15:05 
 Re: Selectstring... scrollt nicht  Neu
Heinz Brill 04.10.17 16:50 
 Re: Selectstring... scrollt nicht  Neu
Horst Horn 04.10.17 17:07 
 Re: Selectstring... scrollt nicht  Neu
Heinz Brill 04.10.17 18:50 
 Re: Selectstring... scrollt nicht  Neu
Jörg Greve 04.10.17 21:49 
 Re: Selectstring... scrollt nicht  Neu
Jörg Greve 05.10.17 09:45 
 Re: Selectstring... scrollt nicht  Neu
Horst Horn 05.10.17 09:51 
 Re: Selectstring... scrollt nicht  Neu
Heinz Brill 05.10.17 18:30 
 Re: Selectstring... scrollt nicht  Neu
Heinz Brill 05.10.17 19:17 
 Re: Selectstring... scrollt nicht  Neu
Jörg Greve 06.10.17 11:09 
 Re: Selectstring... scrollt nicht  Neu
Horst Horn 06.10.17 11:27 
 Re: Selectstring... scrollt nicht  Neu
Jörg Greve 06.10.17 11:52 
 Re: Selectstring... scrollt nicht  Neu
Horst Horn 06.10.17 12:04 
 Re: Selectstring... scrollt nicht  Neu
Jörg Greve 06.10.17 12:34 
 Re: Selectstring... scrollt nicht  Neu
Horst Horn 06.10.17 12:42 
 Re: Selectstring... scrollt nicht  Neu
Jörg Greve 06.10.17 12:42 
 Re: Selectstring... scrollt nicht  Neu
Horst Horn 06.10.17 13:04 
 Re: Selectstring... scrollt nicht  Neu
Jörg Greve 06.10.17 13:09 
 Re: Selectstring... scrollt nicht  Neu
Heinz Brill 06.10.17 22:22 
 Re: Selectstring... scrollt nicht  Neu
Heinz Brill 07.10.17 10:24 
 Re: Selectstring... scrollt nicht  Neu
Jörg Greve 13.10.17 15:26 
 Re: Selectstring... scrollt nicht  Neu
Heinz Brill 13.10.17 17:25 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org