unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, StdCtrls, IniFiles, Math, Printers, Grids;
type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
Button2: TButton;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure LabelIn(i:integer);
procedure GridIn(i:integer);
{ procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);}
end;
var
Form1: TForm1;
pBar : Integer = 1;
lab : TLabel;
sPath: String[60];
sIniFile: TIniFile;
result: array [1..88] of boolean;
agres, alcohol, boss : integer;
depression, debts, salary : integer;
information, leader, status : integer;
drugs, dismissal : integer;
bars : array[0..10] of TProgressBar;
labels : array[0..10] of TLabel;
ib : integer;
TextLabel : array[0..10] of TLabel;
Grid : array[0..10] of TDrawGrid;
LabCap : array[0..10] of string=
('Агресія', 'Алкоголь', 'Шеф', 'Депресія', 'Борги', 'Зарплата', 'Інформація', 'Лідер', 'Статус', 'Наркотики', 'Звільнення');
LabLeft : array[0..10] of integer=
(30, 130, 230, 345, 450, 540, 630, 758, 860, 950, 1060);
GridH : array[0..10] of integer;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var
pb : TProgressBar;
begin
pb := bars[RandomRange(0, 11)];
if Assigned(pb) then
pb.Position := pb.Position + 1;
if pb.Position >= 100 then
begin
Inc(ib);
if ib>=150 then
begin
Timer1.Enabled := false;
Button1.Enabled := true;
end;
end;
end;