TransparentColor example for Delphi

This example sets white as a transparent color; then loads a test image and paints it.

Lead1.AutoRepaint := False;

{Enable transparency}
Lead1.UseTransparentColor := True; 

{Make white the transparent color}
Lead1.TransparentColor := RGB(255, 255, 255); 
Lead1.Load ('d:\ ltwin11\images\image1.cmp', 0, 0, 1);
Lead1.ForceRepaint();