pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

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

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8071 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-08-14 10:09:24 +00:00
parent 329c200276
commit af883f35f2
38 changed files with 102 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/jvcllaz/run/JvCore/jvjclutils.pas
View File

@ -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])^));

19
components/jvcllaz/run/JvCore/jvjvclutils.pas
View File

@ -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;
ImageSize: Longint;
HeaderSize: Integer = 0;
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^));
Bits := Pointer(Longint(BI) + HeaderSize);
BI := PBitmapInfoHeader(PtrInt(FileHeader) + SizeOf(FileHeader^));
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;
ImageSize, Length, Len: Longint;
NewHeaderSize: Integer = 0;
ImageSize: LongInt = 0;
Length: LongInt = 0;
Len: Longint = 0;
P, InitData: Pointer;
ColorCount: Integer;
SourceBitmapFormat: TPixelFormat;

2
components/jvcllaz/run/JvCore/jvtypes.pas
View File

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