Merlin’s Delphi Forge

Animated cursors have become very popular in the days of Windows 3.x. Now they have become a part of Windows 95 and newer. Sometimes you might want to use your own animated cursors instead of the user’s. The idea is same as with “normal” cursors.
Here’s the code:

const
btCursorID1 = 1;
begin
(* sCursorFile - [...]

Sometimes you want to print an image in Delphi but the TImage component doesn’t have any printing methods. Well, the solution is quite easy. All you have to do is draw on the printers Canvas. This sample code should give you the idea.
The first procedure will print only Bitmap images and will scale the image [...]