Форум: "Начинающим";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Вниз

ListBox   Найти похожие ветки 

← →
Sonic90   (2007-05-12 23:15) [0]

У меня такой вопрос:если текст в строке листбокса весь не помещается,то как сделать чтобы то,что не помещается заменялось допустим на "..."?

---

← →
{RASkov} ©   (2007-05-12 23:51) [1]

> [0] Sonic90   (12.05.07 23:15)

DrawText и DT_END_ELLIPSIS
на OnDrawItem

---

← →
Sonic90   (2007-05-13 00:35) [2]

> {RASkov} ©   (12.05.07 23:51) [1]
> DrawText и DT_END_ELLIPSIS
> на OnDrawItem

Спасибо.

---

← →
Германн ©   (2007-05-13 02:44) [3]

Когда-то не помню уже когда, но давно сам "сконстропупил " такую вот функцию:
function MinText(const Text: string; Canvas: TCanvas; MaxWidth: Integer): string;
var
 I: Integer;
begin
 Result := Text;
 I := 1;
 while (I <= Length(Text)) and (Canvas.TextWidth(Result) > MaxWidth) do begin
   Inc(I);
   Result := Copy(Text, 1, Max(0, Length(Text) - I)) + "...";
 end;
end;

И вызывал её в DBGrid1DrawColumnCell следущим образом:
St:=Column.Field.Text;
St:=MinText(St,DBGrid1.Canvas,Rect.Right-Rect.Left);

:)

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.039 c