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

ide: Fix a potentially uninitialized variable in main.pp by Juha Manninen + formatting (issue #0015470)

Browse Source 
git-svn-id: trunk@23383 -
This commit is contained in:
paul 2010-01-05 13:13:37 +00:00
parent fc53888ae2
commit af6299149d
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ide/main.pp
View File

@ -12651,25 +12651,27 @@ end;
procedure TMainIDE.OnDesignerModified(Sender: TObject); procedure TMainIDE.OnDesignerModified(Sender: TObject);
var var
SrcEdit: TSourceEditor; SrcEdit: TSourceEditor;
CurDesigner: TDesigner; CurDesigner: TDesigner absolute Sender;
AnUnitInfo: TUnitInfo; AnUnitInfo: TUnitInfo;
begin begin
CurDesigner:=TDesigner(Sender); if dfDestroyingForm in CurDesigner.Flags then Exit;
if dfDestroyingForm in CurDesigner.Flags then exit; AnUnitInfo := Project1.UnitWithComponent(CurDesigner.LookupRoot);
AnUnitInfo:=Project1.UnitWithComponent(CurDesigner.LookupRoot); if AnUnitInfo <> nil then
if AnUnitInfo<>nil then begin begin
AnUnitInfo.Modified:=true; AnUnitInfo.Modified := True;
if AnUnitInfo.Loaded then if AnUnitInfo.Loaded then
SrcEdit:=SourceNotebook.FindSourceEditorWithPageIndex( begin
AnUnitInfo.EditorIndex); SrcEdit := SourceNotebook.FindSourceEditorWithPageIndex(AnUnitInfo.EditorIndex);
if SrcEdit<>nil then begin if SrcEdit <> nil then
SrcEdit.Modified:=true; begin
SrcEdit.Modified := True;
SourceNotebook.UpdateStatusBar; SourceNotebook.UpdateStatusBar;
{$IFDEF VerboseDesignerModified} {$IFDEF VerboseDesignerModified}
DumpStack; DumpStack;
{$ENDIF} {$ENDIF}
end; end;
end; end;
end;
end; end;
procedure TMainIDE.OnControlSelectionChanged(Sender: TObject; ForceUpdate: Boolean); procedure TMainIDE.OnControlSelectionChanged(Sender: TObject; ForceUpdate: Boolean);