Destination text auto-edit if text is empty (#22)

Now the destination verse edit automatically enters into edit mode if its text is empty. This can be very useful in a translation project.
rubiot · Jan 18, 2019 · 13f69ef · 13f69ef
1 parent d684819
commit 13f69ef
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/projeto.pas b/projeto.pas
@@ -771,6 +771,9 @@ procedure TProjeto.PosRolagemVersiculo(DataSet: TDataSet);
 
   if assigned(OnNovoVersiculo) then
     OnNovoVersiculo(self);
+
+  if FTblPares.Fields[FACamposTexto[tbDestino]].AsString.IsEmpty then // open verse to edition if is empty
+    OnDblClickVersiculo(FAVersiculo[tbDestino].Painel);
 end;
 
 procedure TProjeto.SalvarPares;