Results 1 to 4 of 4

Thread: dbSuggestionForm::ShowSuggestion Bug

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #2
    Join Date
    Feb 2009
    Location
    Dunedin, New Zealand
    Posts
    533

    Default Re: dbSuggestionForm::ShowSuggestion Bug

    Not done in 19.1 and 20.0 (so far)
    I suggest that a length test needs to be added otherwise the appendtext grabs a null value that confuses the text display resulting in a blank display line.


    Code:
    ...
        Move SuggestionData.aValues[0] to sValue
        If (not(bFullText)) Begin
            Set pbBold of ghoSuggestionList to True
            Send AppendText of ghoSuggestionList (Left(sValue,Length(sSearch))) 
            Set pbBold of ghoSuggestionList to False
            Send AppendText of ghoSuggestionList (Mid(sValue,255,Length(sSearch)+1)) 
        End
        Else Begin
            Set pbBold of ghoSuggestionList to False
            Move (Pos(Uppercase(sSearch),Uppercase(sValue))) to iPos
            If (iPos) Begin
                Send AppendText of ghoSuggestionList (Left(sValue,iPos-1)) 
                Set pbBold of ghoSuggestionList to True
                Send AppendText of ghoSuggestionList (Mid(sValue,Length(sSearch),iPos)) 
                Set pbBold of ghoSuggestionList to False
                If (Length(sValue) > iPos+Length(sSearch)) Begin
                   Send AppendText of ghoSuggestionList (Mid(sValue,255,iPos+Length(sSearch))) 
                End
            End 
            Else Begin      
                //@ FIXED: Possibility where iPos=0 for smCustom
                Send AppendText of ghoSuggestionList (Left(sValue,255))
            End
        End
    ...
    Last edited by Russell McDougall; 8-Aug-2020 at 02:54 AM.

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •