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

jvcllaz: Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7901 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-11-23 14:28:05 +00:00
parent 0fc7589a41
commit bc37254519
9 changed files with 18 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/jvcllaz/design/JvWizard/jvwizardeditorform.pas
View File

@ -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 actWizardPagesUpdate(AAction: TBasicAction;
var Handled: Boolean);
procedure lbxWizardPagesDragDrop(Sender, {%H-}Source: TObject; X, Y: Integer);
procedure actWizardPagesUpdate({%H-}AAction: TBasicAction;
var {%H-}Handled: Boolean);
procedure acMoveUpExecute(Sender: TObject);
procedure acMoveDownExecute(Sender: TObject);
private

3
components/jvcllaz/packages/jvappfrmlazd.lpk
View File

@ -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">

5
components/jvcllaz/packages/jvappfrmlazr.lpk
View File

@ -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">

2
components/jvcllaz/run/JvCmp/jvprofilerform.pas
View File

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

2
components/jvcllaz/run/JvCmp/jvspellerform.pas
View File

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

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

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

4
components/jvcllaz/run/JvStdCtrls/jvpanel.pas
View File

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

6
components/jvcllaz/run/JvWizard/jvwizardroutemaplist.pas
View File

@ -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

2
components/jvcllaz/run/JvXPCtrls/jvxpcontainer.pas
View File

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