Получение параметра MaxLen для использования с MinimizeName

Question

Я пытаюсь поместить очень длинное имя файла в TLabel, используя функцию MinimizeName из модуля Vcl.FileCtrl, но я не могу понять, как получить параметр MaxLen, используемый функцией Если я жестко задаю значение, я могу увидеть действительный результат. Но так как форма может быть изменена, я бы хотел, чтобы она была динамической = изменение события изменения размера.

Некоторые из вещей, которые я попробовал это lblLicenseFile.Width // строка слишком длинная lblLicenseFile.Width - 10 // строка слишком длинная Trunc (lblLicenseFile.Width/lblLicenseFile.Font.Size) // строка очень короткий

Там должен быть какой-то способ вычисления этого количества пикселей

MinimizeName (Const Имя файла: TFileName; Canvas: TCanvas; MaxLen: целое число): TFileName; MaxLen - это длина, в пикселях, доступная для рисования имени файла на холсте.

Answer 1

Для того, чтобы управление этикетки автоматически сократить путь, вы можете установить AutoSize свойство Ложные и EllipsisPosition свойство epPathEllipsis, если вы используете последнюю версию Delphi.

Answer 2

Чтобы избавиться от зависимостей изменения размера формы, изменение размера может также произойти, если вы используете, например, splitters, вы можете переопределить событие CanResize, чтобы адаптировать заголовок.

как пример:

unit Unit3; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls; 

type 
    TLabel = Class(StdCtrls.TLabel) 
    private 
    FFullCaption: String; 
    procedure SetFullname(const Value: String); 
    published 
    function CanResize(var NewWidth, NewHeight: Integer): Boolean; override; 
    property FullCaption: String read FFullCaption Write SetFullname; 
    End; 

    TForm3 = class(TForm) 
    FileNameLabel: TLabel; 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
    private 
    { Private-Deklarationen } 
    public 
    { Public-Deklarationen } 
    end; 

var 
    Form3: TForm3; 

implementation 

uses FileCtrl; 
{$R *.dfm} 

procedure TForm3.Button1Click(Sender: TObject); 
begin 
    FileNameLabel.FullCaption := 'C:\ADirectory\ASubDirectory\ASubSubDirectory\AFileN.ame' 
end; 

{ TLabel } 

function TLabel.CanResize(var NewWidth, NewHeight: Integer): Boolean; 
begin 
    inherited; 
    if Assigned(Parent) then 
    Caption := MinimizeName(FFullCaption, Canvas, NewWidth) 
end; 

procedure TLabel.SetFullname(const Value: String); 
begin 
    FFullCaption := Value; 
    Caption := MinimizeName(FFullCaption, Canvas, Width) 
end; 

end.