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

IDE: clean up

Browse Source 
git-svn-id: trunk@48205 -
This commit is contained in:
mattias 2015-03-10 12:53:11 +00:00
parent 26635ba63b
commit 2df6986f6a
4 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/cleandirdlg.pas
View File

@ -103,8 +103,9 @@ var
begin
ModalResult:=mrNone;
SaveSettings;
if not SearchFilesToDelete(List) then exit;
List:=nil;
try
if not SearchFilesToDelete(List) then exit;
if not DeleteFiles(List) then exit;
finally
List.Free;

10
ide/emptymethodsdlg.pas
View File

@ -34,7 +34,7 @@ interface
uses
Classes, SysUtils, TypInfo, LCLProc, Forms, Controls, Graphics,
Dialogs, ExtCtrls, StdCtrls, ButtonPanel, SynEdit, SynHighlighterPas,
CodeToolsStructs, CodeAtom, CodeCache, CodeToolManager, PascalParserTool,
CodeToolsStructs, CodeCache, CodeToolManager, PascalParserTool,
CodeTree,
SrcEditorIntf, LazIDEIntf, PropEdits, IDEDialogs, CustomFormEditor, JitForms,
Project, LazarusIDEStrConsts, EditorOptions;
@ -181,7 +181,7 @@ var
AncestorRoot, AncestorComponent: TComponent;
AncestorMethod: TMethod;
begin
FillByte(Result, SizeOf(Result), 0);
FillByte(Result{%H-}, SizeOf(Result), 0);
if csAncestor in AComponent.ComponentState then
begin
// search for ancestor component
@ -208,7 +208,7 @@ var
end;
end;
procedure CheckEvents(LookupRoot, AComponent: TComponent);
procedure CheckEvents(AComponent: TComponent);
var
TypeInfo: PTypeInfo;
TypeData: PTypeData;
@ -292,9 +292,9 @@ begin
and (SysUtils.CompareText(LookupRoot.ClassName,CurClassName)=0) then
begin
PropChanged:=false;
CheckEvents(LookupRoot,LookupRoot);
CheckEvents(LookupRoot);
for i:=0 to LookupRoot.ComponentCount-1 do
CheckEvents(LookupRoot,LookupRoot.Components[i]);
CheckEvents(LookupRoot.Components[i]);
// update objectinspector
if PropChanged and (GlobalDesignHook.LookupRoot=LookupRoot) then
GlobalDesignHook.RefreshPropertyValues;

4
ide/findoverloadsdlg.pas
View File

@ -40,8 +40,8 @@ uses
Classes, SysUtils, LCLProc,FileUtil, Forms, Controls, Graphics,
Dialogs, ExtCtrls, StdCtrls, Buttons, ButtonPanel, ComCtrls, AvgLvlTree,
// codetools
FindDeclarationTool, PascalParserTool, CodeTree, CodeCache, CodeAtom,
CodeToolManager, CodeGraph, FindOverloads,
FindDeclarationTool, PascalParserTool, CodeTree, CodeCache,
CodeToolManager, FindOverloads,
// IDE
LazIDEIntf, ProjectIntf, SrcEditorIntf, IDEProcs;

13
ide/findrenameidentifier.pas
View File

@ -31,7 +31,7 @@ interface
uses
Classes, SysUtils, LCLProc, Forms, Controls, Dialogs,
StdCtrls, ExtCtrls, AvgLvlTree, ComCtrls,
StdCtrls, ExtCtrls, ComCtrls,
laz2_DOM,
// codetools
FileProcs, AVL_Tree, CTUnitGraph, CodeTree, CodeCache,
@ -59,7 +59,7 @@ type
ScopeRadioGroup: TRadioGroup;
procedure FindOrRenameButtonClick(Sender: TObject);
procedure FindRenameIdentifierDialogClose(Sender: TObject;
var CloseAction: TCloseAction);
var {%H-}CloseAction: TCloseAction);
procedure FindRenameIdentifierDialogCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure RenameCheckBoxChange(Sender: TObject);
@ -102,7 +102,7 @@ function ShowIdentifierReferences(
DeclarationCode: TCodeBuffer; const DeclarationCaretXY: TPoint;
TreeOfPCodeXYPosition: TAVLTree): TModalResult;
procedure AddReferencesToResultView(DeclarationCode: TCodeBuffer;
const DeclarationCaretXY: TPoint; TargetCode: TCodeBuffer;
const DeclarationCaretXY: TPoint;
TreeOfPCodeXYPosition: TAVLTree; ClearItems: boolean; SearchPageIndex: integer);
function GatherFPDocReferencesForPascalFiles(PascalFiles: TStringList;
@ -312,7 +312,7 @@ begin
// list results
SearchResultsView.BeginUpdate(SearchPageIndex.PageIndex);
AddReferencesToResultView(DeclarationCode,DeclarationCaretXY,
DeclarationCode,TreeOfPCodeXYPosition,true,SearchPageIndex.PageIndex);
TreeOfPCodeXYPosition,true,SearchPageIndex.PageIndex);
OldSearchPageIndex:=SearchPageIndex;
SearchPageIndex:=nil;
SearchResultsView.EndUpdate(OldSearchPageIndex.PageIndex);
@ -324,9 +324,8 @@ begin
end;
procedure AddReferencesToResultView(DeclarationCode: TCodeBuffer;
const DeclarationCaretXY: TPoint; TargetCode: TCodeBuffer;
TreeOfPCodeXYPosition: TAVLTree; ClearItems: boolean;
SearchPageIndex: integer);
const DeclarationCaretXY: TPoint; TreeOfPCodeXYPosition: TAVLTree;
ClearItems: boolean; SearchPageIndex: integer);
var
Identifier: string;
CodePos: PCodeXYPosition;