FiveTech Software tech 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.

Try READONLY clause. For mouse position try GetCol() and GetRow() methods.

EMG

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