Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата

FImage:ShortString;

FState:Integer;

FComment:ShortString; constructor
Create(No:Integer;Image:ShortString;State:Integer;Comment:ShortString); end;

var
Form1: TForm1;

TaskNumber:Integer;

WorkMode:Integer;

List1:TStringList1;

ActList:TList;

Prot:TStringList;

Zap:TMyZap;

Switch:TImage;

TaskName:string;

Error:integer;

Help:integer;

Count:Integer;

F: array [0..24] of boolean;

E: array [0..24] of boolean; implementation

uses Results;

{$R *.DFM}

constructor
TMyZap.Create(No:Integer;Image:ShortString;State:Integer;Comment:ShortString
); begin inherited Create;
FNo:=No;
FImage:=Image;
FState:=State;
FComment:=Comment; end;

procedure SWState(AOwner:TImage;i:integer); begin if F[i]=false then begin with AOwner.Canvas do begin

Pen.Color:=clWhite;

MoveTo(6,1);

LineTo(6,17);

Pen.Width:=2;

Рекомендуем скачать другие рефераты по теме: дипломная работа по юриспруденции, рассказы.



Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки