clean up

src/base/fresnel.dom.pas

@@ -3373,7 +3373,6 @@ function TFresnelCSSRegistry.ReadFontVariant(Resolver: TCSSBaseResolver; Check:
   aPosition: TCSSNumericalID): boolean;
 var
   KW: TCSSNumericalID;
-  i: Integer;
   HasValue, HasNormalOrNone, HasRuby, HasEastAsianVariant, HasEastAsianWidth,
     HasCommonLigatures, HasOrdinal, HasDiscretionaryLigatures, HasHistoricalLigatures,
     HasContextualLigatures, HasSlashedZero, HasNums, HasFractions: Boolean;
@@ -6931,7 +6930,6 @@ procedure TFresnelViewport.ApplyCSS;
   procedure TraverseCSS(El: TFresnelElement);
   var
     i: Integer;
-    PE: TPseudoElement;
   begin
     //writeln('Traverse ',El.ClassName,' CSSTypeName=',El.CSSTypeName);
     if El<>Self then
@@ -7080,7 +7078,6 @@ procedure TFresnelViewport.GetElementsAt(const x, y: TFresnelLength; OnlyLast: b
     El: TFresnelElement;
     i: Integer;
     BorderBox, r, c: TFresnelRect;
-    aContentOffset: TFresnelPoint;
     aBar: TPseudoElScrollBar;
     ClipHorizontal, ClipVertical: Boolean;
     CurX, CurY: TFresnelLength;

src/base/fresnel.edit.pp

@@ -234,7 +234,6 @@ procedure TEdit.HandleKeyDown(aEvent: TFresnelKeyEvent);
 var
   lChanged : Boolean;
   lOffset : Integer;
-  cb : TShortCutCombo;
 
 begin
   // Printable character has numkey >0

src/base/fresnel.renderer.pas

@@ -451,6 +451,7 @@ begin
     if (MouseEvt.Button=mbLeft) then
     begin
       Hit:=GetHit(X,Y,p);
+      if Hit=THit.hNone then ;
       {$IFDEF VerboseFresnelScrolling}
       writeln('TRendererScrollBar.MouseHandler Mouse Move ',Parent.Name,' Horz=',Horizontal,' Hit=',Hit,' p=',FloatToCSSStr(p),' GrabPos=',FloatToCSSStr(MouseDownGrabPos));
       {$ENDIF}
@@ -837,7 +838,6 @@ var
   aRenderable : IFresnelRenderable;
   s: TFresnelCSSSide;
   Corner: TFresnelCSSCorner;
-  aClientWidth, aClientHeight: TFresnelLength;
   ClipHorizontal, ClipVertical, NeedRestore: Boolean;
 begin
   FLLog(etDebug,'TFresnelRenderer.DrawElement %s Origin=%s',[El.GetPath,Origin.ToString]);