5 (1790)

Rozdział 6. ♦ Okienka dialogowe z karty Dialogs 85

//zapisanie elementów listy do pliku procedurę TForml.Button2Click(Sender: TObject); begin

SaveDialogl.InitialDir:='C:\teksty'; if SaveDialogl.Execute then Li stBoxl.Items.SaveToFi1e(SaveDi alogl.Fi 1eName) else ShowMessage('Naciśnięto klawisz Anuluj!'); end;

Odczytanie tekstu z pliku tekstowego do listy jest możliwe dzięki zmianom w powyższej procedurze; należy zastąpić SaveDialogl obiektem Opendialogl i SaveToFile metodą LoadFromFile.

Od Delphi 7.0 wzbogacono te komponenty o możliwość ustawienia opcji przeglądania wybieranych plików — do poleceń menu Widok dodano polecenie Podgląd.

Przykład 6.5.

Na etykiecie wyświetl nazwę koloru wybranego w oknie TColorDialog i zmień kolor tej etykiety na wybrany.

Rozwiązanie

Wstaw na formularzu komponent TLabel, TButton i TColorDialog. Oto treść procedury obsługi kliknięcia przycisku:

//wyświetlenie nazwy wybranego koloru i zmiana koloru etykiety

procedurę TForml.Button4Click(Sender: TObject);

begin

if ColorDialogl.Execute then begin

Label1.Caption:=ColorToStr(ColorDial ogl.Col or);

Label1.Color:=ColorDialogl.Color end

else ShowMessagel'Nie wybrano nowego koloru!'); end;

Przykład 6.6.

Zmień czcionkę na etykiecie, ustaloną w oknie dialogowym TFontDialog.

Rozwiązanie

Wstaw na formularzu komponent TLabel, TButton i TFontDialog. Oto treść procedury obsługi kliknięcia przycisku:

//zmiana czcionki etykiety

procedurę TForml.Button5Click(Sender: TObject);

begin

if FontDialogl.Execute then Label1.Font:=FontDialogl.Font else ShowMessageC'Nie wybrano czcionki!'); end;