paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-15 06:49:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

ide: less hints

Browse Source
This commit is contained in:
mattias 2024-03-05 16:03:11 +01:00
parent 0c0b40c6e5
commit b37ee660b2
9 changed files with 19 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
designer/designer.pp
View File

@ -1926,22 +1926,7 @@ begin
inc(Result.Y,ParentForm.Y);
end;
end;
{
procedure TDesigner.InvalidateWithParent(AComponent: TComponent);
begin
{$IFDEF VerboseDesigner}
DebugLn('TDesigner.INVALIDATEWITHPARENT ',AComponent.Name,':',AComponent.ClassName);
{$ENDIF}
if AComponent is TControl then begin
if TControl(AComponent).Parent<>nil then
TControl(AComponent).Parent.Invalidate
else
TControl(AComponent).Invalidate;
end else begin
FForm.Invalidate;
end;
end;
}
procedure TDesigner.SetDefaultFormBounds(const AValue: TRect);
begin
FDefaultFormBounds:=AValue;

1
ide/codemacroprompt.pas
View File

@ -462,7 +462,6 @@ var
i: Integer;
j: LongInt;
Pattern: String;
LineText: String;
Parser: TLazTemplateParser;
CodeToolBossOriginalIndent : Integer; // So I don't break anything else (hopefully)
begin

12
ide/debugmanager.pas
View File

@ -40,7 +40,7 @@ uses
{$IFDEF IDE_MEM_CHECK}
MemCheck,
{$ENDIF}
Classes, SysUtils, math,
Classes, SysUtils,
// LCL
LCLType, LCLIntf, Forms, Controls, Dialogs, ExtCtrls,
// LazUtils
@ -52,9 +52,15 @@ uses
ProjectIntf, CompOptsIntf,
// IDEIntf
IDEWindowIntf, SrcEditorIntf, MenuIntf, IDECommands, LazIDEIntf, IdeIntfStrConsts, IDEDialogs,
ToolBarIntf, InputHistory, IdeDebuggerValueFormatterIntf, IdeDebuggerWatchValueIntf,
ToolBarIntf, InputHistory, IdeDebuggerWatchValueIntf,
{$IFDEF DBG_WITH_DEBUGGER_DEBUG}
IdeDebuggerValueFormatterIntf,
{$ENDIF}
// DebuggerIntf
DbgIntfBaseTypes, DbgIntfDebuggerBase, DbgIntfMiscClasses, DbgIntfPseudoTerminal,
{$IFDEF DBG_WITH_DEBUGGER_DEBUG}
DbgIntfBaseTypes,
{$ENDIF}
DbgIntfDebuggerBase, DbgIntfMiscClasses, DbgIntfPseudoTerminal,
// LazDebuggerIntf
LazDebuggerIntf, LazDebuggerIntfBaseTypes,
// IDEDebugger

2
ide/editoroptions.pp
View File

@ -423,7 +423,7 @@ type
// fTextAttri: TSynHighlighterAttributes;
FPos: Integer;
protected
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; override;
function GetDefaultAttribute({%H-}Index: integer): TSynHighlighterAttributes; override;
public
class function GetLanguageName: string; override;

4
ide/envguioptions.pas
View File

@ -301,8 +301,8 @@ type
public
constructor Create;
destructor Destroy; override;
procedure ReadFromXml(OnlyDesktop: boolean); override;
procedure WriteToXml(OnlyDesktop: boolean); override;
procedure ReadFromXml({%H-}OnlyDesktop: boolean); override;
procedure WriteToXml({%H-}OnlyDesktop: boolean); override;
procedure InitConfig; override;
procedure UseDesktop(ADesktop: TDesktopOpt);

6
ide/frames/editor_color_tml_options.pas
View File

@ -24,9 +24,9 @@ type
public
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
function GetTitle: String; override;
procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;
procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;
procedure ReadSettings({%H-}AOptions: TAbstractIDEOptions); override;
procedure WriteSettings({%H-}AOptions: TAbstractIDEOptions); override;
end;
implementation

2
ide/ideoptionsdlg.pas
View File

@ -79,7 +79,7 @@ type
procedure CategoryTreeChange(Sender: TObject; Node: TTreeNode);
procedure CategoryTreeCollapsed(Sender: TObject; Node: TTreeNode);
procedure CategoryTreeCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
Node: TTreeNode; {%H-}State: TCustomDrawState; var {%H-}DefaultDraw: Boolean);
procedure CategoryTreeExpanded(Sender: TObject; Node: TTreeNode);
procedure CategoryTreeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
function FilterEditFilterItem(ItemData: Pointer; out Done: Boolean): Boolean;

2
ide/invertassigntool.pas
View File

@ -167,7 +167,7 @@ begin
HasLinefeed := InText[Length(InText)] in [#10,#13];
InLines := TStringList.Create;
InLines.Text := InText;
SetLength(Indents, InLines.Count);
SetLength(Indents{%H-}, InLines.Count);
TempLines := TStringList.Create;
// Join many lines to one

2
packager/pkgvirtualuniteditor.pas
View File

@ -56,7 +56,7 @@ type
TDummyForClose = class
public
PkgFile: TPkgFile;
procedure CloseEvent(Sender: TObject; const AValues: array of string;
procedure CloseEvent(Sender: TObject; const {%H-}AValues: array of string;
var ACanClose: boolean);
end;