Бегущая строка(фон)

[blackstersl]

Привет всем. Как на канве бегущей строки сделать чтоб небыло заднего плана, атолько буквы. Спасибо.

procedure TForm1.PaintBoxPaint(Sender: TObject);
begin
paintbox.Canvas.Brush.Color := clblack;
paintbox.Canvas.Font.Color := clwhite;

paintbox.Canvas.Font.Name := label1.Font.Name;
paintbox.Canvas.TextOut(-1*paintbox.tag,0,s);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
s:string;
begin
paintbox.tag:=paintbox.tag+1;
if paintbox.tag =paintbox.canvas.textwidth(s) then
paintbox.tag := -1*paintbox.width;
paintbox.Canvas.TextOut(-1*paintbox.tag,0,s);
s:=label1.Caption;
end;

[Altera]

paintbox.canvas.Brush.Style := bsClear;

[Пепел Феникса]

мне кажется что нужно использовать св-ва TransparentColor и TransparentColorValue у родителя пейнтбокса...

Altera, опоздал
да и вы более лучшее предложили

[Stilet]

попробуй стиль установи "чистый"
paintbox.Canvas.Brush.Style:=bsClea r;

Altera

Шустрый малый

[DeKot]

Посмотри http://www.programmersforum.ru/showthread.php?t=53873
Да и внизу страницы есть ссылки на аналогичные темы.

[blackstersl]

ну если поставить стиль "чистый", то буквы невидно, они расплываются.

[Altera]

Сообщение от blackstersl

ну если поставить стиль "чистый", то буквы невидно, они расплываются.

Ну а как ты хотел? На пестром не будет нормально видно.

[Stilet]

Странно... Я вот так попробовал, ничего не расплывается:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var x,y:integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Brush.Style:=bsClear;
Canvas.TextOut(x,y,'ÝÒÎ ÒÅÊÑÒ');
if x>Width then begin
 x:=0;y:=y+10;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 x:=x+10; repaint;
end;

end.

[DeKot]

Во вложении программка реализующая бегущую строку на канве формы с фоном.

Изменяя приращения координат вывода текста, можно придать любое направление движения.

[blackstersl]

Stilet работает нормально, но мегает иногда.