diff options
| -rw-r--r-- | src/gui/fpg_hint.pas | 3 | ||||
| -rw-r--r-- | uidesigner/vfddesigner.pas | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/gui/fpg_hint.pas b/src/gui/fpg_hint.pas index 34fc7ca2..b3baee00 100644 --- a/src/gui/fpg_hint.pas +++ b/src/gui/fpg_hint.pas @@ -197,10 +197,11 @@ end; destructor TfpgHintWindow.Destroy; begin + T_Chrono.Enabled := False; T_Chrono.Free; FFont.Free; inherited Destroy; - uShadowForm.Destroy; + uShadowForm.Free; end; procedure TfpgHintWindow.SetPosition(aleft, atop, awidth, aheight: TfpgCoord); diff --git a/uidesigner/vfddesigner.pas b/uidesigner/vfddesigner.pas index 992815cc..f403fac5 100644 --- a/uidesigner/vfddesigner.pas +++ b/uidesigner/vfddesigner.pas @@ -1456,7 +1456,7 @@ begin cfrm := TInsertCustomForm.Create(nil); cfrm.edName.Text := GenerateNewName(wgc.NameBase); cfrm.edClass.Text := 'Tfpg'; - if cfrm.ShowModal = 1 then + if cfrm.ShowModal = mrOK then begin newname := cfrm.edName.Text; newClassName := cfrm.edClass.Text; |