on SetFieldValue
   Global gContent,gAktLine,gAktProp
   
   if count(gContent) > 0 then
     set myList = getAt(gContent,1)                                  
     set myOldTop = the scrollTop of member "big_list"
     if count(myList) > 0 then
       set myText = ""
       
       repeat with x = 1 to count(myList)
         set myText = myText & getPropAt(myList,x) & RETURN
       end repeat
       
       set the text of field "big_list" to myText
       set the scrollTop of member "big_list" to myOldTop
       
       set the text of field "line_Ctn" to MakeNull(count(myList),3)
       
       set gAktProp = getProp(getAt(gContent,1), line 1 of myText)
       set gAktLine = 1
       
       hilite line gAktLine of member "big_list"
       
       if gAktProp <> 0 then
         set mySource = getPropAt(getAt(gContent,1),getPos(getAt(gContent,1),gAktProp))
         LoadRecord(mySource)
       else
         set the text of field "entry_name" to line 1 of myText
         set the text of field "img_name" to "leer"
         set the text of field "txt_name" to "leer"
       end if
     end if
   end if
end SetFieldValue
 
 
on GetListPropAsValue myProp,wichList
   if getProp(getAt(gContent,1), myProp) <> 0 then
     return getPropAt(getAt(gContent,wichList),getPos(getAt(gContent,wichList),getProp(getAt(gContent,1), Prop)))
   else
     return ""
   end if
end GetListPropAsValue
 
 
on GetListValues myV_Val,mySprite,myMember
   set myName = the text of member myMember
   
   set myLine = locVToLinePos(member myMember, 
                (myV_Val-the top of sprite mySprite)+the scrollTop of member myMember)
   
   if line myLine of myName <> "" then
     hilite line myLine of member "big_list"
     
     set listCount = the number of lines in myName
     
     return myLine
   else
     return -1
   end if
end GetListValues
