Wczoraj pisałem o walce z poprawną obsługą dynamicznie mierzonych itemów w komponentcie TCheckListBox oraz z naprawieniem kodu odpowiedzialnego za obsługę lewego kliknięcia myszą w obrębie itema, w celu zmiany stanu checkboxa. Dzisiejsze testy ostatecznie potwierdziły poprawność działania moich łatek, a przy okazji sprawdziłem też czy mój kod odpowiedzialny za renderowanie itemów działa prawidłowo – działa elegancko.
Pomyślałem więc, że zamiast dodawać kolejne zrzuty do tamtego wpisu, który i tak już jest dość krowiasty, wzamian napiszę nowy. Ale nie tylko po to, aby pokazać co mi z tego wyszło – jest jeszcze jedna rzecz, która psuła interfejs mojego programu. Ale tym razem nie z winy błędów w LCL, a w związku ze specyfiką działania komponentów z rodziny ListBox.
Tak więc końcowy efekt przedstawia się następująco, na trzech głównych systemach Windows:
Kilka pierwszych itemów jest zablokowanych, co oznacza, że checkbox w nich nie może zmieniać zaznaczenia – nie da się tego zrobić ani za pomocą myszy, ani klawiatury. Samo blokowanie robi się za pomocą właściwości ItemEnabled. Założenie jest takie, że x wbudowanych pozycji nie może być usuniętych, a mechanizm usuwania itemów bazuje właśnie na stanie checkboxów.
Itemy w komponencie zachowują się poprawnie, zawartość itemów renderowana jest prawidłowo, zaznaczanie i odznaczanie checkboxów za pomocą myszy działa perfekcyjnie (co do piksela). Ale jest jeden haczyk – podczas rozciągania komponentu, system nie wysyła do niego komunikatów nakazujących przekalkulowanie wysokości itemów, gdy użyty jest styl lbOwnerDrawVariable. To powoduje, że rozciągnięty komponent posiada itemy o wysokość ustalonej podczas dodawania pozycji i albo tekst wyjeżdża pod obszar dla tekstu (gdy kontrolka została ”skurczona” w poziomie), albo pozostają brzydkie, puste pola (gdy została rozciągnięta w poziomie):
Aby rozwiązać ten problem, należy zmusić komponent do rekalkulacji wysokości itemów w trakcie rozciągania komponentu. I tutaj z pomocą przychodzi metoda ChangeBounds, która jest wywoływana za każdym razem, gdy rozmiar lub położenie kontrolki zmieni się choćby o piksel. Przykładowo, płynne rozciągnięcie komponentu np. o 20px w poziomie oznacza wywołanie tej metody dwadzieścia razy. Pozwala to wykonywać dany kod na bieżąco podczas modyfikacji obszaru komponentu – i tego właśnie potrzebujemy.
Wczoraj zmuszony zostałem do subclassowania TCheckListBox, aby połatać buble w jego kodzie, więc skorzystamy z tej klasy do nadpisania metody ChangeBounds i zdefiniowania kodu forsującego rekalkulację wysokości pozycji. Wiele kodu pisać nie trzeba:
type
TCheckListBox = class(CheckLst.TCheckListBox)
protected
procedure ChangeBounds(ALeft, ATop, AWidth, AHeight: Integer; AKeepBase: Boolean); override;
end;
{..}
procedure TCheckListBox.ChangeBounds(ALeft, ATop, AWidth, AHeight: Integer; AKeepBase: Boolean);
var
ControlItemIndex: Integer;
ControlItemHeight: Integer;
begin
inherited ChangeBounds(ALeft, ATop, AWidth, AHeight, AKeepBase);
if Style = lbOwnerDrawVariable then
for ControlItemIndex := 0 to Items.Count - 1 do
begin
MeasureItem(ControlItemIndex, ControlItemHeight);
Windows.SendMessage(Handle, LB_SETITEMHEIGHT, ControlItemIndex, ControlItemHeight);
end;
end;
Najpierw wołamy bazową metodę za pomocą inherited, która wykona aktualizację położenia i rozmiaru komponentu. Następnie sprawdzamy czy komponent posiada ustawiony styl lbOwnerDrawVariable i jeśli tak, w pętli wykonujemy obliczenia. Klasa TCheckListBox posiada publiczną metodę MeasureItem, która pośrednio wywołuje zdarzenie OnMeasureItem, czyli wykonuje nasz kod przeprowadzający obliczenia. Po pobraniu nowej wysokości wysyłany jest komunikat do komponentu, w którym dostarczamy indeks pozycji oraz nową jego wysokość.
To wszystko – od tej pory komponent automatycznie dba o to, aby pozycje posiadały poprawnie dopasowaną wysokość do swojej zawartości:
Pozostaje jeszcze zabezpieczyć jedną rzecz. Zawartość wszystkich itemów komponentu może być modyfikowana. W przypadku tych zablokowanych, zmienić można niektóre dane (w tym tytuł i treść itema), ale pozycje te nie mogą być usunięte.
Aby komponent dopasował rozmiar pozycji po aktualizacji danych, wystarczy wywołać metodę ChangeBounds, podając w parametrach bieżącą pozycję i rozmiar komponentu. W ten sposób wymusi się rekalkulację wysokości itemów, bez zmiany obszaru zajmowanego przez komponent. Można też napisać sobie dedykowaną metodę do tego celu, tak aby utrzymać czytelność kodu.
Oczywiście należy też pamiętać, że modyfikacja treści wyświetlanej przez pozycje też musi wymuszać ponowne obliczenie obszaru itemów i dodatkowo jeszcze przemalowanie komponentu. W przeciwnym razie znów będziemy mieli do czynienia z pustymi przestrzeniami lub tekstem nie mieszczącym się w obrębie obszaru itema, a brak odmalowania kontrolki będzie powodował zglitchowanie interfejsu.
#free-pascal #lazarus
jarekr000000
No właśnie nie ma nic złego, tylko żeby kasa sie zgadzała.