| |
| |
|
 | [quote:482550d8c6]list_box&=CREATE(GRIDBOX,R_win&,File-Namen;0;200,1,10,140,200,170)
list_box&=CREATE(SORTEDLISTBOX,R_win&,,10,140,200,170)
[/quote:482550d8c6]
i'm noticed, that The Sorting in the sortierten Listbox and the GridBOX with the indicated 1 (sortiert) voneinander deviation. make I the Error or there as a Difference ? In both Images watts the same Unterverzeichnis loaded. |
|
| |
| |
| |
|
|
| there apparently none a response knows, can only yet Roland help -
@Roland
Why sortiert The GridBOX not in the equal manner as SortedListbox ??? |
|
| |
| |
| |
|
|
RGH | can it his, that You To impatience incline? ;)
otherwise could I The question only on Bill Gates weiterleiten. In both Make set I simply the Sortier-Flag (LVS_SORTASCENDING or. LBS_SORT). On The Sorting have I and accordingly XProfan not whom geringsten influence.
Greeting
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 | 10/16/06 ▲ |
|
| |
|
|
| have me pseudo-GridBOX written. can certainly improved go. circa Mithilfe becomes gebeten 
CompileMarkSeparationDECLARE 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
go now works - make the, I perfect can: stalls uneasily !  |
|
| |
| |
| |
|
(939)
Deutsch
English
Français
Español
Italia
