diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-12-10 17:17:09 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-12-10 17:17:09 +0200 |
| commit | 7bc08bf178b46f4564828bf374ec9e0802c77c9a (patch) | |
| tree | d86e774878f49faeed3516918c7b379a8a03dd9f | |
| parent | 37ae664ae2cd4c83b3e3d6da24500ab7493bb02a (diff) | |
| download | fpGUI-7bc08bf178b46f4564828bf374ec9e0802c77c9a.tar.xz | |
Extra saftey checks. Nothing major.
| -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; |