How to fit filename into Rect? 1

[TimSNL]

Hello.

I am writing a fileneme to canvas using TextRect.
Does anyone have the function to cut down the filename to fit into the Rect, adding dots in the midddle as needed?

Thanks for you help.
Tim

 

[towerbase]

The MinimizeName function should do what you want. It is in the FileCtrl unit.

Example:

uses FileCtrl;
...
...
var
  fileName: string;
  miniName: string;
begin
  fileName := 'c:\data\movies\catalog.db';
  miniName := MinimizeName ( fileName, Form1.Canvas, 40 );
  ...
end;

Andrew
Hampshire, UK