paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 01:08:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

Correction of dubious indentation in the code

Browse Source
This commit is contained in:
n7800 2025-02-28 10:49:22 +05:00 committed by Juha Manninen
parent 847dee461c
commit 19319bf7de
5 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpcunit/ide/testinsightserver.pas
View File

@ -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}

5
components/tachart/taexpressionseries.pas
View File

@ -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);

5
components/turbopower_ipro/iputils.pas
View File

@ -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);

2
lcl/interfaces/carbon/carbonobject.inc
View File

@ -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;
{------------------------------------------------------------------------------

5
lcl/interfaces/win32/win32wscomctrls.pp
View File

@ -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);