Wrong Formatting with Anonymous Thread in "Code Formatter""

[luciano_f 4]

See this example below.

No configuration can solve this problem

The problem is that the Procedure "P_LoopActive" has no margins and is glued to the left

Procedure TForm_MenuPrincipal.P_ActiveUDPServer(Op: Integer);
Var PortaUDP: Integer;
Var fThread_UDPServer: TThread;
Begin

   fThread_UDPServer := TThread.CreateAnonymousThread(Procedure
Procedure P_LoopAtive;
Var I: Integer;
Begin
 PortaUDP := vPorta_Refresh;

 For I := 1 To Count_SessionWindows Do Begin
  Try
   Server_Refresh.Active := False;
   Server_Refresh.DefaultPort := PortaUDP;
   Server_Refresh.BroadcastEnabled := True;
   Server_Refresh.ThreadedEvent := False;
   Server_Refresh.Active := True;
   break;
  Except
   On E: Exception Do Begin             // Não dar erro aleatorios no Terminal Server
    Inc(PortaUDP);

    FreeAndNil(Server_Refresh);

    Server_Refresh := TIdUDPServer.Create(self);
    Server_Refresh.OnUDPRead := Server_RefreshUDPRead;

    P_LogException(E);
   End;
  End;
 End;
End;

   Begin
    If Op = 0 Then
     P_LoopAtive;

    If Op = 1 Then Begin
     Try
      Server_Refresh.Active := True;
     Except
      P_LoopAtive;
     End;
    End;
   End);
  fThread_UDPServer.FreeOnTerminate := True;
  fThread_UDPServer.Start;

End;

 

Edited May 22 by luciano_f

[dummzeuch 1431]

Please create a bug report on SourceForge.

[luciano_f 4]

2 hours ago, dummzeuch said:

Please create a bug report on SourceForge.

 

https://sourceforge.net/p/gexperts/bugs/378/