Unit yanseu;
Interface
Uses Windows, Messages, Sysutils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Stdctrls, Buttons, ExtCtrls, Comctrls
type TForm1 = class (TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; ScrollBar1: TScrollBar; ScrollBar2: TScrollBar; ScrollBar3: TScrollBar ; TrackBar1: TTrackBar; Panel1: TPanel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; Label9: TLabel; BitBtn3: TBitBtn; procedure ScrollBar1Change (Sender: TObject); procedure ScrollBar2Change (Sender: TObject); procedure ScrollBar3Change (Sender: TObject); procedure TrackBar1Change (Sender: TObject); procedure BitBtn1Click (Sender: TObject); procedure BitBtn3Click (Sender: TObject); procedure BitBtn2Click (Sender: TObject); procedure FormShow (Sender: TObject); private {Private declarations} public {public declarations} s1 : array [1..1000] of integer; s2: array [1..1000] of integer; s3: array [1..1000] of integer; i, j, k: integer; end; var form1: tform1; {S1: array [1..1000] of integer; S2: Arr AY [1..1000] of integer; s3: array [1..1000] of integer; i, j, k: integer;} importation
{$ R * .dfm}
procedure TForm1.ScrollBar1Change (Sender: TObject); beginlabel5.Caption: = inttostr (scrollbar1.position); panel1.Color: = RGB (scrollbar1.position, scrollbar2.position, scrollbar3.position); panel1.font.Color: = RGB ((255-scrollbar1.position), (255-scrollbar2.position), (255-scrollbar3.position);
END;
procedure TForm1.ScrollBar2Change (Sender: TObject); beginlabel6.Caption: = inttostr (scrollbar2.position); panel1.Color: = RGB (scrollbar1.position, scrollbar2.position, scrollbar3.position); panel1.font.Color: = RGB ((255-scrollbar1.position), (255-scrollbar2.position), (255-scrollbar3.position)); end; procedure TForm1.ScrollBar3Change (Sender: TObject); beginlabel7.Caption: = inttostr (scrollbar3.position); Panel1.color: = RGB (scrollbar1.position, scrollbar2.position, scrollbar3.position); Panel1.font.color: = RGB (255-scrollbar1.position), (255-scrollbar2.position), (255-scrollbar3. Position));
procedure TForm1.TrackBar1Change (Sender: TObject); beginlabel8.Caption: = inttostr (trackbar1.position); scrollbar1.LargeChange: = trackbar1.position; scrollbar2.LargeChange: = trackbar1.position; scrollbar3.LargeChange: = trackbar1.position; end ;
Procedure tform1.bitbtn1click (sender: TOBJECT); begin if (i = 100) or (k = 100) The begin Application.MessageBox ('has arrived to record max),' prompt: ', 0) I: = 1; j: = 1; k: = 1; end else begini: = i 1; j: = j 1; k: = k 1; label9.font.color: = RGB (scrollbar1. Position, scrollbar2.position, scrollbar3.position; s1 [i]: = scrollbar1.position; s2 [j]: = scrollbar2.position; s3 [k]: = scrollbar3.position; end;
Procedure TFORM1.BITBTN3CLICK (Sender: TOBJECT); BeginClose;
Procedure TForm1.bitbtn2Click (Sender: TOBJECT); Begin if i = 1 Then Application.MessageBox ('This is already the first color 喔', 'Tip:', 0) Else Begini: = I-1; J: = J-1; k: = k-1; label9.font.color: = RGB (S1 [i], S2 [j], s3 [k]); end; end;
Procedure tForm1.FormShow (sender: TOBJECT); Begin i: = 0; J: = 0; K: = 0;
End.
