Autor | Thema: scrollen | | Datum:03.10.02 22:23 
(Chronos_nm@web.de) | |
Servus Comunity!
Ich mache mir momentan gedanken über einen Text, den man mit dem Befehl "CreateVScroll" von unten nach oben ziehen kann. Finde leider keinen richtigen weg das umzusetzen, also wenn jemand sich schonmal damit beschäftigt hat und mir eine Hilfestellung oder ein Stückchen Programm Code schicken könnte, würde ich mich sehr freuen.
Vielen Dank im Voraus
|
| | Datum:04.10.02 08:09 
(galaxy@mrk-soft.de) | |
Nimm eine Multi-Edit Box und Setz diese auf dem lesemodus
mit SendMessage(mhandle&,$00CF,1,0.
Soll die Multi-Edit Box nicht grau sein, nimmm die
SK-Controlls zum erzeugen des Multi-Edit, damit kann diese
dann jede Farbe besitzen.
|
| | Datum:04.10.02 08:25 
(GTelzerow@T-Online.de) | |
Hallo Norbert,
ein kleines Beispiel, oder mein Beitrag vom
Datum: 07.06.02 16:40
Declare Text1$
Declare VScroll&,Vende%
Print " "
Let Text1$="Ich Teste, DrawText"
Let VScroll&=@CreateVScroll(%Hwnd,"",300,50,20,200)
SetScrollRange VScroll&,0,173
Proc Text
Parameters x%,Y%
UseBrush 1,@RGB(255,255,255)
UsePen 0,1,@RGB(0,0,0)
Rectangle 15,50 - 295,250
DrawText x%,Y%,Text1$
Endproc
Text 20,55
let Vende% = 0
whilenot Vende%
waitinput
if @equ(%key,2)
let Vende% = 1
elseif @getfocus(VScroll&)
Text 20,@Add(@GetScrollPos(VScroll&),55)
endif
wend
End
Mfg
Gerd
|
| | Datum: 06.10.02 23:22 
(Chronos_nm@web.de) | |
Vielen dank Thorsten und Gerd Telzerow für eure Antworten, leider war keine Antwort so dabei, wie ich sie mir vorgestellt hatte, deswegen habe ich mich hingesetzt und einen vielleicht umständlichen, aber doch vertretbaren weg entwickelt. Seht ihn euch an, falls euch ein effektiverer Weg einfallen würde, mit dem gleichen Ergebniss so postet ihn bitte!
Settruecolor 1
Declare Zeile$,I%,scroll%,1%,2%,3%,tmp%
' -- >> Anzahl der Zeilen als Dimensionierungsgröße
Dim$ 200
' -- >> Datei wird ausgelsen
Assign #2,"TEST.TXT"
Reset #2
WhileNot @Eof(#2)
Input #2,Zeile$
Inc I%
List$ I% = Zeile$
EndWhile
Close #2
' ------------------
cls RGB(192,192,192)
' -- >> Scrollbox auf der rechten Seite wird erstellt
Scroll% = CreateVScroll(%Hwnd,"",276,13,18,168)
SetScrollRange Scroll%,0,sub(I%,7)
' -- >> Text wird erstellt
1% = CreateText(%Hwnd,List$(tmp%),10,mul(add(tmp%,1),20),200,16)
inc tmp%
2% = CreateText(%Hwnd,List$(tmp%),10,mul(add(tmp%,1),20),200,16)
inc tmp%
3% = CreateText(%Hwnd,List$(tmp%),10,mul(add(tmp%,1),20),200,16)
' -- >>
while 1
waitinput
GetScrollPos(Scroll%)
'-- >> Text wird neu geschrieben
Settext 1%,List$(GetScrollPos(Scroll%))
Settext 2%,List$(add(GetScrollPos(Scroll%),1))
Settext 3%,List$(add(GetScrollPos(Scroll%),2))
wend
|
|
|