Pasek wyboru w ListBox

P4
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 23
0

Czy jest możliwość zmiany wysokości paska podświetlającego w ListBox? Mam Tam ustawione zdarzenie OnDrawItem które rysuje tekst i po zmianie wielkości czcionki pasek przycina tekst.

KA
  • Rejestracja: dni
  • Ostatnio: dni
  • Lokalizacja: Gorlice
0
Kopiuj
procedure TForm1.ListBox1MeasureItem(Control: TWinControl; Index: Integer;
  var : Integer);
begin
  Height:= 50;
end;
Kopiuj
 
P4
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 23
0

dzięki, ale coś nie działa.

KA
  • Rejestracja: dni
  • Ostatnio: dni
  • Lokalizacja: Gorlice
0

Jak nie działa musi działać to jest zdarzenie OnMeasureItem

P4
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 23
0

Coś jednak nie działa.

Przed:
Przed.JPG
Przed1.JPG

Po:
Po.JPG
Po1.JPG

olesio
  • Rejestracja: dni
  • Ostatnio: dni
  • Lokalizacja: Szczecin
  • Postów: 4191
0

Ja również potwierdzić mogę, że działa. I dlatego @parasol45: trzeba przeczytać chociażby wbudowany w IDE help, a nie od razu "smarować" na forum, że nie działa.

pelsta
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 819
0

Ustaw

Kopiuj
ListBox1.Style:=lbOwnerDrawFixed

i teraz możesz sobie dowolnie ustawić ListBox1.ItemHeight

Kopiuj

A ponadto

Use OnMeasureItem to write a handler to measure items to be drawn in a list box with a Style property value of lbOwnerDrawVariable.

Kopiuj

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.