---

Er der nogen der kan hjælpe med hvor jeg finder et object til at lave en
løbetekst med store bogstaver til Delphi 4,0.

Jacob

---

- en komponent

"Jacob Jacobsen" <jac@stepsystem.dk> wrote in message
news:41ba25d7$0$275$edfadb0f@dread12.news.tele.dk...
> Er der nogen der kan hjælpe med hvor jeg finder et object til at lave en
> løbetekst med store bogstaver til Delphi 4,0.
>
> Jacob
>
>

---

"Jacob Jacobsen" <jac@stepsystem.dk> skrev i en meddelelse
news:41ba25d7$0$275$edfadb0f@dread12.news.tele.dk...
> Er der nogen der kan hjælpe med hvor jeg finder et object til at lave en
> løbetekst med store bogstaver til Delphi 4,0.

Der findes en hel del på Torry hvis du søger efter f.eks. Scroll

http://www.torry.net/searchpage.htm

Mvh
HK

---

Ja, men det er ikke helt nemt af finde - leder stadig.

Jacob
"Harald" <nomail@noname.dk> wrote in message
news:41ba3676$0$56303$edfadb0f@dread16.news.tele.dk...
> "Jacob Jacobsen" <jac@stepsystem.dk> skrev i en meddelelse
> news:41ba25d7$0$275$edfadb0f@dread12.news.tele.dk...
> > Er der nogen der kan hjælpe med hvor jeg finder et object til at lave en
> > løbetekst med store bogstaver til Delphi 4,0.
>
> Der findes en hel del på Torry hvis du søger efter f.eks. Scroll
>
> http://www.torry.net/searchpage.htm
>
> Mvh
> HK
>
>

---

"Jacob Jacobsen" <jac@stepsystem.dk> skrev i en meddelelse
news:41baf8f8$0$224$edfadb0f@dread12.news.tele.dk...
> Ja, men det er ikke helt nemt af finde - leder stadig.

Hvis jeg søger efter Scroll får jeg 233 komponenter, ved en af de første
står der bla. "A led-scroller component. Can scroll text left to right,
right to left, up and down.", men jeg har måske misforstået dig så det ikke
lige er det du skal bruge?

Mvh
HK

---

Jeg skal bruge en komponent, hvor jeg kan indsætte hastighed og størrelse på
en lang tekst med en Truetype font, der løber hen over skærmen (ca. 8 cm
høj) fra højre til venstre.

Jeg har prøvet at kigge på Torry, men finder kun noget der ligner Image
scroll.

Jacob

"Harald" <nomail@noname.dk> wrote in message
news:41bb03d2$0$56313$edfadb0f@dread16.news.tele.dk...
> "Jacob Jacobsen" <jac@stepsystem.dk> skrev i en meddelelse
> news:41baf8f8$0$224$edfadb0f@dread12.news.tele.dk...
> > Ja, men det er ikke helt nemt af finde - leder stadig.
>
> Hvis jeg søger efter Scroll får jeg 233 komponenter, ved en af de første
> står der bla. "A led-scroller component. Can scroll text left to right,
> right to left, up and down.", men jeg har måske misforstået dig så det
ikke
> lige er det du skal bruge?
>
> Mvh
> HK
>
>

---

Hej Jacob

Her er et skud fra hoften der virker, - kan selvfølgelig gøres pænere:

Doublebuffered := true sikrer, at teksten ikke flimrer henover skærmen.

unit Unit8;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption :=
'Dette er en lang tekst som løber henover skærmen, - man kan kun se noget
af den ad gangen';
doublebuffered := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Left := label1.Left - 2;
end;

end.

object Form1: TForm1
Left = 192
Top = 114
Width = 696
Height = 480
Caption = 'Form1'
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 64
Top = 128
Width = 352
Height = 136
Caption = 'Label1'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -96
Font.Name = 'Arial Black'
Font.Style = []
ParentFont = False
end
object Timer1: TTimer
Interval = 10
OnTimer = Timer1Timer
Left = 160
Top = 336
end
end


"Jacob Jacobsen" <jac@stepsystem.dk> skrev i en meddelelse
news:41ba25d7$0$275$edfadb0f@dread12.news.tele.dk...
> Er der nogen der kan hjælpe med hvor jeg finder et object til at lave en
> løbetekst med store bogstaver til Delphi 4,0.
>
> Jacob
>
>

---

Tak for det.

Jacob

"Thor" <thor@thor.thor> wrote in message
news:cpkvm9$ogi$1@news.cybercity.dk...
> Hej Jacob
>
> Her er et skud fra hoften der virker, - kan selvfølgelig gøres pænere:
>
> Doublebuffered := true sikrer, at teksten ikke flimrer henover skærmen.
>
> unit Unit8;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
> Dialogs, StdCtrls, ExtCtrls;
>
> type
> TForm1 = class(TForm)
> Label1: TLabel;
> Timer1: TTimer;
> procedure FormCreate(Sender: TObject);
> procedure Timer1Timer(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.dfm}
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> label1.Caption :=
> 'Dette er en lang tekst som løber henover skærmen, - man kan kun se
noget
> af den ad gangen';
> doublebuffered := true;
> end;
>
> procedure TForm1.Timer1Timer(Sender: TObject);
> begin
> label1.Left := label1.Left - 2;
> end;
>
> end.
>
> object Form1: TForm1
> Left = 192
> Top = 114
> Width = 696
> Height = 480
> Caption = 'Form1'
> PixelsPerInch = 96
> TextHeight = 13
> object Label1: TLabel
> Left = 64
> Top = 128
> Width = 352
> Height = 136
> Caption = 'Label1'
> Font.Charset = ANSI_CHARSET
> Font.Color = clWindowText
> Font.Height = -96
> Font.Name = 'Arial Black'
> Font.Style = []
> ParentFont = False
> end
> object Timer1: TTimer
> Interval = 10
> OnTimer = Timer1Timer
> Left = 160
> Top = 336
> end
> end
>
>
> "Jacob Jacobsen" <jac@stepsystem.dk> skrev i en meddelelse
> news:41ba25d7$0$275$edfadb0f@dread12.news.tele.dk...
> > Er der nogen der kan hjælpe med hvor jeg finder et object til at lave en
> > løbetekst med store bogstaver til Delphi 4,0.
> >
> > Jacob
> >
> >
>
>