From bc37254519c332235fe3c2c60f0a98df01241f17 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Mon, 23 Nov 2020 14:28:05 +0000 Subject: [PATCH] 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 | 6 +++--- components/jvcllaz/packages/jvappfrmlazd.lpk | 3 +-- components/jvcllaz/packages/jvappfrmlazr.lpk | 5 ++--- components/jvcllaz/run/JvCmp/jvprofilerform.pas | 2 +- components/jvcllaz/run/JvCmp/jvspellerform.pas | 2 +- components/jvcllaz/run/JvCore/jvjclutils.pas | 7 ++++--- components/jvcllaz/run/JvStdCtrls/jvpanel.pas | 4 ++-- components/jvcllaz/run/JvWizard/jvwizardroutemaplist.pas | 6 +++--- components/jvcllaz/run/JvXPCtrls/jvxpcontainer.pas | 2 +- 9 files changed, 18 insertions(+), 19 deletions(-) diff --git a/components/jvcllaz/design/JvWizard/jvwizardeditorform.pas b/components/jvcllaz/design/JvWizard/jvwizardeditorform.pas index b7274e5ef..9bd51be07 100644 --- a/components/jvcllaz/design/JvWizard/jvwizardeditorform.pas +++ b/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 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 diff --git a/components/jvcllaz/packages/jvappfrmlazd.lpk b/components/jvcllaz/packages/jvappfrmlazd.lpk index 67814b9c1..143e8ca8d 100644 --- a/components/jvcllaz/packages/jvappfrmlazd.lpk +++ b/components/jvcllaz/packages/jvappfrmlazd.lpk @@ -14,8 +14,7 @@ +- animated icons, animated title, form wallpaper" /> diff --git a/components/jvcllaz/packages/jvappfrmlazr.lpk b/components/jvcllaz/packages/jvappfrmlazr.lpk index 711eecb8f..3126584a8 100644 --- a/components/jvcllaz/packages/jvappfrmlazr.lpk +++ b/components/jvcllaz/packages/jvappfrmlazr.lpk @@ -2,7 +2,7 @@ - + @@ -13,8 +13,7 @@ +- animated icons, animated title, form wallpaper" /> diff --git a/components/jvcllaz/run/JvCmp/jvprofilerform.pas b/components/jvcllaz/run/JvCmp/jvprofilerform.pas index 151f02ac8..7f605dda6 100644 --- a/components/jvcllaz/run/JvCmp/jvprofilerform.pas +++ b/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 diff --git a/components/jvcllaz/run/JvCmp/jvspellerform.pas b/components/jvcllaz/run/JvCmp/jvspellerform.pas index ca9abeaa6..41c725f93 100644 --- a/components/jvcllaz/run/JvCmp/jvspellerform.pas +++ b/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 diff --git a/components/jvcllaz/run/JvCore/jvjclutils.pas b/components/jvcllaz/run/JvCore/jvjclutils.pas index 0bd5133c1..5802933a9 100644 --- a/components/jvcllaz/run/JvCore/jvjclutils.pas +++ b/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); diff --git a/components/jvcllaz/run/JvStdCtrls/jvpanel.pas b/components/jvcllaz/run/JvStdCtrls/jvpanel.pas index 3d73a2769..1e6ce6136 100644 --- a/components/jvcllaz/run/JvStdCtrls/jvpanel.pas +++ b/components/jvcllaz/run/JvStdCtrls/jvpanel.pas @@ -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; diff --git a/components/jvcllaz/run/JvWizard/jvwizardroutemaplist.pas b/components/jvcllaz/run/JvWizard/jvwizardroutemaplist.pas index 54a655809..43426fc80 100644 --- a/components/jvcllaz/run/JvWizard/jvwizardroutemaplist.pas +++ b/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 diff --git a/components/jvcllaz/run/JvXPCtrls/jvxpcontainer.pas b/components/jvcllaz/run/JvXPCtrls/jvxpcontainer.pas index 6b8e28962..95edce2f5 100644 --- a/components/jvcllaz/run/JvXPCtrls/jvxpcontainer.pas +++ b/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