ListBox - jak obciąć za długi tekst.

[Cyfrowy Baron]

Zdarza się, że tekst wprowadzony w linii obiektu typu TListBox jest za długi i wychodzi poza obszar roboczy obiektu. Niektóre komponenty np. z paczki LMD potrafią wyświetlić taki tekst obcięty. gdzie nadmiar tekstu jest wyświetlany w postaci trzech kropek. Chciałbym to samo zdobić z obiektem typu TListBox.

Mam w zdarzeniu OnDrawItem kod, który steruje wyświetlaniem tekstu, ale nie wiem bardzo jak zrobić jego skracanie:

Kod: Zaznacz cały


void __fastcall TBabelForm::ListBox1(TWinControl *Control, int Index,
          TRect &Rect, TOwnerDrawState State)
{
 if(State.Contains(odSelected))
 {
  dynamic_cast<TListBox *>(Control)->Canvas->Brush->Color = (TColor)0x002FA3FF;
  dynamic_cast<TListBox *>(Control)->Canvas->Font->Color = clMaroon;
 }

 dynamic_cast<TListBox *>(Control)->Canvas->FillRect(Rect);

 dynamic_cast<TListBox *>(Control)->Canvas->TextRect(Rect, Rect.Left + 3,
                                                    Rect.Top + 1,
                    dynamic_cast<TListBox *>(Control)->Items->Strings[Index]);
}
 

Mógłbym pobierać rozmiar tekstu za pomocą funkcji TexWidth, potem porównywać z długością obiektu ListBox, następnie obcinałbym nadmiar i wstawiał kropki. Ta metoda jednak jest niedoskonała, być może zetknąłeś się z prostszą metodą.

[polymorphism]

A nie możesz po prostu namalować te kropki na końcu obszaru (z tłem oczywiście)?

[Cyfrowy Baron]

Nie o to chodzi.

Masz np. listę

tekst tekst tekst za długi tekst tekst tekst

"za długi tekst" wychodzi na przykład poza obszar roboczy obiektu i widać tylko np. "za długi te" więc żeby to poprawić chcę skrócić ten tekst tak by wyświetlało "za długi...". Przerysowując tekst w zdarzeniu OnDrawItem nie wpływam na zawartość listy TStrings obiektu a jedynie na to co jest wyświetlane, więc zawartość listy pozostaje niezmienna.

Musze poczytać o funkcji DrawText gdyż z tego co pamiętam oferuje ona większe możliwości obsługi tekstu.

[polymorphism]

Nie o to chodzi.

No właśnie o to, doskonale rozumiem o co Ci chodzi. To co podałem jest jedną z metod realizacji tego, co chcesz zrobić. Wspomniałeś o funkcji DrawText, właśnie przypomniało mi się, że oferuję ona taką funkcję skracania tekstu - flaga DT_END_ELLIPSIS bodajże.

[Cyfrowy Baron]

Tak. Co do tej flagi to masz rację. Problem już rozwiązałem właśnie funkcją DrawText:

Kod: Zaznacz cały


void __fastcall TBabelForm::ListBox1DrawItem(TWinControl *Control, int Index,
          TRect &Rect, TOwnerDrawState State)
{
 if(State.Contains(odSelected))
 {
  dynamic_cast<TListBox *>(Control)->Canvas->Brush->Color = (TColor)0x002FA3FF;
  dynamic_cast<TListBox *>(Control)->Canvas->Font->Color = clMaroon;
 }

 dynamic_cast<TListBox *>(Control)->Canvas->FillRect(Rect);

 String lText = dynamic_cast<TListBox *>(Control)->Items->Strings[Index];

 TRect dRect = Rect;
 dRect.Left  = Rect.Left  + 3;
 dRect.Right = Rect.Right - 3;

 DrawText( dynamic_cast<TListBox *>(Control)->Canvas->Handle,
           lText.t_str(),
           -1,
           &dRect,
           DT_LEFT | DT_VCENTER | DT_END_ELLIPSIS);
}