Merge pull request #15 from DarkCoderSc/dev-2-0-3

This version introduces two major updates:

- Bulk Actions for File Manager: This new feature allows you to perform multiple actions simultaneously on several selected files (using checkboxes). The first bulk action enables downloading multiple files from the current and previously browsed directories, eliminating the need to download files one by one. To activate this feature, check the "Enable Bulk Actions" option in the file manager (please refer to the wiki for more details).
- Multiple File Selection in the Open Dialog: You can now select multiple files at once in the open dialog, facilitating the upload of multiple files simultaneously.

Author: DarkCoderSc

CHANGELOG.md

@@ -1,5 +1,12 @@
 # Changelogs
 
+## 2.0.3 (March 2026)
+
+This version introduces two major updates:
+
+- Bulk Actions for File Manager: This new feature allows you to perform multiple actions simultaneously on several selected files (using checkboxes). The first bulk action enables downloading multiple files from the current and previously browsed directories, eliminating the need to download files one by one. To activate this feature, check the "Enable Bulk Actions" option in the file manager (please refer to the wiki for more details).
+- Multiple File Selection in the Open Dialog: You can now select multiple files at once in the open dialog, facilitating the upload of multiple files simultaneously.
+
 ## 2.0.2 (March 2026)
 
 - Updated NeoFlat Hint Component and implemented it on the user list. When hovering over a user, a summary of remote peer information is displayed.

Client GUI/Units/Forms/uFormMain.pas

@@ -211,7 +211,7 @@ function TFormMain.GetNodeFromHandler(const AHandler: TOptixSessionHandlerThread
     if pData^.Handler = AHandler then begin
       Result := pNode;
 
-      break;
+      Break;
     end;
   end;
 end;

Client GUI/Units/Forms/uFormWarning.pas

@@ -130,7 +130,7 @@ procedure TFormWarning.DoResize;
 
 procedure TFormWarning.ButtonAcceptTheRiskClick(Sender: TObject);
 begin
-  if string.Compare(Trim(EditAccept.Text), MAGIC_SENTENCE, True) = 0 then begin
+  if SameText(Trim(EditAccept.Text), MAGIC_SENTENCE) then begin
     FValidated := True;
 
     Close;
@@ -186,7 +186,7 @@ procedure TFormWarning.FormShow(Sender: TObject);
 
 procedure TFormWarning.TimerTimer(Sender: TObject);
 begin
-  ButtonAcceptTheRisk.Enabled := string.Compare(Trim(EditAccept.Text), MAGIC_SENTENCE, True) = 0;
+  ButtonAcceptTheRisk.Enabled := SameText(Trim(EditAccept.Text), MAGIC_SENTENCE);
 
   ///
 

Client GUI/Units/Threads/Optix.Protocol.Client.pas

@@ -264,7 +264,7 @@ procedure TOptixClientThread.ThreadExecute;
             FOnVerifyPeerCertificate(self, AFingerprint, ASuccess);
           end);
         {$ELSE}
-          ASuccess := string.Compare(FServerCertificateFingerprint, AFingerprint) = 0;
+          ASuccess := SameText(FServerCertificateFingerprint, AFingerprint);
         {$ENDIF}
 
         if not ASuccess then
@@ -331,7 +331,7 @@ procedure TOptixClientThread.ThreadExecute;
     end;
 
     if not FRetry then
-      break;
+      Break;
   end; // (While not Terminated)
 end;
 

Client GUI/Units/Threads/Optix.Protocol.SessionHandler.pas

@@ -239,7 +239,7 @@ procedure TOptixSessionHandlerThread.PollShellInstances;
         AShellInstancesToDelete.Add(AShellInstance);
 
         ///
-        continue;
+        Continue;
       end;
 
       try
@@ -271,7 +271,7 @@ procedure TOptixSessionHandlerThread.PerformActionOnShellInstance(const AInstanc
 begin
   for var AShellInstance in FShellInstances do begin
     if AShellInstance.InstanceId <> AInstanceId then
-      continue;
+      Continue;
     ///
 
     case AShellAction of
@@ -290,7 +290,7 @@ procedure TOptixSessionHandlerThread.StdinToShellInstance(const ACommand: TOptix
 begin
   for var AShellInstance in FShellInstances do begin
     if AShellInstance.InstanceId <> ACommand.InstanceId then
-      continue;
+      Continue;
     try
       AShellInstance.WriteLn(AnsiString(ACommand.CommandLine));
     except

Client GUI/Units/Threads/Optix.Protocol.Worker.FileTransfer.pas

@@ -123,7 +123,7 @@ procedure TOptixFileTransferOrchestratorThread.ClientExecute;
       // This call is used to detect a potential disconnection from the server and to exit the loop if necessary.
       // It does not consume any network data; it serves solely as a network exit control mechanism.
       if not FClient.IsSocketAlive then
-        break;
+        Break;
 
       var ATransfer: TOptixCommandTransfer := nil;
       ///
@@ -134,7 +134,7 @@ procedure TOptixFileTransferOrchestratorThread.ClientExecute;
       // Polling Transfer Request --------------------------------------------------------------------------------------
       while (FTransferQueue.PopItem(ATransfer) = TWaitResult.wrSignaled) do begin
         if Terminated then
-          break;
+          Break;
         ///
 
         var ATask: TOptixTransferTask;
@@ -149,7 +149,7 @@ procedure TOptixFileTransferOrchestratorThread.ClientExecute;
             // Should never happend
             FreeAndNil(ATransfer);
 
-            continue;
+            Continue;
           end;
 
           ///
@@ -161,7 +161,7 @@ procedure TOptixFileTransferOrchestratorThread.ClientExecute;
 
             FreeAndNil(ATransfer);
 
-            continue;
+            Continue;
           end;
         end;
       end;
@@ -176,13 +176,13 @@ procedure TOptixFileTransferOrchestratorThread.ClientExecute;
           // Process Tasks
           for ATransfer in ATasks.Keys do begin
             if Terminated then
-              break;
+              Break;
             ///
 
             var ATask: TOptixTransferTask := nil;
 
             if not ATasks.TryGetValue(ATransfer, ATask) or (ATask.State = otsEnd) then
-              continue;
+              Continue;
 
             FClient.Send(ATransfer.TransferId, SizeOf(TGUID));
 
@@ -192,7 +192,7 @@ procedure TOptixFileTransferOrchestratorThread.ClientExecute;
               ATerminatedTransfers.Add(ATransfer);
 
               ///
-              continue;
+              Continue;
             end;
 
             try
@@ -245,7 +245,7 @@ procedure TOptixFileTransferOrchestratorThread.ClientExecute;
           // Exit work loop if one of those two condition are met. Then poll new
           // items.
           if (AStopwatch.ElapsedMilliseconds >= 5000) or (ATasks.Count = 0) then
-            break;
+            Break;
         end; // end while not Terminated
       end;
       // ---------------------------------------------------------------------------------------------------------------
@@ -308,7 +308,7 @@ procedure TOptixFileTransferOrchestratorThread.Finalize;
     while True do begin
       ATransfer := FTransferQueue.PopItem;
       if not Assigned(ATransfer) then
-        break;
+        Break;
 
       ///
       FreeAndNil(ATransfer);

Core/Commands/OptixCore.SessionInformation.pas

@@ -185,7 +185,7 @@ function TOptixCommandReceiveSessionInformation.GetElevatedStatusString: string;
 
 function TOptixCommandReceiveSessionInformation.CheckIfSystemUser: Boolean;
 begin
-  Result := string.Compare(FUserSid, 'S-1-5-18', True) =  0;
+  Result := SameText(FUserSid, 'S-1-5-18');
 end;
 
 end.

Core/Network/OpenSSL/OptixCore.OpenSSL.Handler.pas

@@ -157,12 +157,12 @@ procedure TOptixOpenSSLHandler.Send(const buf; const len: Integer);
   while True do begin
     var AReturn := SSL_Write(FSSLConnection, buf, len);
     if AReturn > 0 then
-      break;
+      Break;
     ///
 
     case SSL_get_error(FSSLConnection, AReturn) of
       SSL_ERROR_WANT_READ, SSL_ERROR_WANT_WRITE: 
-        continue;
+        Continue;
 
       else
         raise EOpenSSLBaseException.Create(FSSLConnection);
@@ -175,12 +175,12 @@ procedure TOptixOpenSSLHandler.Recv(var buf; const len: Integer);
   while True do begin
     var AReturn := SSL_Read(FSSLConnection, buf, len);
     if AReturn > 0 then
-      break;
+      Break;
     ///
 
     case SSL_get_error(FSSLConnection, AReturn) of
       SSL_ERROR_WANT_READ, SSL_ERROR_WANT_WRITE: 
-        continue;
+        Continue;
 
       else
         raise EOpenSSLBaseException.Create(FSSLConnection);

Core/Network/OptixCore.Protocol.Client.Handler.pas

@@ -121,7 +121,7 @@ procedure TOptixClientHandlerThread.ClientExecute;
     while (FPacketQueue.PopItem(APacket) = TWaitResult.wrSignaled) do begin
       try
         if Terminated then
-          break;
+          Break;
         ///
 
         // Dispatch Packet
@@ -192,7 +192,7 @@ procedure TOptixClientHandlerThread.Finalize;
     while True do begin
       APacket := FPacketQueue.PopItem;
       if not Assigned(APacket) then
-        break;
+        Break;
 
       ///
       FreeAndNil(APacket);

Core/OptixCore.Classes.pas

@@ -126,7 +126,7 @@ function TOptixSerializableObject.Serialize: TJsonObject;
     for var AField in AType.GetFields do begin
       for var AFieldAttribute in AField.GetAttributes do begin
         if not (AFieldAttribute is OptixSerializableAttribute) then
-          continue;
+          Continue;
         ///
 
         case AField.FieldType.TypeKind of
@@ -143,7 +143,7 @@ function TOptixSerializableObject.Serialize: TJsonObject;
             var AFieldClass := AField.FieldType.AsInstance.MetaclassType;
             var AObject := AField.GetValue(self).AsObject;
             if not Assigned(AObject) then
-              continue;
+              Continue;
             ///
 
             // Serializable Object -------------------------------------------------------------------------------------
@@ -170,7 +170,7 @@ function TOptixSerializableObject.Serialize: TJsonObject;
                   ///
 
                   if not Assigned(AItemObject) or not (AItemObject is TOptixSerializableObject) then
-                    continue;
+                    Continue;
 
                   ///
                   AJsonArray.AddElement(TOptixSerializableObject(AItemObject).Serialize)
@@ -230,7 +230,7 @@ procedure TOptixSerializableObject.DeSerialize(const ASerializedObject: TJsonObj
   for var APair in ASerializedObject do begin
     var AField := AType.GetField(APair.JsonString.Value);
     if not Assigned(AField) or not Assigned(AField.GetAttribute(OptixSerializableAttribute)) then
-      continue;
+      Continue;
     ///
 
     var AJsonValue := APair.JsonValue;
@@ -269,7 +269,7 @@ procedure TOptixSerializableObject.DeSerialize(const ASerializedObject: TJsonObj
           if not Assigned(AClearMethod) or not Assigned(AAddMethod) or (Length(AAddMethod.GetParameters) = 0) or
             not (AJsonValue is TJsonArray)
           then
-            continue;
+            Continue;
 
           AClearMethod.Invoke(AObject, []);
 
@@ -284,7 +284,7 @@ procedure TOptixSerializableObject.DeSerialize(const ASerializedObject: TJsonObj
             if not (AItem is TOptixSerializableObject) then begin
               FreeAndNil(AItem);
 
-              break;
+              Break;
             end;
             ///