Lauftext - Label immer auf Mindestgröße

[Tobicaster]

Ich glaube, ich hab das Problem.
Ich versuche es mal z uveranschaulichen.

Code:

So verhält es sich grade:


|               Test               |
|               estT               |
|               stTe               |
|               tTes               |
[...]

So ist es aber erwünscht:

|               Test               |
|              Test                |
|             Test                 |
[...]
| Test                             |
|Test                              |
|est                              T|
|st                              Te|
|t                              Tes|
|                              Test|
[...]

Any ideas?

[mkinzler]

Einfach Anfangstrimn um Leerzeichen erweitern.

[Tobicaster]

Zitat:

Zitat von mkinzler

Einfach Anfangstrimn um Leerzeichen erweitern.

Delphi-Quellcode:

  buchstabe := copy(lauftext, 1, 1);
  delete(lauftext, 1, 1);
  LLauftext.Caption := ' ' + lauftext + buchstabe;
  lauftext := LLauftext.Caption;

Klappt...naja, nicht ganz xD Aus "Test" wird "estT" und dann funktioniert es erst...Ich steh echt aufn Schlauch

[mkinzler]

Nein am Anfang also aus 'Test' 'Test ' machen

[Tobicaster]

Wie mach ich das denn, dass das nur beim ersten String gemacht wird, und dann nicht mehr?

[mkinzler]

Delphi-Quellcode:

procedure TForm1.BStartHierClick(Sender: TObject);
begin
  lauftext := Edit.Text+' ';

[Tobicaster]

Passiert leider nicht viel, jetzt ist da zwar ein Leerzeichen drin, aber trotzden immer noch das gleiche Problem ->

Delphi-Quellcode:

|    Test     |
|    est T    |
|    st Te    |
|    t Tes    |
|     Test    |
[...]

[mkinzler]

Du musst statt des einen Leerzeichens den String auf die maximale Länge mit Leerzeichen auffüllen

[Tobicaster]

Jetzt ausprobieren wäre sicher eine unschöne Lösung. Kann man das nicht eleganter machen als jetzt auszuprobieren, wie viele Leerzeichen reinpassen? Was passiert dann, wenn ich statt "Test" eienn langen Satz drin stehen habe?

[mkinzler]

Einfach Leerstring maximaler Länge anfügen und dann auf maximale Länge kürzen.