05 май 2015, 21:37
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, sSkinProvider, sSkinManager, ExtCtrls, sPanel, ComCtrls,
sStatusBar, sTreeView, sSplitter, OleCtrls, SHDocVw, StdCtrls, sLabel,
ToolWin, sToolBar, ImgList, ShellApi, ComObj, Menus, sGauge, inifiles,
DB, ADODB;
type
TForm1 = class(TForm)
ImageList1: TImageList;
PopupMenu1: TPopupMenu;
Desertinternal1: TMenuItem;
Golden1: TMenuItem;
Retro1: TMenuItem;
XPLuna1: TMenuItem;
XPSilver1: TMenuItem;
ADOQuery1: TADOQuery;
MainMenu1: TMainMenu;
a1: TMenuItem;
N1: TMenuItem;
sSkinManager1: TsSkinManager;
sStatusBar1: TsStatusBar;
procedure FormShow(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton13Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure ToolButton14Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure Desertinternal1Click(Sender: TObject);
procedure Golden1Click(Sender: TObject);
procedure Retro1Click(Sender: TObject);
procedure XPLuna1Click(Sender: TObject);
procedure XPSilver1Click(Sender: TObject);
procedure WBProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
procedure ToolButton18Click(Sender: TObject);
procedure ToolButton19Click(Sender: TObject);
procedure ToolButton20Click(Sender: TObject);
procedure ToolButton23Click(Sender: TObject);
procedure sTreeView1Change(Sender: TObject; Node: TTreeNode);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
var
ini:Tinifile;
result,text:string;
capt,r1,r2,r3,r4,r5:string;
i,j,r11,r22,r33,r44,r55:integer;
begin
Form9.ShowModal;
Form2.ShowModal;
result:= ExtractFilePath(ParamStr(0));
ini:=TiniFile.Create(result+'config.ini');
capt:=ini.ReadString('Conf','Caption','');
Form1.Caption:=capt;
Application.Title:=capt;
r1:=ini.ReadString('Conf','r1','');
r2:=ini.ReadString('Conf','r2','');
r3:=ini.ReadString('Conf','r3','');
r4:=ini.ReadString('Conf','r4','');
r5:=ini.ReadString('Conf','r5','');
if r1<>'' then r11:=StrToInt(r1) else r11:=0;
if r2<>'' then r22:=StrToInt(r2) else r22:=0;
if r3<>'' then r33:=StrToInt(r3) else r33:=0;
if r4<>'' then r44:=StrToInt(r4) else r44:=0;
if r5<>'' then r55:=StrToInt(r5) else r55:=0;
if r11>0 then sTreeView1.Items.Add(nil,'Лекционный материал');
j:=0;
for i:=1 to r11 do
begin
text:=ini.ReadString('Лекционный материал',IntToStr(i),'');
sTreeView1.Items.AddChild(sTreeView1.Items[j],text);
end;
j:=sTreeView1.Items.Count;
if r22>0 then sTreeView1.Items.Add(nil,'Программирование LPT порта');
for i:=1 to r22 do
begin
text:=ini.ReadString('Программирование LPT порта',IntToStr(i),'');
sTreeView1.Items.AddChild(sTreeView1.Items[j],text);
end;
j:=sTreeView1.Items.Count;
if r33>0 then sTreeView1.Items.Add(nil,'Программирование');
for i:=1 to r33 do
begin
text:=ini.ReadString('Программирование COM порта',IntToStr(i),'');
sTreeView1.Items.AddChild(sTreeView1.Items[j],text);
end;
j:=sTreeView1.Items.Count;
if r44>0 then sTreeView1.Items.Add(nil,'Дополнительные материалы. Книги');
for i:=1 to r44 do
begin
text:=ini.ReadString('Дополнительные материалы. Книги',IntToStr(i),'');
sTreeView1.Items.AddChild(sTreeView1.Items[j],text);
end;
j:=sTreeView1.Items.Count;
if r55>0 then sTreeView1.Items.Add(nil,'Дополнительная литература');
for i:=1 to r55 do
begin
text:=ini.ReadString('Дополнительная литература',IntToStr(i),'');
sTreeView1.Items.AddChild(sTreeView1.Items[j],text);
end;
ini.Free;
end;
procedure TForm1.ToolButton5Click(Sender: TObject);
begin
sTreeView1.Width:=0;
end;
procedure TForm1.ToolButton6Click(Sender: TObject);
begin
sTreeView1.Width:=215;
end;
procedure TForm1.ToolButton13Click(Sender: TObject);
begin
AboutBox.ShowModal;
end;
procedure TForm1.ToolButton10Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.ToolButton11Click(Sender: TObject);
begin
if (Form5.ShowModal=6) then Form6.ShowModal;
end;
procedure TForm1.ToolButton14Click(Sender: TObject);
begin
try
WB.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER);
except
end;
end;