* Minor bug fix in TfpgApplication. Setting the HintPase didn't affect the hint pause at all.

* By default the Hint Windows now doesn't have a shadow. More consistent with desktop environments.
* Removed some compiler hints from UI Designer.

4 files changed, 7 insertions, 13 deletions

diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas
index aaa0c7c2..98dc2033 100644
--- a/src/corelib/fpg_main.pas
+++ b/src/corelib/fpg_main.pas
@@ -1024,6 +1024,7 @@ end;
 procedure TfpgApplication.SetHintPause(const AValue: Integer);
 begin
   FHintPause := AValue;
+  FHintTimer.Interval := FHintPause;
 end;
 
 procedure TfpgApplication.InternalMsgClose(var msg: TfpgMessageRec);
diff --git a/src/gui/fpg_hint.pas b/src/gui/fpg_hint.pas
index 25af0fb4..34fc7ca2 100644
--- a/src/gui/fpg_hint.pas
+++ b/src/gui/fpg_hint.pas
@@ -60,7 +60,7 @@ type
     procedure   SetPosition(aleft, atop, awidth, aheight: TfpgCoord); override;
     property    Font: TfpgFont read FFont;
     property    Text: TfpgString read GetText write SetText;
-    property    Shadow: Integer read FShadow write SetShadow default 5;
+    property    Shadow: Integer read FShadow write SetShadow default 0;
     property    Border: Integer read FBorder write SetBorder default 1;
     property    Margin: Integer read FMargin write FMargin default 3;
     property    LTextColor: TfpgColor write SetLTextColor default clBlack;
@@ -183,7 +183,7 @@ begin
   FFont := fpgGetFont('#Label1');
   FMargin := 3;
   FBorder := 1;
-  FShadow := 5;
+  FShadow := 0; // no shadow by default
   FTime := 5000;
   L_Hint := CreateLabel(Self, FBorder, FBorder, '', Width - FBorder * 2, Height - FBorder * 2, taCenter, tlCenter);
   L_Hint.BackgroundColor := clHintWindow;
diff --git a/uidesigner/vfddesigner.pas b/uidesigner/vfddesigner.pas
index 548275e8..9c8e27c8 100644
--- a/uidesigner/vfddesigner.pas
+++ b/uidesigner/vfddesigner.pas
@@ -706,10 +706,9 @@ const
   cDivider = ' : ';
 var
   frm: TWidgetOrderForm;
-  n, fi, i: integer;
+  n, fi: integer;
   cd: TWidgetDesigner;
   identlevel: integer;
-  s: string;
   taborder: integer;
 
   procedure AddChildWidgets(pwg: TfpgWidget; slist: TStrings);
@@ -993,13 +992,10 @@ end;
 procedure TFormDesigner.OnPropPosEdit(Sender: TObject);
 var
   frm: TEditPositionForm;
-  ax: TfpgCoord;
-  ay: TfpgCoord;
   wg: TfpgWidget;
   n: integer;
   cd: TWidgetDesigner;
   posval: integer;
-  pt: TPoint;
 
   procedure SetNewPos(awg: TfpgWidget; pval: integer);
   begin
@@ -1028,7 +1024,7 @@ begin
   if wg = nil then
     wg := Form;
 
-  frm      := TEditPositionForm.Create(nil);
+  frm := TEditPositionForm.Create(nil);
 
   if Sender = frmProperties.btnLeft then
   begin
@@ -1076,8 +1072,7 @@ begin
       SetNewPos(FForm, posval);
       FForm.UpdateWindowPosition;
     end;
-
-  end;
+  end; { if }
 
   UpdatePropWin;
 end;
diff --git a/uidesigner/vfdmain.pas b/uidesigner/vfdmain.pas
index f9c53701..a310acfd 100644
--- a/uidesigner/vfdmain.pas
+++ b/uidesigner/vfdmain.pas
@@ -85,8 +85,7 @@ uses
   vfdformparser,
   fpg_iniutils,
   fpg_utils,
-  fpg_main,
-  fpg_hint;
+  fpg_main;
 
 Var
   DefaultPasExt : String = '.pas';
@@ -442,7 +441,6 @@ begin
   DefaultPasExt   := gINI.ReadString('Options', 'DefaultFileExt', '.pas');
   UndoOnPropExit  := gINI.ReadBool('Options', 'UndoOnExit', DefUndoOnPropExit);
   fpgApplication.HintPause := 1000;
-  TfpgHintWindow(fpgApplication.HintWindow).Shadow := 0;
 end;
 
 end.