Winapi. Windows, Winapi. Messages, System. SysUtils, System. Variants, System. Classes, Vcl. Graphics

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters, dxRibbonSkins, dxSkinsCore, dxSkinsDefaultPainters,
dxRibbonCustomizationForm, dxBar, Vcl.ExtCtrls, cxClasses, dxRibbon,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
dxSkinOffice2016Dark,dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue, Vcl.ComCtrls, cxContainer, cxEdit,
cxTreeView, dxGDIPlusClasses, System.ImageList, Vcl.ImgList, cxImageList,
Vcl.OleCtrls, SHDocVw, dxSkiniMaginary,ShellAPI,ComObj;

type
TForm1 = class(TForm)

dxRibbon1Tab1: TdxRibbonTab;
dxRibbon1: TdxRibbon;
dxBarManager1: TdxBarManager;
dxBarManager1Bar1: TdxBar;
Panel1: TPanel;
Image1: TImage;
dxBarLargeButton1: TdxBarLargeButton;
Panel2: TPanel;
cxTreeView1: TcxTreeView;
cxImageList1: TcxImageList;
dxBarLargeButton2: TdxBarLargeButton;
Panel3: TPanel;
cxTreeView2: TcxTreeView;
cxImageList2: TcxImageList;
Panel4: TPanel;
dxBarLargeButton3: TdxBarLargeButton;
cxImageList3: TcxImageList;
dxBarLargeButton4: TdxBarLargeButton;
dxBarLargeButton5: TdxBarLargeButton;
cxTreeView3: TcxTreeView;
dxBarLargeButton6: TdxBarLargeButton;
Panel5: TPanel;
cxTreeView4: TcxTreeView;
cxImageList4: TcxImageList;
cxImageList5: TcxImageList;
procedure dxBarLargeButton1Click(Sender: TObject);
procedure cxTreeView1DblClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure cxTreeView2DblClick(Sender: TObject);
procedure dxBarLargeButton2Click(Sender: TObject);
procedure dxBarLargeButton3Click(Sender: TObject);
procedure cxTreeView3DblClick(Sender: TObject);
procedure dxBarLargeButton5Click(Sender: TObject);
procedure cxTreeView4DblClick(Sender: TObject);
procedure dxBarLargeButton6Click(Sender: TObject);

private
{ Private declarations }

public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.cxTreeView1DblClick(Sender: TObject);

begin

case cxTreeView1.Selected.SelectedIndex of

1:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Ma`ruza\ Pedagogik konfliktologiyaning mohiyati, obyekti, predmeti, maqsadi, vazifalari.mht');
2:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Ma`ruza\ Pedagogik konfliktologiyaning fan sifatida paydo bo‘lishi.mht');
3:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Ma`ruza\ Pedagogik konfliktologiyaning fanlar bilan aloqadorlikda rivojlanishi.mht');
4:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Ma`ruza\ Konflikt inson hayotining ajralmas tarkibi sifatida: konfliktogenlar.mht');
5:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Ma`ruza\ Nizo, uning mazmuni.mht');
6:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Ma`ruza\ Nizo turlari.mht');
7:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Ma`ruza\ Agressiya va zo‘ravonlik haqida tushuncha. Uning mohiyati.mht');
8:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Ma`ruza\ Konflektli vaziyat g’azab va qahr.mht');
9:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Ma`ruza\ O‘qituvchi va o‘quvchi o‘rtasidagi nizolarning o‘ziga xos xususiyatlari.mht');
10:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Ma`ruza\ Ta’lim muassasalarida o’qituvchi va o’quvchi o’rtasidagi nizolarni oldini olish yo’llari.mht');
11:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Ma`ruza\ Oiladagi tarbiya jarayonining pedagogik konflektalogiya bilan aloqasi haqida.mht');
12:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Ma`ruza\ Jamoadagi konflikt va uni yechimga olib kelish yo‘llari.mht');
13:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Ma`ruza\ Pedagogik konfliktologiyada tana zaboni.mht');
14:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Ma`ruza\ Muomala madaniyati va to’g’ri muloqot qoidalari.mht');

end;
Form2.ShowModal;

end;

procedure TForm1.cxTreeView2DblClick(Sender: TObject);

begin
case cxTreeView2.Selected.SelectedIndex of
1:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Seminar mashg`ulot\ Pedagogik konfliktologiyaning mohiyati, obyekti. maqsadi, vazifalari.mht');
2:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Seminar mashg`ulot\ Pedagogik konfliktologiyaning fan sifatida paydo bo‘lishi.mht');
3:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Seminar mashg`ulot\ Pedagogik konfliktologiyaning fanlar bilan aloqadorlikda rivojlanishi.mht');
4:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Seminar mashg`ulot\ Konflikt inson hayotining ajralmas tarkibi sifatida: konfliktogenlar.mht');
5:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Seminar mashg`ulot\ Nizo, uning mazmuni va turlari.mht');
6:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Seminar mashg`ulot\ Konflikt signallari.mht');
7:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Seminar mashg`ulot\ Ziddiyatlar yechimida adolatparvarlik mezonlar.mht');
8:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Seminar mashg`ulot\ Konfliktlarni boshqarish tartiblari.mht');
9:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Seminar mashg`ulot\ Konfliktlarni boshqarish usullari.mht');
10:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Seminar mashg`ulot\ Pedagogik konflektlar turlari.mht');
11:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Seminar mashg`ulot\ Pedagogik vaziyatlarni hal etishda oilaning roli.mht');
12:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Seminar mashg`ulot\ Oiladagi tarbiya jarayonining pedagogik konflektalogiya bilan aloqasi haqida.mht');
13:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Seminar mashg`ulot\ Jamoadagi konflektlar va uni yechimga olib kelish yo’llari.mht');
14:Form2.WebBrowser1.Navigate(GetCurrentDir+'\Seminar mashg`ulot\ Pedagogik konflektologiyada tolerantlik tushunchasi.mht');
end;
Form2.ShowModal;
end;

procedure TForm1.cxTreeView4DblClick(Sender: TObject);

var
q:AnsiString;
W: WideString;
P: PWideChar;
begin

case cxTreeView4.Selected.SelectedIndex of

//a:=GetCurrentDir+'\Ma`ruza\Ma`ruza.docx' :
//ShellExecute (Form1.Handle, nil, PChar (a), nil, nil, SW_RESTORE);
1: q:=GetCurrentDir+'\Videomaterial\ Hozirgi kunda barkamols haxsni tarbiyalashda pedagogik konfliktologiya fanining ahamiyati.mp4';
2: q:=GetCurrentDir+'\ Videomaterial \ Oiladagi tarbiya jarayonining pedagogik konflektalogiya bilan aloqasi haqida.mp4';
3: q:=GetCurrentDir+'\ Videomaterial \ To‘g‘ri muloqot qoidalari.mp4';
4: q:=GetCurrentDir+'\ Videomaterial \ O‘zgani anglash (eshitish) va o‘zini anglatish qoidalari.mp4';
5: q:=GetCurrentDir+'\ Videomaterial \ Konfliktlarni boshqarish tartiblari.mp4';
6: q:=GetCurrentDir+'\ Videomaterial \ Pedagogik konfliktologiyada mediatsiya qoidalari.mp4';
7: q:=GetCurrentDir+'\ Videomaterial \ Pedagogik konfliktlarni hal etishda oila, ta’lim muassasasi va jamiyatning o’zaro munosabati.mp4';

W := q;
P := PWideChar(W);

//ShowMessage(q);

ShellExecute(Handle,

'open', P, nil, nil, SW_SHOWNORMAL);

end;

procedure TForm1.dxBarLargeButton1Click(Sender: TObject);
begin
Panel3.Visible:=True;
Panel1.Visible:=False;
Panel2.Visible:=False;
Panel4.Visible:=False;
Panel5.Visible:=False;

end;

procedure TForm1.dxBarLargeButton2Click(Sender: TObject);
begin
Panel2.Visible:=True;
Panel1.Visible:=False;
Panel3.Visible:=False;
Panel4.Visible:=False;
Panel5.Visible:=False;
end;

procedure TForm1.dxBarLargeButton3Click(Sender: TObject);

var
q:AnsiString;
W: WideString;
P: PWideChar;
begin
q:=GetCurrentDir+'\test\test.exe';
W := q;
P := PWideChar(W);

//ShowMessage(q);

ShellExecute(Handle,
'open', P, nil, nil, SW_SHOWNORMAL);

end;

procedure TForm1.dxBarLargeButton5Click(Sender: TObject);
begin
Panel4.Visible:=True;
Panel1.Visible:=False;
Panel2.Visible:=False;
Panel3.Visible:=False;
Panel5.Visible:=False;
end;

procedure TForm1.dxBarLargeButton6Click(Sender: TObject);

begin
Panel5.Visible:=True;
Panel1.Visible:=False;
Panel2.Visible:=False;
Panel3.Visible:=False;
Panel4.Visible:=False;
end;

procedure TForm1.FormShow(Sender: TObject);

begin
Panel1.Visible:=True;
Panel4.Visible:=False;
Panel2.Visible:=False;
Panel3.Visible:=False;
Panel5.Visible:=False;
end;

end.