From: "Lechee Lai" 
@Date: Tue, 3 Dec 2002 11:52:08 +0800
@Sender: semware-owner{at}sawasdi.apana.org.au


Content-Type: text/plain;
	charset="iso-2022-jp"
Content-Transfer-Encoding: 7bit

Is possible memory the select item in List() windows , I like the remember
the last select item in list and active in next list is launch
 
proc CreateFTEList()
    integer i,k,j=0,CurrId
    string  StrLine[255]
    string  StrIdx[20]
    CurrId = GetBufferId()
    if not GotoBufferId(FTEList)
        FTEList = CreateTempBuffer()
    else
        EmptyBuffer(FTEList)
    endif
    if FileExists("C:\" + FTE_file)         // Check FTE file exist
        PushPosition()
        FTEClip=EditFile("C:\"+FTE_file)
        BufferType(_HIDDEN_)
 
        if FTEClip                         // Add context to hidden buffer lists
            BegFile()
            for i = 1 to NumLines()
                GotoLine(i)
                j = j + 1
                AddLine(Str(j)+") "+GetText(1,CurrLineLen()),FTEList)
            endfor
        endif
        PopPosition()
        GotoBufferId(FTEList)
        Hook(_LIST_STARTUP_, ListStartup)  // Hooks the StatusLine
        GoName = ""                                // Initialize Blank Name
        if List("TSE/FTE Lists via SemWare GREP v2.0",Query(ScreenCols))
            StrLine = GetText(1,128)
            StrIdx = GetToken(StrLine,")",1)
            j = Val(StrIdx) - 1                   // Convert Correct Index
            k = pos(")",StrLine)
            StrLine = GetToken(GetText(k+1,30),":",1)
            if StrLine  "File"
              GoLine = Val(StrLine)
            else
              GoLine = 1                          // Initialize Line number
            endif
            FTESymbol(j)                          // Return the Valid FileName
            GotoBufferId(CurrId)
        else
            Message("VGrep Canceled.")
        endif // End of List
        if Length(GoName)                          // NoZero File Name
            if EditFile(GoName)                    // Load The File
                    GotoLine(GoLine)               // And Go to the Line
                    ScrollToCenter()               // Center Screen
                    CurrId = GetBufferId()
            endif
        endif
        if FTEList  0
            AbandonFile(FTEList)                   // free FTEList
        endif
        if FTEClip  0
            AbandonFile(FTEClip)
        endif
        GotoBufferId(CurrId)
    else
        Message("Use V.bat to Create FTE.GRP First")
    endif  // End Of FTE Found
    GotoBufferId(CurrId)
end CreateFTEList
 
 


Best Regards,

　

lechee.lai{at}quantatw.com

http://www.geocities.com/lecheel

Tel:+886-3-327-2345#1798
　
 



-- Binary/unsupported file stripped by Ecartis --
-- Type: image/jpeg
-- File: image001.jpg
-- Desc: image001.jpg


--
TSEPro mailing list



---
[sawasdi.apana.org.au] (3:800/846.13)