Разработка программы- тренажера Управление электросетями
Категория реферата: Рефераты по информатике, программированию
Теги реферата: дипломы курсовые, реферат на тему искусство
Добавил(а) на сайт: Lapuhin.
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата
StaticText1.Visible:=False;
Label2.Visible:=False;
StatusBar1.Panels[2].Text:='Выберите режим работы и задачу.';
StatusBar1.Panels[3].Text:='Режим работы: ';
TaskList.ItemIndex:=0;
TaskNumber:=0;
Read;
User1.User.ShowModal; end;
procedure TForm1.ExtBtnClick(Sender: TObject);
begin if Protnil then Prot.Clear; if ActListnil then ActList.Clear; if Protnil then Prot.Clear;
Application.Terminate;
end;
procedure TForm1.TaskListMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var Point:TPoint;
begin
Point.X:=Y;Point.Y:=Y;
TaskNumber:=TaskList.ItemAtPos(Point,true);
StatusBar1.Panels[2].Text:=Form1.TaskList.Items.Strings[TaskNumber];
StatusBar1.Panels[1].Text:='№'+IntToStr(1+TaskList.ItemAtPos(Point,true)); end;
procedure TForm1.RunBtnClick(Sender: TObject); var s:string; begin
TaskList.Visible:=False; if WorkMode=0 then begin
StatusBar1.Panels[3].Text:='Режим работы: Тренировка';
Form1.HelpBtn.Visible:=true;
Form1.Label1.Visible:=true;
Form1.Label2.Visible:=true;
ResultBtn.Caption:='Результаты'; end;
Image1.Visible:=true;
Image2.Visible:=true;
StaticText1.Visible:=true;
ReadInfo(TaskNumber+1);
Рекомендуем скачать другие рефераты по теме: дипломная работа по юриспруденции, рассказы.
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата