[Ama]

Добрый вечер всем!!! Есть ли у кого нидь компонент TLabel, который при сокращении текста, не тупо обрезает, а ставит троеточие, например : 'эвамиваияваивяияваиакку', а обрезанный : 'эвамиваиява...' ? Ну чтоб сокращение (троеточие) мог ставить либо в начале, либо в середине, либо в конце

[Admin]

Сообщение от Ama

Добрый вечер всем!!! Есть ли у кого нидь компонент TLabel, который при сокращении текста, не тупо обрезает, а ставит троеточие, например : 'эвамиваияваивяияваиакку', а обрезанный : 'эвамиваиява...' ? Ну чтоб сокращение (троеточие) мог ставить либо в начале, либо в середине, либо в конце

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

function TForm3.end_points(lbl: TLabel): string; var  s: string;  i: integer; begin  s:=lbl.Hint;  //  if lbl.Canvas.TextWidth(s)<=lbl.Width  then   begin    result:=s;    lbl.ShowHint:=false;    Exit;   end;  //  lbl.Caption:='';  //  for i:=1 to Length(s) do   begin    lbl.Caption:=lbl.Caption+s[i];    if (lbl.Canvas.TextWidth(lbl.Caption)+16>=lbl.Width)    then     begin      result:=lbl.Caption+'...';      lbl.ShowHint:=true;          Break;     end;   end; end;

[Ama]

Спс за помощь. Вобщем я понял так что надо создать свой компонент чтобы решить проблему раз и на всегда

[AlexSku]

Можно воспользоваться API, если многоточие в конце:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Button1Click(Sender: TObject); var   S: String;   R: TRect; begin   S:= 'эвамиваияваивяияваиакку';   R:= Label1.ClientRect;   DrawText(Label1.Canvas.Handle,     PAnsiChar(S),     Length(S),     R,     DT_END_ELLIPSIS);  end;

Есть ещё флаг DT_PATH_ELLIPSIS, он ставит многоточие в середине, при этом строка это путь, т.е. содержит символы '\'

[Ama]

Вот спасибо. Я попробую.