jvcllaz: Less hints and warnings.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7901 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/design/JvWizard/jvwizardeditorform.pas

@@ -128,9 +128,9 @@ type
       {%H-}Button: TMouseButton; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
     procedure lbxWizardPagesDragOver(Sender, Source: TObject; X, Y: Integer;
       {%H-}State: TDragState; var Accept: Boolean);
-    procedure lbxWizardPagesDragDrop(Sender, Source: TObject; X, Y: Integer);
+    procedure lbxWizardPagesDragDrop(Sender, {%H-}Source: TObject; X, Y: Integer);
-    procedure actWizardPagesUpdate(AAction: TBasicAction;
+    procedure actWizardPagesUpdate({%H-}AAction: TBasicAction;
-      var Handled: Boolean);
+      var {%H-}Handled: Boolean);
     procedure acMoveUpExecute(Sender: TObject);
     procedure acMoveDownExecute(Sender: TObject);
   private

components/jvcllaz/packages/jvappfrmlazd.lpk

@@ -14,8 +14,7 @@
       </SearchPaths>
     </CompilerOptions>
     <Description Value="JVCL application forms (design time) containing form enhancement components:
-- animated icons, animated title, form wallpaper
+- animated icons, animated title, form wallpaper" />
-"/>
     <License Value="The JVCL is released in accordance with the MPL 1.1 license. To get your own copy or read it, go to http://www.mozilla.org/MPL/MPL-1.1.html. "/>
     <Version Major="1" Release="7"/>
     <Files Count="1">

components/jvcllaz/packages/jvappfrmlazr.lpk

@@ -2,7 +2,7 @@
 <CONFIG>
   <Package Version="5">
     <PathDelim Value="\"/>
-    <Name Value="jvappfrmlazr"/>
+    <Name Value="JvAppFrmLazR"/>
     <Author Value="Various authors - see unit headers for details."/>
     <CompilerOptions>
       <Version Value="11"/>
@@ -13,8 +13,7 @@
       </SearchPaths>
     </CompilerOptions>
     <Description Value="JVCL Application Forms (Runtime) containing form enhancement components:
-- animated icons, animated title, form wallpaper
+- animated icons, animated title, form wallpaper" />
-"/>
     <License Value="The JVCL is released in accordance with the MPL 1.1 license. To get your own copy or read it, go to http://www.mozilla.org/MPL/MPL-1.1.html. "/>
     <Version Major="1" Release="7"/>
     <Files Count="4">

components/jvcllaz/run/JvCmp/jvprofilerform.pas

@@ -158,7 +158,7 @@ const
   MaxLen = 256;
 var
   Len: DWORD;
-  WS: WideString;
+  WS: WideString = '';
   Res: windows.BOOL;
 {$ENDIF}
 begin

components/jvcllaz/run/JvCmp/jvspellerform.pas

@@ -110,7 +110,7 @@ end;
 
 function LoadAnsiFileToString(const AFile: string): string;
 var
-  AnsiText: AnsiString;
+  AnsiText: AnsiString = '';
 begin
   with TFileStream.Create(AFile, fmOpenRead) do
   try

components/jvcllaz/run/JvCore/jvjclutils.pas

@@ -1300,7 +1300,7 @@ function FindUnusedFileName(FileName: string; const FileExt: string; NumberPrefi
 implementation
 
 uses
-  Math, Variants, LazFileUtils, typinfo, LclStrConsts,
+  Math, Variants, LazFileUtils, typinfo,
   JvConsts;
 
 (******************** NOT CONVERTED
@@ -1589,7 +1589,7 @@ end;
     StrToFloatDefIgnoreInvalidCharacters with some improvements made to decimal
     separator handling.
 }
-function _JvSafeStrToFloat(const Str: string; aDecimalSeparator: Char; var OutValue: Extended): Boolean;
+function _JvSafeStrToFloat(const Str: string; aDecimalSeparator: Char; out OutValue: Extended): Boolean;
 var
   LStr: String;
   I: Integer;
@@ -6791,7 +6791,8 @@ var
   I, KeyLen: Integer;
   C: Char;
   B: Byte;
-  Utf8Result, Utf8Key: UTF8String;
+  Utf8Result: UTF8String = '';
+  Utf8Key: UTF8String;
 begin
   Result := '';
   Utf8Key := UTF8Encode(Key);

components/jvcllaz/run/JvStdCtrls/jvpanel.pas

@@ -1230,8 +1230,8 @@ var
   OldHeight, OldWidth: Integer;
   OffsetX, OffsetY: Integer;
   NumControlsPerLine: Integer;
-  ControlRects: array of TControlRect;
+  ControlRects: array of TControlRect = nil;
-  LineOffsets: array of Integer;
+  LineOffsets: array of Integer = nil;
   LineCount, Len: Integer;
   ArrS: TJvArrangeSettings;
   ControlSize: TSize;

components/jvcllaz/run/JvWizard/jvwizardroutemaplist.pas

@@ -107,14 +107,14 @@ type
     { High-DPI }
     procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
       const AXProportion, AYProportion: Double); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
     {$IF LCL_FullVersion >= 1080100}
     procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
     {$ELSEIF LCL_FullVersion >= 1080000}
     procedure ScaleFontsPPI(const AProportion: Double); override;
     {$ENDIF}
-  public
-    constructor Create(AOwner: TComponent); override;
-    destructor Destroy; override;
   published
     property ActiveFont: TFont read FActiveFont write SetActiveFont;
     property ActiveFontOptions: TJvTrackFontOptions read FActiveFontOptions write SetActiveFontOptions default

components/jvcllaz/run/JvXPCtrls/jvxpcontainer.pas

@@ -34,7 +34,7 @@ interface
 
 uses
   LCLIntf, LCLProc, LCLType,
-  TypInfo, Classes, Controls, Graphics, StdCtrls, ExtCtrls,
+  TypInfo, Classes, Controls, Graphics, ExtCtrls,
   JvXPCore, JvXPCoreUtils;
 
 type