From 19319bf7def1e22ae97c669dcff2fa298a1d8068 Mon Sep 17 00:00:00 2001
From: n7800 <14154601-n7800@users.noreply.gitlab.com>
Date: Fri, 28 Feb 2025 10:49:22 +0500
Subject: [PATCH] Correction of dubious indentation in the code

---
 components/fpcunit/ide/testinsightserver.pas | 2 +-
 components/tachart/taexpressionseries.pas    | 5 +++--
 components/turbopower_ipro/iputils.pas       | 5 +++--
 lcl/interfaces/carbon/carbonobject.inc       | 2 +-
 lcl/interfaces/win32/win32wscomctrls.pp      | 5 +++--
 5 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/components/fpcunit/ide/testinsightserver.pas b/components/fpcunit/ide/testinsightserver.pas
index fba7456a72..fa8f82cc3c 100644
--- a/components/fpcunit/ide/testinsightserver.pas
+++ b/components/fpcunit/ide/testinsightserver.pas
@@ -656,7 +656,7 @@ begin
   else if Len<2 then
     Raise ETestInsight.Create('Basepath cannot be empty');
   if FBasePath=AValue then Exit;
-    FBasePath:=AValue;
+  FBasePath:=AValue;
 end;
 
 {$IFDEF USECORS}
diff --git a/components/tachart/taexpressionseries.pas b/components/tachart/taexpressionseries.pas
index b018b0856b..02c38b69c8 100644
--- a/components/tachart/taexpressionseries.pas
+++ b/components/tachart/taexpressionseries.pas
@@ -449,8 +449,9 @@ begin
       ' ': ;
       ';': begin
              Analyze(AList, ADomain, parts);
-             for p := 0 to Length(parts)-1 do parts[p] := '';
-               p := 0;
+             for p := 0 to Length(parts)-1 do
+               parts[p] := '';
+             p := 0;
            end;
       '<': if (i < Length(FExpression)) then begin
              inc(p);
diff --git a/components/turbopower_ipro/iputils.pas b/components/turbopower_ipro/iputils.pas
index 812aafbcf0..8140a6978e 100644
--- a/components/turbopower_ipro/iputils.pas
+++ b/components/turbopower_ipro/iputils.pas
@@ -1034,8 +1034,9 @@ end;
 { Returns an appropriate string for the given parameters }
 class function TIpBaseComponent.GetLogString(const S, D1, D2, D3: DWORD): string;
 begin
-  if (S=0) or (D1=0) or (D2=0) or (D3=0) then ; // avoid hints
-    Result := '!!!! Unhandled log entry'#10#13;
+  if (S=0) or (D1=0) or (D2=0) or (D3=0) then
+    ; // avoid hints
+  Result := '!!!! Unhandled log entry'#10#13;
 end;
 
 procedure TIpBaseComponent.SetVersion(const Value: string);
diff --git a/lcl/interfaces/carbon/carbonobject.inc b/lcl/interfaces/carbon/carbonobject.inc
index 17e4644701..bd812667dd 100644
--- a/lcl/interfaces/carbon/carbonobject.inc
+++ b/lcl/interfaces/carbon/carbonobject.inc
@@ -1344,7 +1344,7 @@ begin
   
   // hide process
   if OSError(GetCurrentProcess(Proc{%H-}), Self, SName, SGetCurrentProc) then Exit;
-    OSError(ShowHideProcess(Proc, False), Self, SName, SShowHideProc);
+  OSError(ShowHideProcess(Proc, False), Self, SName, SShowHideProc);
 end;
 
 {------------------------------------------------------------------------------
diff --git a/lcl/interfaces/win32/win32wscomctrls.pp b/lcl/interfaces/win32/win32wscomctrls.pp
index c87c2c652e..6e2ceb5db1 100644
--- a/lcl/interfaces/win32/win32wscomctrls.pp
+++ b/lcl/interfaces/win32/win32wscomctrls.pp
@@ -362,8 +362,9 @@ begin
     WParam := WParam or ((StatusPanel.StatusBar.Panels.Count - 1) - StatusPanel.Index)
   else
     WParam := WParam or StatusPanel.Index;
-  if StatusPanel.StatusBar.UseRightToLeftReading then WParam := WParam or SBT_RTLREADING;
-    Windows.SendMessageW(StatusPanel.StatusBar.Handle, SB_SETTEXTW, WParam, LPARAM(PWideChar(UTF8ToUTF16(Text))));
+  if StatusPanel.StatusBar.UseRightToLeftReading then
+    WParam := WParam or SBT_RTLREADING;
+  Windows.SendMessageW(StatusPanel.StatusBar.Handle, SB_SETTEXTW, WParam, LPARAM(PWideChar(UTF8ToUTF16(Text))));
 end;
 
 procedure UpdateStatusBarPanelWidths(const StatusBar: TStatusBar);