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

IDE, SourceEditor: replace numeric (statusbar) panel index with named constant

Browse Source
This commit is contained in:
Martin 2025-01-28 10:55:01 +01:00
parent 6a79e2f3d0
commit 578d026520
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/sourceeditor.pp
View File

@ -9063,9 +9063,9 @@ begin
end; end;
W := 0; W := 0;
for i := 0 to StatusBar.Panels.Count - 1 do for i := 0 to StatusBar.Panels.Count - 1 do
if i <> 5 then if i <> CStatusPanelFile then
w := w + StatusBar.Panels[i].Width; w := w + StatusBar.Panels[i].Width;
StatusBar.Panels[5].Width := Max(150, StatusBar.Width - W); StatusBar.Panels[CStatusPanelFile].Width := Max(150, StatusBar.Width - W);
finally finally
StatusBar.EndUpdate; StatusBar.EndUpdate;
end; end;
@ -9368,7 +9368,7 @@ begin
Statusbar.Panels[CStatusPanelSel].Width := 100 Statusbar.Panels[CStatusPanelSel].Width := 100
else else
Statusbar.Panels[CStatusPanelSel].Width := 50; Statusbar.Panels[CStatusPanelSel].Width := 50;
Statusbar.Panels[5].Text := PanelFilename; Statusbar.Panels[CStatusPanelFile].Text := PanelFilename;
if(EditorMacroForRecording.IsRecording(CurEditor)) then if(EditorMacroForRecording.IsRecording(CurEditor)) then
Statusbar.Panels[CStatusPanelMacro].Width := IDEImages.ScaledSize(20) Statusbar.Panels[CStatusPanelMacro].Width := IDEImages.ScaledSize(20)
else else