Info Screen mit automatisch Scrollender Memo

[gsh]

Hi DPler

Ich sags euch ich hab echt im Forum gesucht aber nichts funktionierendes gefunden.

Ich hab folgendes schon probiert (mit TMemo und TRichEdit):

Delphi-Quellcode:

InfoMemo.ScrollBy(0, -20);  //aber er zeichnet es mi nicht neu
//  InfoMemo.Repaint;      // wenn ich des mache dann setzt er die Position zurück

Ich will doch nur des der Text automatisch nach oben geht :wall:
Bin ich zu blöd dafür oder seh ich die einfachheit des Lösungsweges nur nicht.

[Niko]

Hi,

bei mir funktioniert das ohne Probleme.

Versuchs doch mal mit einem etwas kleineren Wert statt der -20 oder probiers mal in einem neuen Projekt, vielleicht liegt der Fehler an anderer Stelle.

[Matze]

Müsste nicht etwas wie

Delphi-Quellcode:

Memo1.SelStart := 0;  // oder war's 1 *grübel*

gehen?

Oder was meinst du mit "automatisch nach oben geht" :gruebel:

[gsh]

@Niko: hab schon probiert

@Matze: nein geht nicht
ich meine des der Text langsam nach oben hin weg. Also eine Laufschrift nach oben

[gsh]

*push*

[Lannes]

Hallo,

das:

Delphi-Quellcode:

SendMessage(Memo1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);

im Zusammenhang mit einem Timer sollte funktionieren.

[gsh]

Gut des funkt.

Aber ich möchte nicht des der eine ganze Zeile gleich runterspringt weil sonst rukelt des so. Also wie kann ich des machen des es sagen wir mal 10 pixel oder eine halbe zeile oder so nur runterspringt?

[mh166]

In den Jedis gibts doch afaik eine entsprechende Kompo... Warum eigentlich das Rad immer neu erfinden. :zwinker:

mfg, mh166

[gsh]

und wie heisst die kompo?

[Daniel G]

TJVScrollText

Oder du nimmst TScrollingCredits, die nutze ich in meinem Programm "CPUiD"

[gsh]

find ich nicht wo ist den die?

[Daniel G]

Unter Jv Scrollers, wenn du das JEDi - Package installiert hast...

[gsh]

ja ich hab jedi 10
kann es aber trotzdem nicht finden

[Daniel G]

Dann nimm doch einfach das o.g. TScrollingCredits. Is' auch doll....

[gsh]

welche kompos hast du bitte?
diese hab nämlich auch nicht

und nein möchte für das keine kompo installieren

[Kevin]

Zitat:

Zitat von gsh

ja ich hab jedi 10
kann es aber trotzdem nicht finden

Jedi10 :shock: Aktuell ist doch gerade mal die 3.1 :gruebel:

[edit]fipptehler...[/edit]

[gsh]

aso jedi
Ich hab irgendwie an indy gedacht

[gsh]

*push*

Gibt es keine Möglichkeit ohne eigene Kompo des pixel weise zu machen?

[Khabarakh]

Nimm ein TImage und DrawText

[gsh]

aha klingt ja ganz nett aber wie kann ich des am besten mit mehren zeilen und so machen?

[Khabarakh]

Zitat:

Zitat von gsh

aha klingt ja ganz nett aber wie kann ich des am besten mit mehren zeilen und so machen?

Mit TCanvas.TextOut müsstest du jede Zeile einzeln zeichnen. DrawText macht dies und auch automatischen Zeilenumbruch schon von selbst, weshalb ich es auch vorgeschlagen habe :wink: .

[gsh]

ich hab mit Canvas leider erst ganz wenig gemacht und was ich gemacht habe ist nicht sehr erfolgreich ausgegangen. Und wie meinst du des mit dem automatischen zeilenumbruch? Heisst des wenn ich #10#13 schreib hüpft er in die nächste zeile?