paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 11:47:32 +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 interface
uses uses
Classes, sysutils, LCLIntf, InterfaceBase, process, Classes, sysutils, process, Pipes,
Pipes, {$ifdef FORCE_LAZLOGGER_DUMMY} LazLoggerDummy {$else} LazLoggerBase {$endif}, UTF8Process; // LCL
InterfaceBase,
// LazUtils
{$ifdef FORCE_LAZLOGGER_DUMMY} LazLoggerDummy {$else} LazLoggerBase {$endif},
UTF8Process;
type type

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

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

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

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

1
ide/sourcefilemanager.pas
View File

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

3
lcl/include/customnotebook.inc
View File

@ -1245,7 +1245,8 @@ begin
if HandleAllocated then if HandleAllocated then
begin begin
if Assigned(Images) then 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 else
TWSCustomTabControlClass(WidgetSetClass).SetImageList(Self, nil); TWSCustomTabControlClass(WidgetSetClass).SetImageList(Self, nil);
end; end;