8 (1312)

94 Aplikacje w Delphi. Przykłady

procedurę TForml.Button3Click(Sender: TObject): begin

with Listboxl do

TopIndex:=Items.IndexOf('żółty');

end;

Po wykonaniu procedury element o nazwie żółty znajdzie się w strefie widoczności listy, niekoniecznie jako pierwszy, ponieważ maksymalna wartość właściwości TopIndex to liczba wszystkich elementów, pomniejszona o liczbę elementów widocznych w oknie listy. Oznacza to, że jeśli np. lista liczy 10 elementów, a w okienku listy widoczne są tylko cztery elementy i element o nazwie żółty jest przedostatni na liście, to wywołanie powyższej procedury spowoduje wyświetlenie na liście czterech ostatnich elementów (w tym żółty przedostatni).

Przykład 7.13.

Wstaw nową listę typu TListBox i wypełnij ją elementami. Napisz procedurę, która spowoduje wyświetlenie parzystych elementów w kolorze zielonym, nieparzystych — w kolorze czerwonym. Wykorzystaj zdarzenie OnDrawItem.

Rozwiązanie

Zdarzenie OnDrawItem występuje wtedy, gdy lista składa się z jednej kolumny. W procedurze rysowane są wszystkie elementy listy. Procedura obsługi zdarzenia OnDrawItem jest wykonywana każdorazowo przy wyświetlaniu listy tyle razy, ile elementów znajduje się na liście (Count).

Oto treść procedury obsługi zdarzenia OnDrawItem:

//wyświetlanie parzystych elementów listy w kolorze zielonym, a nieparzystych w kolorze //czerwonym

procedurę TForml.ListBox2DrawItem(Control: TWinControl; Index: Integer;

Rect: TRect; State: TOwnerDrawState);

begin

with ListBox2.Canvas do //rysowanie na liście if Index mod 2=0 then //czy indeks parzysty begin

Li stBox2.Canvas.Font.Color:-clgreen;

TextOut(Rect.Left, Rect.Top, ListBox2.Items[index]); end el se begin

Li stBox2.Canvas.Font.Color:=clRed;

TextOut(Rect.Left, Rect.Top, ListBox2.Items[Index]): end: end;

Właściwości Style komponentu TListBox przypisz wartość lbOwnerDrawFixed.