Przeglądarka graficzna
Na sam początek sprecyzujmy działanie naszego programu. Ma to być bardzo prosta przeglądarka graficzna, która załaduje, po kliknięciu przez użytkownika w przycisk, wybrany przez niego obrazek do komponentu TImage.
Jak zwykle prace nad nowym programem rozpoczynamy od wybrania z menu File | New Application. Zmieniamy właściwość Caption formularza na "Przeglądarka graficzna". Wstawmy teraz dwa komponenty TButtom. Dodaj również po jedyn komponencie TImage oraz TOpenPictureDialog. O położenie tego ostatniego nie musisz się martwić, gdyż należy on do grupy komponentów niewidocznych. Posłuży tylko do wywołania okienka do wyboru pliku. Zmieńmy teraz napisy na przyciskach. Właściwość Caption komponentu Buttom1 ustaw na "Załaduj obrazek" zaś Buttom2 na "Zamknij". Ostatnim etapem projektowania wyglądu jest zmienienie opcji Center komponentu TImage na true. Dzięki temu załadowany obrazek będzie zawsze umieszczony na środku.
Zajmiemy się teraz stroną kodową aplikacji. Najpierw dodamy obsługe pierwszego przycisku. Kliknij na nim dwuktrotnie, aby wygenerować obsługe funkcji OnClick. Wstaw kod:
W pierwszej linijce sprawdzamy, czy podczas wyświetlenia okienka dialogowego został wybrany plik, zaś w drugiej przy użyciu funkcji LoadFromFile ładujemy go do komponentu TImage.
Pozostaje nam już tylko obsłużenie drugiego przycisku służącego do zamykania aplikacji. Kliknij na nim dwukrotnie i dodaj kod:
Pozostaje nam już tylko skompilowanie programu, i cieszenie się jego działaniem
Jak zwykle prace nad nowym programem rozpoczynamy od wybrania z menu File | New Application. Zmieniamy właściwość Caption formularza na "Przeglądarka graficzna". Wstawmy teraz dwa komponenty TButtom. Dodaj również po jedyn komponencie TImage oraz TOpenPictureDialog. O położenie tego ostatniego nie musisz się martwić, gdyż należy on do grupy komponentów niewidocznych. Posłuży tylko do wywołania okienka do wyboru pliku. Zmieńmy teraz napisy na przyciskach. Właściwość Caption komponentu Buttom1 ustaw na "Załaduj obrazek" zaś Buttom2 na "Zamknij". Ostatnim etapem projektowania wyglądu jest zmienienie opcji Center komponentu TImage na true. Dzięki temu załadowany obrazek będzie zawsze umieszczony na środku.
Zajmiemy się teraz stroną kodową aplikacji. Najpierw dodamy obsługe pierwszego przycisku. Kliknij na nim dwuktrotnie, aby wygenerować obsługe funkcji OnClick. Wstaw kod:
if(OpenPictureDialog1->Execute())
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
W pierwszej linijce sprawdzamy, czy podczas wyświetlenia okienka dialogowego został wybrany plik, zaś w drugiej przy użyciu funkcji LoadFromFile ładujemy go do komponentu TImage.
Pozostaje nam już tylko obsłużenie drugiego przycisku służącego do zamykania aplikacji. Kliknij na nim dwukrotnie i dodaj kod:
Close();
Pozostaje nam już tylko skompilowanie programu, i cieszenie się jego działaniem
Materiał dodany przez użytkownika: alphan