paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 06:48:11 +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

3
components/tachart/taexpressionseries.pas
View File

@ -449,7 +449,8 @@ begin
' ': ;
';': begin
Analyze(AList, ADomain, parts);
for p := 0 to Length(parts)-1 do parts[p] := '';
for p := 0 to Length(parts)-1 do
parts[p] := '';
p := 0;
end;
'<': if (i < Length(FExpression)) then begin

3
components/turbopower_ipro/iputils.pas
View File

@ -1034,7 +1034,8 @@ 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
if (S=0) or (D1=0) or (D2=0) or (D3=0) then
; // avoid hints
Result := '!!!! Unhandled log entry'#10#13;
end;

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

@ -362,7 +362,8 @@ 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;
if StatusPanel.StatusBar.UseRightToLeftReading then
WParam := WParam or SBT_RTLREADING;
Windows.SendMessageW(StatusPanel.StatusBar.Handle, SB_SETTEXTW, WParam, LPARAM(PWideChar(UTF8ToUTF16(Text))));
end;