Lauftext mal ganz anderst

[150gozilla]

Hallo, ich hätte gerne einen Lauftext, der horizontal läuft.

Ich habe nähmlich ein programm erstellt, und nun möchte ich die beteiligten mit reinschreiben.

Nen beispiel kann ich leider nicht geben aber da fällt mir ein, er sollte so funktionieren wie:

Wenn man eine DVD zu ende geguckt hat, läuft ganz am schluss auch so ein lauftext (von unten nach oben).
So einen möchte ich gerne haben.

Kann mir wer nen code dafür bereit stellen ?

[Thanatos81]

Schau dir mal die Lables und Visuals von den Jedis an. Da ist bestimmt was in der Richtung dabei.

[150gozilla]

Bitte was ?

Bin erst anfänger :)

[knusprig]

Sowas hab ich auch schon gemacht.
Gibt auch eine Komponentensammlung namens RX-Tools. Ich weiß es jetzt nicht genau, aber ich glaub die Komponente hieß "Secret-Panel".

[150gozilla]

Ist das schon beim Delphi 5 dabei, oder muss ich das noch installieren ?

[Robert Marquardt]

Na dann herzlich willkommen.

Project Jedi hat eine dicke fette Komponentensammlung. http://jvcl.sf.net
Runterladen und die READMEs lesen, dann istallierenund Delphi starten und suchen und suchen und suchen... ;-)

[150gozilla]

Danke :)

wer suchet der findet :D *so ähnlich*

[BlackJack]

Zitat:

Zitat von 150gozilla

Wenn man eine DVD zu ende geguckt hat, läuft ganz am schluss auch so ein lauftext (von unten nach oben).
So einen möchte ich gerne haben.

das wäre dann aber eher ein vertikaler Verlauf, oder?

[150gozilla]

ja das meine ich doch

[150gozilla]

Ich will nur das meine laufschrift vertikal läuft (von unten nach oben)

dafür brauch ich sichrlich keine weiteren kompnenten oder ?

*sorry @ doppel post*

[Waldteufel]

Hi.

Zitat:

Zitat von 150gozilla

Ich will nur das meine laufschrift vertikal läuft (von unten nach oben)
dafür brauch ich sichrlich keine weiteren kompnenten oder ?

Doch! Wie schon gesagt: Lad dir die JVCL runter, dann findest du in der Registerkarte "JvScrollers" die Komponente "TJvScrollText", die genau das macht, was du willst.

[150gozilla]

ja, aber das lässt sich bei mir nicht installieren ö.Ö.

ich habe jetzt den LMDScrollText aber der scrollt mir nur wenn ich ihn bearbeite sprich, wenn ich in delphi bin, dann rechtsklick auf den LMDScrollText dann scrollen, dann scrollt er ihn mit nur da aber nicht in der fertigen anwendung

[Chegga]

Hi,

das Ganze lässt sich ganz einfach
(auch ohne Zusatzkomponenten) bewerkstelligen.
Was du brauchst sind lediglich ein Memo und ein Timer. :wink:

In das Form.OnCreate kommt das:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('Laufschrift.txt'); // Dabei ist der Name
  // der Textdatei und zu beachten und
  // das diese im gleichen Verzeichnis wie das Programm liegt
end;

In den Timer1.OnTimer kommt das hier:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Memo1.Lines.Add(Memo1.Lines[0]); 
  Memo1.Lines.Delete(0);
end;

Dann noch ein kleiner Tip am Rande:
Du kannst beim Timer das Intervall auswählen,
was ermöglicht, wie schnell die Laufschrift sein soll.
Die Angaben sind in Millisekunden, d.h.
1000 Millisekunden sind eine Sekunde.

Ich hoffe ich konnte ein wenig helfen. :)

MfG Marc

[150gozilla]

danke super hilfe, aber das mit der txt datei, könnte man die irgendwie mit in das Programm einbinden?, das man am ende nur eine datei die exe(das eigendliche programm) hat ?

\\edit: sonst kann ja jeder den lauftext ändern

[ManuMF]

Delphi-Quellcode:

// onFormCreate:
SL := TStringList.create;
SL.add('erste Zeile');
SL.add('zweite Zeile');
SL.add('...');

// Wenn man die Credits startet
Memo1.Lines.AddStrings(SL);

// Timer wie gehabt

// onFormDestroy
SL.free;

Wenn es nichts ausmacht, dass der Text von Anfang an im Memo steht, kannst du ihn auch gleich reinschreiben.

Gruß,
ManuMF

[150gozilla]

sl = undefinierter bereich


mhhhh.. bin noch anfänger

[Mr_G]

Hast du SL deklariert?

[Chegga]

Hi,

Delphi-Quellcode:

var SL: TStringList;

Das bedeutet das SL vom Typ StringList ist- :wink:

MfG Marc

[150gozilla]

ach mist :P
hatte grade ein Brett vorm kopp
ich arbeite pro tag 14 stunden als software entwickler (fange grad ausbildung an) und es ist 34 °C heiß, da kann es ja mal apssieren das man nen blackout bekommt.

Danke Chegga ;)

[ManuMF]

Mein Fehler, hab's vergessen :pale:

Gruß,
ManuMF ;-)

[TeronG]

Zitat:

Zitat von 150gozilla

ich habe jetzt den LMDScrollText aber der scrollt mir nur wenn ich ihn bearbeite sprich, wenn ich in delphi bin, dann rechtsklick auf den LMDScrollText dann scrollen, dann scrollt er ihn mit nur da aber nicht in der fertigen anwendung

da musst du nochmal während der Anwendung ein LMDScrollText1.Scroll := true; machen ... dann sollte es laufen ^^
wenn du das ding schon hast isses damit am einfachsten
LMDScrollText1.Lines ist übrigens auch TStringlist sprich es giebt auch ein LoadFromFile/Stream,...

[150gozilla]

Zitat:

Zitat von TeronG

Zitat:

Zitat von 150gozilla

ich habe jetzt den LMDScrollText aber der scrollt mir nur wenn ich ihn bearbeite sprich, wenn ich in delphi bin, dann rechtsklick auf den LMDScrollText dann scrollen, dann scrollt er ihn mit nur da aber nicht in der fertigen anwendung

da musst du nochmal während der Anwendung ein

Delphi-Quellcode:

LMDScrollText1.Scroll  := true;

machen ... dann sollte es laufen ^^

Löl der teufel ist nen eichhörnchen :D

ES GEHT :D:D:D:D:D:D:D

[TeronG]

Zitat:

Zitat von 150gozilla

Löl der teufel ist nen eichhörnchen :D

Yup ... so eins wie bei Zack Mc K. (NEIN das is KEIN DJ :twisted: )

[150gozilla]

es sind wie immer die kleinsten Probleme, wo man nicht weiter kommt

[St.Pauli]

Ist zwar schon beantwortet, aber ich hab auch ne Idee:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := 'Lauftext allez';
  while Label1.Top > 0 do //Stoppt am oberen Ende des Windows
    begin
      Label1.Top := Label1.Top-1;
      Application.ProcessMessages;
      Sleep(10);
    end;
end;

Was haltet ihr davon? Nur so ne Frage :stupid:

[RuX]

naja aber so läufts nich schön, sondern zuckelt zeile für zeile rauf, oder nicht? jedenfalls wenns langsam laufen soll, wenns schneller is merkt mans wahrscheinlich weniger

e: ich mein die sl lösung

[Chegga]

Hi,

@St.Pauli:
Dein Code gefällt erst einmal. :)
Aber:
Das Sleep(10) ist etwas unglücklich,
da sollte man mindestens > 50 wählen. :wink:
Das zweite, weitaus schlimmere, Problem ist,
wie immer mit Sleep,
das einfach nichts mehr geht (z.B. Anwendung schließen).
(Delay)

MfG Marc

[ManuMF]

Wie wär's mit einem Timer statt Sleep oder ähnlichem?

[150gozilla]

das mit dem timer wäre auch eine gute idee