unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls, StdActns, ToolWin, jpeg;
type
TForm3 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
procedure Image2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Image4Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
public
procedure CreateParams(var Params: TCreateParams); override;
end;
var
Form3: TForm3;
regim,complication:boolean;
clas:integer;
buttonflag:0..3;
fpath:string;
fname,fname1,fname2,fname3:string[255];
i,cavb:0..255;
implementation
uses IniFiles, unit1, ShellAPI;
{$R *.dfm}
procedure TForm3.Createparams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
Style := (Style or WS_POPUP) and (not WS_DLGFRAME);
end;
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
var Ini:TIniFile;
begin
Ini:=TIniFile.Create(extractfilepath(Application.ExeName)+'Options.ini');
Ini.WriteBool('Properties','Properties_Save',true);
Visible:=false;
Destroy;
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
Form1.Visible:=false;
buttonflag:=0;
end;
procedure TForm3.FormDestroy(Sender: TObject);
var MainHandle: THandle;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID);
SetProcessWorkingSetSize(MainHandle, DWORD(-1), DWORD(-1));
CloseHandle(MainHandle);
end;
end;
procedure TForm3.Image2Click(Sender: TObject);
var Ini:TIniFile;
begin
Ini:=TiniFile.Create((extractfilepath(Application.ExeName)+'Options.ini'));
buttonflag:=buttonflag+1;
case buttonflag of
1:begin
fname:='Ученик\';
regim:=true;
Form1.PupilRegimItem.Default:=true;
Ini.WriteBool('Properties','Regim',false);
//смена кнопок и размеров
Image1.Picture.LoadFromFile('Images\Clas2.bmp');
Image4.Visible:=true;
Image5.Visible:=true;
Image4.Top:=(Image2.Top+Image2.Top-Image1.Top);
Image5.Top:=Image4.Top;
Image2.Picture.LoadFromFile('Images\8Clas.bmp');
Image3.Picture.LoadFromFile('Images\9Clas.bmp');
Image3.Left:=(Image1.Left+Image1.Width-Image3.Width);
Image5.Left:=(Image1.Left+Image1.Width-Image5.Width);
Left:=(Left-round((Image1.Width+(Image1.Left*2)-ClientWidth)/2));
ClientHeight:=(Form3.ClientHeight+Image2.Top-Image1.Top);
ClientWidth:=(Image1.Width+(image1.Left*2));
//смена кнопок и размеров
end;
2:begin
//смена кнопок и размеров
Image1.Picture.LoadFromFile('Images\Complication.bmp');
Image2.Picture.LoadFromFile('Images\Easy.bmp');
Image3.Picture.LoadFromFile('Images\Hard.bmp');
Image3.Left:=(Image1.Left+Image1.Width-Image3.Width);
Image4.Visible:=false;
Image5.Visible:=false;
Left:=(Form3.Left-round((Image1.Width+(Image1.Left*2)-ClientWidth)/2));
ClientWidth:=(Image1.Width+(image1.Left*2));
ClientHeight:=(Form3.ClientHeight-(Image2.Top-Image1.Top));
//смена кнопок и размеров
fname2:='8\';
clas:=8;
Ini.WriteInteger('Properties','Clas',8);
Form1.Clas8ClasItem.Default:=true;
end;
3:begin
fname1:='Легко\';
complication:=true;
Form1.EasyComplicationItem.Default:=true;
Ini.WriteBool('Properties','Comlication',false);
Form1.Visible:=true;
fpath:=fname+fname2+fname1;
Form1.sTreeView1.LoadFromFile(fpath+'tree.txt');
Destroy;
exit;
end;
end;
end;
procedure TForm3.Image3Click(Sender: TObject);
var Ini:TIniFile;
begin
Ini:=TIniFile.Create(extractfilepath(Application.ExeName)+'Options.ini');
buttonflag:=buttonflag+1;
case buttonflag of
1:begin
fname:='Учитель\';
regim:=false;
Form1.TeacherRegimItem.Default:=true;
Ini.WriteBool('Properties','Regim',true);
//смена кнопок и размеров
Image1.Picture.LoadFromFile('Images\Clas2.bmp');
Image4.Visible:=true;
Image5.Visible:=true;
Image4.Top:=(Image2.Top+Image2.Top-Image1.Top);
Image5.Top:=Image4.Top;
Image2.Picture.LoadFromFile('Images\8Clas.bmp');
Image3.Picture.LoadFromFile('Images\9Clas.bmp');
Image3.Left:=(Image1.Left+Image1.Width-Image3.Width);
Image5.Left:=(Image1.Left+Image1.Width-Image5.Width);
Left:=(Form3.Left-round((Image1.Width+(Image1.Left*2)-ClientWidth)/2));
ClientHeight:=(ClientHeight+Image2.Top-Image1.Top);
ClientWidth:=(Image1.Width+(image1.Left*2));
//смена кнопок и размеров
end;
2:begin
//смена кнопок и размеров
Image1.Picture.LoadFromFile('Images\Complication.bmp');
Image2.Picture.LoadFromFile('Images\Easy.bmp');
Image3.Picture.LoadFromFile('Images\Hard.bmp');
Image3.Left:=(Image1.Left+Image1.Width-Image3.Width);
Image4.Visible:=false;
Image5.Visible:=false;
Left:=(Form3.Left-round((Image1.Width+(Image1.Left*2)-ClientWidth)/2));
ClientWidth:=(Image1.Width+(image1.Left*2));
ClientHeight:=(ClientHeight-(Image2.Top-Image1.Top));
//смена кнопок и размеров
fname2:='9\';
clas:=9;
Ini.WriteInteger('Properties','Clas',9);
Form1.Clas9ClasItem.Default:=true;
end;
3:begin
fname1:='Сложно\';
complication:=false;
Form1.HardComplicationItem.Default:=true;
Ini.WriteBool('Properties','Comlication',true);
Form1.Visible:=true;
fpath:=fname+fname2+fname1;
Form1.sTreeView1.LoadFromFile(fpath+'tree.txt');
exit;
Destroy;
end;
end;
end;
procedure TForm3.Image4Click(Sender: TObject);
var Ini:TIniFile;
begin
Ini:=TIniFile.Create(extractfilepath(Application.ExeName)+'Options.ini');
//смена кнопок и размеров
Image1.Picture.LoadFromFile('Images\Complication.bmp');
Image2.Picture.LoadFromFile('Images\Easy.bmp');
Image3.Picture.LoadFromFile('Images\Hard.bmp');
Image3.Left:=(Image1.Left+Image1.Width-Image3.Width);
Image4.Visible:=false;
Image5.Visible:=false;
Left:=(Form3.Left-round((Image1.Width+(Image1.Left*2)-ClientWidth)/2));
ClientWidth:=(Image1.Width+(image1.Left*2));
ClientHeight:=(Form3.ClientHeight-(Image2.Top-Image1.Top));
Left:=(Left-round((Image1.Width+(Image1.Left*2)-ClientWidth)/2));
//смена кнопок и размеров
buttonflag:=buttonflag+1;
fname2:='10\';
clas:=10;
Ini.WriteInteger('Properties','Clas',10);
Form1.Clas10ClasItem.Default:=true;
fpath:=fname+fname2+fname1;
Form1.sTreeView1.LoadFromFile(fpath+'tree.txt');
exit;
Destroy;
end;
procedure TForm3.Image5Click(Sender: TObject);
var Ini:TIniFile;
begin
Ini:=TIniFile.Create(extractfilepath(Application.ExeName)+'Options.ini');
//смена кнопок и размеров
Image1.Picture.LoadFromFile('Images\Complication.bmp');
Image2.Picture.LoadFromFile('Images\Easy.bmp');
Image3.Picture.LoadFromFile('Images\Hard.bmp');
Image3.Left:=(Image1.Left+Image1.Width-Image3.Width);
Image4.Visible:=false;
Image5.Visible:=false;
Left:=(Form3.Left-round((Image1.Width+(Image1.Left*2)-ClientWidth)/2));
ClientWidth:=(Image1.Width+(image1.Left*2));
ClientHeight:=(ClientHeight-(Image2.Top-Image1.Top));
//смена кнопок и размеров
buttonflag:=buttonflag+1;
fname2:='11\';
clas:=11;
Ini.WriteInteger('Properties','Clas',11);
Form1.Clas11ClasItem.Default:=true;
fpath:=fname+fname2+fname1;
Form1.sTreeView1.LoadFromFile(fpath+'tree.txt');
exit;
Destroy;
end;
end.