unit FreeVision.Gadgets; {$DEFINE FPC_DOTTEDUNITS} {$i gadgets.pas}