XProfan

declare med01&
cls
med01& = @Create("MultiEdit",%HWnd,"",20,20,600,400)
SetFocus(med01&)
SendKey(med01&,35)
Sleep 1000

WhileLoop 0,30,1

    SendString(med01&,"Test1 Test1 Test1 Test1 Test1 Test1 Test1 Test1 Test1 Test1 Test1 Test1 ")
    SendString(med01&,"Test2 Test2 Test2 Test2 Test2 Test2 Test2 Test2 Test2 Test2 Test2 Test2{ENTER}")

EndWhile

SendString(med01&,"{ENTER}Test- exits!!!!{ENTER}")

WhileNot Equ(%Key,2) Or Equ(%Key,27)

    WaitInput

EndWhile

End

**********************************
window 50,50-500,300
declare Edit%,row%,characters%,Gesamt&
let Edit%=createmultiedit(%hwnd,"",50,50,200,200)

while 1

    getmessage
    sendmessage(Edit%,176,addr(Gesamt&),0)
    locate 1,1
    let characters%=sub(Gesamt&,sendmessage(Edit%,187,-1,0))
    let row%=sendmessage(Edit%,201,-1,0)
    locate 1,1
    print "Der Cursor is behind Zeichen",characters%,"in Zeile",row%,"   "

endwhile

**********************************

Scroll- Beipiel from Control.hlp
Author: Andreas Miethe
HP:    http://www.ampsoft.de (Control.exe)
Scroll- Messages
NAME                  WERT     PARAMETER
SBM_SETPOS            $00E0    n3 = position , n4 = Repaint Yes(1) or No(0)
SBM_GETPOS            $00E1    n3=0,  n4=0
SBM_SETRANGE          $00E2    n3=minimum , n4=maximum
SBM_SETRANGEREDRAW    $00E6
SBM_GETRANGE          $00E3    n3=minimum , n4=maximum
SBM_ENABLE_ARROWS     $00E4
SBM_SETSCROLLINFO     $00E9
SBM_GETSCROLLINFO     $00EA
Declare end%,ScrollHorz%,Scrollvert%,Button%
Declare ScrollHX%,ScrollHY%,ScrollWX%,ScrollWY%
Declare ButtonrangeX%,ButtonrangeY%
Declare Buttonx%,Buttony%,Buttonh%,Buttonw%
settruecolor 1
cls rgb(192,192,192)
Let Buttonx% = 10                          left supra
Let Buttony% = 60                          right supra
Let Buttonh% = 24                          Hoehe
Let Buttonw% = 80                          wide
Let ButtonrangeX% = sub(width(%hwnd),130)  To hierhin must itself the Button in X moving
Let ButtonrangeY% = sub(height(%hwnd),30)  To hierhin must itself the Button in Y moving
Let ScrollHX% = 0                          left Scrollable Horizontal
Let ScrollHY% = sub(Width(%hwnd),20)       wide Scrollable Horizontal
Let ScrollWX% = sub(Width(%hwnd),20)       supra Scrollable Vertikal
Let ScrollWY% = sub(Height(%hwnd),20)      Hoehe Scrollable Vertikal
Let ScrollHorz% = @Control("Scrollbar","",$50000000,0,0,ScrollWX%,20,%hwnd,1000,%Hinstance)
Let ScrollVert% = @Control("Scrollbar","",$50000001,ScrollHY%,20,20,ScrollWY%,%hwnd,1001,%Hinstance)
Let Button% = @Control("Button","Ende",$50008000,Buttonx%,Buttony%,Buttonw%,Buttonh%,%hwnd,1002,%Hinstance)
Sendmessage(ScrollHorz%,$00E2,ButtonX%,ButtonrangeX%)  Scrollweite for Scrollable horizontal
Sendmessage(ScrollVert%,$00E2,ButtonY%,ButtonrangeY%)  Scrollweite for Scrollable Mouse and Sprite
Let end%=0

whilenot end%

    Waitinput

    if getfocus(Button%)

        Let end%=1

    Endif

    Buttonposition adjust
    setwindowpos Button% = Sendmessage(ScrollHorz%,$00E1,0,0),Sendmessage(Scrollvert%,$00E1,0,0)-80,24;0

wend

End
© Andreas Miethe , Bielefeld , 1998

Author: Michael Dell
ScrollBar mins, Max and Pos  Info
Def gScrollPos(2)   !"user32.dll","GetScrollPos"
Def gScrollRange(4) !"user32.dll","GetScrollRange"
Declare med01&,scrMin&,scrMax&
actually position the Scroll bar
gScrollPos(hndl&,0)             SB_HORZ = 0
gScrollPos(hndl&,1)             SB_VERT = 1

Proc gScrollMinMax

    mins and Max the Scrollable ermittel
    Parameters hndl&,HorVer%          HorVer%=0 -> Horizontal / HorVer%=1 -> Vertikal
    gScrollRange(hndl&,HorVer%,Addr(scrMin&),Addr(scrMax&))

ENDPROC

Proc ZeigeScrollMinMaxPos

    Parameters HorVer%
    gScrollMinMax(med01&,HorVer%)

    If HorVer%

        MessageBox(Add$(Add$(Add$("Min=",Str $(scrMin&)),Add$("  Max=",Str $(scrMax&))),Add$("  Pos=",Str $(gScrollPos(med01&,HorVer%)))),"Vertikal (mins Max Pos):",0)

    Else

        MessageBox(Add$(Add$(Add$("Min=",Str $(scrMin&)),Add$("  Max=",Str $(scrMax&))),Add$("  Pos=",Str $(gScrollPos(med01&,HorVer%)))),"Horizontal (mins Max Pos):",0)

    EndIf

    SetFocus(med01&)

ENDPROC

cls
med01& = @Create("MultiEdit",%HWnd,"",20,20,600,400)
SetFocus(med01&)
SendKey(med01&,35)

WhileLoop 0,30,1

    SendString(med01&,"Test1 Test1 Test1 Test1 Test1 Test1 Test1 Test1 Test1 Test1 Test1 Test1 ")
    SendString(med01&,"Test2 Test2 Test2 Test2 Test2 Test2 Test2 Test2 Test2 Test2 Test2 Test2{ENTER}")

EndWhile

SendString(med01&,"{ENTER}Test- exits!!!!{ENTER}")
ZeigeScrollMinMaxPos 0
ZeigeScrollMinMaxPos 1

WhileNot Equ(%Key,2) Or Equ(%Key,27)

    WaitInput
    ZeigeScrollMinMaxPos 0
    ZeigeScrollMinMaxPos 1

EndWhile

End

Windowstyle 31
Windowtitle "Erste visible row in the Multiedit"
Window 0,0-640,440
Declare EDIT&,Button&,Zeile&
LET EDIT&=@createmultiedit(%HWND,"",10,10,300,300)
LET BUTTON&=@CREATEBUTTON(%HWND,"Erste visible row?",10,330,300,30)
ADDFONTS
@Movelisttoedit(EDIT&)

While 0=0

    Waitinput

    IF @GETFOCUS(Button&)

        LET ZEILE&=@SENDMESSAGE(EDIT&,$00CE,0,0) index the row inquire
        @MESSAGEBOX(@ADD$("Erste visible row: ",@STR$(@int(ZEILE&+1))),"Ergebnis",64)

    ENDIF

wend