[unit] TTextScroll

[Rastaman]

Moinsen

Also wie der Name schon sagt gehts um Scrolltexte.
Und zwar hier mal ein kleines Beispiel

Delphi-Quellcode:

var 
  scroll: TTextScroll;
begin
  scroll := TTextScroll.Create;
  scroll.SetText('Der zu scrollende Text');
  scroll.SetDelay(1000); // Geschwindigkeite ( Standard 1000 )
  scroll.SetHandle(Form1.Handle) //Fensterhandle 
                                 //Funktioniert mit Edits, Buttons, Forms, Labels etc.
  scroll.SetStatus(True); //Ein oder aus ? Standard ist ein
  scroll.SetLength(5) //Anzuzeigende Zeichen
end;

so, fettich
Ihr habt einen schön scrollenden Text in der Form Caption den ihr beliebig verändern könnt.
Man kann alles auch noch auslesen anstatt setzen.
Einfach aus dem Set ein Get machen

Bitte testen !

//EDIT: Getestet unter Delphi 05 PE
Für den Rest hab ich kp

[MarcoWarm]

Für welche Delphi-Version ist die DCU?

[Rastaman]

Naja, da in n paar Minuten 24 hours rum sind und das Ganze grad ma einer gesaugt hat --> P U S H

[DGL-luke]

ist dir klar, dass die dcu nicht für alle delphiversionen funktionert, genauer gesagt nur für die, mit der sie kompiliert wurde?

So was popeliges muss man wohl kaum schützen

[PierreB]

Zitat von Gerrit89:

Naja, da in n paar Minuten 24 hours rum sind und das Ganze grad ma einer gesaugt hat --> P U S H

Ähm, warum hängst du die vorkompilierte Unit an und nicht ganz einfach die normale Unit (*.pas) ? So könnte es nämlich bei einigen Usern zu Problemen kommen...

[shmia]

Zitat von Gerrit89:

Man kann alles auch noch auslesen anstatt setzen.
Einfach aus dem Set ein Get machen

Warum arbeitest du denn nicht mit Properties ??
Du verlierst mit Properties keine Geschwindigkeit gegenüber "normalen" Methoden.

Delphi-Quellcode:

  scroll.SetText('Der zu scrollende Text'); 
  // besser:
  scroll.Text := 'Der zu scrollende Text';

  scroll.SetDelay(1000); // Geschwindigkeite ( Standard 1000 ) 
  // besser:
  scroll.Delay := 1000;

  scroll.SetHandle(Form1.Handle) //Fensterhandle 
                                 //Funktioniert mit Edits, Buttons, Forms, Labels etc. 
  // Besser:
  scroll.Handle := Form1.Handle;

  scroll.SetStatus(True); //Ein oder aus ? Standard ist ein 
  // Besser:
  scroll.Visible := True;  // Unter Visible kann man sich mehr vorstellen, als unter SetStatus(True)