Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 252051 (13487)
  Suchen
 Zurück zur Übersicht
 AutorThema: scrollen
Norbert Modsching
Datum:03.10.02 22:23 Antwortenals Email verschicken (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


Thorsten
Datum:04.10.02 08:09 Antwortenals Email verschicken (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.




Gerd Telzerow
Datum:04.10.02 08:25 Antwortenals Email verschicken (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


Norbert Modsching
Datum: 06.10.02 23:22 Antwortenals Email verschicken (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




 Zurück zur Übersicht