
- •Void __fastcall tForm1::FormCreate(tObject *Sender)
- •Void __fastcall tForm1::bCloseClick(tObject *Sender)
- •Void __fastcall tForm1::FormCreate(tObject *Sender)
- •Void __fastcall tForm1::bCloseClick(tObject *Sender)
- •Void __fastcall tForm1::RadioGroup1Click(tObject *Sender)
- •Void __fastcall tForm1::FormCreate(tObject *Sender)
- •Void __fastcall tForm1::bCloseClick(tObject *Sender)
- •Void __fastcall tForm1::RadioGroup1Click(tObject *Sender)
- •Void __fastcall tForm1::FormCreate(tObject *Sender)
Void __fastcall tForm1::FormCreate(tObject *Sender)
{
tVid->Open(); ShowKol();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
Image1->Hide(); tVid->IndexName="indVidNaim";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bDobClick(TObject *Sender)
{
AnsiString s;
HideButtons();
if (OpenPictureDialog1->Execute())
{ s=OpenPictureDialog1->FileName;
Image1->Picture->LoadFromFile(s);
//можно и так: Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
tVid->Insert();
tVid->FieldByName("Photo")->Assign(Image1->Picture);
tVid->FieldByName("Naim")->AsString=s;
tVid->FieldByName("Path")->AsString=s;
tVid->Post();
ShowKol();
}// конец if
ShowButtons();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bZamClick(TObject *Sender)
{
AnsiString s; int n;
s="Уточните действие:\nЗаменить только изображение, сохранив надписи (Yes)";
s=s+"\nЗаменить все элементы (All) ";
HideButtons();
if (OpenPictureDialog1->Execute())
{ tVid->Edit();
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
n=MessageDlgPos(s,
mtConfirmation, TMsgDlgButtons()<< mbYes<< mbAll<<mbCancel,0,300,400);
switch (n)
{case 6:{tVid->FieldByName("Photo")->Assign(Image1->Picture);//Yes
tVid->Post();
break;}
case 8:{tVid->FieldByName("Photo")->Assign(Image1->Picture);//All
tVid->FieldByName("Naim")->AsString=OpenPictureDialog1->FileName;
tVid->FieldByName("Path")->AsString=OpenPictureDialog1->FileName;
tVid->Post();
break;}
case 2:{ tVid->Cancel();break;}//Cancel
}
}
ShowButtons();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bUdClick(TObject *Sender)
{
HideButtons();
if (MessageDlgPos("Подтвердите удаление фото "+
tVid->FieldByName("Naim")->AsString,
mtConfirmation, TMsgDlgButtons()<< mbYes<< mbNo,0,350,400)==mrYes)
{tVid->Delete();ShowKol();
}
ShowButtons();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bPClick(TObject *Sender)
{
if (lP->Visible==true)
{lP->Visible=false;DBText1->Visible=false;
bP->Caption="Показать путь";
}
else {lP->Visible=true;DBText1->Visible=true;
bP->Caption="Спрятать путь";
}
}
//---------------------------------------------------------------------------