paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 00:19:32 +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

30
ide/main.pp
View File

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