![]() |
TACredits, scrolling Unicode & Smart-Tag capable Credits
Liste der Anhänge anzeigen (Anzahl: 3)
Moin DP,
Wow, ein denkwürdiger Moment! :) Denn dies ist nicht nur meine erste Veröffentlichung sondern auch meine erste visuelle Komponente überhaupt! ![]() 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
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:
Smooth-Lines?
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 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 ( ![]() ![]() 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
Versionen
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 :wink: ) Max |
Re: TACredits, scrolling Unicode & Smart-Tag capable Cre
Ich kann die nicht kompilieren.
Code:
Ich nutze Delphi 2005. Der Screenshot sieht aber schonmal gut aus.
[Fehler] credits.pas(195): E2147 Eigenschaft 'OnMouseEnter' existiert nicht in Basisklasse
[Fehler] credits.pas(196): E2147 Eigenschaft 'OnMouseLeave' existiert nicht in Basisklasse [Fehler] credits.pas(1349): E2130 Lesen einer Nur-Schreiben-Eigenschaft nicht möglich [Fehler] credits.pas(1388): E2130 Lesen einer Nur-Schreiben-Eigenschaft nicht möglich [Fehler] credits.pas(1390): E2130 Lesen einer Nur-Schreiben-Eigenschaft nicht möglich [Fehler] credits.pas(1409): E2130 Lesen einer Nur-Schreiben-Eigenschaft nicht möglich [Fehler] credits.pas(1411): E2130 Lesen einer Nur-Schreiben-Eigenschaft nicht möglich [Fataler Fehler] TACredits.dpk(32): F2063 Verwendete Unit 'credits.pas' kann nicht compiliert werden |
Re: TACredits, scrolling Unicode & Smart-Tag capable Cre
Moin,
Holla, das hatte ich nicht bedacht. Nun sollte es funktionieren! Grüße, Max |
Re: TACredits, scrolling Unicode & Smart-Tag capable Cre
Jetzt lässt es sich kompilieren, aber:
|
Re: TACredits, scrolling Unicode & Smart-Tag capable Cre
Hallo!!
Also bei mir (D2007 Pro) lässt sich die Unit einwandfrei compilieren, der Text editieren und das Scrollen sieht klasse aus!! Hast Du super gemacht! SCRaT |
Re: TACredits, scrolling Unicode & Smart-Tag capable Cre
Moin!
Zitat:
Dem ersten Problem widme ich mich morgen genauer, danke für den Hinweis! Zitat:
Scheinbar funktioniert ab Delphi 10 und aufwärts alles ohne Probleme. Bitte weitertesten ;) Gruß, Max |
Re: TACredits, scrolling Unicode & Smart-Tag capable Cre
Zitat:
Ich bekomme sowieso morgen/übermorgen einen neuen Rechner, da werde ich Delphi neudraufmachen und dann mal testen. Achja: Wenn ich zur Designtime active auf true stelle gehts. Da sieht es schon Klasse aus! :thumb: |
Re: TACredits, scrolling Unicode & Smart-Tag capable Cre
Wäre es möglich eine kleine Demo online zu stellen?
|
Re: TACredits, scrolling Unicode & Smart-Tag capable Cre
Moin,
(Bin dabei. Demo gibt's in kürze!) Edit: Die Demo ist nun verfügbar. Grüße, Max |
Re: TACredits, scrolling Unicode & Smart-Tag capable Cre
Hab mir grad eben die Demo angeguggt und muß sagen, gefällt mir sehr gut. Einzig das Scrolling ist bei Werten ab 40 (Intervall) etwas ruckelig.
Zur Demo: Du solltest die Eingabe von als Wert unterbinden..sonst wirds unschön. :) |
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:20 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz