1
vote
Vote UpVote

Touch Demo Part III

Chris Bensen – Previously I posted Part IPart II of the Touch Demo.This time around we will add the glowing spots and the basic handling of the WM_TOUCH message. Add Generics.Collections to your uses and copy the following code to your unit:type TGlowSpot = class public X, Y, Radius: Integer; Alpha: Extended; FadeIn: Boolean; Color: TColor; public constructor Create(AParent: TWinControl); procedure Paint(Canvas: TDirect2DCanvas); end; TGlowSpotList = class(TList);...implementation{$R *.dfm}procedure PaintGlow(Canvas: TDirect2DCanvas; Alpha: Single; X, Y, Radius: Integer; Color: ...
Favorite? Off-Topic? noreply@blogger.com @ 2009-10-07 18:00

Statistics

Visits: 331
Votes: 1
Favorites: 0
Off-Topic: 0

Visits by Source

User Actions

Users who voted for this posting

Charles Ardour
Subscribe:
Contact us to advertise on DelphiFeeds.com

Community Links

Torry Firebird News

Sponsor

 
Please login or register to use this functionality.
(click on this box to dismiss)