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

IDE: Cleanup

Browse Source
This commit is contained in:
Juha 2025-07-04 03:52:37 +03:00
parent 681fed6ffa
commit de12e8ae7b
3 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourceeditor.lfm
View File

@ -7,7 +7,7 @@ object SourceNotebook: TSourceNotebook
Caption = 'SourceNotebook'
ClientHeight = 300
ClientWidth = 400
LCLVersion = '3.99.0.0'
LCLVersion = '4.99.0.0'
OnMouseUp = FormMouseUp
OnResize = FormResize
object StatusBar: TStatusBar

3
ide/sourceeditor.pp
View File

@ -7979,8 +7979,7 @@ begin
{$ENDIF}
end;
procedure TSourceNotebook.RemoveUpdateEditorPageCaptionHandler(
AEvent: TNotifyEvent);
procedure TSourceNotebook.RemoveUpdateEditorPageCaptionHandler(AEvent: TNotifyEvent);
begin
FOnEditorPageCaptionUpdate.Remove(TMethod(AEvent));
end;

7
ide/sourcefilemanager.pas
View File

@ -2889,12 +2889,9 @@ begin
if sfCheckAmbiguousFiles in Flags then
MainBuildBoss.CheckAmbiguousSources(DestFilename,false);
{$IFDEF IDE_DEBUG}
debugln(['*** HasResources=',AnUnitInfo.HasResources]);
{$ENDIF}
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('SaveEditorFile B');{$ENDIF}
debugln(['SaveEditorFile Component=', AnUnitInfo.Component,
', LoadedDesigner=', AnUnitInfo.LoadedDesigner]);
//debugln(['SaveEditorFile Component=', AnUnitInfo.Component, ', HasResources=', AnUnitInfo.HasResources
// ', LoadedDesigner=', AnUnitInfo.LoadedDesigner]);
if not (sfSkipReferences in Flags) then // skip when externally renamed identifiers
begin
// Resource is needed for the check.