[unit] TTextScroll

[Rastaman]

Moinsen :hi:

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 :D

Bitte testen !

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

[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:

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:

Zitat von Gerrit89

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

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)