Class TMyForm (unit Unit1)

Inherits from

TForm

This little example shows how to create the illusion of your program painting directly on the desktop! If you have any ideas for improvements, please send the new version to me - you will ofcourse be credited. Particularly I'm looking for methods to make the drawing faster, although it's not HORRIBLY slow now. // Note that: the illusion is lost if something changes underneath your form - this means that this effects is probably only useful for splash screens etc. If you can figure out how to make the image repaint when something changes underneath it, please write! Also note that I'm assuming the client area of the form is exactly the same size as the map and mask images. // You can e-mail me at mus303@yahoo.com

Constructors



Functions

procedure CloseButtonClick(Sender: TObject);

as the form is created, make sure it doesn't paint its client area .

procedure CopyButtonClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


Properties

Events

Variables

CloseButton : TButton;


CopyButton : TButton;


LogoMap : TImage;


LogoMask : TImage;


MyImage : TImage;



Constructors


Functions


procedure CloseButtonClick(Sender: TObject);

as the form is created, make sure it doesn't paint its client area ...


procedure CopyButtonClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


Properties


Events


Variables


CloseButton : TButton;


CopyButton : TButton;


LogoMap : TImage;


LogoMask : TImage;


MyImage : TImage;