Электронный учебник "Программа Erwin"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
0)then.Enabled:=False;.Enabled:=True;;(nmod20) then. Enabled:=True;. Enabled:=False;;tmr1. Enabled=true then begin image1. Visible:=true; image2. Visible:=false; endbegin image2.visible:=true; image1. Visible:=false; end; end;;
Tpractika. Timer3Timer (Sender: TObject); \\ исчезновение формы. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 thent=1 then. Hide;. AlphaBlendValue:=0;. Enabled:=false;. Timer2. Enabled:=true;. Show;;;Tpractika.sTreeView1Click (Sender: TObject); \\ выбор действияstreeview1. Items. Item[1].Selected then begin practika. Hide; imyl1.show; end;streeview1. Items. Item[2].Selected then begin practika. Hide; test.show; end;streeview1. Items. Item[3].Selected then webbrowser1. Navigate (GetCurrentDir+\stranici\practic\lab1.htm);streeview1. Items. Item[5].Selected then begin practika. Hide; imyl2.show; end;streeview1. Items. Item[6].Selected then begin practika. Hide; test_1.show; end;streeview1. Items. Item[7].Selected then webbrowser1. Navigate (GetCurrentDir+\stranici\practic\lab2.htm);streeview1. Items. Item[9].Selected then begin practika. Hide; test_2.show; end;streeview1. Items. Item[10].Selected then webbrowser1. Navigate (GetCurrentDir+\stranici\practic\lab3.htm);streeview1. Items. Item[12].Selected then begin practika. Hide; test_3.show; end;streeview1. Items. Item[13].Selected then webbrowser1. Navigate (GetCurrentDir+\stranici\practic\lab4.htm);streeview1. Items. Item[15].Selected then begin practika. Hide; test_4.show; end;streeview1. Items. Item[16].Selected then webbrowser1. Navigate (GetCurrentDir+\stranici\practic\lab5.htm);;Tpractika.N2Click (Sender: TObject); \\ переход к форме теория. Enabled:=true;Tpractika.N3Click (Sender: TObject); \\ переход к форме эмуляция. Enabled:=true;Tpractika.N4Click (Sender: TObject); \\ переход к форме на главную. Enabled:=true;;
Tpractika. Timer4Timer (Sender: TObject); \\ переход к форме эмуляция. Hide;. Show;.timer1. Enabled:=true;. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 then. Enabled:=false;;Tpractika. Timer5Timer (Sender: TObject); \\ переход к форме теория. Hide;. Show;.timer1. Enabled:=true;. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 then. Enabled:=false;
end;.
var: Timyl;:integer; k, p, n, t: Integer;ychebnik, Unit7, Unit13, Unit4, practic, Unit14, Unit15;
250 then Timer1. Enabled:=false;;Timyl. Timer2Timer (Sender: TObject);. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue250 then Timer1. Enabled:=false;;Timyl. Timer2Timer (Sender: TObject);. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 thent=2 then. Hide;. AlphaBlendValue:=0;. Enabled:=false;. Timer2. Enabled:=true;. Show;;;;Timyl.N7Click (Sender: TObject); \\ переход на форму теория. Enabled:=true;;Timyl. Timer3Timer (Sender: TObject); \\ переход на форму практика. Hide;. Show;.timer1. Enabled:=true;. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 then. Enabled:=false;;Timyl. Timer4Timer (Sender: TObject); \\ переход на форму теория
{teoria. AlphaBlendValue:=0;. Hide;.timer1. Enabled:=true;. Show;}. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 then. Hide;. AlphaBlendValue:=0;.timer1. Enabled:=true;. Show;. Enabled:=false;;;Timyl.N1Click (Sender: TObject);.show;;Timyl.sButton1MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста: Integer);.font. Size:=14;;Timyl.sButton1MouseLeave (Sender: TObject); \\ уменьшение текста.font. Size:=10;;Timyl.sButton2MouseLeave (Sender: TObject);\ \ уменьшение текста.font. Size:=10;;Timyl.sButton2MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста: Integer);.font. Size:=14;
end;.
var: Timyl1;ychebnik, practic, Unit6, Unit4;
{$R *.dfm}Timyl1.N10Click (Sender: TObject); \\выходmessagedlg (Вы действительно хотите выйти?, mtConfirmation, mbOKCancel, 0)=1 then;;Timyl1.N9Click (Sender: TObject); \\ переход на форму практика. Enabled:=true;:=1;;Timyl1. Button1Click (Sender: TObject); \\ эмуляцияradiobutton2. Checked=true then begin. Visible:=false;. Visible:=true;;;Timyl1. RadioButton2Click (Sender: TObject); \\ эмуляция
begin. Caption:=Создание новой модели;
end;Timyl1. RadioButton1Click (Sender: TObject); \\ эмуляция. Caption:=открытие модели;;Timyl1. RadioButton3Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=false;;Timyl1. RadioButton4Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;;Timyl1. RadioButton5Click (Sender: TObject); \\ эмуляция. Visible:=true;. Visible:=false;;Timyl1. Button3Click (Sender: TObject); \\ эмуляцияradiobutton5. Checked=true then begin. Visible:=false;. Visible:=true;;;Timyl1. FormCreate (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=false;;Timyl1. Timer1Timer (Sender: TObject); \\переход на форму эмуляция:=AlphaBlendValue-5;AlphaBlendValue<5 thent=1 then. AlphaBlendValue:=0;. Timer2. Enabled:=true;. Show;. Hide;. Enabled:=false;;;;Timyl1.N6Click (Sender: TObject); \\ переход на главную форму. Enabled:=true;:=1;;Timyl1. Timer2Timer (Sender: TObject);
:=AlphaBlendValue-5;AlphaBlendValue<5 then begin. Hide;. AlphaBlendValue:=0;.timer1. Enabled:=true;. Show;. Enabled:=false;;;Timyl1.N5Click (Sender: TObject); \\ переход на практику. Hide;. Show;. Timer1. Enabled:=true;;Timyl1.N4Click (Sender: TObject); \\ переход на теорию. Enabled:=true;;Timyl1.N3Click (Sender: TObject);. Enabled:=true;;Timyl1. Timer3Timer (Sender: TObject);:=AlphaBlendValue-5;AlphaBlendValue<5 then begin. Hide;.timer1. Enabled:=true;. Show;.timer1. Enabled:=true;. Enabled:=false;;;Timyl1. Image9Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add (создание новой модели);
end;Timyl1. Image10Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add (открытие модели);
end;
procedure Timyl1. Image11Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;
memo1. Clear;. Lines. Add (отправка на печать);
end;Timyl1. Image17Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add (уменьшение масштаба);
end;
procedure Timyl1. Image18Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add (увеличение масштаба);
end;
procedure Timyl1. Image43Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add (выбор шрифта);;Timyl1. Image42Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add (вы?/p>