Hallo Zusammen!
Ich bin schon seit einiger zeit hier in den DelphiForen am rum stoebern und testen.
nun bin ich jedoch an eine frage gekommen, die sich auch nach 5 stunden stuchmaschine nicht beantworten laesst.
ich versuche vergeblichst einen nachrichten ticker zu basteln. etwas in der art wie ein b;rsen ticker, wo die aktien angezeigt werden (titel, punkte_new, +/- %) ihr wisst schon.
das ganze sieht man eigentlich immer auf gewissen nachrichten sendern unten eingeblendet und von rechts nach links wandernd...
ich hab zwar schon einen roten balken von rechts nach links wandern lassen, jedoch frage ich mich wie und mit welchem befehl ich einen text wandern lassen kann...? (DrawText/DrawString???)
oder ist da meine grund idee falsch...
zudem wundere ich mich, wie ich das "flackern" ausschalten kann. (kommt vom schnellen refresh und wieder zeichnen, jedoch nicht an der bildwiederholfrequenz des bildschirms)
hier mal meine idee: (ist ein einfaches .net form, mit einem timer, die procedur "twinform.test" ist die paint ereignis procedur)
Delphi-Quellcode:
var x : Integer = 1;
var l : Integer = 100; // length of bar
var sr :Integer = 500; // start position
procedure TWinForm.test(sender: System.Object; e: System.Windows.Forms.PaintEventArgs);
var g : Graphics;
var p : Pen;
begin
p := Pen.create(color.red,10);
g := Self.CreateGraphics;
g.drawline(p, sr - x, 10, sr - x - l, 10);
end;
procedure TWinForm.Timer1_Tick(sender: System.Object; e: System.EventArgs);
begin
Inc(x);
self.Invalidate;
end;
damit ihr euch ein bild machen koennt von was ich gerade versuche:
NewsPiper
Danke vielmal fuer euer Feedback!
[edit=fkerber]Neu gespeichert wg. Code-Highlighting. Mfg, fkerber[/edit]