TEXTE TREMBLANT, VIBRATION D'UNE CHAÎNE DE CARACTÈRES

unit trambtxt;
interface
uses Windows, SysUtils, Classes, Forms, StdCtrls, ExtCtrls, Graphics, Controls;
type
  TfrTxt = class(TForm)
    Timer1: TTimer;
    TxVw: TImage;
    Label2: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  end;
const TT_SPACE = 5 ;
      Banniere = 'http://altert.family.free.fr/';
var   frTxt    : TfrTxt ;
implementation
{$R *.DFM}
procedure TfrTxt.FormCreate(Sender: TObject);
begin
  Randomize;
  with TxVw.Picture.Bitmap.Create do
    begin
      PixelFormat:=pf4bit;
      Width:=TxVw.Width;
      Height:=TxVw.Height;
      Canvas.Pen.Style:=psClear;
      Canvas.Brush.Color:=clWhite;
      Canvas.Brush.Style:=bsSolid;
      Canvas.Rectangle(-1,-1,TxVw.Width+1,TxVw.Height+1);
      Canvas.Font.Name:='Times New Roman';
      Canvas.Font.Style:=[fsBold];
      Canvas.Font.Size:=28;
    end;
end;
procedure TfrTxt.Timer1Timer(Sender: TObject);
var i, x    : integer;
    PX, PY  : integer;
begin
  TxVw.Picture.Bitmap.Canvas.Brush.Style:=bsSolid;
  TxVw.Picture.Bitmap.Canvas.Rectangle(-1,-1,TxVw.Width+1,TxVw.Height+1);
  x:=0;
  for i:=1 to Length(Banniere) do
    begin
      PX:=random(10)+1+x;
      PY:=random(10)+1;
      TxVw.Picture.Bitmap.Canvas.Brush.Style:=bsClear;
      TxVw.Picture.Bitmap.Canvas.TextOut(PX,PY,Banniere[i]);
      x:=x+TxVw.Picture.Bitmap.Canvas.TextWidth(Banniere[i])+TT_SPACE;
    end;
end;
end.

Télécharger le zip

03 juillet 2005 19:51:48 :

- Epuration du Zip