diff options
| -rw-r--r-- | uidesigner/vfddesigner.pas | 1 | ||||
| -rw-r--r-- | uidesigner/vfdwidgets.pas | 2 |
2 files changed, 1 insertions, 2 deletions
diff --git a/uidesigner/vfddesigner.pas b/uidesigner/vfddesigner.pas index b536eb37..9c120686 100644 --- a/uidesigner/vfddesigner.pas +++ b/uidesigner/vfddesigner.pas @@ -1154,7 +1154,6 @@ begin Result := newname; end; - procedure TFormDesigner.MsgActivate(var msg: TfpgMessageRec); begin msg.Stop := True; diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas index f6ed7cd3..5b1643f7 100644 --- a/uidesigner/vfdwidgets.pas +++ b/uidesigner/vfdwidgets.pas @@ -94,7 +94,7 @@ function TVFDPageControlWidgetClass.CreatePopupMenu(AWidget: TfpgWidget): TfpgPo begin FWidget := TfpgPageControl(AWidget); Result := TfpgPopupMenu.Create(nil); - { TODO : These are disabled for now, because a TabSheet component is used + { TODO : These are disabled for now, because a TabSheet component are used instead of a menu item - for adding tabs. } Result.AddMenuItem('Add Tab', '', @AddTabSClicked).Enabled := False; Result.AddMenuItem('Delete Tab', '', @DeleteTabClicked).Enabled := False; |