smemo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+laquo;Teorianote.txtraquo;);.showmodal;;TForm1.FormClose(Sender: TObject; var Action: TCloseAction) ;. close ;; TForm1.SettingClick (Sender: TObject) ;. showmodal ;; TForm1.AboutClick (Sender: TObject) ;. showmodal ;; TForm1.FormCreate (Sender: TObject) ;. Picture: =Calculat.Picture; _b.Picture:=calculation.Picture; .Picture:=Image7.Picture; _b.Picture:=Setting.Picture; _b.Picture:=About.Picture ;;. note ;, Messages, SysUtils, Variants , Classes, Graphics, Controls, Forms ,, StdCtrls, sMemo;=class (TForm): TsMemo; FormClose (Sender: TObject; var Action: TCloseAction); sMemo1Change (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm7;
{$ R * .dfm} TForm7.FormClose (Sender: TObject; var Action: TCloseAction);.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+laquo;Teorianote.txtraquo;);;setting;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, sLabel, StdCtrls, sComboBox;=class (TForm): TsLabel ;: TsComboBox ;: TsWebLabel; FormCreate (Sender: TObject); FormActivate (Sender: TObject); sComboBox1Change (Sender: TObject); sWebLabel1Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: Tsett; Main;
{$ R * .dfm} Tsett.FormCreate (Sender: TObject);.sSkinManager1.GetSkinNames(sett.sComboBox1.Items);.Text:=form1.sSkinManager1.SkinName;;Tsett.FormActivate(Sender: TObject) ;. Text:=form1.sSkinManager1.SkinName; .SetFocus ;; Tsett.sComboBox1Change (Sender: TObject);.sSkinManager1.SkinName:=sComboBox1.Items[sComboBox1.itemIndex];;Tsett.sWebLabel1Click(Sender: TObject) ;. sSkinManager1.SkinName:= Snow Leopard (внутрішній) raquo ;;. Text:=form1.sSkinManager1.SkinName ;;. Teoria ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls , sButton, ComCtrls, sTreeView, OleCtrls, SHDocVw ,, sPanel;=class (TForm): TsPanel ;: TsButton ;: TsButton ;: TsPanel ;: TsPanel ;: TWebBrowser ;: TsTreeView; sTreeView1Change (Sender: TObject; Node: TTreeNode) ; FormClose (Sender: TObject; var Action: TCloseAction); sButton2Click (Sender: TObject); sButton1Click (Sender: TObject);
{Private declarations}: integer;
{Public declarations} ;: TTeoriat; Main, Calculation, Calculation2, Calculation3, Unit5, Unit6, Unit8;
{$ R * .dfm} TTeoriat.sTreeView1Change (Sender: TObject; Node: TTreeNode); Node.AbsoluteIndex of
: begin WebBrowser1.Navigate (ExtractFilePath (Application.ExeName) + Teoria 1_1.mht ); x:=1; end;
: begin WebBrowser1.Navigate (ExtractFilePath (Application.ExeName) + Teoria 2_2.mht ); x:=2; end;
: begin WebBrowser1.Navigate (ExtractFilePath (Application.ExeName) + Teoria 3_3.mht ); x:=3; end;
: begin WebBrowser1.Navigate (ExtractFilePath (Application.ExeName) + Teoria 4_1.mht ); x:=4; end;
: begin WebBrowser1.Navigate (ExtractFilePath (Application.ExeName) + Teoria 1_12.mht ); x:=5; end;
: begin WebBrowser1.Navigate (ExtractFilePath (Application.ExeName) + Teoria 1_13.mht ); x:=6; end ;;; TTeoriat.FormClose (Sender: TObject; var Action: TCloseAction) ;. show ;; TTeoriat.sButton2Click (Sender: TObject); x of
: begin Form2.Show; Hide; end;
: begin Form3.Show; Hide; end;
: begin Form4.Show; Hide; end;
: begin Form5.Show; Hide; end;
: begin Form6.Show; Hide; end;
: begin Form8.Show; Hide; end; ShowMessage ( Виберіть розділ ) ;;; TTeoriat.sButton1Click (Sender: TObject) ;;. Show ;;. Unit5 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ComCtrls, sPageControl, StdCtrls, sEdit, sLabel, sButton ,, jpeg, ExtCtrls, Grids, OleCtrls, SHDocVw;=class (TForm): TsPageControl ;: TsTabSheet ;: TsTabSheet ;: TsTabSheet ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsButton ;: TsRadioButton ;: TsRadioButton ;: TsRadioButton ;: TsRadioButton ;: TsButton ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit;:TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsButton ;: TsButton ;: TsRadioButton ;: TsRadioButton ;: TsButton ;: TsButton ;: TImage ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: Ts...
