'********************** HINWEISE ********************************
' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR 2.8c
' DATUM  31.01.2003    um  22:33 Uhr
' VERWENDETE PROFANVERSION IST 7.0 ODER HÖHER

'NUR FÜR UNSORTIERTE LISTBOX GÜLTIG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Def GetSysColor(1) !"USER32","GetSysColor"
SETTRUECOLOR 1
DECLARE ENDE%,editfeld%,top%
DECLARE LISTBOX1%,font%,font2%,Text%
DECLARE BUTTON1%,listindex%,gtext$
font%=@CREATE("FONT","MS Sans Serif",13,0,0,0,0)
WINDOWSTYLE 63
WINDOWTITLE "EDITLISTBOX (c) by Rolf Koch 2003"
WINDOW 214,134-429,218
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",8,0,0,0,0
SETDIALOGFONT 1
LISTBOX1% = CREATE("LISTBOX",%HWND,"LISTBOX1",0012,0013,0401,0107)
TEXT% = CREATE("TEXT",%HWND,"Bitte Eintrag anklicken und editieren - Mauszeiger muss während der Eingabe in der Listbox bleiben!",0012,0123,0400,040)
BUTTON1% = CREATE("BUTTON",%HWND,"Good by",0091,0150,0228,0033)
EDITFELD%=@Control("EDIT","",$54010000,0,0,0,0,listbox1%,1000,%HINSTANCE)
setfont editfeld%,font%
clearlist
addstring(listbox1%,"Test1 der Listbox")
addstring(listbox1%,"Test2 der Listbox")
addstring(listbox1%,"Test3 der Listbox")
addstring(listbox1%,"Test4 der Listbox")
addstring(listbox1%,"Test5 der Listbox")
addstring(listbox1%,"Test6 der Listbox")
addstring(listbox1%,"Test7 der Listbox")
addstring(listbox1%,"Test8 der Listbox")
addstring(listbox1%,"Test9 der Listbox")
addstring(listbox1%,"Test10 der Listbox")
addstring(listbox1%,"Test11 der Listbox")
addstring(listbox1%,"Test12 der Listbox")
addstring(listbox1%,"Test13 der Listbox")
addstring(listbox1%,"Test14 der Listbox")
addstring(listbox1%,"Test15 der Listbox")
addstring(listbox1%,"Test16 der Listbox")
addstring(listbox1%,"Test17 der Listbox")
addstring(listbox1%,"Test18 der Listbox")
addstring(listbox1%,"Test19 der Listbox")
addstring(listbox1%,"Test20 der Listbox")
addstring(listbox1%,"Test21 der Listbox")
addstring(listbox1%,"Test22 der Listbox")
addstring(listbox1%,"Test23 der Listbox")
addstring(listbox1%,"Test24 der Listbox")
addstring(listbox1%,"Test25 der Listbox")
WHILENOT ENDE%

WAITINPUT
   If @EQU(%KEY,2)
      LET ENDE%= 1
   ELSEIF GETFOCUS(LISTBOX1%) 'LISTBOX
       listindex%=@GetCursel(listbox1%)
       ifnot lt(listindex%,0)
               Top%=@SendMessage(Listbox1%,398,0,0)
               @SendMessage(listbox1%,$0186,-1,0)
               settext editfeld%,@GetString$(listbox1%,listindex%)
               setwindowpos Editfeld%=2,mul(sub(listindex%,top%),13)-430,13;0
               setfocus(editfeld%)
               sendmessage(editfeld%,$00B1,add(len(gettext$(editfeld%)),1),-1)
               WHILE GETFOCUS(editfeld%) 'DUMMYSCHLEIFE
	         getmessage
                   if equ(%message,160)
                     setfocus(%hwnd)
                   endif
               WEND
               GTEXT$=gettext$(editfeld%)
               @DeleteString(Listbox1%,listindex%)
               @InsertString(Listbox1%,listindex%,gtext$)
               setwindowpos Editfeld%=0,0-0,0;0
               setwindowpos listbox1%=0012,0013-0401,0107;0
       endif
   ELSEIF GETFOCUS(BUTTON1%) 'BUTTON
      LET ENDE%=1
   ENDIF
WEND
Deleteobject font%