diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-07-18 10:25:50 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-07-18 10:25:50 +0200 |
| commit | 0000e3923b01422d4d3a6f5f16eb6cf881f21e40 (patch) | |
| tree | dd8ea7118ce3c3abf9fb0186fdccd8f4fb44f474 /examples/apps | |
| parent | 8855f319683e6b3f81c485ab02c229e3415de7f0 (diff) | |
| download | fpGUI-0000e3923b01422d4d3a6f5f16eb6cf881f21e40.tar.xz | |
ide: minor code comments and debug lines added.
Diffstat (limited to 'examples/apps')
| -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 |