Source position: filectrl.pp line 137
function MiniMizeName(
FileName: String;
Canvas: TCanvas;
MaxWidth: Integer
):String;