diff options
-rw-r--r-- | examples/apps/ide/src/frm_main.pas | 2 | ||||
-rw-r--r-- | examples/apps/ide/src/project.pas | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas index a106d57a..dafd2688 100644 --- a/examples/apps/ide/src/frm_main.pas +++ b/examples/apps/ide/src/frm_main.pas @@ -743,6 +743,7 @@ procedure TMainForm.FormShow(Sender: TObject); var lErrPos: integer; begin + {$IFDEF DEBUGSVR}SendMethodEnter('TMainForm.FormShow');{$ENDIF} Left := gINI.ReadInteger(Name + 'State', 'Left', Left); Top := gINI.ReadInteger(Name + 'State', 'Top', Top); Width := gINI.ReadInteger(Name + 'State', 'Width', Width); @@ -759,6 +760,7 @@ begin TextEditor.Clear; TextEditor.SetFocus; + {$IFDEF DEBUGSVR}SendMethodExit('TMainForm.FormShow');{$ENDIF} end; procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction); diff --git a/examples/apps/ide/src/project.pas b/examples/apps/ide/src/project.pas index 699c0957..f31e724f 100644 --- a/examples/apps/ide/src/project.pas +++ b/examples/apps/ide/src/project.pas @@ -293,7 +293,7 @@ begin u := TUnit.Create; s := tiToken(sl[j], ',', 1); u.FileName := fpgExpandFileName(ProjectDir + s); - u.Opened := Boolean(StrToInt(tiToken(sl[j], ',', 2))); + u.Opened := Boolean(StrToInt(tiToken(sl[j], ',', 2))); // 1 = True, 0 = False UnitList.Add(u); end; finally |