//---------------------------------------------------------------------------
void __fastcall TProjectSel_Form::DBGrid1DblClick(TObject *Sender)
{
pr_id = DBGrid1->SelectedField->AsInteger ;
// FDCommand1->CommandText->Clear() ;
// String comm = String("update tasks set parent = " + IntToStr(pr_id) + " where task_id = " + IntToStr(t_id) + " ;") ;
// FDCommand1->CommandText->Add(comm) ;
// FDCommand1->Execute() ;
RefreshForm() ;
// Edit1->Text = IntToStr(pr_id) ;
// ProjectSel_Form->Visible = false ;
// ProjectSel_Form->Close() ;
}
void __fastcall TItemList::RefreshForm1Click(TObject *Sender)
{
RefreshForm();
}
void __fastcall TItemList::miDrawThumbnailsClick(TObject *Sender)
{
RefreshForm();
}
