Source position: filectrl.pp line 229
function MinimizeName(
FileName: string;
Canvas: TCanvas;
MaxWidth: Integer
):string;