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: Heinz Brill (---.dip0.t-ipconnect.de)
Datum:   07.10.17 10:24

Hallo Horst,
Beim Durchforsten der Foren habe ich inzwischen
eine Lösung für dich gefunden, die auch bei Mehrfachauswahl
funktioniert.

Probiere mal das aus :
 $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
   LvDeSelect(gb, -1) ' alle deselektieren
   z = AddString(gb, Str$(&LOOP) + "|" + ".Eintrag")
   LvSelect(gb, z)
   SetCurSel gb, z
 EndWhile
 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
 
 


Man muß nur SetCurSel zusätzlich benutzen, damit der
Balken auch blau statt grau hinterlegt wird.
Ich hoffe, ich konnte dir helfen.

H.Brill
XProfan X4 + FreeProfan

Nachricht bearbeitet (07.10.17 10:31)

 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