* Added some hints to the UI Designer main form.

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;