OptiDelphi - SourceCode Strukturierer

[toms]

Der Code von

procedure TUrlDownload.WndProc(var Msg: TMessage); wird immer noch nicht schön formatiert.
Das Ende der Prozedur sieht so aus:

Delphi-Quellcode:

  // Open URL handle was created
      WM_URLCREATE   :  Inc(FPending);
      // Open URL handle was destroyed
      WM_URLDESTROY  :
      begin
        // Decrement the pending count
        Dec(FPending);
        // Access the request
        purRequest:=GetRequest(HINTERNET(wParam));
        // Perform event
        if Assigned(purRequest) then
        PerformEvent(ueFree, purRequest, 0);
      end;
      else
      // Call default window procedure
      result:=DefWindowProc(FWindow, Msg, wParam, lParam);
      end;
      end;

      end;