Разработка программного средства "Портфолио педагога"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
nabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox8.Checked=false then:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
0thenmessagedlg(!">\Внеурочная деятельность\Сорвенования;ListBox10.Items.Count<>0 thenmessagedlg(При снятии галочки все файлы из этой категории будут удалены!
+Хотите продолжить?
,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin
//удаляем каталог
MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;;;TMain.SpeedButton36Click(Sender: TObject);
var:string;
//определяем директория для хранения файлов
tekdir:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Авторские материалы\Программы;OpenPictureDialog1.Execute then
begin
//если нет директориит - создаем ее
if not DirectoryExists(tekdir)ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+\+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton37Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Авторские материалы\Программы;
if ListBox11.ItemIndex=-1 then exit;(tekdir+\+ListBox11.Items[ListBox11.ItemIndex]);.Items.Delete(ListBox11.ItemIndex);;TMain.SpeedButton38Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Авторские материалы\Методические разработки;
if ListBox12.ItemIndex=-1 then exit;(tekdir+\+ListBox12.Items[ListBox12.ItemIndex]);.Items.Delete(ListBox12.ItemIndex);;TMain.SpeedButton40Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Авторские материалы\Публикации;
if ListBox13.ItemIndex=-1 then exit;(tekdir+\+ListBox13.Items[ListBox13.ItemIndex]);.Items.Delete(ListBox13.ItemIndex);;TMain.SpeedButton44Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Авторские материалы\Печатные издания;
if ListBox14.ItemIndex=-1 then exit;(tekdir+\+ListBox14.Items[ListBox14.ItemIndex]);.Items.Delete(ListBox14.ItemIndex);;TMain.SpeedButton46Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Авторские материалы\Электронные ресурсы;
if ListBox15.ItemIndex=-1 then exit;(tekdir+\+ListBox15.Items[ListBox15.ItemIndex]);.Items.Delete(ListBox15.ItemIndex);;TMain.SpeedButton39Click(Sender: TObject);
var:strinkdir+\+ListBox15.Items[ListBox15.ItemIndex]);.Items.Delete(ListBox15.ItemIndex);;TMain.SpeedButton39Click(Sender: TObject);
var:string;
//определяем директория для хранения файлов
tekdir:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Авторские материалы\Методические разработки;
if OpenPictureDialog1.Execute then
//если нет директориит - создаем ееnot DirectoryExists(tekdir)ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+\+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton41Click(Sender: TObject);
var:string;
//определяем директория для хранения файлов
tekdir:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Авторские материалы\Публикации;OpenPictureDialog1.Execute then
//если нет директориит - создаем ееnot DirectoryExists(tekdir)
then ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+\+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton45Click(Sender: TObject);
var:string;
//определяем директория для хранения файлов
tekdir:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Авторские материалы\Печатные издания;
if OpenPictureDialog1.Execute then
//если нет директориит - создаем ееnot DirectoryExists(tekdir)ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+\+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton47Click(Sender: TObject);
var:string;
//определяем директория для хранения файлов
tekdir:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Авторские материалы\Электронные ресурсы;
if OpenPictureDialog1.Execute then
//если нет директориит - создаем ееnot DirectoryExists(tekdir)ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+\+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.CheckBox9Click(Sender: TObject);:string;CheckBox9.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox9.Checked=false then:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
0thenmessagedlg(!">\Авторские материалы\Программы;ListBox11.Items.Count<>0 thenmessagedlg(При снятии галочки все файлы из этой категории будут удалены!
+Хотите продолжить?
,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin
//удаляем каталог
MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false;;;TMain.CheckBox10Click(Sender: TObject);:string;CheckBox10.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox10.Checked=false then:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Авторские материалы\Методические разработки;
0then">if ListBox12.Items.Count<>0 then
if messagedlg(При снятии галочки все файлы из этой категории будут удалены!
+Хотите продолжить?
,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin
//удаляем каталог
MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false; end;