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

Listing
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, cxClasses, dxRibbon, Vcl.ExtCtrls,
System.ImageList, Vcl.ImgList, cxImageList, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, 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.OleCtrls, dxGDIPlusClasses,
Vcl.ComCtrls, cxContainer, cxEdit, cxTreeView,ShellAPI,ComObj;

type
TForm1 = class(TForm)

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

private
{ Private declarations }

public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cxTreeView1DblClick(Sender: TObject);
var
q:AnsiString;
W: WideString;
P: PWideChar;

begin

case cxTreeView1.Selected.SelectedIndex of
1: q:=GetCurrentDir+'\seminar_mashguloti\1seminar_mashguloti.htm';
2: q:=GetCurrentDir+'\seminar_mashguloti\2seminar_mashguloti.htm'';
3: q:=GetCurrentDir+'\seminar_mashguloti\3seminar_mashguloti.htm';
4: q:=GetCurrentDir+'\seminar_mashguloti\4seminar_mashguloti.htm';
5: q:=GetCurrentDir+'\seminar_mashguloti\5seminar_mashguloti.htm';
6: q:=GetCurrentDir+'\seminar_mashguloti\6seminar_mashguloti.htm';
7: q:=GetCurrentDir+'\seminar_mashguloti\7seminar_mashguloti.htm';
8: q:=GetCurrentDir+'\seminar_mashguloti\8seminar_mashguloti.htm';
9: q:=GetCurrentDir+'\seminar_mashguloti\9seminar_mashguloti.htm';
10: q:=GetCurrentDir+'\seminar_mashguloti\10seminar_mashguloti.htm';
11: q:=GetCurrentDir+'\seminar_mashguloti\11seminar_mashguloti.htm';
12: q:=GetCurrentDir+'\seminar_mashguloti\12seminar_mashguloti.htm';
13: q:=GetCurrentDir+'\seminar_mashguloti\13seminar_mashguloti.htm';
14: q:=GetCurrentDir+'\seminar_mashguloti\14seminar_mashguloti.htm';
15: q:=GetCurrentDir+'\seminar_mashguloti\15seminar_mashguloti.htm';
16: q:=GetCurrentDir+'\seminar_mashguloti\16seminar_mashguloti.htm';
17: q:=GetCurrentDir+'\seminar_mashguloti\17seminar_mashguloti.htm';
18: q:=GetCurrentDir+'\seminar_mashguloti\18seminar_mashguloti.htm';
19: q:=GetCurrentDir+'\seminar_mashguloti\19seminar_mashguloti.htm';
20: q:=GetCurrentDir+'\seminar_mashguloti\20seminar_mashguloti.htm';

end;

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

//ShowMessage(q);

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

//Form1.ShowModal;

end;

procedure TForm1.cxTreeView3DblClick(Sender: TObject);

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

case cxTreeView3.Selected.SelectedIndex of

1: q:=GetCurrentDir+'\seminar_mashguloti_2\1seminar_mashguloti_2.htm';
2: q:=GetCurrentDir+'\seminar_mashguloti_2\2seminar_mashguloti_2.htm';
3: q:=GetCurrentDir+'\seminar_mashguloti_2\3seminar_mashguloti_2.htm';
4: q:=GetCurrentDir+'\seminar_mashguloti_2\4seminar_mashguloti_2.htm';
5: q:=GetCurrentDir+'\seminar_mashguloti_2\5seminar_mashguloti_2.htm';
6: q:=GetCurrentDir+'\seminar_mashguloti_2\6seminar_mashguloti_2.htm';
7: q:=GetCurrentDir+'\seminar_mashguloti_2\7seminar_mashguloti_2.htm';
8: q:=GetCurrentDir+'\seminar_mashguloti_2\8seminar_mashguloti_2.htm';
9: q:=GetCurrentDir+'\seminar_mashguloti_2\9seminar_mashguloti_2.htm';
10: q:=GetCurrentDir+'\seminar_mashguloti_2\10seminar_mashguloti_2.htm';
11: q:=GetCurrentDir+'\seminar_mashguloti_2\11seminar_mashguloti_2.htm';
12: q:=GetCurrentDir+'\seminar_mashguloti_2\12seminar_mashguloti_2.htm';
13: q:=GetCurrentDir+'\seminar_mashguloti_2\13seminar_mashguloti_2.htm';
14: q:=GetCurrentDir+'\seminar_mashguloti_2\14seminar_mashguloti_2.htm';
15: q:=GetCurrentDir+'\seminar_mashguloti_2\15seminar_mashguloti_2.htm';
16: q:=GetCurrentDir+'\seminar_mashguloti_2\16seminar_mashguloti_2.htm';
17: q:=GetCurrentDir+'\seminar_mashguloti_2\17seminar_mashguloti_2.htm';
18: q:=GetCurrentDir+'\seminar_mashguloti_2\18seminar_mashguloti_2.htm';
19: q:=GetCurrentDir+'\seminar_mashguloti_2\19seminar_mashguloti_2.htm';
20: q:=GetCurrentDir+'\seminar_mashguloti_2\20seminar_mashguloti_2.htm';

end;

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

//ShowMessage(q);

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

end;

procedure TForm1.cxTreeView2DblClick(Sender: TObject);

var
q:AnsiString;

W: WideString;
P: PWideChar;
begin

case cxTreeView2.Selected.SelectedIndex of

//a:=GetCurrentDir+'\Seminar_mashguloti_2\ Seminar_mashguloti.docx' :
//ShellExecute (Form1.Handle, nil, PChar (a), nil, nil, SW_RESTORE);
1: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_1.ppt';
2: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_2.ppt';
3: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_3.ppt';
4: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_4.ppt';
5: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_5.pptx';
6: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_6.pdf';
7: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_7.pdf';
8: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_8.pdf';
9: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_9.pdf';
10: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_10.ppt';
11: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_11.ppt';
12: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_12.pptx';
13: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_13.ppt';
14: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_14.ppt';
15: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_15.pptx';
16: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_16.ppt';
17: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_17.ppt';
18: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_18.ppt';
19: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_19.pptx';
20: q:=GetCurrentDir+'\seminar_uchun_savollar\taqdimoti_20.pdf';

end;

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

//ShowMessage(q);

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

end;
procedure TForm1.cxTreeView4DblClick(Sender: TObject);

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

begin

case cxTreeView4.Selected.SelectedIndex of
1: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_1.pdf';
2: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_2.pdf';
3: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_3.pdf';
4: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_4.pdf';
5: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_5.pdf';
6: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_6.pdf';
7: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_7.pdf';
8: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_8.pdf';
9: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_9.pdf';
10: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_10.pdf';
11: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_11.pdf';
12: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_12.pdf';
13: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_13.pdf';
14: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_14.pdf';
15: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_15.pdf';
16: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_16.pdf';
17: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_17.pdf';
18: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_18.pdf';
19: q:=GetCurrentDir+'\seminar_uchun_savollar2\seminar_uchun_savollar2_19.pdf';

end;

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

//ShowMessage(q);

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

//Form1.ShowModal;

end;

procedure TForm1.dxBarLargeButton1Click(Sender: TObject);

begin
Panel2.Visible:=True;
Panel3.Visible:=False;
panel1.Visible:=False;

end;

procedure TForm1.dxBarLargeButton2Click(Sender: TObject);
begin
panel1.Visible:=False;
panel2.Visible:=True;
Panel3.Visible:=False;


end;