Zeilenwert übergeben...

[horsthorn]

Hallo an Alle
Gibt es für meine Frage eine Message ?
Vorhanden sind zwei Richedit. Die Zeilen-Nr. kann festgestellt werden.
Nun möchte ich gerne, wenn ich mit der TAB-Taste in das andere Edit wechsele, den Cursor auf die gleiche Zeile stellen können, wie im Edit vorher.
Also wenn im ersten Edit I% = 12 ist, soll im anderen Edit der Cursor auch auf der Zeile 12 stehen. Auch wenn dieses Edit leer ist. Geht sowas überhaupt ?
Mit SetFocus(handle&) steht der Cursor nämlich immer am Anfang und die Message für das Textende nützt mir auch nichts.
Danke für jeden Tipp

[Frabbing]

Dafür brauchst du wohl jeweils zwei Messages:

Cursorzeile auslesen:

EM_EXGETSEL
EM_EXLINEFROMCHAR

Cursor setzen:

EM_LINEINDEX
EM_EXSETSEL

Wenn ein Edit nicht gefüllt ist, kannst du die Zeile natürlich nicht setzen. Es sei denn, du erzeugst in dem Fall leere Zeilen.

[Bangkok]

@Horst

probiere mal das müsste gehen, ist aber auf die schnelle ungetestet. Wenn nicht melde dich noch mal

Proc holezeile
Parameters hdl&
Declare charrange#,X&,y&,result&
dim charrange#,8
SendMessage(hdl&, 1076, 0, CharRange#)
y& = long(charrange#,0) 'min
x& = long(charrange#,4) 'max
result& = SendMessage(hdl&,1078,0,y&) + 1
dispose charrange#
return result&
EndProc

Proc setzezeile
Parameters hdl&,line&
Declare L&,charrange#
L&=SendMessage(hdl&,$0BB,line&,0) 'EM_LINEINDEX
Case L&< 0: Return -1
Dim charrange#,8
Long charrange#,0=L&
Long charrange#,4=L&
SendMessage(hdl&,$043F,0,1)
SendMessage(hdl&,$0437,0,charrange#) ' em_exsetsel
SendMessage(hdl&,$043F,0,1)
Dispose charrange#
EndProc

parameter jeweils das Handle des Richedits und beim letzen die gewünschte Zeile.

Es könnte aber passieren, das bei einem leeren Richedit nichts passiert. Ich glaube zum Setzen musst du wenigsten überall return gedrückt haben im leeren Richedit.

[horsthorn]

Zuerst einmal Danke an Beide

@Dieter
Du hast Recht. Es muss zuerst ein ENTER in beiden Fenstern passiert sein. Da muss ich mir etwas überlegen. Vielleicht einen temporären Text einblenden ? Schau'n mer mal
So sieht es bis jetzt aus:

IF MENUITEM(110) 'Das ist die TAB-Taste - kein Windowstyle 512
IF GetFocus(text_win&)
SetFocus(wert_win&)
I%=GetCursorPosY()
WHILELOOP 0,I%
taste&=SendKey(wert_win&,13)
ENDWHILE
SETZEZEILE wert_win&,I%
ELSEIF GetFocus(wert_win&)
SetFocus(text_win&)
ENDIF
ENDIF