Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 252051 (13487)

| Suchen
| Zurück zur Übersicht

Autor | Thema: scrollen
Norbert Modsching
| 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
Thorsten
| 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.
Gerd Telzerow
| 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
Norbert Modsching
| 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

| Zurück zur Übersicht