TACredits, scrolling Unicode & Smart-Tag capable Credits

[Prototypjack]

Moin DP,

Wow, ein denkwürdiger Moment! Denn dies ist nicht nur meine erste Veröffentlichung sondern auch meine erste visuelle Komponente überhaupt!

http://www.aviant.net/projects/tacredits/logo.jpg
TACredits
Copyright (c) 2007-2008 by Maximilian Sachs

Ok, los geht's mit der Beschreibung:

Was ist das?
Diese Komponente kann einen (Unicode) Text anzeigen und diese gegebenenfalls von Oben nach Unten oder umgekehrt fließen lassen. Dabei gibt es einige Schmankerl, wie zum Beispiel die BB-Tags, SmoothLines und das Dragging. Einzelnes dazu folgt weiter unten.
Die Komponente ist eigentlich aus der Laune entstanden so etwas wie die Credits in Filmen (am Ende) auch im eigenen Programm zu haben. Auf diese Idee ist doch bestimmt schon wer gekommen? Ja, in der Tat, doch ich wollte mehr, freie Formatierungen, schöne Enden (Smoothlines) und einige andere Funktionen.

Features

• Animation möglich (Freie Wahl der Richtung möglich (Direction).
• Unicode-Fähig
• Unterstützung von "Smart-Tags", näheres dazu im folgenden Abschnitt ("Smart-Tags?")
• Hintergrundfarbe wählbar
• Hintergrundbild einstellbar (Hintergrundfarbe wird hierbei ignoriert)
• Rahmen anzeigbar und Farbe anpassbar
• Animation kann, wenn sich die Maus über dem Credits-Feld befindet, angehalten werden (StopAnimationOnMouseOver)
• "Dragging", aktivierbar. Text kann manuell verschoben werden (EnableDragging)
• TextOffset setzbar, wie weit soll der Text vom Rand entfernt sein? (TextOffset)
• TextAligment setzbar. Zentriert, Rechts oder Links. (TextAlign)
• Aktivierbare "SmoothLines", näheres weiter unter im Abschnitt "Smooth-Lines?"

Smart-Tags?

Beschreibung
Smart-Tags sind in etwa mit den verbreiteten BB-Code Tags vergleichbar. Diese finden vor allem ihren Weg in diverse Foren, wie auch in dieses hier. Die Tags sind allgemein Case-Insensitive. Es macht also keinen Unterschied, ob man "[anchor]", oder "[AnChor]" schreibt!

Welche Tags werden unterstützt?

Code:

Bold-Tags
Bold-Tag Syntax:
[b]TEXT[/b]
Funktion: Text wird fett dargestellt.

StrikeOut-Tags
StrikeOut-Tag Syntax:
[s]TEXT[/s]
Funktion: Text wird durchgestrichen dargestellt.

Italic-Tags
Italic-Tag Syntax:
[i]TEXT[/i]
Funktion: Text wird kursiv dargestellt.

Underline-Tags
Underline-Tag Syntax:
[u]TEXT[/u]
Funktion: Text wird unterstrichen dargestellt.

Color-Tags
Color-Tag Syntax:
[color="clRed"]TEXT[/color]
[color="$000000FF"]TEXT[/color]
[color="#FF0000"]TEXT[/color]
Funktion: Text wird in der angegebenen Farbe dargestellt.

Font-Tags
Font-Tag Syntax:
[font="Verdana"]TEXT[/font]
Funktion: Text wird in der angegebenen Schriftart dargestellt.

Size-Tags
Size-Tag Syntax:
[size="8"]TEXT[/size]
Funktion: Text wird in der angegebenen Größe dargestellt.

Url-Tags
Url-Tag Syntax:
[url="http://www.google.com"]TEXT[/url]
Funktion: Text wird anklickbar als Link dargestellt. Die Genaue Erscheinung kann im Parameter "LinkFont" verändert werden.

Anchor-Tags
Anchor-Tag Syntax:
[anchor="test"]TEXT[/anchor]
Funktion: Wenn ein Anchor angeklickt wird, wird ein Event (OnAnchorClicked) aufgrufen, zusammen mit dem, in einem WideString/String verstautem, Argument. Wie bei dem Url Tag kann auch hier die genaue Erscheinung mit dem Parameter "AnchorFont" angepasst werden.

Row-Tags
Row-Tag Syntax
[row="50"]
Funktion: Ein horizontaler Strich mit der angegebenen Länge (in Pixeln) wird erzeugt.

Image-Tags
Image-Tag Syntax
[img="0"]
Funktion: Ein Bild aus der angegebenen Imagelist (mit dem angegebenen Index) wird dargestellt.

Offset-Tags
Offset-Tag Syntax
[Offset="12"]
Funktion: Der nachfolgende Text wird, ungeachtet der Textausrichtung, N-Pixel entfernt vom rechten Rand dargestellt.

Smooth-Lines?
Smooth-Lines sind einfach nur "weiche"-Enden. Sie können entweder Oben oder Unten oder auf beiden Siten angezeigt werden. Natürlich kann auch hier die Länge näher spezifiziert werden (SmoothBottom und SmoothTop). Sie erzeugen ihrer Länge nach einen weichen Abgang des Textes in das Hintergrundbild oder in die Hintergrundfarbe.

Lizenz - oder das "Kleingedruckte"
Die ganze Komponente steht unter der Mozilla Public License, Version 1.1. Näheres dazu erfährt man entweder direkt durch die Lizenz (hier), oder durch eine unverbindliche Erklärung durch DSDT.info, am Beispiel der JEDIs (hier).
Ich persönlich finde die Lizenz nicht zu aufdringlich und sehr angenehm für beide Seiten.

Allgemeines, Part 2
Erstellt und getestet wurde die Komponente mit dem BDS 2006 Prof. Ab Version 1.1 RC1 ist sie ebenfalls auf Delphi 7 und BDS 2005 getestet und für lauffähig befunden! Es sind mir momentan keine Fehler bekannt. Solltet Ihr welche finden, so teilt mir diese bitte mit (ich freue mich auch über Lösungsvorschläge oder vielleicht fertige Ansätze!).
Sollte die Komponente den Weg in eure Programme finden, so freue ich mich natürlich immer über eine Mail oder eine PM.

Roadmap

• Version X
• Listen-Tags
• Tabulator Unterstützung
• [Sleep] Tag (Anhalten, entweder wenn Bottom, Center oder Top zu trifft)

Versionen

• Ab heute (25.01.2009) ist auch eine Doppellizenz inkludiert. Es kann entweder die MPL, oder die LGPL genutzt werden.
• Version 1.2 RC1, released on 2008-04-27
  [Added]PNG-Support and Foreground Images (by Sko)
• Version 1.1 RC2, released on 2008-03-30
  [Fixed]Memory Leaks
• Version 1.1 RC1, released on 2007-08-11
  [Fixed]Cursor-Bug (Thx to DGL-Luke!)
  [Added]Complete documentation
  [Fixed]Values are now "<0"-safe.
  [Added]Compatibility to Delphi7 and BDS 2005.
  [Fixed][color]-tag ignored Hex-Values.
  [Fixed]Several scrolling-issues.
  [Added]MinHeight/MinWidth
  [Added][Row]-Tag, [Img]-Tag, [Offset]-Tag
  [Added]Unicode can be disabled via compiler-switch.
• Version 1.1 Alpha 2, released on 2007-07-20
  [Fixed] Smooth-Line Bug
  [Added] PopUp-Menu, Anchors, Alignment, ParentShowHint
  [Changed] CreditsFont -> Font, BackgroundColor -> Color
• Version 1, released on 2007-07-13
  First Release

Vorsicht: Bei älteren Versionen kann es vorkommen, dass Eigenschaften verändert und/oder entfernt wurden. Deshalb sollte der Inhalt der Komponente temporär gespeichert werden (in einer Text-Datei z.B.), dann die alte Version deinstalliert und erst dann die neue installiert werden. So können etwaige Probleme und Datenverlust vermieden werden! (Daran bin nicht ich Schuld, das ist immer so, wenn man Properties verändert)

Abschließen will ich noch mit einem kleinen Screenshot, der aus einem meiner anderen Projekte stammt und bereits diese Komponente verwendet. Dieser Screenshot zeigt recht gut was damit möglich ist und in wie fern man sie verwenden könnte.

Grüße und bitte Feedback (es ist ja schließlich mein erster Versuch )
Max

[xZise]

Hallo ihr,

wenn ich sie unter Delphi 2009 installieren will (bzw. erstmal kompilieren), kommt bei mir der Fehler, dass die Unit PNG_D9 nicht existiere:

Zitat:

[DCC Fataler Fehler] Aviant_Credits.dpk(33): E2202 Package 'PNG_D9' wird benötigt, konnte aber nicht gefunden werden

Als ich dann da den PNG Support deaktiviert habe, obwohl ich eigentlich nativ ja PNG unterstütze kam der nächste in Credits.pas:

Zitat:

[DCC Fehler] credits.pas(61): E2029 Bezeichner erwartet, aber ';' gefunden

Nun liegt das dabei daran, dass das Komma vor PNGImage nicht in der Direktive enthalten ist. Und dann stellt sich mir die Frage, da ich PNGImage sehrwohl verwenden kann, warum du nicht das auch in Package verwendest? Naja weil es kein Package ist. Aber kann ich denn im Package sagen, kein PNG Support, während ich in der Unit PNG supporte?

MfG
xZise

[toms]

Hallo

Die Komponente funktioniert auch unter D6, wenn PosEx() deklariert wird:

Delphi-Quellcode:

{$IFNDEF DELPHI_7_UP}
function PosEx(Substr, s : string; Offset : Integer = 0) : Integer;
begin 
  Delete(s, 1, Offset);
  Result := Pos(Substr, s) + Offset; 
end;
{$ENDIF}

Damit sie unter D5 funktioniert, muss zusätzlich TryStrToInt deklariert werden:

Delphi-Quellcode:

{$IFNDEF DELPHI_6_UP}
function TryStrToInt(const S: string; out Value: Integer): Boolean;
var
  E: Integer;
begin
  Val(S, Value, E);
  Result := E = 0;
end;
{$ENDIF}

Zudem braucht es für D5 eine angepasste dpk Datei (siehe Anhang)

[Prototypjack]

Moin,

Danke sehr, Toms, ich werde das gerne einarbeiten, natürlich unter Angabe von deinem Namen!
Tut mir Leid, dass sich momentan in diesem Bereich nichts tut, aber mir fehlt einfach die Zeit. Ich komme voraussichtlich erst Mitte Juli wieder richtig zum programmieren, aber sobald es soweit ist, wird sich auch bei TACredits wieder was tun!

Grüße,
Max

[xZise]

Hallo ihr,

ich habe ein Problem, wenn das Hintergrundbild Transparenzen "benötigt". Aufgrund der nicht PNG Abwärtskompatibilität habe ich ein Bitmap, welches in den Ecken abgerundet sind. Wie kriege ich da jetzt das Lila aus?

[edit]Also wenn ich das Bitmap des Hintergrundes auf transparent setzte geht es, bis darauf, dass es immer schwärzer wird (Außer drei Pixel rechts und 1 bis 2 Pixel links) [/edit]

MfG
xZise

[xZise]

Hallo,

auch wenn du nicht daran arbeitest habe ich mich an ein align-Tag versucht. Und naja left funktioniert schonmal (o.O)... Aber habe es jetzt auch nicht sehr ausführlich getestet.

Außerdem habe ich eine Option eingebaut, um einen Farbverlauf zu implementieren:

Delphi-Quellcode:

    property GradientStart : Extended read FGradientStart write FGradientStart;
    property GradientEnd : Extended read FGradientEnd write FGradientEnd;
    property UseGradientFont : Boolean read FUseGradientFont write FUseGradientFont default false;
    property GradientStartColor : TColor read FGradientStartColor write FGradientStartColor;
    property GradientEndColor : TColor read FGradientEndColor write FGradientEndColor;

Das verdreifacht zur Zeit leider die benötigten Ressourcen, aber ich hoffe das lässt sich optimieren

Außerdem gibt es eine Option, einen Rand auszublenden, also dass der text erst nach ein paar Pixel oben oder unten anfängt (SmoothOffset{Bottom/Top}).

Also zur Zeit frisst er bei 465x514 Pixeln 1.44 GHz (also 16% bei 4x2.4 GHz).

MfG
xZise

[cocce]

Hi all, is there a new version of this component?

Thanks