H
HeartFly
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TFrmScroll.Timer1Timer(Sender: TObject);
begin
Image1.canvas.TextOut(X, 0, ScrTxt);
x:= x+10;
//清画布后，上边的文字就不能输出了
Image1.Canvas.Brush.Color:=clwhite;
Image1.Canvas.FillRect(Canvas.ClipRect);
end;
begin
Image1.canvas.TextOut(X, 0, ScrTxt);
x:= x+10;
//清画布后，上边的文字就不能输出了
Image1.Canvas.Brush.Color:=clwhite;
Image1.Canvas.FillRect(Canvas.ClipRect);
end;