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




Download 22.56 Kb.
Sana31.05.2022
Hajmi22.56 Kb.
#22461
Bog'liq
Listing
Хат Реология, MUHAMMADJONOV C 2, Психологиялык тест (кк тилде) (2), «АУДИТ» ФАНИДАН МАЪРУЗА МАТНЛАР ТЎПЛАМИ, O, 2 5233456386486048311, Диелектрик қўлқоплар, этиклар, калишлар ва гиламчалар билан ишлаш, Vahobov Shaxzodbek G’ofurjon o’g’li, 3-m (1), 11-maktab jadval katta sinf, 1, Algaritim 1 topshiriq, 2 статья Джизак Проблемы устойчивого развития регионов РУз, 51-100 test 31.05.2023

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;
Download 22.56 Kb.




Download 22.56 Kb.

Bosh sahifa
Aloqalar

    Bosh sahifa



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

Download 22.56 Kb.