jvcllaz: Make sure that "Maximize compatibility" is checked in each package. Less hints and warnings.

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

components/jvcllaz/packages/jvappfrmlazd.lpk

@@ -14,7 +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">
@@ -24,6 +24,7 @@
         <UnitName Value="JvAppFrmReg"/>
       </Item1>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="3">
       <Item1>
         <PackageName Value="JvAppFrmLazR"/>

components/jvcllaz/packages/jvappfrmlazr.lpk

@@ -13,7 +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">
@@ -34,6 +34,7 @@
         <UnitName Value="JvAnimTitle"/>
       </Item4>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="2">
       <Item1>
         <PackageName Value="JvCoreLazR"/>

components/jvcllaz/packages/jvcorelazr.lpk

@@ -3,7 +3,6 @@
   <Package Version="5">
     <PathDelim Value="\"/>
     <Name Value="JvCoreLazR"/>
-    <AddToProjectUsesSection Value="True"/>
     <Author Value="Lazarus port by Sergio Samayoa"/>
     <CompilerOptions>
       <Version Value="11"/>

components/jvcllaz/packages/jvctrlslazd.lpk

@@ -34,6 +34,7 @@ Movable bevel and panel, ruler, expandable panel (RollOut), group header, hypert
         <UnitName Value="JvHTHintForm"/>
       </Item3>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="3">
       <Item1>
         <PackageName Value="IDEIntf"/>

components/jvcllaz/packages/jvctrlslazr.lpk

@@ -63,6 +63,7 @@ Movable bevel and panel, ruler, exandable panel (RollOut), group header, hyperte
         <UnitName Value="JvBehaviorLabel"/>
       </Item11>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="3">
       <Item1>
         <PackageName Value="JvStdCtrlsLazR"/>

components/jvcllaz/packages/jvcustomlazd.lpk

@@ -37,6 +37,7 @@ TimeLine, OutlookBar, Thumbnail viewer, ImageViewer, ImageListViewer, OwnerDrawV
         <UnitName Value="JvOutlookBarForm"/>
       </Item4>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="3">
       <Item1>
         <PackageName Value="IDEIntf"/>

components/jvcllaz/packages/jvcustomlazr.lpk

@@ -70,6 +70,7 @@ TimeLine, OutlookBar, Thumbnail viewer, ImageViewer, ImageListViewer, OwnerDrawV
         <UnitName Value="JvGammaPanel"/>
       </Item13>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="2">
       <Item1>
         <PackageName Value="JvCoreLazR"/>

components/jvcllaz/packages/jvdblazd.lpk

@@ -27,6 +27,7 @@
         <UnitName Value="JvDBReg"/>
       </Item1>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="5">
       <Item1>
         <PackageName Value="JvStdCtrlsLazR"/>

components/jvcllaz/packages/jvdblazr.lpk

@@ -54,7 +54,8 @@
         <UnitName Value="JvDBConst"/>
       </Item8>
     </Files>
-    <RequiredPkgs Count="4">
+    <CompatibilityMode Value="True"/>
+    <RequiredPkgs Count="3">
       <Item1>
         <PackageName Value="JvStdCtrlsLazR"/>
       </Item1>
@@ -64,9 +65,6 @@
       <Item3>
         <PackageName Value="JvCoreLazR"/>
       </Item3>
-      <Item4>
-        <PackageName Value="FCL"/>
-      </Item4>
     </RequiredPkgs>
     <UsageOptions>
       <UnitPath Value="$(PkgOutDir)"/>

components/jvcllaz/packages/jvhmilazd.lpk

@@ -27,6 +27,7 @@
         <UnitName Value="JvHMIReg"/>
       </Item1>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="2">
       <Item1>
         <PackageName Value="JvCoreLazD"/>

components/jvcllaz/packages/jvhmilazr.lpk

@@ -29,6 +29,7 @@
         <UnitName Value="JvLED"/>
       </Item2>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="1">
       <Item1>
         <PackageName Value="JvCoreLazR"/>

components/jvcllaz/packages/jvjanslazd.lpk

@@ -25,6 +25,7 @@
         <UnitName Value="JvJansReg"/>
       </Item1>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="2">
       <Item1>
         <PackageName Value="JvCoreLazD"/>

components/jvcllaz/packages/jvjanslazr.lpk

@@ -71,6 +71,7 @@
         <UnitName Value="JvGridFilter"/>
       </Item13>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="1">
       <Item1>
         <PackageName Value="JvCoreLazR"/>

components/jvcllaz/packages/jvnetlazd.lpk

@@ -24,6 +24,7 @@
         <UnitName Value="JvNetReg"/>
       </Item1>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="2">
       <Item1>
         <PackageName Value="JvCoreLazD"/>

components/jvcllaz/packages/jvnetlazr.lpk

@@ -33,6 +33,7 @@
         <UnitName Value="JvStrToHtml"/>
       </Item4>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="1">
       <Item1>
         <PackageName Value="JvCoreLazR"/>

components/jvcllaz/packages/jvpagecompsd.lpk

@@ -35,6 +35,7 @@
         <UnitName Value="JvPageLinkEditorForm"/>
       </Item4>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="3">
       <Item1>
         <PackageName Value="IDEIntf"/>

components/jvcllaz/packages/jvpagecompsr.lpk

@@ -41,6 +41,7 @@
         <UnitName Value="JvTabBarXPPainter"/>
       </Item6>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="2">
       <Item1>
         <PackageName Value="JvStdCtrlsLazR"/>

components/jvcllaz/packages/jvpascalinterpreterd.lpk

@@ -15,7 +15,7 @@
     </CompilerOptions>
     <Description Value="Pascal scripting engine of the JVCL library (https://sourceforge.net/projects/jvcl/) (designime code)."/>
     <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="6"/>
+    <Version Major="1" Release="7"/>
     <Files Count="1">
       <Item1>
         <Filename Value="..\design\JvPascalInterpreter\jvpascalinterpreterreg.pas"/>
@@ -23,6 +23,7 @@
         <UnitName Value="JvPascalInterpreterReg"/>
       </Item1>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="2">
       <Item1>
         <PackageName Value="JvCoreLazD"/>

components/jvcllaz/packages/jvpascalinterpreterr.lpk

@@ -15,7 +15,7 @@
     <Description Value="Pascal scripting engine of the JVCL library (https://sourceforge.net/projects/jvcl/) (runtime code)
 "/>
     <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="6"/>
+    <Version Major="1" Release="7"/>
     <Files Count="4">
       <Item1>
         <Filename Value="..\run\JvPascalInterpreter\JvInterpreter.pas"/>
@@ -34,6 +34,7 @@
         <UnitName Value="JvInterpreterFm"/>
       </Item4>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="2">
       <Item1>
         <PackageName Value="JvCoreLazR"/>

components/jvcllaz/packages/jvruntimedesignlazd.lpk

@@ -22,6 +22,7 @@
         <UnitName Value="JvRuntimeDesignReg"/>
       </Item1>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="2">
       <Item1>
         <PackageName Value="JvCoreLazD"/>

components/jvcllaz/packages/jvruntimedesignlazr.lpk

@@ -32,6 +32,7 @@
         <UnitName Value="JvDesignUtils"/>
       </Item4>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="1">
       <Item1>
         <PackageName Value="JvCoreLazR"/>

components/jvcllaz/packages/jvstdctrlslazd.lpk

@@ -24,6 +24,7 @@ CalcEdit, button, checkbox, panel, linked controls"/>
         <UnitName Value="JvStdCtrlsReg"/>
       </Item1>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="4">
       <Item1>
         <PackageName Value="IDEIntf"/>

components/jvcllaz/packages/jvstdctrlslazr.lpk

@@ -43,6 +43,7 @@ CalcEdit, button, checkbox, panel, linked controls
         <UnitName Value="JvHotTrackPersistent"/>
       </Item6>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="2">
       <Item1>
         <PackageName Value="JvCoreLazR"/>

components/jvcllaz/packages/jvtimeframeworklazd.lpk

@@ -24,6 +24,7 @@
         <UnitName Value="JvTimeFrameworkReg"/>
       </Item1>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="3">
       <Item1>
         <PackageName Value="JvCoreLazD"/>

components/jvcllaz/packages/jvtimeframeworklazr.lpk

@@ -57,6 +57,7 @@
         <UnitName Value="JvTFGlanceTextViewer"/>
       </Item10>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="1">
       <Item1>
         <PackageName Value="JvCoreLazR"/>

components/jvcllaz/packages/jvvalidatorslazd.lpk

@@ -32,6 +32,7 @@
         <UnitName Value="JvValidatorsEditorForm"/>
       </Item3>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="3">
       <Item1>
         <PackageName Value="JvValidatorsLazR"/>

components/jvcllaz/packages/jvvalidatorslazr.lpk

@@ -25,6 +25,7 @@
         <UnitName Value="JvValidators"/>
       </Item2>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="1">
       <Item1>
         <PackageName Value="JvCoreLazR"/>

components/jvcllaz/packages/jvwizardlazd.lpk

@@ -27,6 +27,7 @@
         <UnitName Value="JvWizardReg"/>
       </Item2>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="3">
       <Item1>
         <PackageName Value="JvWizardLazR"/>

components/jvcllaz/packages/jvwizardlazr.lpk

@@ -37,6 +37,7 @@
         <UnitName Value="JvWizardRouteMapSteps"/>
       </Item5>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="1">
       <Item1>
         <PackageName Value="JvCoreLazR"/>

components/jvcllaz/packages/jvxpctrlslazd.lpk

@@ -27,6 +27,7 @@
         <UnitName Value="JvXPPropertyEditors"/>
       </Item2>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="3">
       <Item1>
         <PackageName Value="JvCoreLazD"/>

components/jvcllaz/packages/jvxpctrlslazr.lpk

@@ -41,6 +41,7 @@
         <UnitName Value="JvXPCoreUtils"/>
       </Item6>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="2">
       <Item1>
         <PackageName Value="JvStdCtrlsLazR"/>

components/jvcllaz/run/JvCore/jvjclutils.pas

@@ -10186,6 +10186,7 @@ begin
   {$IFDEF ENDIAN_BIG}
   Result := AValue;
   {$ELSE}
+  Result := '';
   SetLength(Result, Length(AValue));
   for i:=1 to Length(AValue) do
     Result[i] := WideChar(BEToN(PDWord(@AValue[i])^));
@@ -10199,6 +10200,7 @@ begin
   {$IFDEF ENDIAN_BIG}
   Result := AValue;
   {$ELSE}
+  Result := '';
   SetLength(Result, Length(AValue));
   for i:=1 to Length(AValue) do
     Result[i] := WideChar(NtoBE(PDWord(@AValue[i])^));

components/jvcllaz/run/JvCore/jvjvclutils.pas

@@ -4599,7 +4599,7 @@ type
   PQColorList = ^TQColorList;
   TQColorList = array [0..{$IFDEF RTL230_UP}MaxInt div 16{$ELSE}MaxListSize{$ENDIF RTL230_UP} - 1] of PQColor;
 
-  PNewColor = ^TNewColor;
+  PNewColor = {%H-}^TNewColor;
   TNewColor = record
     RGBMin: TTriple;
     RGBWidth: TTriple;
@@ -5214,7 +5214,7 @@ begin
 end;
 
 type
-  PFreqRecord = ^TFreqRecord;
+  PFreqRecord = {%H-}^TFreqRecord;
   TFreqRecord = record
     B: Byte;
     G: Byte;
@@ -5652,6 +5652,7 @@ procedure InternalGetDIBSizes(Bitmap: HBITMAP; var InfoHeaderSize: Integer;
 var
   BI: TBitmapInfoHeader;
 begin
+  BI := Default(TBitmapInfoHeader);
   InitializeBitmapInfoHeader(Bitmap, BI, BitCount);
   if BI.biBitCount > 8 then
   begin
@@ -5703,8 +5704,8 @@ end;
 function DIBFromBit(Src: HBITMAP; Pal: HPALETTE; PixelFormat: TPixelFormat;
   var Length: Longint): Pointer;
 var
-  HeaderSize: Integer;
+  HeaderSize: Integer = 0;
-  ImageSize: Longint;
+  ImageSize: Longint = 0;
   FileHeader: PBitmapFileHeader;
   BI: PBitmapInfoHeader;
   Bits: Pointer;
@@ -5723,8 +5724,8 @@ begin
       bfSize := Length;
       bfOffBits := SizeOf(FileHeader^) + HeaderSize;
     end;
-    BI := PBitmapInfoHeader(Longint(FileHeader) + SizeOf(FileHeader^));
+    BI := PBitmapInfoHeader(PtrInt(FileHeader) + SizeOf(FileHeader^));
-    Bits := Pointer(Longint(BI) + HeaderSize);
+    Bits := Pointer(PtrInt(BI) + HeaderSize);
     InternalGetDIB(Src, Pal, BI^, Bits^, PixelFormat);
   except
     FreeMem(Result);
@@ -5741,8 +5742,10 @@ var
   BI, NewBI: PBitmapInfoHeader;
   Bits: Pointer;
   NewPalette: PRGBPalette;
-  NewHeaderSize: Integer;
+  NewHeaderSize: Integer = 0;
-  ImageSize, Length, Len: Longint;
+  ImageSize: LongInt = 0;
+  Length: LongInt = 0;
+  Len: Longint = 0;
   P, InitData: Pointer;
   ColorCount: Integer;
   SourceBitmapFormat: TPixelFormat;

components/jvcllaz/run/JvCore/jvtypes.pas

@@ -40,7 +40,7 @@ interface
 
 uses
   LCLType,
-  Classes, Controls, Forms, Graphics, LMessages, SysUtils,
+  Classes, Controls, Forms, Graphics, SysUtils,
   JvResources;
 
 const

components/jvcllaz/run/JvMM/jvgif.pas

@@ -19,7 +19,9 @@ You may retrieve the latest version of this file at the Project JEDI's JVCL home
 located at http://jvcl.delphi-jedi.org
 
 Known Issues:
-  GIF support is native for VisualCLX so this file is VCL only
+  GIF support is native for VisualCLX so this file is VCL only  // <-- wp: really?
+  Transparency does not seem to work
+
 -----------------------------------------------------------------------------}
 // $Id$
 
@@ -106,15 +108,15 @@ type
     procedure NewImage;
     procedure UniqueImage;
     procedure ReadData(Stream: TStream); override;
-    procedure SetHeight(Value: Integer); override;
+    procedure SetHeight({%H-}Value: Integer); override;
     procedure SetTransparent(Value: Boolean); override;
-    procedure SetWidth(Value: Integer); override;
+    procedure SetWidth({%H-}Value: Integer); override;
     procedure WriteData(Stream: TStream); override;
     property Bitmap: TBitmap read GetBitmap; { volatile }
   public
     constructor Create; override;
     destructor Destroy; override;
-    procedure Clear;
+    procedure Clear; override;
     procedure DecodeAllFrames;
     procedure EncodeAllFrames;
     procedure Assign(Source: TPersistent); override;
@@ -126,10 +128,8 @@ type
     procedure SaveToClipboardFormat(var AFormat: Word; var AData: THandle;
       var APalette: HPALETTE); override;
     **********************************)
-    procedure LoadFromResourceName(Instance: THandle; const ResName: string;
+    procedure LoadFromResourceName(Instance: THandle; const ResName: string); override;
-      ResType: PChar);
+    procedure LoadFromResourceID(Instance: THandle; ResID: Integer); override;
-    procedure LoadFromResourceID(Instance: THandle; ResID: Integer;
-      ResType: PChar);
     function AddFrame(Value: TGraphic): Integer; virtual;
     procedure DeleteFrame(Index: Integer);
     procedure MoveFrame(CurIndex, NewIndex: Integer);
@@ -207,7 +207,7 @@ type
     property Width: Integer read GetWidth;
   end;
 
-  TGIFData = class(TSharedImage)
+  TGIFData = class(TSharedRasterImage)   //was: TSharedImage)
   private
     FComment: TStringList;
     FAspectRatio: Byte;
@@ -217,11 +217,11 @@ type
   protected
     procedure FreeHandle; override;
   public
-    constructor Create;
+    constructor Create; override;
     destructor Destroy; override;
   end;
 
-  TGIFItem = class(TSharedImage)
+  TGIFItem = class(TSharedRasterImage)  //was: TSharedImage)
   private
     FImageData: TMemoryStream;
     FSize: TPoint;
@@ -526,7 +526,7 @@ begin
     (Length(FData[0]) >= 3) and (Byte(FData[0][1]) = AE_LOOPING);
 end;
 
-procedure FreeExtensions(Extensions: TList); near;
+procedure FreeExtensions(Extensions: TList); {near;}
 begin
   if Extensions <> nil then
   begin
@@ -595,7 +595,7 @@ type
   PIntCodeTable = ^TIntCodeTable;
   TIntCodeTable = array [0..CODE_TABLE_SIZE - 1] of Word;
 
-  PReadContext = ^TReadContext;
+  PReadContext = {%H-}^TReadContext;
   TReadContext = record
     Inx: Longint;
     Size: Longint;
@@ -604,7 +604,7 @@ type
     ReadMask: Longint;
   end;
 
-  PWriteContext = ^TWriteContext;
+  PWriteContext = {%H-}^TWriteContext;
   TWriteContext = record
     Inx: Longint;
     CodeSize: Longint;
@@ -678,7 +678,8 @@ procedure ReadImageStream(Stream, Dest: TStream; var Desc: TImageDescriptor;
   var Interlaced, LocalColors, Corrupted: Boolean; var BitsPerPixel: Byte;
   var ColorTable: TGIFColorTable);
 var
-  CodeSize, BlockSize: Byte;
+  CodeSize: Byte = 0;
+  BlockSize: Byte = 0;
 begin
   Corrupted := False;
   Stream.ReadBuffer(Desc, SizeOf(TImageDescriptor));
@@ -737,7 +738,7 @@ function ReadCode(Stream: TStream; var Context: TReadContext): Longint;
 var
   RawCode: Longint;
   ByteIndex: Longint;
-  Bytes: Byte;
+  Bytes: Byte = 0;
   BytesToLose: Longint;
 begin
   while (Context.Inx + Context.CodeSize > Context.Size) and
@@ -809,7 +810,8 @@ procedure ReadGIFData(Stream: TStream; const Header: TBitmapInfoHeader;
   Interlaced, LoadCorrupt: Boolean; IntBitPerPixel: Byte; Data: Pointer;
   var Corrupted: Boolean; ProgressProc: TProgressProc);
 var
-  MinCodeSize, Temp: Byte;
+  MinCodeSize: Byte = 0;
+  Temp: Byte;
   MaxCode, BitMask, InitCodeSize: Longint;
   ClearCode, EndingCode, FirstFreeCode, FreeCode: Word;
   I, OutCount, Code: Longint;
@@ -1757,7 +1759,7 @@ var
   BitFile: TBitmapFileHeader;
   Colors: TRGBPalette;
   Bits: Pointer;
-  Corrupt: Boolean;
+  Corrupt: Boolean = false;
 begin
   with BI do
   begin
@@ -1794,6 +1796,7 @@ begin
   end;
   Stream.Write(BitFile, SizeOf(TBitmapFileHeader));
   Stream.Write(BI, SizeOf(TBitmapInfoHeader));
+  Colors := Default(TRGBPalette);
   FillRGBPalette(FImage.FColorMap, Colors);
   Stream.Write(Colors, SizeOf(TRGBQuad) * (1 shl BI.biBitCount));
 
@@ -1839,6 +1842,7 @@ var
 begin
   FImage.FImageData := TMemoryStream.Create;
   try
+    ImageDesc := Default(TImageDescriptor);
     ReadImageStream(Stream, FImage.FImageData, ImageDesc, FInterlaced,
       FLocalColors, FCorrupted, FImage.FBitsPerPixel, FImage.FColorMap);
     if FCorrupted and not GIFLoadCorrupted then
@@ -2321,11 +2325,12 @@ begin
   ReadStream(Stream.Size - Stream.Position, Stream, True);
 end;
 
-procedure TJvGIFImage.LoadFromResourceName(Instance: THandle; const ResName: string;
+procedure TJvGIFImage.LoadFromResourceName(Instance: THandle; const ResName: string);
-  ResType: PChar);
 var
   Stream: TStream;
+  ResType: TResourceType;
 begin
+  ResType := GetResourceType;
   Stream := TResourceStream.Create(Instance, ResName, ResType);
   try
     ReadStream(Stream.Size - Stream.Position, Stream, True);
@@ -2334,11 +2339,12 @@ begin
   end;
 end;
 
-procedure TJvGIFImage.LoadFromResourceID(Instance: THandle; ResID: Integer;
+procedure TJvGIFImage.LoadFromResourceID(Instance: THandle; ResID: Integer);
-  ResType: PChar);
 var
+  ResType: TResourceType;
   Stream: TStream;
 begin
+  ResType := GetResourceType;
   Stream := TResourceStream.CreateFromID(Instance, ResID, ResType);
   try
     ReadStream(Stream.Size - Stream.Position, Stream, True);
@@ -2506,7 +2512,7 @@ end;
 
 procedure TJvGIFImage.ReadData(Stream: TStream);
 var
-  Size: Longint;
+  Size: Longint = 0;
 begin
   Stream.Read(Size, SizeOf(Size));
   ReadStream(Size, Stream, True);
@@ -2518,6 +2524,7 @@ var
   S: TGifSignature;
 begin
   FVersion := gvUnknown;
+  S := Default(TGifSignature);
   Stream.Read(S[0], 3);
   if not CompareMem(@GIFSignature[0], @S[0], 3) then
     GifError(RsEGIFVersion);
@@ -2570,8 +2577,8 @@ var
 
   function ReadDataBlock(Stream: TStream): TStringList;
   var
-    BlockSize: Byte;
+    BlockSize: Byte = 0;
-    S: AnsiString;
+    S: AnsiString = '';
   begin
     Result := TStringList.Create;
     try
@@ -2592,7 +2599,7 @@ var
 
   function ReadExtension(Stream: TStream): TExtension;
   var
-    ExtensionLabel: Byte;
+    ExtensionLabel: Byte = 0;
   begin
     Result := TExtension.Create;
     try

components/jvcllaz/run/JvPascalInterpreter/JvInterpreter.pas

@@ -1543,6 +1543,7 @@ var
   liLen: integer;
   lp: PByte;
 begin
+  Result := nil;
   liLen := VarArrayHighBound(V, 1) - VarArrayLowBound(V, 1) + 1;
   SetLength(result, liLen);
   lp := VarArrayLock(V);
@@ -1749,7 +1750,7 @@ end;
 function StringLoadFromStream(Stream: TStream): string;
 var
   L: Integer = 0;
-  UTF8Str: UTF8String;
+  UTF8Str: UTF8String = '';
 begin
   Stream.ReadBuffer(L, SizeOf(L));
   SetLength(UTF8Str, L);
@@ -2768,6 +2769,7 @@ begin
     Ret := ': ' + ResTypName;
   end;
 
+  Param := '';
   for I := 0 to ParamCount - 1 do
   begin
     if (ParamTypes[I] and varByRef) = varByRef then
@@ -4383,6 +4385,7 @@ var
     JvInterpreterSrcUnit: TJvInterpreterSrcUnit;
     FParams: TTypeArray;
   begin
+    FParams := Default(TTypeArray);
     for I := 0 to FSrcUnitList.Count - 1 do
     begin
       JvInterpreterSrcUnit := TJvInterpreterSrcUnit(FSrcUnitList[I]);
@@ -5601,6 +5604,7 @@ var
 
   function PopExp: Variant;
   begin
+    Result := Default(Variant);
     if FExpStackPtr = -1 then
       JvInterpreterError(ieInternal, -1);
     JvInterpreterVarCopy(Result, FExpStack[FExpStackPtr]);
@@ -5888,6 +5892,7 @@ begin
           else
           begin
             FCurrArgs.Clear;
+            V1 := Default(Variant);
             InternalGetValue(nil, 0, V1);
             if not VarIsOrdinal(V1) then
               JvInterpreterError(ieIntegerRequired, PosBeg);
@@ -6067,6 +6072,7 @@ begin
       UpdateVarParams;
     if FCurrArgs.Indexed and not FCurrArgs.ReturnIndexed then
     begin
+      V := Default(Variant);
       JvInterpreterVarCopy(V, Result);
       if not GetElement(V, Result, FCurrArgs) then
         { problem }
@@ -6129,7 +6135,7 @@ begin
     if TVarData(Variable).VType = varArray then
     begin
       {Get array value}
-      PP := PJvInterpreterArrayRec(PtrInt(JvInterpreterVarAsType(Variable, varInteger)));
+      PP := {%H-}PJvInterpreterArrayRec(PtrInt(JvInterpreterVarAsType(Variable, varInteger)));
       if Args.Count > PP.Dimension then
         JvInterpreterError(ieArrayTooManyParams, -1)
       else
@@ -6208,7 +6214,7 @@ begin
     if TVarData(Variable).VType = varArray then
     begin
       { Get array value }
-      PP := PJvInterpreterArrayRec(PtrInt(JvInterpreterVarAsType(Variable, varInteger)));
+      PP := {%H-}PJvInterpreterArrayRec(PtrInt(JvInterpreterVarAsType(Variable, varInteger)));
       if Args.Count > PP.Dimension then
         JvInterpreterError(ieArrayTooManyParams, -1)
       else
@@ -6407,6 +6413,7 @@ var
     begin
       FCurrArgs.FHasVars := False;
       FCurrArgs.Types := FunctionDesc.FParamTypes;
+      V := Default(Variant);
       for I := 0 to FCurrArgs.Count - 1 do
       begin
         if (FunctionDesc.FParamTypes[I] and varByRef) <> 0 then
@@ -6937,6 +6944,7 @@ begin
     MyArgs.Obj := FCurrArgs.Obj;
     MyArgs.ObjTyp := FCurrArgs.ObjTyp;
     try
+      Variable := Default(Variant);
       if GetValue(Identifier, Variable, MyArgs) then
       begin
         if not SetElement(Variable, FVResult, FCurrArgs) then
@@ -7342,6 +7350,7 @@ begin
     NextToken;
     TypName := Token;
     DT := ParseDataType;
+    Value := Default(variant);
     for I := 0 to FSS.Count - 1 do
     begin
       DT.Init(Value);
@@ -7612,6 +7621,7 @@ begin
       raise EJvInterpreterError.Create(ieRaise, PosBeg, '', '');
     ttIdentifier:
       begin
+        V := Default(variant);
         InternalGetValue(nil, 0, V);
         if VarType(V) <> varObject then
           JvInterpreterError(ieClassRequired, PosBeg {?});
@@ -7976,7 +7986,7 @@ procedure TJvInterpreterUnit.ReadUnit(const UnitName: string);
 var
   OldUnitName: string;
   OldSource: string;
-  S: string;
+  S: string = '';
 begin
   if FAdapter.UnitExists(UnitName) then
     Exit;
@@ -8346,7 +8356,7 @@ end;
 procedure TJvInterpreterUnit.ExecFunction(Fun: TJvInterpreterFunctionDesc);
 var
   OldUnitName: string;
-  S: string;
+  S: string = '';
 begin
   PushState;
   FAllowAssignment := True;
@@ -8488,7 +8498,7 @@ end;
 
 procedure TJvInterpreterProgram.Run;
 var
-  UsesList: string;
+  UsesList: string = '';
 begin
   // (rom) Does this always work? After "program" a line end or tab is allowed.
   if AnsiStrLIComp(PChar(FParser.Source), 'program ', Length('program ')) <> 0 then
@@ -8681,7 +8691,7 @@ end;
 
 procedure TJvInterpreterArrayDataType.Init(var V: Variant);
 begin
-  V := NativeInt(JvInterpreterArrayInit(FDimension, FArrayBegin, FArrayEnd, FArrayType, FDT));
+  V := {%H-}NativeInt(JvInterpreterArrayInit(FDimension, FArrayBegin, FArrayEnd, FArrayType, FDT));
   TVarData(V).VType := varArray;
 end;
 

components/jvcllaz/run/JvPascalInterpreter/JvInterpreterFm.pas

@@ -620,6 +620,7 @@ var
   UnitName: string;
   S: string = '';
 begin
+  Result := Default(Variant);
   FFileName := FileName;
   try
     UnitName := ChangeFileExt(ExtractFileName(FFileName), '');

components/jvcllaz/run/JvTimeFramework/jvtfmanager.pas

@@ -2290,6 +2290,7 @@ var
   Appt: TJvTFAppt;
   I: Integer;
 begin
+  Result := Default(TDynApptArray);
   SetLength(Result, 0);
   for I := 0 to ApptCount - 1 do
   begin
@@ -2317,6 +2318,7 @@ var
   Appt: TJvTFAppt;
   I: Integer;
 begin
+  Result := Default(TDynApptArray);
   SetLength(Result, 0);
   for I := 0 to ApptCount - 1 do
   begin