Laufschrift ohne sofort wieder den Anfang zu sehen

[Helmi]

Hallo Aenogym,

ich habe mir erlaubt :mrgreen: deinen Code zu verbessern und diesen nur in einem StatusBar-Feld anzeigen zu lassen:

Code:

//Timer1.Interval auf 20 ms
//Statusbar mit 3 Feldern

private
  x, i: Integer;
  S: String;
  r: TRect;

{ ... }

uses CommCtrl;

{ ... }

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Perform(SB_GETRECT, 1, integer(@r));

  r.Right := r.Right - 1;  //-1 wegen dem rechten Rand
  r.Left := r.Left + 1;    //+1 wegen dem linken Rand

  StatusBar1.Repaint;

  If (x > (StatusBar1.canvas.TextWidth(S) - r.Left) * -1) then
    begin
      i := StatusBar1.Canvas.Font.Size div 2; //Die Hälfte der Schrifthöhe berechnen

      StatusBar1.Canvas.FillRect(r);
      StatusBar1.Canvas.TextRect(r, x, ((r.Bottom - r.Top) div 2) - i, S);
      dec(x);
    end
  else
    x := r.Right - r.Left; //Right - Left = Breite des Feldes
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//  statusbar1.Canvas.Font.Color := clBlue;
  StatusBar1.canvas.Brush.Style := bsclear;
//  statusbar1.Canvas.Font.Size := 12;

  S := 'Ich bin ein armer Delphi-Programmierer;
end;

[Aenogym]

bei deiner zeile

Delphi-Quellcode:

  else
    x := r.Right - r.Left; //Right - Left = Breite des Feldes

würde ich das - r.left; wegnehmen- ich finde das sieht schöner aus. sonst fängt der text nämlich mitten im feld wieder an ;)

ich füge das mal der code library hinzu :D

Aenogym

[Helmi]

Zitat:

Zitat von Aenogym

bei deiner zeile

Delphi-Quellcode:

  else
    x := r.Right - r.Left; //Right - Left = Breite des Feldes

würde ich das - r.left; wegnehmen- ich finde das sieht schöner aus. sonst fängt der text nämlich mitten im feld wieder an ;)

Also ich sehe keinen Unterschied zwischen

Code:

  x := r.Right - r.Left;

und:

Code:

  x := r.Right;

.

Zitat:

Zitat von Aenogym

ich füge das mal der code library hinzu :D
Aenogym

Welch eine Ehre :angel2: :mrgreen: :angel2:

[Aenogym]

Zitat:

Zitat von Helmi

Also ich sehe keinen Unterschied zwischen

Code:

  x := r.Right - r.Left;

und:

Code:

  x := r.Right;

also bei deiner zeile fängt der text ein stückchen zu weit links an, also mitten im feld. mach dien feld mal größer (width=200), dann glaube ich, sieht man es besser.

Aenogym

[Helmi]

Hallo,

das kann ich nun nicht bestätigen.

ich habe 3 Felder: Größe Feld 1 = 222; Größe Feld 2 = 500; Größe Feld 3 = 50
(Die Größen hab ich schon mal verkleinert und vergrößert)

Jedesmal beginnt - so wie es sein soll - der Text ganz rechts, also am Ende des Feldes.

[edit] Du hast vollkommen recht! - war ein Fehler von mir!

es muss:

Code:

x := r.Right;

heissen.

I`m so sorry!
[/edit]

[Aenogym]

Zitat:

Zitat von Helmi

Hallo,

das kann ich nun nicht bestätigen.

ich habe 3 Felder: Größe Feld 1 = 222; Größe Feld 2 = 500; Größe Feld 3 = 50
(Die Größen hab ich schon mal verkleinert und vergrößert)

Jedesmal beginnt - so wie es sein soll - der Text ganz rechts, also am Ende des Feldes.

[edit] Du hast vollkommen recht! - war ein Fehler von mir!

es muss:

Code:

x := r.Right;

heissen.

I`m so sorry!
[/edit]

ich les mir die größenangaben durch, mach sie nach usw. probier aus. wundere mich schon....
und dann seh ich, dass da nochwas steht :wall:
aber nungut. das wird langsam off-topic. schluss jetzt :mrgreen:

Aenogym

[donderdritte]

danke erstmal an Aenogym durch den quelltext bin ich näher an die lösung einer informatik hausaufgabe gekommen

könnt ihr mir aber noch verraten ob es auch möglich ist das die schrift nach rechts läuft und von links wieder kommt, da dies der bestandteil der aufgabe ist ich es aber mit umstellen des codes nicht hinkriege.
es wäre außerdem gut wenn der text direkt wieder herauskommt und nicht mit einer kleinen pause, aber das obere ist eigentlich noch wichtiger

danke im voraus