請問如何實現LED 看板的動畫效果

發文回覆瀏覽次數：1027

推到 Plurk!

推到 Facebook!

請問如何實現LED 看板的動畫效果

尚未結案

ychx
一般會員

發表：40
回覆：14
積分：10
註冊：2003-08-03

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-12-29 11:05:23

IP:218.0.xxx.xxx 未訂閱

哪位高手能不能做這種效果,或高手能不能做出這種VCL

不止這麽簡單,還有完後還要演示出這種效果,這就叫難度啊!

jow
尊榮會員

發表：66
回覆：751
積分：1253
註冊：2002-03-13

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-12-29 18:43:32

IP:203.67.xxx.xxx 未訂閱

你可以在你的程式碼中自行產製這些做為動畫用途的圖片,再找到可以幫你做Animation的元件,這樣應該就可以了;如果你要問的是如何去開發這類元件,我想編寫元件的考量很多,要達到的效果端看個人的需求與程式的技巧吧.

hagar
版主

發表：143
回覆：4056
積分：4445
註冊：2002-04-14

發送簡訊給我

#3 引用回覆回覆

發表時間：2004-12-30 08:01:18

IP:202.39.xxx.xxx 未訂閱

以下是最陽春的一種模式用兩個 TImage, 一個當 Source(Image10, 一個當 Dest(Image2) 先把 Source 畫好, 再把效果畫在 Dest 上

var
  i: integer;
  TxtWidth: integer;
  xPos: integer;
begin
  Image2.Canvas.Brush.Color := clBlack;
  Image2.Canvas.FillRect(Image2.ClientRect);      Image1.Canvas.Brush.Color := clBlack;
  Image1.Canvas.FillRect(Image1.ClientRect);
  Image1.Canvas.Font.Name := 'Arial Black';
  Image1.Canvas.Font.Size := 15;
  xPos := 0;
  Image1.Canvas.Font.Color := clRed;
  Image1.Canvas.Textout(xPos, 0, 'D');
  TxtWidth := Image1.Canvas.TextWidth('D');
  xPos := xPos   TxtWidth;
  Image1.Canvas.Font.Color := clYellow;
  Image1.Canvas.Textout(xPos, 0, 'E');
  TxtWidth := Image1.Canvas.TextWidth('E');
  xPos := xPos   TxtWidth;
  Image1.Canvas.Font.Color := clLime;
  Image1.Canvas.Textout(xPos, 0, 'L');
  TxtWidth := Image1.Canvas.TextWidth('L');
  xPos := xPos   TxtWidth;
  Image1.Canvas.Font.Color := clAqua;
  Image1.Canvas.Textout(xPos, 0, 'P');
  TxtWidth := Image1.Canvas.TextWidth('P');
  xPos := xPos   TxtWidth;
  Image1.Canvas.Font.Color := clPurple;
  Image1.Canvas.Textout(xPos, 0, 'H');
  TxtWidth := Image1.Canvas.TextWidth('H');
  xPos := xPos   TxtWidth;
  Image1.Canvas.Font.Color := clWhite;
  Image1.Canvas.Textout(xPos, 0, 'I');      for i := 0 to Image1.Width do
  begin
    BitBlt(Image2.Canvas.Handle, Image1.Width - i, 0, i, Image1.Height,
           Image1.Canvas.Handle, 0, 0, SRCCOPY);
    Image2.Refresh;
    Sleep(30);
  end;
end;

-- QBQ: 我能做什麼？

系統時間：2024-07-01 8:44:27

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！