1

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;

2

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