diff options
Diffstat (limited to 'uidesigner/newformdesigner.pas')
-rw-r--r-- | uidesigner/newformdesigner.pas | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/uidesigner/newformdesigner.pas b/uidesigner/newformdesigner.pas index 0f6af0f8..b5bd9cad 100644 --- a/uidesigner/newformdesigner.pas +++ b/uidesigner/newformdesigner.pas @@ -279,6 +279,7 @@ begin SetPosition(84, 123, 728, 87); WindowTitle := 'frmMain'; WindowPosition := wpUser; + ShowHint := True; gINI.ReadFormState(self); MainMenu := TfpgMenuBar.Create(self); @@ -299,6 +300,7 @@ begin ImageMargin := -1; ImageName := 'vfd.newform'; Focusable := False; + Hint := 'Create a new form'; OnClick := @(maindsgn.OnNewForm); end; @@ -312,6 +314,7 @@ begin ImageMargin := -1; ImageName := 'stdimg.open'; Focusable := False; + Hint := 'Open a file'; OnClick := @(maindsgn.OnLoadFile); end; @@ -325,6 +328,7 @@ begin ImageMargin := -1; ImageName := 'stdimg.save'; Focusable := False; + Hint := 'Save the current form design'; OnClick := @(maindsgn.OnSaveFile); end; @@ -422,6 +426,7 @@ begin btn.ImageName := wgc.WidgetIconName; btn.ImageMargin := -1; btn.Text := ''; + btn.Hint := wgc.WidgetClass.ClassName; btn.Focusable := False; btn.OnClick := @OnPaletteClick; btn.AllowDown := True; |