| |
|
|
| [quote:482550d8c6]list_box&=CREATE(GRIDBOX,R_win&,Expediente-Namen;0;200,1,10,140,200,170)
list_box&=CREATE(SORTEDLISTBOX,R_win&,,10,140,200,170) [/quote:482550d8c6] Mir es aufgefallen, dass el Sortierung en el sortierten Listbox y el Gridbox con el Angabe 1 (sortiert) voneinander abweichen. Mache Yo, el Fehler oder hay como una Diferencia ? In beiden Bildern wurde el gleiche Unterverzeichnis geladen. |
|
|
| |
|
|
|
| Como anscheinend keiner una Antwort blanco, kann sólo todavía Roland helfen -
@Roland ¿Por qué sortiert el Gridbox no en el gleichen Art como SortedListbox ??? |
|
|
| |
|
|
|
RGH | Kann lo ser, daß Usted a Ungeduld neigst? ;)
Ansonsten podría Yo el Cuestión sólo a Bill Gates weiterleiten. In beiden Fällen Puse simplemente el Sortier-Flag (LVS_SORTASCENDING o. LBS_SORT). Auf el Sortierung Yo y somit XProfan no el geringsten Einfluß.
Saludo Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 16.10.2006 ▲ |
|
|
|
|
| Posesiones me una Pseudo-Gridbox geschrieben. Kann determinado todavía ser mejorada. Um Mithilfe se gebeten KompilierenMarcaSeparaciónDECLARE EE%,P_win&,P_grid&,P_stil%,P_txt%,P_font%
DECLARE stil$
EE%=0
PROC PSEUDO_GRIDBOX
DesTroyWindow(P_win&)
P_font%=CREATE("FONT","ARIAL",16,6,0,0,0)
PARAMETERS X0%,Y0%,X1%,Y1%,art%,titel$
WindowStyle 84
P_win&=CREATE("WINDOW",%HWND,"",X0%,Y0%,X1%,Y1%)
P_grid&=CONTROL("LISTBOX","",art%,1,25,(X1%-7),(Y1%-22),P_win&,101,%HINSTANCE)
P_stil%=CREATE("BUTTON",P_win&,titel$,1,1,(X1%-7),24)
SetFont P_txt%,P_font%
CLEARLIST
TEXTE
MoveListToHandle(P_grid&)
ENDPROC
PROC TEXTE
Addstring "Gerhard Schröder"
Addstring "Helmut Kohl"
Addstring "12345"
Addstring "Konrad Adenauer"
Addstring "Ludwig Erhard"
Addstring "Angela Merkel"
Addstring "67890"
Addstring "Helmut Schmidt"
Addstring Date$(2)
Addstring Date$(1)
Addstring "Sinnloser Text"
Addstring "Bla-Bla"
ENDPROC
----------------------------------
CLS
DrawText 10,10,"Kilck auf den Titelbutton sortiert oder unsortiert"
DrawText 10,30,"Listbox hat Mehrfachauswahl. Kann noch erweitert werden"
PSEUDO_GRIDBOX 200,200,250,200,$50B008C3,"Sortiert"
stil$="1"
SetActiveWindow(%HWND)
WHILENOT EE%
waitinput
If GetFocus(P_stil%)
IF stil$="1"
PSEUDO_GRIDBOX 200,200,250,200,$50B008C1,"Nicht sortiert"
stil$="0"
ELSEIF stil$="0"
PSEUDO_GRIDBOX 200,200,250,200,$50B008C3,"Sortiert"
stil$="1"
ENDIF
EndIf
Case ScanKey(27):END
='./../../references-fonction/XProfan/endwhile/'>ENDWHILE
Gehe ahora trabajo - mache el, Yo perfekt kann: Parkett verlegen ! |
|
|
| |
|
|