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:   13.10.17 17:25

Hallo Jörg,
Natürlich macht es Sinn, nur einmal am Schluß dorthin
zu scrollen. Ich hatte Horst aber so verstanden, daß der
Balken bei jedem AddString() gesetzt wird.

PS: Habe gerade versucht, eine Gridbox nach Datum zu
sortieren. Vielleicht könnt ihr(oder jemand) das ja
gebrauchen :

 /* HAUPTPROGRAMM */
 Declare Handle gb, btn1, btn2, btn3, btn4, btn5, btn6, Long ende
 Window 600, 400
 btn1 = Create("Button", %HWnd, "ASC",  10, 10, 60, 25)
 btn2 = Create("Button", %HWnd, "DESC", 10, 40, 60, 25)
 btn3 = Create("Button", %HWnd, "ASC",  100, 10, 60, 25)
 btn4 = Create("Button", %HWnd, "DESC", 100, 40, 60, 25)
 btn5 = Create("Button", %HWnd, "ASC",  190, 10, 60, 25)
 btn6 = Create("Button", %HWnd, "DESC", 190, 40, 60, 25)
 gb   = Create("Gridbox",%HWnd, "DATUM;0;80;MENGE;0;80;ARTIKEL;0;120", 0, 10, 70, 300, 150)
 
 AddString(gb, "20.10.2015|500|Tomaten")
 AddString(gb, "15.12.2017|200|Birnen")
 AddString(gb, "22.11.2015|100|Ananas")
 AddString(gb, "10.04.2016|50|Äpfel")
 AddString(gb, "11.10.2017|1000|Zitronen")
 AddString(gb, "01.04.2017|1500|Kirschen")
 
 ende = 0
 WhileNot ende
   WaitInput
   If Clicked(btn1)
      SortListview(gb, 0, 2, 0)
   ElseIf Clicked(btn2)
      SortListview(gb, 0, 2, 1)
   ElseIf Clicked(btn3)
      SortListview(gb, 1, 3, 0)
   ElseIf Clicked(btn4)
      SortListview(gb, 1, 3, 1)
   Elseif Clicked(btn5)
      SortListview(gb, 2, 1, 0)
   ElseIf Clicked(btn6)
      SortListview(gb, 2, 1, 1)
   EndIf
   Case %Key = 2 : ende = 1
 EndWhile
 
 END
 
 PROC SortListview
 ' ACHTUNG   : verwendet die interne Listboxliste (eigene Daten vorher mit Move o.ä. sichern)
 ' lv        : Handle der Gridbox
 ' spalte    : Nullbasierend (1. Spalte = 0)
 ' SortType  : Spalteninhalt (1 = STRINGS, 2 = DATUM (tt.mm.jjjj), 3 = ZAHLEN)
 ' Order     : 0 = aufsteigend, 1 = absteigend
 Parameters Handle lv, Long spalte, SortType, Order
 DECLARE Handle liste, LONG sOrder, sTyp, STRING item, zeile, Float datum
 liste = Create("List", 0)
 
 SELECT SortType
   CASEOF 1
      sTyp = 4 ' entsprechend Gebietsschema
   CASEOF 2
     sTyp = 5
   CASEOF 3
     sTyp = 5
 ENDSELECT
 Select Order
   CaseOf 0
      sOrder = 1
   CASEOF 1
      sOrder = -1
 ENDSELECT
 
 IF SortType = 2 ' DATUM - SORTIERUNG
   CLEARLIST 0
   MOVE("HandleToList", lv)
   WHILELOOP 0, GETCOUNT(0) -1
     item = SubStr$(GetSTRING$(0, &LOOP), spalte + 1, "|")
     datum = Str$(DT("SetDate", item))
     zeile = Translate$(GetString$(0, &LOOP), item, Str$(datum))
     AddString(liste, zeile)
   ENDWHILE
   CLEARLIST 0
   MOVE("HandleToList", liste)
   SortList "|", spalte + 1, (sTyp * sOrder)
   CLEARLIST liste
   MOVE("ListToHandle", liste)
   CLEARLIST 0
   WHILELOOP 0, GETCOUNT(liste) - 1
     item = SubStr$(GetString$(liste, &LOOP), spalte + 1, "|")
     zeile = Translate$(GetString$(liste, &LOOP), item, DT("GetDate", 0, VAL(item)))
     AddString(0, zeile)
   ENDWHILE
 ELSE
   CLEARLIST 0
   MOVE("HandleToList", lv)
   SortList "|", spalte + 1, (sTyp * sOrder)
 ENDIF
 CLEARLIST lv
 MOVE("ListToHandle", lv)
 CLEARLIST 0
 ENDPROC
 


Geht aber erst ab XProfan X3 wegen Sortlist.
Kann man natürlich auch etwas aufwändiger für Spaltenbuttons
nutzen.

H.Brill
XProfan X4 + FreeProfan

 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