Einzelnen Beitrag anzeigen

Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#45

Re: TACredits, scrolling Unicode & Smart-Tag capable Cre

  Alt 31. Mai 2009, 16:01
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
Angehängte Dateien
Dateityp: pas credits_113.pas (92,2 KB, 16x aufgerufen)
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat