ScrollingCredits

[Danniolo]

TScrollingCredits - Original Copyright: Raoul Snyman http://www.saturnlaboratories.co.za
ist eine recht praktische
Komponente um einen scrollenden About-Text
(ähnlich wie der Abspann eines Films)zu erstellen.
Die Schriftart jeder Zeile kann außerdem durch BB-Tag
ähnliche Befehle verändert werden.

Des weiteren gibt es noch ein Vorder- und
Hintergrundbild, beide mit ein paar Einstellungs-
möglichkeiten (Strech, Align).

Die komplette grafische Ausgabe is DoubleBuffered
(auch unter älteren Delphi-Versionen, wie D3), und
die CPU-Belastung ist durch eine Performance-schonende
"OnPaint"-Routine immer sehr gering.

[shmia]

Ich würde das Zeichnen des Backgrounds in eine eigene Procedure auslagern und dann aus Paint aufrufen.
Du kannst auch jede Menge redundanten Code eliminieren!

Delphi-Quellcode:

procedure TScrollingCredits.PaintBackground;
begin
...
  if (FBackgroundImage.Graphic <> nil) and (not FBackgroundImage.Graphic.Empty) then
  begin
     // kein Hintergrund
     Canvas.FillRect(Rect(0, 0, Width, Height));
     Exit;  // und fertig    
  end;
  // besser case anstelle von 5 IF abfragen
  case FBackgroundAlign of
    alclient:
       ...


  end;
end;

Das Gleiche gilt auch für den Vordergrund.
Im Code steht:

Delphi-Quellcode:

   if FForegroundAlign = alclient Then
   Begin
      ....
   End;
   if FForegroundAlign = altop Then
   begin
      ...
   end;

Da sind mehrere IF-Abfragen, die sich gegenseitig ausschliesen.
==> CASE FForegroundAlign OF verwenden.

[Dj_Base]

Hi!

Diese Komponmente ist von Raoul Snyman (http://www.saturnlaboratories.co.za)!!! :?
:?: Hast du die Erlaubnis, die hier zu veröffentlichen?

mfg,
Dj_Base

[Danniolo]

Zitat:

Zitat von Dj_Base

Hi!

Diese Komponmente ist von Raoul Snyman (http://www.saturnlaboratories.co.za)!!! :?
:?: Hast du die Erlaubnis, die hier zu veröffentlichen?

mfg,
Dj_Base

Ich hab auch nirgendwo geschrieben, dass das meine Kompo ist, hab nur 1-2 Sachen verändert, Credits hab ich auch gelassen. Was ist denn dagegen einzuwenden, diese Komponente auch anderen zugänglich zu machen?

Zitat:

Zitat von "shmia"
[code=delphi

if (FBackgroundImage.Graphic <> nil) and (not FBackgroundImage.Graphic.Empty) then
begin
// kein Hintergrund
Canvas.FillRect(Rect(0, 0, Width, Height));
Exit; // und fertig
end;
[/code]

--> Dann würde der DoubleBuffered Effect nicht mehr funzen :|

Zitat:

Zitat von "shmia"
[code=delphi

if FForegroundAlign = alclient Then
Begin
....
End;
if FForegroundAlign = altop Then
begin
...
end;
[/code]

huch, stimmt :wall:

[Dj_Base]

Zitat:

Zitat von Danniolo

Ich hab auch nirgendwo geschrieben, dass das meine Kompo ist, hab nur 1-2 Sachen verändert, Credits hab ich auch gelassen. Was ist denn dagegen einzuwenden, diese Komponente auch anderen zugänglich zu machen?

Da hast du natürlich Recht! :)
Ich dachte nur, dass man den eigentlichen Autor ja erwähnen könnte. Nun ja, es steht ja schon in der Unit drin...
Die Komponente anderen zugänglich zu machen, ist ja überhaupt kein Problem...

mfg,
Dj_Base

[Danniolo]

Zitat:

Zitat von Dj_Base

Da hast du natürlich Recht! :)
Ich dachte nur, dass man den eigentlichen Autor ja erwähnen könnte. Nun ja, es steht ja schon in der Unit drin...
Die Komponente anderen zugänglich zu machen, ist ja überhaupt kein Problem...

mfg,
Dj_Base

Ja, hab ich wohl vergessen, und die Erlaubnis von Raoul Snyman sollte auch irgendwann eintreffen, da ich bereits vor ~ einer Woche eine Anfrage geschickt hab :wink:

[Cyberbob]

Wenn ich die Kompo unter D6 benutze funcktioniert alles bestens. Unter D2k5 stürzt mir erst Delphi und dann Windows ab.
Woran kann das liegen?

[turboPASCAL]

Du kannst ja mal diese Versuchen http://www.delphipraxis.net/internal...=485973#485973, sie ist fast gleich. :gruebel: Hatte noch keine Probleme mit dieser unter D6 und D2005.

[LukeGee]

hm, blöde frage, aber wie installiere ich die komponente unter delphi 2005 ? habs versucht wies mal irgendwo beschrieben war aber ging nicht.

[Danniolo]

Suche: Delphi 2005 + Komponenten installieren. :zwinker: