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

IDE: checked compiler warnings, clean up

Browse Source 
git-svn-id: trunk@48218 -
This commit is contained in:
mattias 2015-03-10 14:51:21 +00:00
parent 6ccd736c5c
commit f3f0866921
44 changed files with 214 additions and 244 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
debugger/assemblerdlg.pp
View File

@ -73,11 +73,11 @@ type
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormResize(Sender: TObject);
procedure pbAsmClick(Sender: TObject);
procedure pbAsmMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure pbAsmMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure pbAsmMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
procedure pbAsmMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure pbAsmMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; {%H-}X, Y: Integer);
procedure pbAsmMouseMove(Sender: TObject; {%H-}Shift: TShiftState; {%H-}X, Y: Integer);
procedure pbAsmMouseUp(Sender: TObject; {%H-}Button: TMouseButton; {%H-}Shift: TShiftState; {%H-}X,
{%H-}Y: Integer);
procedure pbAsmMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; {%H-}MousePos: TPoint; var Handled: Boolean);
procedure pbAsmPaint(Sender: TObject);
procedure sbHorizontalChange(Sender: TObject);
procedure sbVerticalChange(Sender: TObject);
@ -117,8 +117,8 @@ type
FImgSourceLine: Integer;
FImgNoSourceLine: Integer;
procedure BreakPointChanged(const ASender: TIDEBreakPoints;
const ABreakpoint: TIDEBreakPoint);
procedure BreakPointChanged(const {%H-}ASender: TIDEBreakPoints;
const {%H-}ABreakpoint: TIDEBreakPoint);
function GetBreakpointFor(AnAsmDlgLineEntry: TAsmDlgLineEntry): TIDEBreakPoint;
procedure CheckImageIndexFor(var AnAsmDlgLineEntry: TAsmDlgLineEntry);
procedure DoDebuggerDestroyed(Sender: TObject);
@ -408,6 +408,7 @@ procedure TAssemblerDlg.actStepOverInstrExecute(Sender: TObject);
var
Handled: Boolean;
begin
Handled:=false;
if Assigned(OnProcessCommand)
then OnProcessCommand(Self, ecStepOverInstr, Handled);
end;
@ -450,6 +451,7 @@ procedure TAssemblerDlg.actStepIntoInstrExecute(Sender: TObject);
var
Handled: Boolean;
begin
Handled:=false;
if Assigned(OnProcessCommand)
then OnProcessCommand(Self, ecStepIntoInstr, Handled);
end;
@ -839,6 +841,7 @@ procedure TAssemblerDlg.DoEditorOptsChanged(Sender: TObject; Restore: boolean);
var
TM: TTextMetric;
begin
if Restore then exit;
pbAsm.Font.Size := EditorOpts.EditorFontSize;
pbAsm.Font.Name := EditorOpts.EditorFont;
if EditorOpts.DisableAntialiasing then
@ -846,7 +849,7 @@ begin
else
pbAsm.Font.Quality := fqDefault;
GetTextMetrics(pbAsm.Canvas.Handle, TM);
GetTextMetrics(pbAsm.Canvas.Handle, TM{%H-});
FCharWidth := TM.tmMaxCharWidth; // EditorOpts.ExtraCharSpacing +
sbHorizontal.SmallChange := FCHarWidth;

6
debugger/breakpointsdlg.pp
View File

@ -114,7 +114,7 @@ type
procedure BreakpointsDlgCREATE(Sender: TObject);
procedure lvBreakPointsClick(Sender: TObject);
procedure lvBreakPointsDBLCLICK(Sender: TObject);
procedure lvBreakPointsSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
procedure lvBreakPointsSelectItem(Sender: TObject; {%H-}Item: TListItem; {%H-}Selected: Boolean);
procedure mnuPopupPopup(Sender: TObject);
procedure popDeleteAllSameSourceCLICK(Sender: TObject);
procedure popDisableAllSameSourceCLICK(Sender: TObject);
@ -129,11 +129,11 @@ type
FBaseDirectory: string;
FStates: TBreakPointsDlgStates;
FLockActionUpdate: Integer;
procedure BreakPointAdd(const ASender: TIDEBreakPoints;
procedure BreakPointAdd(const {%H-}ASender: TIDEBreakPoints;
const ABreakpoint: TIDEBreakPoint);
procedure BreakPointUpdate(const ASender: TIDEBreakPoints;
const ABreakpoint: TIDEBreakPoint);
procedure BreakPointRemove(const ASender: TIDEBreakPoints;
procedure BreakPointRemove(const {%H-}ASender: TIDEBreakPoints;
const ABreakpoint: TIDEBreakPoint);
procedure SetBaseDirectory(const AValue: string);
procedure popSetGroupItemClick(Sender: TObject);

6
debugger/breakpropertydlg.pas
View File

@ -54,10 +54,10 @@ type
rgWatchScope: TPanel;
procedure btnHelpClick(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure BreakPointRemove(const ASender: TIDEBreakPoints;
const ABreakpoint: TIDEBreakPoint);
procedure BreakPointUpdate(const ASender: TIDEBreakPoints;
procedure BreakPointRemove(const {%H-}ASender: TIDEBreakPoints;
const ABreakpoint: TIDEBreakPoint);
procedure BreakPointUpdate(const {%H-}ASender: TIDEBreakPoints;
const {%H-}ABreakpoint: TIDEBreakPoint);
procedure chkDisableGroupsChange(Sender: TObject);
procedure chkEnableGroupsChange(Sender: TObject);
procedure chkEvalExpressionChange(Sender: TObject);

2
debugger/callstackdlg.pp
View File

@ -128,7 +128,7 @@ type
function GetSelectedThreads(Snap: TSnapshot): TIdeThreads;
function GetSelectedCallstack: TIdeCallStack;
procedure DoBreakPointsChanged; override;
procedure BreakPointChanged(const ASender: TIDEBreakPoints; const ABreakpoint: TIDEBreakPoint);
procedure BreakPointChanged(const ASender: TIDEBreakPoints; const {%H-}ABreakpoint: TIDEBreakPoint);
procedure CallStackChanged(Sender: TObject);
procedure CallStackCurrent(Sender: TObject);
function ColSizeGetter(AColId: Integer; var ASize: Integer): Boolean;

4
debugger/debugattachdialog.pas
View File

@ -24,12 +24,12 @@ type
procedure btnRefreshClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure lvProcessesChange(Sender: TObject; Item: TListItem;
Change: TItemChange);
{%H-}Change: TItemChange);
procedure lvProcessesColumnClick(Sender: TObject; Column: TListColumn);
procedure lvProcessesData(Sender: TObject; Item: TListItem);
procedure lvProcessesDblClick(Sender: TObject);
procedure lvProcessesKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
{%H-}Shift: TShiftState);
private
FPidString: string;
FList: TRunningProcessInfoList;

2
debugger/debugeventsform.pp
View File

@ -65,7 +65,7 @@ type
procedure EditCopy1Update(Sender: TObject);
procedure tvFilteredEventsAdvancedCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, DefaultDraw: Boolean);
var {%H-}PaintImages, DefaultDraw: Boolean);
private
function GetFilter: TDBGEventCategories;
private

1
debugger/debuggerdlg.pp
View File

@ -506,6 +506,7 @@ begin
if Assigned(OnProcessCommand) and (Command <> ecNone) and
(Command <> ecContextHelp) and(Command <> ecEditContextHelp)
then begin
Handled:=false;
OnProcessCommand(Self,Command,Handled);
Key := 0;
end;

8
debugger/evaluatedlg.pp
View File

@ -69,14 +69,14 @@ type
tbModify: TToolButton;
tbEvaluate: TToolButton;
procedure cmbNewValueKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
{%H-}Shift: TShiftState);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormShow(Sender: TObject);
procedure cmbExpressionChange(Sender: TObject);
procedure cmbExpressionKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
{%H-}Shift: TShiftState);
procedure MenuItem1Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure MenuItem3Click(Sender: TObject);
@ -154,6 +154,7 @@ begin
Opts := [];
if chkTypeCast.Checked then
Opts := [defClassAutoCast];
R:='';
if DebugBoss.Evaluate(S, R, DBGType, Opts)
then begin
if cmbExpression.Items.IndexOf(S) = -1
@ -263,6 +264,7 @@ begin
then cmbNewValue.Items.Insert(0, V);
DBGType:=nil;
R:='';
if not DebugBoss.Evaluate(S, R, DBGType) then Exit;
FreeAndNil(DBGType);
if fHistDirection<>EHDNone then

10
debugger/frames/debugger_eventlog_options.pas
View File

@ -50,8 +50,8 @@ type
procedure chkUseEventLogColorsChange(Sender: TObject);
procedure ColorTreeAdvancedCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, DefaultDraw: Boolean);
procedure ColorTreeChange(Sender: TObject; Node: TTreeNode);
var {%H-}PaintImages, DefaultDraw: Boolean);
procedure ColorTreeChange(Sender: TObject; {%H-}Node: TTreeNode);
procedure ColorTreeClick(Sender: TObject);
procedure ForegroundColorBoxChange(Sender: TObject);
private
@ -60,9 +60,9 @@ type
procedure UpdateSelectedColor;
public
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;
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
end;

2
debugger/historydlg.pp
View File

@ -31,7 +31,7 @@ type
ToolButton4: TToolButton;
tbImport: TToolButton;
procedure lvHistoryDblClick(Sender: TObject);
procedure lvHistorySelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
procedure lvHistorySelectItem(Sender: TObject; {%H-}Item: TListItem; {%H-}Selected: Boolean);
procedure tbClearClick(Sender: TObject);
procedure tbHistClick(Sender: TObject);
procedure tbHistorySelectedClick(Sender: TObject);

46
debugger/inspectdlg.pas
View File

@ -38,10 +38,6 @@ type
{ TOIDBGGrid }
TOIDBGGrid=class(TOIPropertyGrid)
private
protected
procedure BuildPropertyList(OnlyIfNeeded: boolean=false);
public
end;
{ TIDEInspectDlg }
@ -67,13 +63,13 @@ type
procedure btnForwardClick(Sender: TObject);
procedure btnUseInstanceClick(Sender: TObject);
procedure EdInspectEditingDone(Sender: TObject);
procedure EdInspectKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure EdInspectKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);
procedure DataGridDoubleClick(Sender: TObject);
procedure DataGridMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
procedure DataGridMouseDown(Sender: TObject; Button: TMouseButton; {%H-}Shift: TShiftState; {%H-}X,
{%H-}Y: Integer);
private
//FDataGridHook,
//FPropertiesGridHook,
@ -224,6 +220,7 @@ begin
if btnUseInstance.Down then
include(TestOpts, defClassAutoCast);
TestDBGInfo := nil;
TestHumanReadable:='';
if DebugBoss.Evaluate('(' + FExpression + ')^', TestHumanReadable, TestDBGInfo, TestOpts) and
assigned(TestDBGInfo)
then
@ -502,7 +499,7 @@ begin
TypeName, 2, length(FDBGInfo.TypeName))])
else FGridData.Cells[2,1]:=FDBGInfo.TypeName;
{$PUSH}{$RANGECHECKS OFF}
FGridData.Cells[3,1]:=format('$%x',[PtrUInt(FDBGInfo.Value.AsPointer)]);
FGridData.Cells[3,1]:=format('$%x',[{%H-}PtrUInt(FDBGInfo.Value.AsPointer)]);
{$POP}
//FGridData.AutoSizeColumn(2);
end;
@ -740,30 +737,8 @@ begin
end;
constructor TIDEInspectDlg.Create(AOwner: TComponent);
function NewGrid(AName: String; AParent: TWinControl; AHook: TPropertyEditorHook): TOIDBGGrid;
begin
Result := TOIDBGGrid.Create(Self);
with Result do
begin
Name := AName;
Parent := AParent;
Visible := True;
Align := alClient;
end;
end;
begin
inherited Create(AOwner);
//FDBGInfo := nil;
//FDataGridHook := TPropertyEditorHook.Create;
//FDataGrid := NewGrid('DataGrid', DataPage, FDataGridHook);
//
//FPropertiesGridHook := TPropertyEditorHook.Create;
//FPropertiesGrid := NewGrid('PropertiesGrid', PropertiesPage, FPropertiesGridHook);
//
//FMethodsGridHook := TPropertyEditorHook.Create;
//FMethodsGrid := NewGrid('MethodsGrid', MethodsPage, FMethodsGridHook);
FUpdateLock := False;
FUpdateNeeded := False;
@ -914,13 +889,6 @@ begin
UpdateData;
end;
{ TOIDBGGrid }
procedure TOIDBGGrid.BuildPropertyList(OnlyIfNeeded: boolean);
begin
end;
initialization
InspectDlgWindowCreator := IDEWindowCreators.Add(DebugDialogNames[ddtInspect]);

2
debugger/processdebugger.pp
View File

@ -49,7 +49,7 @@ type
private
FProcess: TProcess;
procedure ProcessDestroyed(Sender: TObject);
function ProcessEnvironment(const AVariable: String; const ASet: Boolean): Boolean;
function ProcessEnvironment(const {%H-}AVariable: String; const {%H-}ASet: Boolean): Boolean;
function ProcessRun: Boolean;
function ProcessStop: Boolean;
protected

2
debugger/registersdlg.pp
View File

@ -78,7 +78,7 @@ type
procedure actCopyValueExecute(Sender: TObject);
procedure actPowerExecute(Sender: TObject);
procedure DispDefaultClick(Sender: TObject);
procedure lvRegistersSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
procedure lvRegistersSelectItem(Sender: TObject; Item: TListItem; {%H-}Selected: Boolean);
procedure ToolButtonDispTypeClick(Sender: TObject);
function GetCurrentRegisters: TRegisters;
private

6
debugger/watchesdlg.pp
View File

@ -121,7 +121,7 @@ type
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormShow(Sender: TObject);
procedure lvWatchesDblClick(Sender: TObject);
procedure lvWatchesSelectItem(Sender: TObject; AItem: TListItem; Selected: Boolean);
procedure lvWatchesSelectItem(Sender: TObject; {%H-}AItem: TListItem; {%H-}Selected: Boolean);
procedure popAddClick(Sender: TObject);
procedure popPropertiesClick(Sender: TObject);
procedure popEnabledClick(Sender: TObject);
@ -142,9 +142,9 @@ type
function GetThreadId: Integer;
function GetSelectedThreads(Snap: TSnapshot): TIdeThreads;
function GetStackframe: Integer;
procedure WatchAdd(const ASender: TIdeWatches; const AWatch: TIdeWatch);
procedure WatchAdd(const {%H-}ASender: TIdeWatches; const AWatch: TIdeWatch);
procedure WatchUpdate(const ASender: TIdeWatches; const AWatch: TIdeWatch);
procedure WatchRemove(const ASender: TIdeWatches; const AWatch: TIdeWatch);
procedure WatchRemove(const {%H-}ASender: TIdeWatches; const AWatch: TIdeWatch);
procedure UpdateInspectPane;
procedure UpdateItem(const AItem: TListItem; const AWatch: TIdeWatch);

10
designer/designermenu.pp
View File

@ -36,7 +36,7 @@ interface
uses
Classes, SysUtils, LCLProc, Forms, Controls, Menus, Graphics, GraphType,
Buttons, StdCtrls, ExtCtrls, ComponentEditors, LazConf, ComCtrls, Arrow,
Buttons, StdCtrls, ExtCtrls, ComponentEditors, LazConf, Arrow,
ButtonPanel, Laz2_XMLCfg, LazFileUtils, LazarusIDEStrConsts, PropEdits,
IDEProcs;
@ -146,10 +146,10 @@ type
// Event handling
procedure MenuItemMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
{%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
procedure MenuItemDblClick(Sender: TObject);
procedure MenuItemDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure MenuItemDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState;
procedure MenuItemDragDrop(Sender, {%H-}Source: TObject; X, Y: Integer);
procedure MenuItemDragOver(Sender, Source: TObject; {%H-}X, {%H-}Y: Integer; {%H-}State: TDragState;
var Accept: Boolean);
procedure AddNewItemBeforeClick(Sender: TObject);
procedure AddNewItemAfterClick(Sender: TObject);
@ -198,8 +198,6 @@ const
DESIGNER_MENU_ITEM_HEIGHT=20;
DESIGNER_MENU_ITEM_SPACE=30;
MIN_DESIGNER_MENU_ITEM_WIDTH=100;
DESIGNER_MENU_ITEM_PANEL_HEIGHT=22;
MIN_SUB_MENU_PANEL_WIDTH=100;
POSITION_LEFT=10;
POSITION_TOP=10;
NUMBER_OF_DEFAULT_TEMPLATES = 3;

4
designer/menueditorform.pas
View File

@ -50,7 +50,7 @@ type
Panel: TPanel;
Panel_MenuList:TPanel;
Splitter_BoxPanel:TSplitter;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure List_menusClick(Sender: TObject);
@ -59,7 +59,7 @@ type
FMenu: TMenu;
FDesigner: TComponentEditorDesigner;
procedure OnPersistentDeleting(APersistent: TPersistent);
procedure OnPersistentAdded(APersistent: TPersistent; Select: boolean);
procedure OnPersistentAdded(APersistent: TPersistent; {%H-}Select: boolean);
procedure UpdateListOfMenus;
public
procedure SetMenu(NewMenu: TMenu);

6
ide/charactermapdlg.pas
View File

@ -63,10 +63,10 @@ type
procedure FormShow(Sender: TObject);
procedure StringGridKeyPress(Sender: TObject; var Key: char);
procedure StringGridMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
{%H-}Shift: TShiftState; X, Y: Integer);
procedure StringGrid1MouseMove(Sender: TObject; {%H-}Shift: TShiftState; X,
Y: Integer);
procedure StringGrid2MouseMove(Sender: TObject; Shift: TShiftState; X,
procedure StringGrid2MouseMove(Sender: TObject; {%H-}Shift: TShiftState; X,
Y: Integer);
private
FOnInsertCharacter: TOnInsertCharacterEvent;

9
ide/codecontextform.pas
View File

@ -59,7 +59,7 @@ type
{ TCodeContextFrm }
TCodeContextFrm = class(THintWindow)
procedure ApplicationIdle(Sender: TObject; var Done: Boolean);
procedure ApplicationIdle(Sender: TObject; var {%H-}Done: Boolean);
procedure CopyAllBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
@ -80,7 +80,7 @@ type
procedure ClearMarksInHints;
function GetHints(Index: integer): TCodeContextItem;
procedure MarkCurrentParameterInHints(ParameterIndex: integer); // 0 based
procedure CalculateHintsBounds(const CodeContexts: TCodeContextInfo);
procedure CalculateHintsBounds;
procedure DrawHints(var MaxWidth, MaxHeight: Integer; Draw: boolean);
procedure CompleteParameters(DeclCode: string);
procedure ClearHints;
@ -262,7 +262,7 @@ begin
end;
CreateHints(CodeContexts);
CalculateHintsBounds(CodeContexts);
CalculateHintsBounds;
end;
procedure TCodeContextFrm.UpdateHints;
@ -673,8 +673,7 @@ begin
Invalidate;
end;
procedure TCodeContextFrm.CalculateHintsBounds(const
CodeContexts: TCodeContextInfo);
procedure TCodeContextFrm.CalculateHintsBounds;
var
DrawWidth: LongInt;
SrcEdit: TSourceEditorInterface;

11
ide/codemacroprompt.pas
View File

@ -34,7 +34,7 @@ uses
Classes, SysUtils, LCLProc, Forms, Controls, Graphics, Dialogs,
BasicCodeTools, CodeToolManager,
SynEditAutoComplete, SynPluginTemplateEdit, SynPluginSyncronizedEditBase, SynEdit,
MacroIntf, LazIDEIntf, SrcEditorIntf, LazUTF8;
LazIDEIntf, SrcEditorIntf, LazUTF8;
type
TCodeMacroPromptDlg = class(TForm)
@ -86,7 +86,7 @@ type
function GetDestTemplate: String; override;
function SubstituteMacro(const MacroName, MacroParameter: string;
var MacroValue: string): boolean;
out MacroValue: string): boolean;
function SubstituteMacros(var Template: String): boolean;
public
constructor Create(TheTemplate: String);
@ -106,7 +106,7 @@ type
end;
function ExecuteCodeTemplate(SrcEdit: TSourceEditorInterface;
const TemplateName, TemplateValue, TemplateComment,
const TemplateName, TemplateValue, {%H-}TemplateComment,
EndOfTokenChr: string; Attributes: TStrings;
IndentToTokenStart: boolean): boolean;
@ -169,14 +169,15 @@ begin
Result := FDestTemplate;
end;
function TLazTemplateParser.SubstituteMacro(const MacroName, MacroParameter: string;
var MacroValue: string): boolean;
function TLazTemplateParser.SubstituteMacro(const MacroName,
MacroParameter: string; out MacroValue: string): boolean;
var
Macro: TIDECodeMacro;
NewValue: String;
ErrMsg: string;
begin
Result := false;
MacroValue:='';
Macro := IDECodeMacros.FindByName(MacroName);
//debugln('SubstituteMacro A ',MacroName,' ',dbgs(Macro<>nil),' ',MacroParameter);
if Macro <> nil then begin

4
ide/codemacroselect.pas
View File

@ -46,9 +46,9 @@ type
DescriptionMemo: TMemo;
MacrosGroupBox: TGroupBox;
DescriptionGroupBox: TGroupBox;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure MacrosListBoxSelectionChange(Sender: TObject; User: boolean);
procedure MacrosListBoxSelectionChange(Sender: TObject; {%H-}User: boolean);
private
FSelected: TIDECodeMacro;
procedure FillMacrosListbox;

76
ide/codetemplatesdlg.pas
View File

@ -37,10 +37,10 @@ uses
// synedit
SynEdit, SynHighlighterPas, SynEditAutoComplete, SynRegExpr,
// codetools
CodeToolManager, CodeAtom, CodeCache, KeywordFuncLists, BasicCodeTools,
CodeToolManager, CodeCache, KeywordFuncLists, BasicCodeTools,
PascalParserTool,
// IDEIntf
IDECommands, TextTools, SrcEditorIntf, MenuIntf, IDEWindowIntf, LazIDEIntf,
IDECommands, SrcEditorIntf, MenuIntf, IDEWindowIntf, LazIDEIntf,
IDEHelpIntf, IDEDialogs,
// IDE
IDEProcs, InputHistory, LazarusIDEStrConsts, EditorOptions, CodeMacroSelect,
@ -93,7 +93,7 @@ type
procedure DeleteButtonClick(Sender: TObject);
procedure RenameButtonClick(Sender: TObject);
procedure FilenameButtonClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure InsertMacroButtonClick(Sender: TObject);
@ -102,7 +102,7 @@ type
procedure OnCutMenuItem(Sender: TObject);
procedure OnInsertMacroMenuItem(Sender: TObject);
procedure OnPasteMenuItem(Sender: TObject);
procedure TemplateListBoxSelectionChange(Sender: TObject; User: boolean);
procedure TemplateListBoxSelectionChange(Sender: TObject; {%H-}User: boolean);
procedure UseMacrosCheckBoxChange(Sender: TObject);
private
SynAutoComplete: TSynEditAutoComplete;
@ -159,46 +159,46 @@ function EditCodeTemplate(ASynAutoComplete: TSynEditAutoComplete;
procedure CreateStandardCodeMacros;
// standard code macros
function CodeMacroUpper(const Parameter: string; InteractiveValue: TPersistent;
SrcEdit: TSourceEditorInterface;
var Value, ErrorMsg: string): boolean;
function CodeMacroLower(const Parameter: string; InteractiveValue: TPersistent;
SrcEdit: TSourceEditorInterface;
var Value, ErrorMsg: string): boolean;
function CodeMacroPaste(const Parameter: string; InteractiveValue: TPersistent;
SrcEdit: TSourceEditorInterface;
var Value, ErrorMsg: string): boolean;
function CodeMacroUpper(const Parameter: string; {%H-}InteractiveValue: TPersistent;
{%H-}SrcEdit: TSourceEditorInterface;
var Value, {%H-}ErrorMsg: string): boolean;
function CodeMacroLower(const Parameter: string; {%H-}InteractiveValue: TPersistent;
{%H-}SrcEdit: TSourceEditorInterface;
var Value, {%H-}ErrorMsg: string): boolean;
function CodeMacroPaste(const {%H-}Parameter: string; {%H-}InteractiveValue: TPersistent;
{%H-}SrcEdit: TSourceEditorInterface;
var Value, {%H-}ErrorMsg: string): boolean;
function CodeMacroProcedureHead(const Parameter: string;
{%H-}InteractiveValue: TPersistent;
SrcEdit: TSourceEditorInterface;
var Value, ErrorMsg: string): boolean;
function CodeMacroProcedureName(const {%H-}Parameter: string;
InteractiveValue: TPersistent;
SrcEdit: TSourceEditorInterface;
var Value, ErrorMsg: string): boolean;
function CodeMacroProcedureName(const Parameter: string;
InteractiveValue: TPersistent;
function CodeMacroDate(const Parameter: string; {%H-}InteractiveValue: TPersistent;
{%H-}SrcEdit: TSourceEditorInterface;
var Value, {%H-}ErrorMsg: string): boolean;
function CodeMacroTime(const Parameter: string; {%H-}InteractiveValue: TPersistent;
{%H-}SrcEdit: TSourceEditorInterface;
var Value, {%H-}ErrorMsg: string): boolean;
function CodeMacroDateTime(const Parameter: string; {%H-}InteractiveValue: TPersistent;
{%H-}SrcEdit: TSourceEditorInterface;
var Value, {%H-}ErrorMsg: string): boolean;
function CodeMacroAddMissingEnd(const {%H-}Parameter: string;
{%H-}InteractiveValue: TPersistent;
SrcEdit: TSourceEditorInterface;
var Value, ErrorMsg: string): boolean;
function CodeMacroDate(const Parameter: string; InteractiveValue: TPersistent;
SrcEdit: TSourceEditorInterface;
var Value, ErrorMsg: string): boolean;
function CodeMacroTime(const Parameter: string; InteractiveValue: TPersistent;
SrcEdit: TSourceEditorInterface;
var Value, ErrorMsg: string): boolean;
function CodeMacroDateTime(const Parameter: string; InteractiveValue: TPersistent;
SrcEdit: TSourceEditorInterface;
var Value, ErrorMsg: string): boolean;
function CodeMacroAddMissingEnd(const Parameter: string;
InteractiveValue: TPersistent;
SrcEdit: TSourceEditorInterface;
var Value, ErrorMsg: string): boolean;
function CodeMacroOfAll(const Parameter: string; InteractiveValue: TPersistent;
var Value, {%H-}ErrorMsg: string): boolean;
function CodeMacroOfAll(const {%H-}Parameter: string; {%H-}InteractiveValue: TPersistent;
SrcEdit: TSourceEditorInterface;
var Value, ErrorMsg: string): boolean;
function CodeMacroPrevWord(const Parameter: string;
InteractiveValue: TPersistent;
{%H-}InteractiveValue: TPersistent;
SrcEdit: TSourceEditorInterface;
var Value, ErrorMsg: string): boolean;
function CodeMacroWordAtCursor(const Parameter: string; InteractiveValue: TPersistent;
var Value, {%H-}ErrorMsg: string): boolean;
function CodeMacroWordAtCursor(const {%H-}Parameter: string; {%H-}InteractiveValue: TPersistent;
SrcEdit: TSourceEditorInterface;
var Value, ErrorMsg: string): boolean;
var Value, {%H-}ErrorMsg: string): boolean;
const
CodeTemplatesMenuRootName = 'CodeTemplates';
@ -640,8 +640,8 @@ begin
end;
function CodeMacroEditParam(const Parameter: string;
InteractiveValue: TPersistent; SrcEdit: TSourceEditorInterface; var Value,
ErrorMsg: string; TemplateParser: TIDETemplateParser): boolean;
{%H-}InteractiveValue: TPersistent; {%H-}SrcEdit: TSourceEditorInterface; var Value,
{%H-}ErrorMsg: string; TemplateParser: TIDETemplateParser): boolean;
var
p: TLazTemplateParser;
temp: TStringList;
@ -1074,7 +1074,7 @@ begin
FillCodeTemplateListBox;
Index := SynAutoComplete.Completions.IndexOf(Token);
if Index >= 0
then Index := TemplateListBox.Items.IndexOfObject(TObject(Pointer(Index)));
then Index := TemplateListBox.Items.IndexOfObject(TObject({%H-}Pointer(Index)));
if Index >= 0
then TemplateListBox.ItemIndex:=Index;
@ -1197,7 +1197,7 @@ begin
// Add the index in SynAutoComplete as Object, since both indexes won't
// be in sync after sorting
sl.AddObject(SynAutoComplete.Completions[a]
+' - "'+SynAutoComplete.CompletionComments[a]+'"', TObject(Pointer(a)));
+' - "'+SynAutoComplete.CompletionComments[a]+'"', TObject({%H-}Pointer(a)));
end;
sl.Sort;
TemplateListBox.Items.Assign(sl);

2
ide/componentlist.pas
View File

@ -77,7 +77,7 @@ type
procedure TreeFilterEdAfterFilter(Sender: TObject);
procedure PageControlChange(Sender: TObject);
procedure TreeKeyPress(Sender: TObject; var Key: char);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);
private
PrevPageIndex: Integer;
PrevChangeStamp: Integer;

10
ide/componentpalette.pas
View File

@ -144,12 +144,12 @@ type
procedure SetPageControl(const AValue: TPageControl);
procedure SelectionToolClick(Sender: TObject);
procedure ComponentBtnMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ComponentBtnMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
procedure ComponentBtnMouseUp(Sender: TObject; {%H-}Button: TMouseButton;
{%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
procedure ComponentBtnDblClick(Sender: TObject);
procedure OnPageMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure OnPageMouseWheel(Sender: TObject; {%H-}Shift: TShiftState;
WheelDelta: Integer; {%H-}MousePos: TPoint; var Handled: Boolean);
procedure CreatePopupMenu;
procedure UnselectAllButtons;
function GetUnregisteredIcon: TCustomBitmap;

2
ide/comppagespopup.pas
View File

@ -11,7 +11,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
strutils, ExtCtrls, Buttons, MainBar;
ExtCtrls, Buttons, MainBar;
type

6
ide/condef.pas
View File

@ -85,12 +85,12 @@ type
procedure ListBoxClick(Sender: TObject);
procedure ListBoxDblClick(Sender: TObject);
procedure RemoveBtnClick(Sender: TObject);
procedure ListBoxKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure ListBoxKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);
procedure FormShow(Sender: TObject);
private
StoredChoice, StoredFirst, StoredSecond: string;
FS: string;
function SplitActiveRow(var aFirst, aSecond: string): Boolean;
function SplitActiveRow(out aFirst, aSecond: string): Boolean;
procedure DeleteSelected;
procedure UpdateButtons;
function IsChanged: Boolean;
@ -277,7 +277,7 @@ begin
ListBoxClick(Nil);
end;
function TCondForm.SplitActiveRow(var aFirst, aSecond: string): Boolean;
function TCondForm.SplitActiveRow(out aFirst, aSecond: string): Boolean;
var
i: integer;
Line: string;

4
ide/editormacrolistviewer.pas
View File

@ -30,7 +30,7 @@ type
FKeyBinding: TEditorMacroKeyBinding;
procedure DoMacroRecorderState(Sender: TObject);
procedure DoMacroRecorderUserCommand(aSender: TCustomSynMacroRecorder;
procedure DoMacroRecorderUserCommand({%H-}aSender: TCustomSynMacroRecorder;
aCmd: TSynEditorCommand; var aEvent: TSynMacroEvent);
protected
function GetMacroName: String; override;
@ -204,7 +204,7 @@ type
procedure btnSetKeysClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure lbRecordedViewSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
procedure lbRecordedViewSelectItem(Sender: TObject; {%H-}Item: TListItem; {%H-}Selected: Boolean);
procedure mnExportClick(Sender: TObject);
procedure mnImportClick(Sender: TObject);
procedure tbIDEClick(Sender: TObject);

2
ide/encloseselectiondlg.pas
View File

@ -163,8 +163,6 @@ procedure EncloseTextSelection(const Template: string; Source: TStrings;
SelectionStart, SelectionEnd: TPoint;
Indent: integer;
var NewSelection: string; var NewCursor: TPoint);
const
TemplateBaseIndent = 2;
var
TemplateLen: Integer;
TemplatePos: Integer;

2
ide/findinfilesdlg.pas
View File

@ -46,7 +46,7 @@ type
TextToFindLabel: TLabel;
WhereRadioGroup: TRadioGroup;
procedure DirectoriesBrowseClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure OKButtonClick(Sender : TObject);

4
ide/fpdochints.pas
View File

@ -31,7 +31,7 @@ interface
uses
Classes, SysUtils, LCLProc, Forms, Controls, Graphics, StdCtrls,
CodeToolManager, CodeCache, BasicCodeTools, IdentCompletionTool, CodeTree,
CodeToolManager, CodeCache, IdentCompletionTool, CodeTree,
CodeAtom,
IDEHelpIntf, SrcEditorIntf, SrcEditHintFrm, CodeHelp;
@ -49,7 +49,7 @@ type
FTextControl: TLabel;
procedure SetHintValid(const AValue: boolean);
procedure SetWaitingForIdle(const AValue: boolean);
procedure ApplicationIdle(Sender: TObject; var Done: Boolean);
procedure ApplicationIdle(Sender: TObject; var {%H-}Done: Boolean);
procedure DoUpdateHint;
procedure UpdateHintControl;
public

2
ide/lfmunitresource.pas
View File

@ -32,7 +32,7 @@ interface
uses
Classes, SysUtils,
// packages
LCLMemManager, LResources, Forms, CodeCache, CodeToolManager,
LResources, Forms, CodeCache, CodeToolManager,
// IDEIntf
UnitResources, SrcEditorIntf, LazFileCache, LazFileUtils, AvgLvlTree,
// IDE

15
ide/mainbase.pas
View File

@ -55,19 +55,18 @@ uses
{$IFDEF IDE_MEM_CHECK}
MemCheck,
{$ENDIF}
Math, Classes, LCLType, LCLProc, LCLIntf, StdCtrls, Buttons, Menus, ComCtrls,
Math, Classes, LCLType, LCLProc, LCLIntf, Buttons, Menus,
SysUtils, types, Controls, Graphics, ExtCtrls, Dialogs, FileUtil, Forms,
CodeToolManager, CodeCache, AVL_Tree, SynEditKeyCmds, PackageIntf,
CodeToolManager, AVL_Tree, SynEditKeyCmds, PackageIntf,
// IDEIntf
IDEImagesIntf, SrcEditorIntf, LazIDEIntf, MenuIntf,
IDECommands, IDEMsgIntf, IDEWindowIntf,
IDECommands, IDEWindowIntf,
// IDE
LazConf, LazarusIDEStrConsts, ProjectDefs, Project, PublishModule,
BuildLazDialog, Compiler, ComponentReg, etMessagesWnd,
TransferMacros, ObjectInspector, PropEdits, IDEDefs,
LazConf, LazarusIDEStrConsts, ProjectDefs, Project,
TransferMacros, ObjectInspector, PropEdits,
EnvironmentOpts, EditorOptions, CompilerOptions, KeyMapping, IDEProcs,
Debugger, IDEOptionDefs, CodeToolsDefines, Splash, Designer,
SourceEditor, BuildManager, FindInFilesDlg,
Debugger, IDEOptionDefs, Splash, Designer,
SourceEditor, FindInFilesDlg,
MainBar, MainIntf, SourceSynEditor, PseudoTerminalDlg;
type

4
ide/searchfrm.pas
View File

@ -37,7 +37,7 @@ uses
// synedit, codetools
SynRegExpr, SourceLog, KeywordFuncLists, BasicCodeTools,
// IDEIntf
IDEWindowIntf, LazIDEIntf, SrcEditorIntf, IDEDialogs, MainIntf,
IDEWindowIntf, LazIDEIntf, SrcEditorIntf, IDEDialogs,
// ide
LazarusIDEStrConsts, InputHistory, IDEProcs, SearchResultView, Project;
@ -54,7 +54,7 @@ type
lblProgress: TLABEL;
lblSearchText: TLABEL;
Panel2: TPANEL;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormShow(Sender: TObject);
procedure OnAddMatch(const Filename: string; const StartPos, EndPos: TPoint;
const Lines: string);

12
ide/searchresultview.pp
View File

@ -148,25 +148,25 @@ type
procedure ClosePageButtonClick(Sender: TObject);
procedure Form1Create(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);
procedure mniCopyAllClick(Sender: TObject);
procedure mniCopyItemClick(Sender: TObject);
procedure mniCopySelectedClick(Sender: TObject);
procedure mniExpandAllClick(Sender: TObject);
procedure mniCollapseAllClick(Sender: TObject);
procedure ResultsNoteBookMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
{%H-}Shift: TShiftState; X, Y: Integer);
procedure TreeViewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure ResultsNoteBookClosetabclicked(Sender: TObject);
procedure SearchAgainButtonClick(Sender: TObject);
procedure TreeViewAdvancedCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, DefaultDraw: Boolean);
procedure LazTVShowHint(Sender: TObject; HintInfo: PHintInfo);
procedure LazTVMousemove(Sender: TObject; Shift: TShiftState;
var {%H-}PaintImages, {%H-}DefaultDraw: Boolean);
procedure LazTVShowHint(Sender: TObject; {%H-}HintInfo: PHintInfo);
procedure LazTVMousemove(Sender: TObject; {%H-}Shift: TShiftState;
X, Y: Integer);
Procedure LazTVMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
{%H-}WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure TreeViewKeyPress(Sender: TObject; var Key: char);
procedure ResultsNoteBookPageChanged (Sender: TObject );
procedure SearchInListChange(Sender: TObject );

2
ide/sortselectiondlg.pas
View File

@ -62,7 +62,7 @@ type
DomainRadioGroup: TRadioGroup;
procedure DirectionRadioGroupClick(Sender: TObject);
procedure DomainRadioGroupClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure OptionsCheckGroupItemClick(Sender: TObject; Index: integer);
private

88
ide/sourceeditor.pp
View File

@ -54,14 +54,14 @@ uses
SynEditLines, SynEditStrConst, SynEditTypes, SynEdit, SynRegExpr,
SynEditHighlighter, SynEditAutoComplete, SynEditKeyCmds, SynCompletion,
SynEditMiscClasses, SynEditMarkupHighAll, SynEditMarks,
SynBeautifier, LazSynEditText,
SynPluginSyncronizedEditBase, SourceSynEditor, SynMacroRecorder,
SynBeautifier,
SynPluginSyncronizedEditBase, SourceSynEditor,
SynExportHTML, SynHighlighterPas, SynEditMarkup, SynEditMarkupIfDef,
// Intf
SrcEditorIntf, MenuIntf, LazIDEIntf, PackageIntf, IDEHelpIntf, IDEImagesIntf,
IDEWindowIntf, ProjectIntf, MacroDefIntf,
// IDE units
IDECmdLine, IDEDialogs, LazarusIDEStrConsts, IDECommands, CompOptsIntf,
IDECmdLine, IDEDialogs, LazarusIDEStrConsts, IDECommands,
EditorOptions, EnvironmentOpts, WordCompletion, FindReplaceDialog, IDEProcs,
IDEOptionDefs, IDEHelpManager, MacroPromptDlg, TransferMacros,
CodeContextForm, SrcEditHintFrm, etMessagesWnd, etSrcEditMarks, InputHistory,
@ -252,7 +252,7 @@ type
procedure EditorMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure EditorKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure EditorStatusChanged(Sender: TObject; Changes: TSynStatusChanges);
procedure EditorStatusChanged(Sender: TObject; {%H-}Changes: TSynStatusChanges);
procedure EditorPaste(Sender: TObject; var AText: String;
var AMode: TSynSelectionMode; ALogStartPos: TPoint;
var AnAction: TSynCopyPasteAction);
@ -261,9 +261,9 @@ type
procedure EditorEnter(Sender: TObject);
procedure EditorActivateSyncro(Sender: TObject);
procedure EditorDeactivateSyncro(Sender: TObject);
procedure EditorChangeUpdating(ASender: TObject; AnUpdating: Boolean);
procedure EditorChangeUpdating({%H-}ASender: TObject; AnUpdating: Boolean);
function EditorHandleMouseAction(AnAction: TSynEditMouseAction;
var AnInfo: TSynEditMouseActionInfo): Boolean;
var {%H-}AnInfo: TSynEditMouseActionInfo): Boolean;
function GetCodeBuffer: TCodeBuffer;
function GetExecutionLine: integer;
function GetHasExecutionMarks: Boolean;
@ -292,7 +292,7 @@ type
procedure UpdateIfDefNodeStates(Force: Boolean = False);
protected
procedure ProcessCommand(Sender: TObject;
var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer);
var Command: TSynEditorCommand; var AChar: TUTF8Char; {%H-}Data: pointer);
procedure ProcessUserCommand(Sender: TObject;
var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer);
procedure UserCommandProcessed(Sender: TObject;
@ -306,8 +306,8 @@ type
procedure FocusEditor;// called by TSourceNotebook when the Notebook page
// changes so the editor is focused
procedure OnGutterClick(Sender: TObject; X, Y, Line: integer;
mark: TSynEditMark);
procedure OnGutterClick(Sender: TObject; {%H-}X, {%H-}Y, Line: integer;
{%H-}Mark: TSynEditMark);
procedure OnEditorSpecialLineColor(Sender: TObject; Line: integer;
var Special: boolean; Markup: TSynSelectedColor);
function RefreshEditorSettings: Boolean;
@ -474,10 +474,10 @@ type
procedure CheckActiveWindow;
// debugging
procedure DoRequestExecutionMarks(Data: PtrInt);
procedure DoRequestExecutionMarks({%H-}Data: PtrInt);
procedure FillExecutionMarks;
procedure ClearExecutionMarks;
procedure LineInfoNotificationChange(const ASender: TObject; const ASource: String);
procedure LineInfoNotificationChange(const {%H-}ASender: TObject; const ASource: String);
function SourceToDebugLine(aLinePos: Integer): Integer;
function DebugToSourceLine(aLinePos: Integer): Integer;
@ -575,8 +575,8 @@ type
procedure EncodingClicked(Sender: TObject);
procedure ExtractProcMenuItemClick(Sender: TObject);
procedure FindOverloadsMenuItemClick(Sender: TObject);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseUp(Sender: TObject; {%H-}Button: TMouseButton;
{%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
procedure HighlighterClicked(Sender: TObject);
procedure InsertCharacter(const C: TUTF8Char);
procedure InvertAssignmentMenuItemClick(Sender: TObject);
@ -600,7 +600,7 @@ type
procedure SrcPopUpMenuPopup(Sender: TObject);
procedure StatusBarClick(Sender: TObject);
procedure StatusBarDblClick(Sender: TObject);
procedure StatusBarDrawPanel(AStatusBar: TStatusBar; APanel: TStatusPanel;
procedure StatusBarDrawPanel({%H-}AStatusBar: TStatusBar; APanel: TStatusPanel;
const ARect: TRect);
procedure TabPopUpMenuPopup(Sender: TObject);
private
@ -689,20 +689,20 @@ type
function GetActiveCompletionPlugin: TSourceEditorCompletionPlugin; override;
function GetCompletionPlugins(Index: integer): TSourceEditorCompletionPlugin; override;
procedure EditorMouseMove(Sender: TObject; Shift: TShiftstate;
X,Y: Integer);
procedure EditorMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftstate; X,Y: Integer);
procedure EditorMouseMove(Sender: TObject; {%H-}Shift: TShiftstate;
{%H-}X,{%H-}Y: Integer);
procedure EditorMouseDown(Sender: TObject; {%H-}Button: TMouseButton;
{%H-}Shift: TShiftstate; {%H-}X,{%H-}Y: Integer);
function EditorGetIndent(Sender: TObject; Editor: TObject;
LogCaret, OldLogCaret: TPoint; FirstLinePos, LastLinePos: Integer;
Reason: TSynEditorCommand;
SetIndentProc: TSynBeautifierSetIndentProc): Boolean;
procedure EditorKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure EditorMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure EditorKeyDown(Sender: TObject; var {%H-}Key: Word; {%H-}Shift: TShiftState);
procedure EditorMouseWheel(Sender: TObject; {%H-}Shift: TShiftState;
{%H-}WheelDelta: Integer; {%H-}MousePos: TPoint; var {%H-}Handled: Boolean);
procedure NotebookMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X,Y: Integer);
{%H-}Shift: TShiftState; X,Y: Integer);
procedure NotebookDragTabMove(Sender, Source: TObject;
OldIndex, NewIndex: Integer; CopyDrag: Boolean;
var Done: Boolean);
@ -710,8 +710,8 @@ type
OldIndex, NewIndex: Integer; CopyDrag: Boolean;
var Accept: Boolean);
procedure NotebookDragOver(Sender, Source: TObject;
X,Y: Integer; State: TDragState; var Accept: Boolean);
procedure NotebookEndDrag(Sender, Target: TObject; X,Y: Integer);
{%H-}X,{%H-}Y: Integer; State: TDragState; var Accept: Boolean);
procedure NotebookEndDrag(Sender, {%H-}Target: TObject; {%H-}X,{%H-}Y: Integer);
procedure OnApplicationDeactivate(Sender: TObject);
procedure ShowSynEditHint(const MousePos: TPoint);
@ -731,10 +731,10 @@ type
procedure MoveEditorNextWindow(Backward: Boolean = False; Copy: Boolean = False);
procedure CopyEditor(OldPageIndex, NewWindowIndex, NewPageIndex: integer; Focus: Boolean = False);
procedure ProcessParentCommand(Sender: TObject;
var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer;
var Command: TSynEditorCommand; var {%H-}AChar: TUTF8Char; {%H-}Data: pointer;
var Handled: boolean);
procedure ParentCommandProcessed(Sender: TObject;
var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer;
var Command: TSynEditorCommand; var {%H-}AChar: TUTF8Char; {%H-}Data: pointer;
var Handled: boolean);
function GetActiveEditor: TSourceEditorInterface; override;
@ -852,7 +852,7 @@ type
function GetActiveSourceWindow: TSourceEditorWindowInterface; override;
procedure SetActiveSourceWindow(const AValue: TSourceEditorWindowInterface); override;
function GetSourceWindows(Index: integer): TSourceEditorWindowInterface; override;
procedure DoWindowFocused(AWindow: TSourceNotebook); // Includes Focus to ChildControl (aka Activated)
procedure DoWindowFocused({%H-}AWindow: TSourceNotebook); // Includes Focus to ChildControl (aka Activated)
function GetActiveEditor: TSourceEditorInterface; override;
procedure SetActiveEditor(const AValue: TSourceEditorInterface); override;
procedure DoActiveEditorChanged;
@ -1015,21 +1015,21 @@ type
procedure BookMarkPrevClicked(Sender: TObject);
protected
// macros
function MacroFuncCol(const s:string; const Data: PtrInt;
var Abort: boolean): string;
function MacroFuncRow(const s:string; const Data: PtrInt;
var Abort: boolean): string;
function MacroFuncEdFile(const s:string; const Data: PtrInt;
var Abort: boolean): string;
function MacroFuncCurToken(const s:string; const Data: PtrInt;
function MacroFuncCol(const {%H-}s:string; const {%H-}Data: PtrInt;
var {%H-}Abort: boolean): string;
function MacroFuncRow(const {%H-}s:string; const {%H-}Data: PtrInt;
var {%H-}Abort: boolean): string;
function MacroFuncEdFile(const {%H-}s:string; const {%H-}Data: PtrInt;
var {%H-}Abort: boolean): string;
function MacroFuncCurToken(const {%H-}s:string; const {%H-}Data: PtrInt;
var {%H-}Abort: boolean): string;
function MacroFuncConfirm(const s:string; const {%H-}Data: PtrInt;
var Abort: boolean): string;
function MacroFuncConfirm(const s:string; const Data: PtrInt;
var Abort: boolean): string;
function MacroFuncPrompt(const s:string; const Data: PtrInt;
function MacroFuncPrompt(const s:string; const {%H-}Data: PtrInt;
var Abort: boolean): string;
function MacroFuncSave(const s:string; const Data: PtrInt;
function MacroFuncSave(const {%H-}s:string; const {%H-}Data: PtrInt;
var Abort: boolean): string;
function MacroFuncSaveAll(const s:string; const Data: PtrInt;
function MacroFuncSaveAll(const {%H-}s:string; const {%H-}Data: PtrInt;
var Abort: boolean): string;
public
procedure InitMacros(AMacroList: TTransferMacroList);
@ -1037,7 +1037,7 @@ type
function FindUniquePageName(FileName:string; IgnoreEditor: TSourceEditor):string;
function SomethingModified(Verbose: boolean = false): boolean;
procedure OnIdle(Sender: TObject; var Done: Boolean);
procedure OnIdle(Sender: TObject; var {%H-}Done: Boolean);
procedure OnUserInput(Sender: TObject; Msg: Cardinal);
procedure LockAllEditorsInSourceChangeCache;
procedure UnlockAllEditorsInSourceChangeCache;
@ -1071,7 +1071,7 @@ type
procedure OnWordCompletionGetSource(var Source: TStrings; SourceIndex: integer);
procedure OnSourceCompletionTimer(Sender: TObject);
// marks
procedure OnSourceMarksAction(AMark: TSourceMark; AAction: TMarksAction);
procedure OnSourceMarksAction(AMark: TSourceMark; {%H-}AAction: TMarksAction);
procedure OnSourceMarksGetSynEdit(Sender: TObject; aFilename: string;
var aSynEdit: TSynEdit);
property CodeTemplateModul: TSynEditAutoComplete
@ -4105,7 +4105,7 @@ begin
end;
procedure TSourceEditor.OnGutterClick(Sender: TObject; X, Y, Line: integer;
mark: TSynEditMark);
Mark: TSynEditMark);
var
Marks: PSourceMark;
i, MarkCount: Integer;
@ -4115,7 +4115,7 @@ var
Mrk: TSourceMark;
begin
// create or delete breakpoint
// find breakpoint mark at line
// find breakpoint Mark at line
Marks := nil;
Ctrl := SYNEDIT_LINK_MODIFIER in GetKeyShiftState;
try
@ -6658,7 +6658,7 @@ begin
Layout:=IDEWindowCreators.SimpleLayoutStorage.ItemByForm(Self);
if Layout<>nil then
Layout.Form:=nil;
Name := Name + '___' + IntToStr(PtrUInt(Pointer(Self)));
Name := Name + '___' + IntToStr({%H-}PtrUInt(Pointer(Self)));
CloseAction := caFree;
end
else begin

10
ide/sourceeditprocs.pas
View File

@ -41,7 +41,7 @@ uses
CodeAtom, CodeCache, SourceChanger, CustomCodeTool, CodeToolManager,
PascalParserTool, KeywordFuncLists, FileProcs, IdentCompletionTool,
PascalReaderTool, SourceLog,
LazIDEIntf, TextTools, IDETextConverter, DialogProcs, MainIntf, EditorOptions,
LazIDEIntf, TextTools, IDETextConverter, DialogProcs, EditorOptions,
IDEImagesIntf, CodeToolsOptions;
type
@ -51,17 +51,17 @@ type
TLazTextConverterToolClasses = class(TTextConverterToolClasses)
public
function GetTempFilename: string; override;
function SupportsType(aTextType: TTextConverterType): boolean; override;
function SupportsType({%H-}aTextType: TTextConverterType): boolean; override;
function LoadFromFile(Converter: TIDETextConverter; const AFilename: string;
UpdateFromDisk, Revert: Boolean): Boolean; override;
function SaveCodeBufferToFile(Converter: TIDETextConverter;
const AFilename: string): Boolean; override;
function GetCodeBufferSource(Converter: TIDETextConverter;
out Source: string): boolean; override;
function CreateCodeBuffer(Converter: TIDETextConverter;
function CreateCodeBuffer({%H-}Converter: TIDETextConverter;
const Filename, NewSource: string;
out CodeBuffer: Pointer): boolean; override;
function LoadCodeBufferFromFile(Converter: TIDETextConverter;
function LoadCodeBufferFromFile({%H-}Converter: TIDETextConverter;
const Filename: string;
UpdateFromDisk, Revert: Boolean;
out CodeBuffer: Pointer): boolean; override;
@ -86,7 +86,7 @@ type
// completion form and functions
function PaintCompletionItem(const AKey: string; ACanvas: TCanvas;
X, Y, MaxX: integer; ItemSelected: boolean; Index: integer;
aCompletion : TSynCompletion; CurrentCompletionType: TCompletionType;
{%H-}aCompletion : TSynCompletion; CurrentCompletionType: TCompletionType;
Highlighter: TSrcIDEHighlighter; MeasureOnly: Boolean = False): TPoint;
function GetIdentCompletionValue(aCompletion : TSynCompletion;

6
ide/srcedithintfrm.pas
View File

@ -46,7 +46,7 @@ type
protected
procedure SetControl(const AValue: TWinControl); virtual;
public
procedure GetPreferredSize(var PreferredWidth, PreferredHeight: integer); virtual;
procedure GetPreferredSize(out PreferredWidth, PreferredHeight: integer); virtual;
procedure UpdateHint; virtual;
property Control: TWinControl read FControl write SetControl;
end;
@ -55,7 +55,7 @@ type
TSrcEditHintWindow = class(THintWindow)
IdleTimer1: TIdleTimer;
procedure ApplicationIdle(Sender: TObject; var Done: Boolean);
procedure ApplicationIdle(Sender: TObject; var {%H-}Done: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@ -349,7 +349,7 @@ begin
FControl:=AValue;
end;
procedure TCodeHintProvider.GetPreferredSize(var PreferredWidth,
procedure TCodeHintProvider.GetPreferredSize(out PreferredWidth,
PreferredHeight: integer);
begin

2
packager/addfiletoapackagedlg.pas
View File

@ -61,7 +61,7 @@ type
PackagesComboBox: TComboBox;
ShowAllCheckBox: TCheckBox;
procedure AddFileToAPackageDlgClose(Sender: TObject;
var CloseAction: TCloseAction);
var {%H-}CloseAction: TCloseAction);
procedure HelpButtonClick(Sender: TObject);
procedure OkButtonClick(Sender: TObject);
procedure PackagesGroupBoxResize(Sender: TObject);

4
packager/brokendependenciesdlg.pas
View File

@ -40,7 +40,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, Buttons, LResources, StdCtrls, ComCtrls,
FileCtrl, Dialogs,
Dialogs,
IDEWindowIntf, LazarusIDEStrConsts, Project, PackageDefs, PackageSystem;
type
@ -51,7 +51,7 @@ type
NoteLabel: TLabel;
DependencyListView: TListView;
procedure BrokenDependenciesDialogClose(Sender: TObject;
var CloseAction: TCloseAction);
var {%H-}CloseAction: TCloseAction);
procedure BrokenDependenciesDialogResize(Sender: TObject);
private
fButtons: TFPList; // list of TBitBtn

14
packager/installpkgsetdlg.pas
View File

@ -43,7 +43,7 @@ uses
LazFileUtils, TreeFilterEdit, PackageIntf, IDEImagesIntf, IDEHelpIntf,
IDEDialogs, IDEWindowIntf, LazarusIDEStrConsts, EnvironmentOpts, InputHistory,
LazConf, IDEProcs, PackageDefs, PackageSystem, PackageLinks,
IDEContextHelpEdit, LPKCache;
LPKCache;
type
TOnCheckInstallPackageList =
@ -73,16 +73,16 @@ type
InstalledFilterEdit: TTreeFilterEdit;
UninstallButton: TBitBtn;
procedure AddToInstallButtonClick(Sender: TObject);
function FilterEditGetImageIndex(Str: String; Data: TObject;
var AIsEnabled: Boolean): Integer;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
function FilterEditGetImageIndex({%H-}Str: String; {%H-}Data: TObject;
var {%H-}AIsEnabled: Boolean): Integer;
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure InstallTreeViewKeyPress(Sender: TObject; var Key: char);
procedure LPKParsingTimerTimer(Sender: TObject);
procedure OnAllLPKParsed(Sender: TObject);
procedure OnIdle(Sender: TObject; var Done: Boolean);
procedure OnIdle(Sender: TObject; var {%H-}Done: Boolean);
procedure TreeViewAdvancedCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, DefaultDraw: Boolean);
Node: TTreeNode; {%H-}State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, {%H-}DefaultDraw: Boolean);
procedure AvailableTreeViewDblClick(Sender: TObject);
procedure AvailableTreeViewKeyPress(Sender: TObject; var Key: char);
procedure AvailableTreeViewSelectionChanged(Sender: TObject);

12
packager/interpkgconflictfiles.pas
View File

@ -60,7 +60,7 @@ uses
ProjectIntf, CompOptsIntf, IDEWindowIntf, LazIDEIntf, IDEImagesIntf,
IDEMsgIntf, IDEExternToolIntf,
// IDE
LazarusIDEStrConsts, CompilerOptions, EnvironmentOpts, IDEProcs, DialogProcs,
CompilerOptions, EnvironmentOpts, IDEProcs, DialogProcs,
TransferMacros, LazConf, IDECmdLine, PackageDefs, PackageSystem, InputHistory;
type
@ -112,12 +112,12 @@ type
IDEDialogLayoutStorage1: TIDEDialogLayoutStorage;
ImageList1: TImageList;
procedure ConflictsTreeViewAdvancedCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, DefaultDraw: Boolean);
procedure ConflictsTreeViewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Node: TTreeNode; {%H-}State: TCustomDrawState; Stage: TCustomDrawStage;
var {%H-}PaintImages, {%H-}DefaultDraw: Boolean);
procedure ConflictsTreeViewMouseDown(Sender: TObject; {%H-}Button: TMouseButton;
{%H-}Shift: TShiftState; X, Y: Integer);
procedure DeleteSelectedFilesButtonClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure OkButtonClick(Sender: TObject);
private

4
packager/openinstalledpkgdlg.pas
View File

@ -45,12 +45,12 @@ type
PkgListView: TListView;
HintMemo: TMemo;
Splitter1: TSplitter;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure OpenButtonClick(Sender: TObject);
procedure PkgListViewDblClick(Sender: TObject);
procedure PkgListViewSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
procedure PkgListViewSelectItem(Sender: TObject; {%H-}Item: TListItem; {%H-}Selected: Boolean);
private
public
Package: TLazPackage;

12
packager/pkggraphexplorer.pas
View File

@ -37,8 +37,8 @@ unit PkgGraphExplorer;
interface
uses
Classes, SysUtils, Math, LCLProc, Forms, Controls, Buttons, ComCtrls,
StdCtrls, Menus, Dialogs, Graphics, FileCtrl, LCLType, ExtCtrls,
Classes, SysUtils, LCLProc, Forms, Controls, Buttons, ComCtrls,
StdCtrls, Menus, Dialogs, Graphics, LCLType, ExtCtrls,
AVL_Tree, contnrs,
IDECommands, PackageIntf, IDEImagesIntf, LazIDEIntf,
LvlGraphCtrl,
@ -70,7 +70,7 @@ type
procedure PkgGraphExplorerShow(Sender: TObject);
procedure PkgPopupMenuPopup(Sender: TObject);
procedure InfoMemoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
{%H-}Shift: TShiftState);
procedure PkgTreeViewDblClick(Sender: TObject);
procedure PkgTreeViewExpanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
@ -108,9 +108,9 @@ type
procedure UpdateTree;
procedure UpdateLvlGraph;
procedure UpdateInfo;
procedure UpdatePackageName(Pkg: TLazPackage; const OldName: string);
procedure UpdatePackageID(Pkg: TLazPackage);
procedure UpdatePackageAdded(Pkg: TLazPackage);
procedure UpdatePackageName({%H-}Pkg: TLazPackage; const {%H-}OldName: string);
procedure UpdatePackageID({%H-}Pkg: TLazPackage);
procedure UpdatePackageAdded({%H-}Pkg: TLazPackage);
procedure SelectPackage(Pkg: TLazPackage);
function FindLvlGraphNodeWithText(const s: string): TLvlGraphNode;
procedure ShowPath(PathList: TFPList);

3
packager/pkgmanager.pas
View File

@ -468,7 +468,8 @@ end;
procedure TPkgManager.IDEComponentPaletteEndUpdate(Sender: TObject;
PaletteChanged: boolean);
begin
UpdateVisibleComponentPalette;
if PaletteChanged then
UpdateVisibleComponentPalette;
end;
procedure TPkgManager.IDEComponentPaletteOpenPackage(Sender: TObject);