seterrorlevel 0
Def GetSysColor(1) !"USER32","GetSysColor"
SETTRUECOLOR 1
DECLARE ENDE%,i%,Button2%,Top%,last%,now%
DECLARE LISTBOX1%,font%,font2%,static&
DECLARE BUTTON1%,ZEILE$,static2&
Declare richdll&

Let richdll&=UseDLL("RICHED32.DLL")


font%=@CREATE("FONT","MS Sans Serif",13,0,0,0,0)
WINDOWSTYLE 63
WINDOWTITLE "LISTCOLORBALKEN (c) by Rolf Koch 2003"
WINDOW 214,134-429,208
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",8,0,0,0,0
SETDIALOGFONT 1
LISTBOX1% = CREATE("LISTBOX",%HWND,"",0012,0013,0401,0107)
setfont listbox1%,font%
BUTTON1% = CREATE("BUTTON",%HWND,"Good by",0091,0130,0228,0033)
clearlist
ASSIGN #1,ADD$($WINPATH,"\WIN.INI")
RESET #1
WHILENOT eof(#1)
input #1,zeile$
addstring(listbox1%,zeile$)
WEND
CLOSE #1

static&=Control("STATIC","",$5400010A,0,0,0,0,listbox1%,2000,%hinstance)
static2&=Control("RichEdit","",$54010004,0,0,400,20,static&,2000,%hinstance)
SetFont static2&,font%
SendMessage(static2&,$0443,0,RGB(53,189,255)) 'von Frank Abbing die Idee zum  Hintergrundfärben
SendMessage(static2&,$CF,1,0)


WHILENOT ENDE%
Waitinput
top%=Sendmessage(listbox1%,$018E,0,0)
if lt(top%,1)
   top%=getcursel(Listbox1%)
else
   top%=getcursel(Listbox1%)-Sendmessage(listbox1%,$018E,0,0)
endif

   If @EQU(%KEY,2)
      LET ENDE%= 1
   ELSEIF GETFOCUS(BUTTON1%)  'BUTTON
      LET ENDE%=1

   ELSEIF GETFOCUS(LISTBOX1%)
       settext static2&,@GetString$(listbox1%,getcursel(Listbox1%))
       setwindowpos static&=1,top%*Sendmessage(listbox1%,$01A1,0,0)-550,Sendmessage(listbox1%,$01A1,0,0);1 'Sonst isser im Hintergrund ;)
   ENDIF
WEND
DestroyWindow(static2&) 'Hier Wichtig!
Freedll richdll&
DELETEOBJECT font%