Instrukcja 0

Cel ćwiczenia : Napisanie aplikacji przedstawiającej sposób operowania kolorami w Delphi.

Rys. 1 Widok formularza z umieszczonymi komponentami

1. Uruchomić Delphi.

2. Umieścić na formularzu komponent Panel. Własność Caption ustawić na pustą.

3. Umieścić na formularzu trzy komponenty TrackBar i ustawić następujące własności.

Komponent:	Name:	Max:
TrackBar1	TBczerwony	255
TrackBar2	TBzielony	255
TrackBar3	TBniebieski	255

4. Wygenerować zdarzenie OnChange dla komponentu TBczerwony i zmodyfikować je według poniższej wskazówki:

procedure TForm1.TBczerwonyChange(Sender: TObject);

var

iCzerwony, iZielony, iNiebieski : Integer;

begin

iCzerwony := TBczerwony.Position;

iZielony := TBzielony.Position;

iNiebieski := TBniebieski.Position;

Panel1.Color := TColor(RGB(iCzerwony, iZielony, iNiebieski));

Label1.Caption := IntToStr(iCzerwony);

end;

5. Wygenerować zdarzenie OnChange dla komponentu TBzielony i zmodyfikować je według poniższej wskazówki:

procedure TForm1.TBzielonyChange(Sender: TObject);

var

iCzerwony, iZielony, iNiebieski : Integer;

begin

iCzerwony := TBczerwony.Position;

iZielony := TBzielony.Position;

iNiebieski := TBniebieski.Position;

Panel1.Color := TColor(RGB(iCzerwony, iZielony, iNiebieski));

Label2.Caption := IntToStr(iZielony);

end;

6. Wygenerować zdarzenie OnChange dla komponentu TBniebieski i zmodyfikować je według poniższej wskazówki:

procedure TForm1.TBniebieskiChange(Sender: TObject);

var

iCzerwony, iZielony, iNiebieski : Integer;

begin

iCzerwony := TBczerwony.Position;

iZielony := TBzielony.Position;

iNiebieski := TBniebieski.Position;

Panel1.Color := TColor(RGB(iCzerwony, iZielony, iNiebieski));

Label3.Caption := IntToStr(iNiebieski);

end;

7. Umieścić na formularzu trzy komponenty Label, własność Caption ustawić na 0. (Uwaga - komponent Label1 powinien być umieszczony przy komponencie TBczerwony, Label2 przy TBzielony, Label3 pzy TBniebieski).

8. Skompilować i uruchomić aplikację przyciskiem F9.

Rys. 2 Uruchomiony program

1

---