From 13f69ef8875c9762c1ee66a5dac6bf8e177b0775 Mon Sep 17 00:00:00 2001
From: Rubio Ribeiro Canario Terra <rubio.terra@gmail.com>
Date: Fri, 18 Jan 2019 14:59:40 -0200
Subject: [PATCH] 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.
---
 projeto.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/projeto.pas b/projeto.pas
index b032659..16b4502 100644
--- 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;