7 (1452)

Rozdział 8. ♦ Prosty edytor — komponent TMemo 105

Wyświetlanie współrzędnych kursora w polu TMemo i zegara na pasku TStatusBar

Komponent typu TStatusBar z zakładki Win32 często występuje w edytorach tekstu na dole okna w postaci paska informacyjnego. Przykładem może być pasek statusu z edytora MS Word — rysunek 8.3. Na pasku TStatusBar można wyświetlać np. współrzędne położenia kursora, czas systemowy, numer kolumny i wiersza aktualnie wybranej komórki tabeli itp.

far 67 ~ sefc 3 67/114 fp« 14,7 ero wrs 21 Kol 7    jfjyu pil f ĆjFpSPolski |    ' f~"

Rysunek 8.3. Przykładowy pasek typu TStatusBar

Komponent TStatusBar z zakładki Win32 standardowo składa się z jednej części (jednego panelu). Podział na większą liczbę paneli (lub dokładniej: dodanie paneli) można uzyskać klikając przycisk z prawej strony właściwości Panel s w okienku Inspektora Obiektów, a następnie w otwartym oknie do edycji paneli — rysunek 8.4 — przycisk Add lub klawisz Insert.

Rysunek 8.4.

Okno do podziału komponentu TStatusBar

Po dodaniu paneli można określić ich szerokość, zaznaczając TStatusPanel, i w oknie Inspektora Obiektów przypisać właściwości With odpowiednią wartość.

Liczbę paneli, ich szerokość oraz sposób wyrównania tekstu na pasku TStatusBar można ustalić również podczas działania programu, co pokazuje przykład 8.9.

Przykład 8.9.

Po uruchomieniu programu na formularzu wyświetl pasek statusu składający się z czterech paneli o określonej szerokości. W ostatnim panelu ustaw wyrównanie tekstu do prawej strony.

Rozwiązanie

W procedurze obsługi zdarzenia FormCreate przypisz następującą procedurę:

procedurę TForml.FonnCreateCSender: TObject); begin

with StatusBarl do begi n

Panels.Add:

Panels.Add: