• R/O
  • SSH
  • HTTPS

facebooktools: Commit


Commit MetaInfo

Revision10 (tree)
Time2020-05-01 06:40:27
Authorderekwildstar

Log Message

Utilizados métodos repaint para ver se resolve o problema da tela de status ficar preta

Change Summary

Incremental Difference

--- trunk/src/UDAMOPrincipal.pas (revision 9)
+++ trunk/src/UDAMOPrincipal.pas (revision 10)
@@ -245,12 +245,12 @@
245245 if not FirstIteration then
246246 begin
247247 TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines.Add('Waiting 5 seconds...');
248- TFORMBatchGroupSharingProgress(FB.InternalFormInstance).Update;
248+ TFORMBatchGroupSharingProgress(FB.InternalFormInstance).Repaint;
249249 Wait5Seconds;
250250 end;
251251
252252 TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines.Add('Sharing to group "' + GR.Name + '"...');
253- TFORMBatchGroupSharingProgress(FB.InternalFormInstance).Update;
253+ TFORMBatchGroupSharingProgress(FB.InternalFormInstance).Repaint;
254254
255255 if ShareToGroup(GR.GroupInfo,PP) then
256256 TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines[Pred(TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines.Count)] := TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines[Pred(TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines.Count)] + 'Successful!'
@@ -257,7 +257,7 @@
257257 else
258258 TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines[Pred(TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines.Count)] := TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines[Pred(TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines.Count)] + 'Failed :(';
259259
260- TFORMBatchGroupSharingProgress(FB.InternalFormInstance).Update;
260+ TFORMBatchGroupSharingProgress(FB.InternalFormInstance).Repaint;
261261
262262 FirstIteration := False;
263263 end;
Show on old repository browser