Rullende tekst

borrisholt er to glimrende eksempeler på hans side.

http://borrisholt.com/VCL/DelphiSource/ScrollText.zip
http://borrisholt.com/VCL/DelphiSource/VerticalText.zip

Disse er lidt kompliserede (synes jeg). Du kan jo bare lave en simpel tekstout på et TBitmap og så tegner den.

her et simpelt eksempel du kan bygge videre på, hvis du har lyst:

...

var
iabout : integer;
about : Tbitmap;
procedure TForm1.FormCreate(Sender: TObject);
begin
about := Tbitmap.create;
about.width := 200; //bredden
about.height := 50; //højden
iabout := form1.clientheight;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.interval := 40; //hastighed
if timer1 <> nil then
iabout := iabout-1;
aboutme; //læser testen
canvas.draw(1,iabout,about); //tegner på formen
if iabout = -(about.height) then //starter forfra
iabout := form1.clientheight;
end;

procedure Tform1.aboutme;
begin
with about.canvas do
begin
  brush.color := form1.color; //baggrundsfarve
  fillrect(clientrect);      //sletter alt
  font.color := clred;        //tekstens farve
  font.style := [fsbold];
  textout(5,0,\'Her er lidt tekst...\');
  font.style := [];
  textout(5,12,\'bla bla bla\');
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
about.free;
end;

...

ZeroHero

Hvad mener du med idioder det skal staves med t altså idioter

poull >>> du har ret, de er lidt for komplicerede. Det var ikke lige det, jeg ledte efter ...

jeg synes også selv de er en smule komplicerede :)