| |
| |
|
| - page 1 - |
|
RudiB. | allô zusammen,
habe la fois wieder quelque chose...
beim scrollen sur cela Contrôle VSroll rester très souvent qui Zeilen pas "im Raster".
je n'en sais rien comment je es sonst ausdrücken soll.
peux on cela irgendwie fixen, cela qui Zeilen "im Raster bleiben" et pas seulement qui Moitié angezeigt wird (oberste la ligne !!) |
|
| |
| |
| |
|
 |
« cette Beitrag wurde comme Solution gekennzeichnet. » |
|
Georg
Teles |  
suis depuis einem l'an raus aus qui Programmation. Habe zwecks Style rien passendes trouvé, seulement Workarounds quelle qui "Justierung qui Zeile" nachträglich vornehmen ... comme Denkanstoß ici un kleines Beispiel, compliqué, ist mais vllt nützlich: (chez Éditer et Contrôle seulement hineinklicken, ensuite dessen VScroll betätigen weil Concentrer/Child, peux sodann avec ProcAddr verbessert volonté)
Cls
var text$ = GenTxt()
Déclarer pre_pos&
Proc GenTxt
Déclarer tx$
tx$ = »
WhileLoop 0,200
tx$ = tx$+"Text_"+Str$(&loop)+"\n"
Endwhile
tx$ = tx$+"ENDE"
Retour tx$
ENDPROC
locate 0,0
imprimer "RichEdit"
locate 0,27
imprimer "Edit (Contrôle)"
locate 0,54
imprimer "VScroll"
var red& = Créer("richedit", %hWnd, text$, 5, 25, 200, 200)
var red2& = Contrôle("Edit", », $50200044, 205, 25, 200, 200, %hWnd, 0, %hInstance)
var vsc& = Créer("VScroll",%hWnd,»,422,25,20,200)
'ACHTUNG Dimension qui VScroll tenir compte de ! am Besten pour Zeilen minus Sichtbare Zeilen
'SetScrollRange vsc&,0,190
'$00BA 'em_GetLineCount - Sichtbare Zeilen (ici 11)
SetScrollRange vsc&,0,SendMessage(red&,$00BA,0,0)-11
SetText red&,Text$
SetText red2&,Text$
Tandis que 1=1
Waitinput
'si Concentrer sur VScroll
Si GetFocus(vsc&)
SendMessage(red&,$00B6,0,GetScrollPos(vsc&)-pre_pos&)
SendMessage(red2&,$00B6,0,GetScrollPos(vsc&)-pre_pos&)
pre_pos& = GetScrollPos(vsc&)
locate 3,57
imprimer "GoTO Line "+Str$(pre_pos&)+Space$(3)
EndIf
'si Concentrer sur RichEdit
Si GetFocus(red&)
SendMessage(red&,$00B6,0,GetScrollPos(vsc&)-pre_pos&)
SendMessage(red2&,$00B6,0,SendMessage(red&,$00CE,0,0)-pre_pos&)
pre_pos& = SendMessage(red&,$00CE,0,0)
SetScrollPos vsc&, pre_pos&
locate 3,57
imprimer "GoTO Line "+Str$(pre_pos&)+Space$(3)
EndIf
'si Concentrer sur ControlEDIT
Si GetFocus(red2&)
SendMessage(red2&,$00B6,0,GetScrollPos(vsc&)-pre_pos&)
SendMessage(red&,$00B6,0,SendMessage(red2&,$00CE,0,0)-pre_pos&)
pre_pos& = SendMessage(red2&,$00CE,0,0)
SetScrollPos vsc&, pre_pos&
locate 3,57
imprimer "GoTO Line "+Str$(pre_pos&)+Space$(3)
EndIf
endwhile
Grüße |
|
| |
| |
| |
|
|
|
RudiB. | encore un kleiner Nachtrag...
c'est seulement chez einem Richedit so, im Multiedit funktioniert cela scrollen wirklich Zeilenweise.
il me faut cela mais aussi im Richedit so... |
|
| |
| |
| |
|
|
Georg
Teles |
suis depuis einem l'an raus aus qui Programmation. Habe zwecks Style rien passendes trouvé, seulement Workarounds quelle qui "Justierung qui Zeile" nachträglich vornehmen ... comme Denkanstoß ici un kleines Beispiel, compliqué, ist mais vllt nützlich: (chez Éditer et Contrôle seulement hineinklicken, ensuite dessen VScroll betätigen weil Concentrer/Child, peux sodann avec ProcAddr verbessert volonté)
Cls
var text$ = GenTxt()
Déclarer pre_pos&
Proc GenTxt
Déclarer tx$
tx$ = »
WhileLoop 0,200
tx$ = tx$+"Text_"+Str$(&loop)+"\n"
Endwhile
tx$ = tx$+"ENDE"
Retour tx$
ENDPROC
locate 0,0
imprimer "RichEdit"
locate 0,27
imprimer "Edit (Contrôle)"
locate 0,54
imprimer "VScroll"
var red& = Créer("richedit", %hWnd, text$, 5, 25, 200, 200)
var red2& = Contrôle("Edit", », $50200044, 205, 25, 200, 200, %hWnd, 0, %hInstance)
var vsc& = Créer("VScroll",%hWnd,»,422,25,20,200)
'ACHTUNG Dimension qui VScroll tenir compte de ! am Besten pour Zeilen minus Sichtbare Zeilen
'SetScrollRange vsc&,0,190
'$00BA 'em_GetLineCount - Sichtbare Zeilen (ici 11)
SetScrollRange vsc&,0,SendMessage(red&,$00BA,0,0)-11
SetText red&,Text$
SetText red2&,Text$
Tandis que 1=1
Waitinput
'si Concentrer sur VScroll
Si GetFocus(vsc&)
SendMessage(red&,$00B6,0,GetScrollPos(vsc&)-pre_pos&)
SendMessage(red2&,$00B6,0,GetScrollPos(vsc&)-pre_pos&)
pre_pos& = GetScrollPos(vsc&)
locate 3,57
imprimer "GoTO Line "+Str$(pre_pos&)+Space$(3)
EndIf
'si Concentrer sur RichEdit
Si GetFocus(red&)
SendMessage(red&,$00B6,0,GetScrollPos(vsc&)-pre_pos&)
SendMessage(red2&,$00B6,0,SendMessage(red&,$00CE,0,0)-pre_pos&)
pre_pos& = SendMessage(red&,$00CE,0,0)
SetScrollPos vsc&, pre_pos&
locate 3,57
imprimer "GoTO Line "+Str$(pre_pos&)+Space$(3)
EndIf
'si Concentrer sur ControlEDIT
Si GetFocus(red2&)
SendMessage(red2&,$00B6,0,GetScrollPos(vsc&)-pre_pos&)
SendMessage(red&,$00B6,0,SendMessage(red2&,$00CE,0,0)-pre_pos&)
pre_pos& = SendMessage(red2&,$00CE,0,0)
SetScrollPos vsc&, pre_pos&
locate 3,57
imprimer "GoTO Line "+Str$(pre_pos&)+Space$(3)
EndIf
endwhile
Grüße |
|
| |
| |
| |
|
|
RudiB. | allô Georg,
... danke, c'est, glaube je qui Solution. Muss je dans Ruhe ausprobieren.
mais sur den ersten perspective oui c'est ca cela richtige, quoi je gesucht habe.
je probiere cela aujourd'hui soir la fois pour meinen le cas aus et gebe ensuite Feedback.
Salut Rudi |
|
| |
| |
| |
|
|
RudiB. | ...déjà ausprobiert.... TREFFER....
merci Georg, cela wars...
Salut aus München
Rudi |
|
| |
| |
| |
|
|
Georg
Teles | Guten soir, na wunderbar  
Grüße |
|
| |
| |
| |
|
(941)
Deutsch
English
Français
Español
Italia