[novashdima]

Код:

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.