Komponenty z karty Dialogs

Korzystanie z komponentu OpenDialog

Komponent ten wyświetla znane z aplikacji Windows okno dialogowe otwarcia pliku. Uruchamiany jest przez wywołanie metody Execute.

Ćwiczenie 2.11

Zadanie aplikacji

Przeglądanie plików tekstowych. Pliki pobierane są poprzez OpenDialog.

Nowe umiejętności

Korzystanie z komponentu OpenDialog.

1. Umieść na formularzu pole Memo.

2. Dodaj komponent OpenDialog z karty Dialogs. Jest to komponent niewidoczny, otwierający dialog wyboru pliku z dysku.

3. Klikając w polu właściwości Filter, przejdź do edytora filtrów i wpisz w tabelce pod wskazanym nagłówkiem:

Filter Name	Filter
Tekstowe	*.txt
Programy w Pascalu	*.pas
Wszystkie pliki	*.*

4. Ustaw właściwości:

• FilterIndex 1 // wybiera pierwszą maskę plików jako domyślną

• InitialDir C:\Moje dokumenty //ustawia katalog domyślny

5. Umieść na formularzu SpeedButton (przycisk szybkiego reagowania) z karty Additional - będzie to przycisk otwierający dialog. Umieść na przycisku rysunek kojarzący się z otwarciem pliku:

• kliknij w polu właściwości Glyph i przejdź do Picture Editor

• kliknij przycisk Load, przejdź do katalogu Delphi\Images\Buttons

• wybierz właściwy rysunek i zatwierdź wybór.

Dla zdarzenia OnClick komponentu SpeedButton wpisz procedurę:

procedure TForm1.SpeedButton1Click(Sender:TObject);

begin

If OpenDialog1.Execute then

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

end;

7. Sprawdź działanie aplikacji.

Korzystanie z komponentu SaveDialog

Jest to komponent, który wyświetla okno dialogowe zapisywania (zachowania) pliku. Uruchamiany jest przez wywołanie metody Execute.

Rysunek 1 - Okno dialogowe OpenDialog

Rysunek 2 - Okno dialogowe SaveDialog

Ćwiczenie 2.12

Zadanie aplikacji

Aplikacja zapisuje przeglądany obrazek do pliku o wskazanej nazwie.

Nowe umiejętności

Zastosowanie komponentu SaveDialog.

1. Otwórz poprzednią aplikację.

2. Dodaj do formularza komponent SaveDialog (karta Dialogs) oraz SpeedButton z rysunkiem zamknięcia.

3. Podobnie jak w poprzednim ćwiczeniu, ustaw filtry oraz właściwości FilterIndex i InitialDir. Ustaw właściwość:

DefaultExt txt //nadawanie domyślnego rozszerzenia zapisywanym plikom

4. Dla zdarzenia OnClick komponentu SpeedButton wpisz:

begin

if SaveDialog1.Execute then

Memo1.Lines.SaveToFile(SaveDialog1.FileName);

end;

5. Sprawdź działanie aplikacji

Korzystanie z komponentu OpenPictureDialog i SavePictureDialog

Komponent ten różni się od poprzednio omawianego OpenDialog udostępnieniem możliwości oglądania selekcjonowanych plików graficznych.

Rysunek 3 - Okno dialogowe OpenPictureDialog

Ćwiczenie 2.13

Zadanie aplikacji

Przeglądarka plików graficznych zapisanych w formacie *.bmp na dysku. Pliki pobierane są poprzez OpenDialog.

Nowe umiejętności

Korzystanie z OpenPictureDialog.

1. Umieść na formularzu komponent Image z karty Additional. Ustaw właściwość:

Stretch True //dostosowanie obrazka do rozmiarów komponentu Image

2. Dodaj komponenty OpenPictureDialog i SavePictureDiaIog z karty Dialogs.

3. Wstaw na formularzu dwa przyciski, ustaw napisy na przyciskach: Otwórz i Zachowaj. Przypisz procedury:

• do przycisku Otwórz:

procedure TForm1.Button1Click (Sender: TObject);

begin

If OpenPictureDialog1.Execute then

Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename); end;

• do przycisku Zachowaj:

procedure TForm1.Button2Click (Sender: TObject);

begin

if SavePictureDialog1. Execute Then

Image1.Picture.SavetoFile(SavePictureDialog1.Filename);

end;

2

---