nomainwin
    'This line must be added to the beginning of the text to be searched
    'so the RTF window knows that it is an rtf and the color table is included.
    'You can change the amount of each color to change the highlight color.
    'It is currentlky set to yellow with red255 and green255.
    a$="{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 arial;}} {\colortbl ;\red255\green255\blue0;}"
    'This line is the text with the above line added.
    text$=a$+"The quick brown fox jumps over the lazy old dog. This is the string that will be searched. AAABBBCCCAAABBBCCC"
    WindowWidth = 550
    WindowHeight = 400
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    button #main.b1, "Search", [search], UL, 10, 300, 70,40
    textbox #main.tb1,100, 310, 200, 25

    open "untitled" for dialog_modal as #main
    print #main, "font arial bold 10"
    #main, "trapclose [closemain]"
    open "RICHED32.DLL" for dll as #re
    hT=CreateTextEdit(hWnd(#main), 13,20,515,250)
    call SetWindowText hT,text$
    originaltext$=text$ 'Savbe the original text.
    wait

    [search]
    #main.tb1,"!contents? searchstring$"
    searchstring$=lower$(trim$(searchstring$))
    if searchstring$="" then wait
    searchlength=len(searchstring$)
    text$=originaltext$
    txt$=lower$(text$)
    position=instr(txt$,"blue0;}")+2
    foundflag=0 'Set to one if the search srtring is found.
    while instr(txt$,searchstring$,position)>0
        a=len(text$)
        start=instr(txt$,searchstring$,position)
        found$=mid$(text$,start,searchlength)
        text$=left$(text$,start-1)+"\highlight1"+found$+" \highlight0"+right$(text$,a-(start+searchlength)+1)
        txt$=lower$(text$)
        position=start+searchlength+22 'This sets the new position +22 characters for the two highlights.
        foundflag=1 'The search sttring is found.
    wend
    if foundflag=1 then 'Print the text$ in the rtf window with the highlights added.
        call SetWindowText hT,""
        call SetWindowText hT,text$
    else
        notice "Note!"+chr$(13)+ chr$(34)+searchstring$+chr$(34)+" Not Found."
        call SetWindowText hT,originaltext$ 'Put the oroiginal text into the rtf window.
    end if
    #main.tb1,""
    #main.tb1, "!setfocus"
    wait

    [closemain]
    close #main  'The window must be closed before RICHED32.DLL.
    close #re
    end

sub SetWindowText hWnd, txt$ 'Places text in Help and Manual windows
    callDLL #user32, "SetWindowTextA",hWnd As ulong,txt$ As ptr,result As void
end sub

FUNCTION CreateTextEdit(hWin, x, y, w, h)
    style = _WS_CHILDWINDOW OR _WS_BORDER OR _WS_VISIBLE or _ES_MULTILINE or _WS_VSCROLL or _ES_READONLY
    hInst=GetWindowLong(hWin, _GWL_HINSTANCE)
    callDLL #user32,"CreateWindowExA",_
    0 As long,"RichEdit"  As ptr,_
    "" As ptr, style As long,_
    x As long,y As long,w As long,h As long,_
    hWin As ulong, 0 As long, hInst As ulong,_
    0 As long, CreateTextEdit As long
END FUNCTION

FUNCTION GetWindowLong(hWin, type)
    callDLL #user32, "GetWindowLongA", hWin As ulong, type As long, GetWindowLong As long
END FUNCTION
 

[trackloop]
    scan
    calldll #kernel32,"Sleep",100 as ulong,r as void
    calldll #user32,"GetScrollPos",hT1 As ulong,_SBS_VERT as ulong,pos as ulong
    calldll #user32,"SetScrollPos",hT2 as ulong,_SBS_VERT as ulong,pos as ulong,1 as boolean,r as ulong
    calldll #user32,"SendMessageA",hT2 As ulong,_EM_GETFIRSTVISIBLELINE As Ulong,0 As ulong,0 As ulong,result As ulong
    goto[trackloop]

 

    nomainwin
    open "LBRTF2.dll" for dll as #rich
    dim info$(4,4)

    WindowWidth=1055:WindowHeight=530
    UpperLeftX=(DisplayWidth-WindowWidth)/2
    UpperLeftY=(DisplayHeight-WindowHeight)/2
    open "File Compare" for window as #main
    #main,"trapclose [quit]"
    hWin=hwnd(#main)
    for a=1 to 2
        aa=((a-1)*515)+5
        calldll #rich,"CreateRichEd",hWin as ulong,aa as ulong,5 as ulong,512 as ulong,230 as ulong,TextID as ulong
        ID(a)=TextID
        calldll #rich,"SetBackgroundColor",TextID as ulong,255 as ulong,255 as ulong,255 as ulong,result as void
        calldll #rich,"SetSelectionColor",TextID as long,0 as long,0 as long,0 as long,result as void
'                                                                    height/pts:bold     :italic   :underline:strikeout
        calldll #rich,"SetDefaultFont",TextID as long,"Kaiti" as ptr,8 as long,0 as long,0 as long,0 as long,0 as long,result as void
    next a

    ID=ID(1):ID2=ID(2)
    calldll #rich, "GetHandle",ID as ulong,handle1 as ulong
    calldll #rich, "GetHandle",ID2 as ulong,handle2 as ulong


    filedialog "Open File","*.*",file1$
    if file1$="" then wait
    open file1$ for input as #1
    txt$(1)=input$(#1,lof(#1))
    close #1
    filedialog "Open File","*.*",file2$ 
    if file2$="" then wait
    open file2$ for input as #2
    txt$(2)=input$(#2,lof(#2))
    close #2
    for a=1 to 2
        TextID=ID(a):txt$=txt$(a)
        calldll #rich,"DoSetFocus",TextID as ulong,result as void
        calldll #rich,"LoadText",TextID as ulong,txt$ as ptr,result as void
    next a
    for a=1 to len(txt$(1))
        if mid$(txt$(1),a,1)<>mid$(txt$(2),a,1) then
            char1=a-1:char2=a
            for b=1 to 2
                TextID=ID(b)
                calldll #rich,"SetSelection",TextID as ulong,char1 as ulong,char2 as ulong,result as void
                calldll #rich,"SetSelectionColor",TextID as ulong,0 as ulong,255 as ulong,0 as ulong,result as void
            next b
        end if
    next a
    calldll #rich,"SetSelection",TextID as ulong,0 as ulong,0 as ulong,result as void



[scroll]
    ID=ID(1)
    ID2=ID(2)

    calldll #rich, "GetHandle",_
        ID as long,_    'ID of control
        handle1 as ulong 'returns Windows handle
    calldll #rich, "GetHandle",_
        ID2 as long,_    'ID of control
        handle2 as ulong 'returns Windows handle

    calldll #user32,"SendMessageA",handle1 As ulong,_EM_GETFIRSTVISIBLELINE As Ulong,_
    0 As ulong,0 As ulong,firstLine1 As ulong

    calldll #user32,"SendMessageA",handle2 As ulong,_EM_GETFIRSTVISIBLELINE As Ulong,_
    0 As ulong,0 As ulong,firstLine2 As ulong

    numLines=firstLine1-firstLine2
    calldll #user32,"SendMessageA",handle2 As ulong,_EM_LINESCROLL As Ulong,_
    0 As ulong,numLines As ulong,result As ulong

    wait