FiveTech Support Forums

I would like to write many lines of text into a window and then to scroll.
Is scrolling automatically or do I have to programm?
Thanks in advance
Otto

static oWnd

function Main()

DEFINE WINDOW oWnd from 1,1 TO 30,60 TITLE "Kontoauszug";
    VSCROLL;
    MENU bldMenu()

ACTIVATE WINDOW oWnd

    return nil

function bldMenu()
    LOCAL oMenu
    set exclusive off
    MENU oMenu
    MENUITEM "Start" ;
        ACTION  f_code()
    ENDMENU

    return oMenu

    func f_code
        LOCAL nRow1       := 0
        local hVert       :=  25
        local planfont
        Local I:=0
        local oSay


        DEFINE FONT planFont NAME "Arial" SIZE  6,22

        FOR I := 1 TO  100
            nRow1 := nRow1 + hVert
            * Line(  nTop nLeft  nBottom  nRight
            oWnd:say( nRow1+2, 1, "TEST",255,16777215,planFont,.T.)
        NEXT

        RETURN NIL

Otto,

Yes, you have yo perform the scrolling yourself. You may review wbrowse.prg source code as it also scrolls.

Another way is to use a GET multiline that will scroll automatically though it may be limited into the amount of text to contain.

Another possibility is to show a browse and then use a DBF where each record is a text line, so to add a text line, you add a record, fill the field, and refresh the browse.

Thank you for your answer. As I want to use different fonts I think that multiget and wbrowse are not a solution.

Don't you have a working example?

Thanks again
Otto

Try the RichEdit control.

EMG

That’s what I thought first. But how can you prevent that someone chances the text and I need the position of the mouse.

Otto,

You may disable the richedit control, so it does not accept any input.

Otto wrote:That’s what I thought first. But how can you prevent that someone chances the text and I need the position of the mouse.

Thanks Antonio, thanks Enrico,

As I need better display possibilities for my billing-software I tried several options.

Now I think I found a good solution.

This is only a test if it could work but you see how I would like to do it.
Maybe someone does like it and joins development for this “invoice-browser”

Regards
Otto

Here is a link for a demo: www.atzwanger.com/invoice