Разработка программы- тренажера Управление электросетями
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: дипломы курсовые, реферат на тему искусство
| Добавил(а) на сайт: Lapuhin.
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21
Zap:=ActList.First;
Label1.Caption:=Zap.FComment;
Help:=Help+1; end; end;
procedure TForm1.NewClick(Sender: TObject);
begin
FormScene.Position:=poScreenCenter;
FormScene.ShowModal;
end;
procedure TForm1.Menu52Click(Sender: TObject);
var s:string; i:integer;
begin
Report.ReportForm.ProtList.Clear;
if Protnil then begin
for i:=0 to Prot.Count-1 do
Report.ReportForm.ProtList.Items.Append(Prot.Strings[i]);
s:=TimeToStr(Now);
if FileExists('InfoReport.txt') then
Prot.SaveToFile('InfoReport'+s[7]+'.txt') else Prot.SaveToFile('InfoReport.txt');
ReportForm.ShowModal;
end;
end;
procedure TForm1.Menu21Click(Sender: TObject); begin
WorkMode:=0;
StatusBar1.Panels[3].Text:='Режим работы: Тренировка';
Form1.HelpBtn.Visible:=true;
Form1.Label1.Visible:=true;
Form1.Label2.Visible:=true;
ResultBtn.Caption:='Результаты'; end;
procedure TForm1.Menu22Click(Sender: TObject); begin
WorkMode:=1;
StatusBar1.Panels[3].Text:='Режим работы: Экзамен';
Form1.HelpBtn.Visible:=false;
Form1.Label1.Visible:=false;
Form1.Label2.Visible:=false;
ResultBtn.Caption:='Готово'; end;
end.
--------------------
[pic]
[pic]
[pic]
[pic]
[pic]
[pic]
[pic]
Скачали данный реферат: Гервасий, Halimdarov, Липов, Махмудов, Яким, Сайбаталов, Ustin.
Последние просмотренные рефераты на тему: реферат молодежь, биология 8 класс гдз, рассказы, отцы и дети сочинение.
Категории:
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21
Главная