請問如何實現LED 看板的動畫效果 |
尚未結案
|
ychx
一般會員 發表:40 回覆:14 積分:10 註冊:2003-08-03 發送簡訊給我 |
|
jow
尊榮會員 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
以下是最陽春的一種模式
用兩個 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: 我能做什麼? |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |