Fix issues with the stop-translate button

Author: plaintool

forms/mainform.lfm

@@ -838,36 +838,36 @@ object formTrayslate: TformTrayslate
     Left = 40
     Top = 384
     Bitmap = {
-      4C7A1200000010000000100000008B0300000000000078DAED9A3D4B25311486
+      4C7A120000001000000010000000970300000000000078DAED9A3D4B25311486
       D5FBA18276FA1716040B59B0135B7F8085AD60632D2288F80116E207163623B8
       8295A88D5AD8DBD96865235888C555B0102C0521FB0E7B2E846C6672CE4D461D
-      CC81873B66E639939C31995CB1ADED5323F1F495670EC5CCA1182405DEBFA8F1
-      27053FA384FAE8E32A4F378FA2EE1F62FCA1E688EC174AA9CF24F1F495670EC5
-      CCC189A4C0FB1735FEA4E06794501F7D5CE5E9E64551F70F31FE50734404450D
-      D42DCB439DCE49621D6C089D23700676B4357806EC8363A6BF07B629C722E568
-      08D6D32A18D17E7E657A1DF439A0ADFD9BE0818E3B19392AF4390B9EC023E8A3
-      B676411D87A90FB796FE4DD2B941E39E697481533A3F0ACEE9784CBBE69ADA0E
-      2DFE04B807BD5ADB02B8D1FAF5017A284735676C554B5BFABB3147C71760DE72
-      6DC5C85733F64D5760093C8337462D9BFE3478076BE0046C51BE21C19E6DDC68
-      DBA567EC8A6EBA9FFE9CD2E807AB01DFFF3550B7AC0F753A275953D6C186D039
-      026760475B8367C03E3866FA7B609B722C528E86603DAD8211EDE757A6D7419F
-      03DADABF091EE8B89391A3429FB3E0093C823E6A6B17D47198FA706BE9DF249D
-      1B34EE99D2054EE9FC2838A7E331ED9A6B6A3BB4F813E01EF46A6D0BE046EBD7
-      07E8A11CD59CB1552D6DE9EFC61C1D5F8079CBB515235FCDD8375D8125F00CDE
-      18B56CFAD3E01DAC8113B045F986047BB671A36D979EB1CBEDA6FBE9CF29FDEC
-      07AB01DFFF31F2BFAF97C9F7F90E1CC22F7BFD62C468EE8DFEBDD04BE43BBF00
-      17EC97BD7E310A797FAA92FAB17EB17E3FB97E41DE9FADAEC15FEDC7FAC5FAFD
-      E4FA4963797959E5C1F16DD16C77E570F9AE1C793E671C59BE992BFAD16F65FE
-      70E7D177586F5BFDEE99D7EECAE1F25D39F27CCE387CC618FDE833FF8721F8FC
-      F75D735CEB9ED497F6C5E64BF61152DFCC21F16DE3E0FA59358DBEBF6FF293F6
-      01BE6B4EE8F3D2BED87CC93E42EABBF614D27D04D7E7EE69A22FF743ED554BBA
-      0FF0FDDF69573F457E0B7DF9CFCFEA47467F44BE2507DBCF1807CBCFA969F43D
-      7D13A12F9EC22E3FC09CFCD4F7FFDDDD5D2652BF95F7BFE967F5C3D61FA96FE6
-      90F859EF7F8E9F55D3E8FBFB66487CE97CE0F85FF177009F38383850EACF6F16
-      E9B5A6BFB2B2A2D4AF3616E9B536FFF2F29255B7E8DB7D09B17E61FD744E706B
-      6F9B3F659FFF8D46833DFFD36B6D3ED5D549F4EDBE8458BFB07E3A27B8B5FF8E
-      F3FF3BC4D4D494E210FDE817E1C7F8DA787979511CA21FFD22FC32C65FDFBC99
-      ED
+      CC81873B9B99E74C72E62693BBD8D6F6A99178FACA338762E6500C9202EF5FD4
+      F893829F51427DF47195A79B4751F70F31FE507344F68552EA33493C7DE59943
+      3173702229F0FE458D3F29F81925D4471F5779BA7951D4FD438C3FD41C114151
+      0375CBF250A7739258071B42E7089C811D6D0D9E01FBE098E9EF816DCAB14839
+      1A82F5B40A46B47FBF32BD0EFA1CD0D6FE4DF040C79D8C1C15FA9C054FE011F4
+      515BBBA08EC3D4875B4BFF26E9DCA071CF34BAC0299D1F05E7743CA65D734D6D
+      87167F02DC835EAD6D01DC68FDFA003D94A39A33B6AAA52DFD6ECCD1F10598B7
+      5C5B31F2D58C7DD3155802CFE08D51CBA63F0DDEC11A38015B946F48B0671B37
+      DA76E919BBA29BEEA73FA734FAC16AC0F77F0DD42DEB439DCE49D69475B02174
+      8EC019D8D1D6E019B00F8E99FE1ED8A61C8B94A321584FAB6044FBF72BD3EBA0
+      CF016DEDDF040F74DCC9C851A1CF59F0041E411FB5B50BEA384C7DB8B5F46F92
+      CE0D1AF74CE902A7747E149CD3F19876CD35B51D5AFC09700F7AB5B60570A3F5
+      EB03F4508E6ACED8AA96B6F4BB3147C71760DE726DC5C85733F64D5760093C83
+      37462D9BFE3478076BE0046C51BE21C19E6DDC68DBA567EC72BBE97EFA734A3F
+      FBC16AC0F77F8CFCDFEB65F27D7E0387F0CB5EBF18319A7BA37F2FF412F9CE1F
+      C005FB65AF5F8C42DE9FAAA47EAC5FACDF4FAE5F90F767AB6BF057FBB17EB17E
+      3FB97ED2585E5E5679707C5B34DB5D395CBE2B479ECF1947966FE68A7EF45B99
+      3FDC79F41DD6DB567F7BE6B5BB72B87C578E3C9F330E9F31463FFACCBF61083E
+      FF7DD71CD7BA27F5A57DB1F9927D84D43773487CDB38B87E564DA3EFEF9BFCA4
+      7D80EF9A13FABCB42F365FB28F90FAAE3D85741FC1F5B97B9AE8CBFD507BD592
+      EE037CFF76DAD54F91DF425FFEF3B3FA91D11F916FC9C1F633C6C1F2736A1A7D
+      4FDF44E88BA7B0CB0F30273FF5FD7F77779789D46FE5FD6FFA59FDB0F547EA9B
+      39247ED6FB9FE367D534FAFEBE19125F3A1F38FE57FC3F804F1C1C1C28F5E737
+      8BF45AD35F595951EA571B8BF45A9B7F7979C9AA5BF4EDBE8458BFB07E3A27B8
+      B5B7CD9FB2CFFF46A3C19EFFE9B5369FEAEA24FA765F42AC5F583F9D13DCDA7F
+      C7F9FF5D626A6A4AE5E1E3BA7244BFDCBEEFF727C6D7C7CBCB8BCAC3C775E588
+      7EB97DDFEF4F19E32F2B598259
     }
   end
   object TimerActive: TTimer

forms/mainform.pas

@@ -3907,6 +3907,7 @@ function TformTrayslate.TranslateThread(ATrans: TTranslate; AText: string; AMemo
   finally
     if not Assigned(AMemo) and (ATrans <> TransDetect) then
     begin
+      UpdateTranslateButtonState;
       Screen.Cursor := crDefault;
       TimerAnimate.Enabled := False;
     end;