无聊! 实现了kugou动感歌词 原来这么简单

昨天晚上玩玩kugou 感觉无聊! 
用delphi 实现了kugou动感歌词 原来这么简单
我本着 开源的精神  希望大家来一起来吧
var
  H1, H2, H3: HRGN;
  s: string;
  TextRect: TRect;
  i: Integer;
begin
  s := '这只是个测试而已！';
  Canvas.Font.Size := 42;
  Canvas.Font.Style := [fsBold];
  Canvas.Font.Name := '黑体';
  TextRect.Left := 0;
  TextRect.Top := 0;
  TextRect.Right := TextRect.Left + Canvas.TextWidth(s);
  TextRect.Bottom := TextRect.Top + Canvas.TextHeight(s);
  BeginPath(Canvas.Handle);
  Canvas.TextOut(TextRect.Left, TextRect.Top, s);
  EndPath(Canvas.Handle);
  H1 := PathToRegion(Canvas.Handle);
  H2 := CreateRectRgn(TextRect.Left, TextRect.Top, TextRect.Right, TextRect.Bottom);
  H3 := CreateRectRgn(0, 0, 0, 0);
  CombineRgn(H3, H1, H2, RGN_XOR);
  SelectClipRgn(Canvas.Handle, H3);
  Canvas.Brush.Color := clRed;
  Canvas.FillRect(TextRect);
  for i := TextRect.Left to TextRect.Right do
  begin
    //Canvas.Pen.Color := RGB(Round(256 * (i + 1) / TextRect.Right - TextRect.Left + 1), 100, 50);//不用随机颜色
    sleep(10);
    Canvas.Pen.Color := clGreen;
    Canvas.MoveTo(i, TextRect.Top);
    Canvas.LineTo(i, TextRect.Bottom);
  end;
  SelectClipRgn(Canvas.Handle, 0);
  DeleteObject(H2);
  DeleteObject(H3);