Huquq egasi: Sobirova Sharofat Umedullayevna, O‘zbekiston, o’qituvchi, Buxoro davlat pedagogika instituti; Mualliflar
Download 15.42 Kb.
|
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
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
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
public { Public declarations } end; var
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;
end; procedure TForm1.cxTreeView4DblClick(Sender: TObject); var
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;
//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'muriyatiga murojaat qiling