From 936f344935c2d06bf508b6001e0bba3f389ef8d9 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Tue, 18 Nov 2008 11:18:05 +0000
Subject: * 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.

---
 uidesigner/vfddesigner.pas | 11 +++--------
 uidesigner/vfdmain.pas     |  4 +---
 2 files changed, 4 insertions(+), 11 deletions(-)

(limited to 'uidesigner')

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.
-- 
cgit v1.2.3-70-g09d2