Digilabel Komponente mit coolem Effekt

[padavan]

Hallo Corpsman,

viele Dank für die Hinweise (scanline, -9). Werde ich berücksichtigen.
Das war zwar nicht meine eigentliche Frage, aber definitiv interessant......!




Das mit dem Test sollte so schon gehen, das war die Sache mit dem nochmal frisch zeichnen.
So hatte ich das immer zu Testen realisiert:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ComboBox_Fontcolor: TComboBox;
    TrackBar_Offset: TTrackBar;
    Button1: TButton;
    procedure Edit1Change(Sender: TObject);
    procedure ComboBox_FontcolorChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure TrackBar_OffsetChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Digilabel: TDigilabel;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Dynamisch erzeugen damit schneller getestet werden kann
  Digilabel := TDigilabel.Create(self);
  Digilabel.Parent := self;
  Digilabel.Name := 'Digilabel';
  Digilabel.Left := 30;
  Digilabel.Top := 20;

  Digilabel.width := 500;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  Digilabel.caption := Edit1.Text;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Digilabel.caption := Edit1.Text;
end;



end.

noch besser, das ganze Testprojekt im Anhang..