Разработка программного средства "Портфолио педагога"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
messagedlg(При снятии галочки все файлы из этой категории будут удалены!
+Хотите продолжить?
,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin
//удаляем каталог
MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;;;TMain.SpeedButton31Click(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.SpeedButton30Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Внеурочная деятельность\Конкурсы;
if ListBox8.ItemIndex=-1 then exit;(tekdir+\+ListBox8.Items[ListBox8.ItemIndex]);.Items.Delete(ListBox8.ItemIndex);;TMain.SpeedButton28Click(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.SpeedButton29Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Внеурочная деятельность\Концерты;
if ListBox7.ItemIndex=-1 then exit;(tekdir+\+ListBox7.Items[ListBox7.ItemIndex]);.Items.Delete(ListBox7.ItemIndex);;TMain.SpeedButton27Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Внеурочная деятельность\Выставки;
if ListBox6.ItemIndex=-1 then exit;(tekdir+\+ListBox6.Items[ListBox6.ItemIndex]);.Items.Delete(ListBox6.ItemIndex);;TMain.SpeedButton26Click(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.CheckBox6Click(Sender: TObject);:string;CheckBox6.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox6.Checked=false then:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
0thenmessagedlg(!">\Внеурочная деятельность\Конкурсы;ListBox8.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.CheckBox5Click(Sender: TObject);:string;CheckBox5.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox5.Checked=false then:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
0thenmessagedlg(!">\Внеурочная деятельность\Концерты;ListBox7.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.CheckBox4Click(Sender: TObject);:string;CheckBox4.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox4.Checked=false then
begin
//определяем директория для хранения файлов
tekdir:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
0thenmessagedlg(!">\Внеурочная деятельность\Выставки;ListBox6.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.SpeedButton32Click(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.SpeedButton34Click(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.SpeedButton33Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Внеурочная деятельность\Турниры;
if ListBox9.ItemIndex=-1 then exit;(tekdir+\+ListBox9.Items[ListBox9.ItemIndex]);.Items.Delete(ListBox9.ItemIndex);;TMain.SpeedButton35Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Внеурочная деятельность\Турниры;
if ListBox10.ItemIndex=-1 then exit;(tekdir+\+ListBox10.Items[ListBox10.ItemIndex]);.Items.Delete(ListBox10.ItemIndex);;TMain.CheckBox7Click(Sender: TObject);:string;CheckBox7.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox7.Checked=false then:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
0then">\Внеурочная деятельность\Турниры;ListBox9.Items.Count<>0 then
beginmessagedlg(При снятии галочки все файлы из этой категории будут удалены!
+Хотите продолжить?
,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin
//удаляем каталог
MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;;;TMain.CheckBox8Click(Sender: TObject);:string;CheckBox8.Checked then.E