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

Cleanup and formatting.

Browse Source
This commit is contained in:
Juha 2025-07-06 18:29:39 +03:00
parent a19c4fc419
commit d33c2a069d
5 changed files with 27 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazdebuggers/cmdlinedebuggerbase/debugprocess.pas
View File

@ -37,8 +37,12 @@ unit DebugProcess;
interface
uses
Classes, sysutils, LCLIntf, InterfaceBase, process,
Pipes, {$ifdef FORCE_LAZLOGGER_DUMMY} LazLoggerDummy {$else} LazLoggerBase {$endif}, UTF8Process;
Classes, sysutils, process, Pipes,
// LCL
InterfaceBase,
// LazUtils
{$ifdef FORCE_LAZLOGGER_DUMMY} LazLoggerDummy {$else} LazLoggerBase {$endif},
UTF8Process;
type

9
ide/packages/idedebugger/idedebuggerbackendvalueconv.pas
View File

@ -5,8 +5,13 @@ unit IdeDebuggerBackendValueConv;
interface
uses
Classes, SysUtils, fgl, Laz2_XMLCfg, LazClasses, lazCollections, IdeDebuggerUtils,
LazDebuggerValueConverter;
Classes, SysUtils, fgl,
// LazUtils
Laz2_XMLCfg, LazClasses, lazCollections,
// LazDebuggerIntf
LazDebuggerValueConverter,
// IdeDebugger
IdeDebuggerUtils;
type

15
ide/packages/idedebugger/idedebuggeropts.pas
View File

@ -5,10 +5,19 @@ unit IdeDebuggerOpts;
interface
uses
Classes, SysUtils, IDEOptionsIntf, Laz2_XMLCfg, LazFileUtils, LazUTF8,
LazLoggerBase, Laz2_DOM, Laz2_XMLRead, Laz2_XMLWrite, DbgIntfDebuggerBase,
Classes, SysUtils,
// LazUtils
Laz2_XMLCfg, LazFileUtils, LazUTF8, LazLoggerBase,
Laz2_DOM, Laz2_XMLRead, Laz2_XMLWrite,
// BuildIntf
IDEOptionsIntf,
// IdeConfig
EnvironmentOpts,
// DebuggerIntf
DbgIntfDebuggerBase,
// IdeDebugger
IdeDebuggerStringConstants, IdeDebuggerBackendValueConv,
IdeDebuggerValueFormatter, IdeDebuggerDisplayFormats, EnvironmentOpts;
IdeDebuggerValueFormatter, IdeDebuggerDisplayFormats;
type

1
ide/sourcefilemanager.pas
View File

@ -698,7 +698,6 @@ begin
SourceEditorManager.ActiveEditor := NewSrcEdit;
SourceEditorManager.ShowActiveWindowOnTop(True);
end;
SrcNoteBook.UpdateStatusBar;
SrcNotebook.BringToFront;
Result:=mrOk;

3
lcl/include/customnotebook.inc
View File

@ -1245,7 +1245,8 @@ begin
if HandleAllocated then
begin
if Assigned(Images) then
TWSCustomTabControlClass(WidgetSetClass).SetImageList(Self, Images.ResolutionForPPI[ImagesWidth, Font.PixelsPerInch, 1].Resolution) // to-do: support scaling factor
TWSCustomTabControlClass(WidgetSetClass).SetImageList(Self, // to-do: support scaling factor
Images.ResolutionForPPI[ImagesWidth,Font.PixelsPerInch,1].Resolution)
else
TWSCustomTabControlClass(WidgetSetClass).SetImageList(Self, nil);
end;