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


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

Visits by Source

User Actions

Users who voted for this posting

Charles Ardour
Contact us to advertise on DelphiFeeds.com

Community Links

Torry Firebird News


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