6 (1642)

86 Aplikacje w Delphi. Przykłady

Treść tej procedury można również wpisać w procedurze obsługi zdarzenia OnClick dla polecenia menu z rysunku 3.1 (rozdział 3.) o nazwie Zmiana czcionki->Napisl.

Przykład 6.7.

Korzystając z okna TOpenPictureDialog, po kliknięciu przycisku, wczytaj do komponentu TImage obrazek typu *.BMP.

Rozwiązanie

Wstaw na formularzu komponent TImage, TOpenPictureDialog i TButton. Dla komponentu TImage ustaw właściwość Stretch na true. Oto treść procedury obsługi kliknięcia przycisku:

//czytanie obrazka do komponentu TImage procedurę TForml.Button6Click(Sender: TObject); begin

if OpenPictureDialogl.Execute then Imagel.Pi cture.LoadFromFi1eCOpenPi ctureDi al ogl.FileName) else ShowMessaget'Nie wybrano pliku!'): end;

Przeczytanie pliku typu .JPG wymaga zadeklarowania w sekcji uses modułu Jpeg. Zapisanie obrazka z komponentu TImage do pliku jest możliwe dzięki następującym zmianom w powyższej procedurze: należy zastąpić OpenPictureDialogl obiektem SavePictureDialogl i metodę LoadFromFile metodąSaveToFile. Wcześniej trzeba wstawić jeszcze komponent TSavePi ctureDi al og z zakładki Dialogs.

Treść tej procedury można również wpisać w procedurze obsługi zdarzenia OnClick dla polecenia menu z rysunku 3.1 (rozdział 3.) o nazwie Czytaj obraz.