* 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.

2 files changed, 4 insertions, 11 deletions

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.