Komponent Shape - rysowanie na formularzu figur geometrycznych

Komponent Shape znajduje się na karcie Additional. Wykorzystywany jest do otrzymywania na formularzu figur geometrycznych. Podstawowe właściwości dostępne w oknie Object Inspector:

Pen - właściwości linii; określa kolor, styl, grubość linii brzegowej oraz sposób nakładania linii

Brush - właściwości pędzla; określa kolor i styl wypełniacza

Shape - rysowany kształt.

Ustawianie właściwości komponentu Shape

Aby ustawić właściwości Pen lub Brush, należy najpierw rozwinąć listę właściwości, klikając myszą znak + z lewej strony nazwy.

Aby ustawić właściwość Shape, należy kliknąć w polu właściwości z prawej strony i wybrać z wyświetlonej listy żądaną figurę. Możliwe do uzyskania figury:

stCircle - koło

stEllipse - elipsa

stRectangle - prostokąt

stRoundRect - prostokąt z zaokrąglonymi rogami

stRoundSąuare - kwadrat z zaokrąglonymi rogami

stSquare - kwadrat

Ćwiczenie 1.19

Zadanie aplikacji

Demonstracja stylu wypełniacza.

Nowe umiejętności

Ustawianie stylu wypełniacza w kodzie programu.

1. Na formularzu wstaw przycisk z napisem Następny oraz komponent Shape w dowolnym kształcie.

2. W części deklaracji zmiennych globalnych, (po słowie var, przed słowem Implementation) zadeklaruj zmienną:

styl:Integer;

3. Przypisz do przycisku procedurę:

procedure Tform1.Button1Click(Sender: TObject);

begin

if styl<8 then

begin

Shape1.Brush.Style:=TBrushStyle(styl);

styl:=styl+1;

end

else

styl:=0;

end;

4. Sprawdź działanie aplikacji, naciskając przycisk Następny, zaobserwuj wygląd dostępnych wypełniaczy.

Zadanie l

Umieść w oknie ScrollBox komponent Shape w kształcie elipsy wypełnionej kolorem czerwonym (clRed). Sprawdź działanie suwaka.

Zadanie 2

Napisz program, który rysuje określony kształt (np. koło), uzależniając jego wielkość od wartości wybranej przez użytkownika z paska przewijania.

Rodzaj figury wybieraj z listy wyboru ComboBox.

Wskazówka

Aby programowo uzyskać żądany kształt, należy ustawić właściwość Shape, na przykład:

Shape1.Shape:=stRectangle.

Zadanie 3

Napisz program, który ustawia styl ramki w kodzie programu.

Wskazówka

Skorzystaj z przykładu, zmieniając właściwości badane z Brush na Pen. Dodaj nową zmienną

ramka:Integer; w sekcji var.

Komponent Shape - rysowanie na formularzu figur geometrycznych

Komponent Shape znajduje się na karcie Additional. Wykorzystywany jest do otrzymywania na formularzu figur geometrycznych. Podstawowe właściwości dostępne w oknie Object Inspector:

Pen - właściwości linii; określa kolor, styl, grubość linii brzegowej oraz sposób nakładania linii

Brush - właściwości pędzla; określa kolor i styl wypełniacza

Shape - rysowany kształt.

Ustawianie właściwości komponentu Shape

Aby ustawić właściwości Pen lub Brush, należy najpierw rozwinąć listę właściwości, klikając myszą znak + z lewej strony nazwy.

Aby ustawić właściwość Shape, należy kliknąć w polu właściwości z prawej strony i wybrać z wyświetlonej listy żądaną figurę. Możliwe do uzyskania figury:

stCircle - koło

stEllipse - elipsa

stRectangle - prostokąt

stRoundRect - prostokąt z zaokrąglonymi rogami

stRoundSąuare - kwadrat z zaokrąglonymi rogami

stSquare - kwadrat

Ćwiczenie 1.19

Zadanie aplikacji

Demonstracja stylu wypełniacza.

Nowe umiejętności

Ustawianie stylu wypełniacza w kodzie programu.

5. Na formularzu wstaw przycisk z napisem Następny oraz komponent Shape w dowolnym kształcie.

6. W części deklaracji zmiennych globalnych, (po słowie var, przed słowem Implementation) zadeklaruj zmienną:

styl:Integer;

7. Przypisz do przycisku procedurę:

procedure Tform1.Button1Click(Sender: TObject);

begin

if styl<8 then

begin

Shape1.Brush.Style:=TBrushStyle(styl);

styl:=styl+1;

end

else

styl:=0;

end;

8. Sprawdź działanie aplikacji, naciskając przycisk Następny, zaobserwuj wygląd dostępnych wypełniaczy.

Zadanie l

Umieść w oknie ScrollBox komponent Shape w kształcie elipsy wypełnionej kolorem czerwonym (clRed). Sprawdź działanie suwaka.

Zadanie 2

Napisz program, który rysuje określony kształt (np. koło), uzależniając jego wielkość od wartości wybranej przez użytkownika z paska przewijania.

Rodzaj figury wybieraj z listy wyboru ComboBox.

Wskazówka

Aby programowo uzyskać żądany kształt, należy ustawić właściwość Shape, na przykład:

Shape1.Shape:=stRectangle.

Zadanie 3

Napisz program, który ustawia styl ramki w kodzie programu.

Wskazówka

Skorzystaj z przykładu, zmieniając właściwości badane z Brush na Pen. Dodaj nową zmienną

ramka:Integer; w sekcji var.

//zabezpieczenie przed wyborem wypełniacza, którego nie ma

//ustawianie stylu wypełniacza, dodatkowo wystąpi tu rzutowanie typu Integer na typ Tbrush

//zabezpieczenie przed wyborem wypełniacza, którego nie ma

//ustawianie stylu wypełniacza, dodatkowo wystąpi tu rzutowanie typu Integer na typ Tbrush

---