jvcllaz: Lowercase unit and package files of JvXPCtrls packages. Less hints and warnings.

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

components/jvcllaz/run/JvXPCtrls/jvxpbar.pas

@@ -113,12 +113,6 @@ type
     FClient: TJvXPBarItem;
   protected
     procedure AssignClient(AClient: TObject); override;
-    function IsCaptionLinked: Boolean; override;
-    function IsCheckedLinked: Boolean; override;
-    function IsEnabledLinked: Boolean; override;
-    function IsHintLinked: Boolean; override;
-    function IsImageIndexLinked: Boolean; override;
-    function IsVisibleLinked: Boolean; override;
     function IsOnExecuteLinked: Boolean; override;
     procedure SetCaption(const Value: string); override;
     procedure SetHint(const Value: string); override;
@@ -131,6 +125,14 @@ type
     procedure SetVisible(Value: Boolean); override;
     procedure SetOnExecute(Value: TNotifyEvent); override;
     property Client: TJvXPBarItem read FClient write FClient;
+  public
+    function IsCaptionLinked: Boolean; override;
+    function IsCheckedLinked: Boolean; override;
+    function IsEnabledLinked: Boolean; override;
+    function IsHintLinked: Boolean; override;
+    function IsImageIndexLinked: Boolean; override;
+    function IsVisibleLinked: Boolean; override;
+
   end;
 
   TJvXPBarItemActionLinkClass = class of TJvXPBarItemActionLink;
@@ -449,7 +451,7 @@ type
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     function GetHitTestAt(X, Y: Integer): TJvXPBarHitTest;
-    function GetItemAt(X, Y: Integer): Integer;
+    function GetItemAt({%H-}X, Y: Integer): Integer;
     procedure Click; override;
     property Height default 46;
     property VisibleItems: TJvXPBarVisibleItems read FVisibleItems;
@@ -550,7 +552,7 @@ procedure RoundedFrame(Canvas: TCanvas; ARect: TRect; AColor: TColor; R: Integer
 
 implementation
 
-{$R ../../resource/JvXPBar.res}
+{$R ../../resource/jvxpbar.res}
 
 uses
   Menus;
@@ -1772,8 +1774,8 @@ begin
 end;
 
 procedure TJvXPCustomWinXPBar.SetHotTrack(Value: Boolean);
-const
-  MouseEvents: TJvXPControlStyle = [csRedrawMouseEnter, csRedrawMouseLeave];
+//const
+//  MouseEvents: TJvXPControlStyle = [csRedrawMouseEnter, csRedrawMouseLeave];
 begin
   if Value <> FHotTrack then
   begin

components/jvcllaz/run/JvXPCtrls/jvxpbuttons.pas

@@ -38,11 +38,11 @@ uses
 type
   TJvXPCustomButtonActionLink = class(TWinControlActionLink)
   protected
-    function IsImageIndexLinked: Boolean; override;
     procedure AssignClient(AClient: TObject); override;
     procedure SetImageIndex(Value: Integer); override;
   public
     destructor Destroy; override;
+    function IsImageIndexLinked: Boolean; override;
   end;
 
   TJvXPLayout = (blGlyphLeft, blGlyphRight, blGlyphTop, blGlyphBottom);
@@ -85,7 +85,6 @@ type
     procedure SetWordWrap(Value: Boolean); virtual;
     procedure Paint; override;
     procedure HookResized; override;
-    procedure SetBounds(ALeft, ATop, AWidth, AHeight: integer); override;
     procedure UpdateBitmaps;
 
     // advanced properties.
@@ -104,6 +103,7 @@ type
     destructor Destroy; override;
     procedure Click; override;
     procedure Loaded ; override;
+    procedure SetBounds(ALeft, ATop, AWidth, AHeight: integer); override;
   published
 //    property TabStop default True;
 //    property UseDockManager default True;
@@ -504,7 +504,7 @@ end;
 
 procedure TJvXPCustomButton.KeyUp(var Key: Word; Shift: TShiftState);
 var
-  Pos: TPoint;
+  Pos: TPoint = (X:0; Y:0);
 begin
   // it's not possible to call the 'HookMouseUp' or 'HookMouseLeave' methods,
   // because we don't want to call their event handlers.

components/jvcllaz/run/JvXPCtrls/jvxpcheckctrls.pas

@@ -442,15 +442,6 @@ begin
   end;
 end;
 
-{$IFDEF USEJVCL}
-{$IFDEF UNITVERSIONING}
-initialization
-  RegisterUnitVersion(HInstance, UnitVersioning);
-
-finalization
-  UnregisterUnitVersion(HInstance);
-{$ENDIF UNITVERSIONING}
-{$ENDIF USEJVCL}
 
 end.
 

components/jvcllaz/run/JvXPCtrls/jvxpcontainer.pas

@@ -75,13 +75,10 @@ type
   protected
     procedure CreateParams(var Params: TCreateParams); override;
     procedure AdjustClientRect(var Rect: TRect); override;
-    procedure GetPreferredSize(var PreferredWidth, PreferredHeight: integer;
-      Raw: boolean = false; WithThemeSpace: boolean = true); override;
     procedure HookEnabledChanged; override;
     procedure HookMouseDown; override;
     procedure HookPosChanged; override;
     procedure Paint; override;
-    procedure SetBounds(aLeft, aTop, aWidth, aHeight: integer); override;
     property Alignment: TAlignment read FAlignment write SetAlignment default taCenter;
     property BorderWidth: TBorderWidth read FBorderWidth write SetBorderWidth default 0;
     property BoundColor: TColor read FBoundColor write SetBoundColor default clGray;
@@ -105,6 +102,9 @@ type
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+    procedure GetPreferredSize(var PreferredWidth, PreferredHeight: integer;
+      Raw: boolean = false; WithThemeSpace: boolean = true); override;
+    procedure SetBounds(aLeft, aTop, aWidth, aHeight: integer); override;
   end;
 
   TJvXPContainer = class(TJvXPCustomContainer)

components/jvcllaz/run/JvXPCtrls/jvxpcoreutils.pas

@@ -54,7 +54,7 @@ procedure JvXPDrawBoundLines(const ACanvas: TCanvas; const BoundLines: TJvXPBoun
 
 procedure JvXPConvertToGray2(ABitmap: TBitmap);
 
-procedure JvXPRenderText(const AParent: TControl; const ACanvas: TCanvas;
+procedure JvXPRenderText(const {%H-}AParent: TControl; const ACanvas: TCanvas;
   ACaption: TCaption; const AFont: TFont; const AEnabled, AShowAccelChar: Boolean;
   var ARect: TRect; AFlags: Integer);
 
@@ -64,7 +64,7 @@ procedure JvXPFrame3D(const ACanvas: TCanvas; const ARect: TRect;
 procedure JvXPColorizeBitmap(ABitmap: TBitmap; const AColor: TColor);
 
 procedure JvXPSetDrawFlags(const AAlignment: TAlignment; const AWordWrap: Boolean;
-  var Flags: Integer);
+  out Flags: Integer);
 
 procedure JvXPPlaceText(const AParent: TControl; const ACanvas: TCanvas;
   const AText: TCaption; const AFont: TFont; const AEnabled, AShowAccelChar: Boolean;
@@ -74,7 +74,7 @@ procedure JvXPPlaceText(const AParent: TControl; const ACanvas: TCanvas;
 implementation
 
 uses
-  IntfGraphics, fpCanvas, fpImage, fpImgCanv;
+  IntfGraphics, fpCanvas, fpImage;
 
 function JvXPMethodsEqual(const Method1, Method2: TMethod): Boolean;
 begin
@@ -414,7 +414,7 @@ begin
 end;
 
 procedure JvXPSetDrawFlags(const AAlignment: TAlignment; const AWordWrap: Boolean;
-  var Flags: Integer);
+  out Flags: Integer);
 begin
   Flags := DT_END_ELLIPSIS;
   case AAlignment of