[Inf-bd] oplossing test

[Yvan V. S. <yv...@ma...>]

een mogelijkheid zoals ik ze zelf in gedachten had. 

Met groeten en het bericht dat iedereen geslaagd is (soms nipt, maar zand 
erover)... 

yvan 

unit Unit1; 

interface 

uses
 SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs,
 QTypes, QExtCtrls, QStdCtrls, QButtons, QComCtrls; 

type
 TForm1 = class(TForm)
   ProgressBar1: TProgressBar;
   BitBtn1: TBitBtn;
   ComboBox1: TComboBox;
   Label1: TLabel;
   Timer1: TTimer;
   ScrollBar1: TScrollBar;
   Button1: TButton;
   procedure Timer1Timer(Sender: TObject);
   procedure BitBtn1Click(Sender: TObject);
   procedure ScrollBar1Change(Sender: TObject);
   procedure FormCreate(Sender: TObject);
   procedure ComboBox1Change(Sender: TObject);
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end; 

var
 Form1: TForm1;
 pauze: boolean; 

implementation 

{$R *.xfm} 

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 With progressbar1 do
   if position = max then
     position := min
   else StepIt;
end; 

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with timer1 do
if Enabled then
  Enabled := false else
  Enabled := true;
end; 

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
 Timer1.Interval := Scrollbar1.Position;
end; 

procedure TForm1.FormCreate(Sender: TObject);
begin
 pauze := false;
end; 

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 with combobox1 do
   if text = 'wit' then
     Progressbar1.FillColor := clWhite else
   if text = 'geel' then
     Progressbar1.FillColor := clYellow else
   if text = 'rood' then
     Progressbar1.FillColor := clRed else
   if text = 'groen' then
     Progressbar1.FillColor := clGreen else
   if text = 'blauw' then
     Progressbar1.FillColor := clBlue else
   if text = 'zwart' then
     Progressbar1.FillColor := clBlack;
end; 

procedure TForm1.Button1Click(Sender: TObject);
begin
 Close;
end; 

end.