Huquq egasi: Sobirova Sharofat Umedullayevna, O‘zbekiston, o’qituvchi, Buxoro davlat pedagogika instituti; Mualliflar


Download 15.42 Kb.
Sana08.06.2023
Hajmi15.42 Kb.
#1462944
TuriУчебник
Bog'liq
Texnik ijodiy loyihalash


“Texnik ijodiy loyihalash” fanidan elektron darslik
Электронный учебник "Технический креативный дизайн".

Yaratilgan vaqti 05.05.2023 y.




Huquq egasi:
Sobirova Sharofat Umedullayevna, O‘zbekiston, o’qituvchi , Buxoro davlat pedagogika instituti;
Mualliflar:
Sobirova Sharofat Umedullayevna, O‘zbekiston, o’qituvchi , Buxoro davlat pedagogika instituti;

“Texnik ijodiy loyihalash” fanidan elektron darslik


dastur kodidan namunalar

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;
cxTreeView3: TcxTreeView;
dxBarLargeButton3: TdxBarLargeButton;
cxImageList3: TcxImageList;
dxBarLargeButton4: TdxBarLargeButton;
Panel5: TPanel;
cxTreeView4: TcxTreeView;
cxImageList4: TcxImageList;
dxBarLargeButton5: TdxBarLargeButton;
Panel6: TPanel;
cxImageList5: TcxImageList;
cxTreeView5: TcxTreeView;
dxBarLargeButton6: TdxBarLargeButton;
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 cxTreeView4DblClick(Sender: TObject);
procedure dxBarLargeButton4Click(Sender: TObject);
procedure dxBarLargeButton5Click(Sender: TObject);
procedure cxTreeView5DblClick(Sender: TObject);

private
{ Private declarations }


public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.cxTreeView2DblClick(Sender: TObject);


begin
case cxTreeView2.Selected.SelectedIndex of
1:Form2.WebBrowser1.Navigate(GetCurrentDir+'\amaliy\amaliy1.htm');
2:Form2.WebBrowser1.Navigate(GetCurrentDir+'\amaliy\amaliy2.htm');
3:Form2.WebBrowser1.Navigate(GetCurrentDir+'\amaliy\amaliy4.htm');
4:Form2.WebBrowser1.Navigate(GetCurrentDir+'\amaliy\amaliy5.htm');
5:Form2.WebBrowser1.Navigate(GetCurrentDir+'\amaliy\amaliy6.htm');
6:Form2.WebBrowser1.Navigate(GetCurrentDir+'\amaliy\amaliy7.htm');
7:Form2.WebBrowser1.Navigate(GetCurrentDir+'\amaliy\amaliy8.htm');

end;
Form2.ShowModal;


end;

procedure TForm1.cxTreeView4DblClick(Sender: TObject);

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

case cxTreeView4.Selected.SelectedIndex of


//a:=GetCurrentDir+'\Maruza\Ìàúðóçà 1.docx' :
//ShellExecute (Form1.Handle, nil, PChar (a), nil, nil, SW_RESTORE);
1: q:=GetCurrentDir+'\video\Hydrostatic_Pressure.mp4';
2: q:=GetCurrentDir+'\video\Диафрагма.mp4';
3: q:=GetCurrentDir+'\video\Закон_Бернулли.mp4';
4: q:=GetCurrentDir+'\video\Закон_Паскаля.mp4';
end;

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;
Panel6.Visible:=False;

end;


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

procedure TForm1.dxBarLargeButton3Click(Sender: TObject);


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

end;


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

procedure TForm1.dxBarLargeButton5Click(Sender: TObject);


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

end;


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

end.
Download 15.42 Kb.

Do'stlaringiz bilan baham:




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling