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

jvcllaz: Set package version numbers to 1.0.5 for upcoming OPM release. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6969 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-29 16:06:12 +00:00
parent 4e22eb8649
commit 5296af1508
82 changed files with 366 additions and 366 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/jvcllaz/run/JvXPCtrls/jvxpcore.pas
View File

@ -143,7 +143,7 @@ type
FModalResult: TModalResult;
FOnMouseLeave: TNotifyEvent;
FOnMouseEnter: TNotifyEvent;
procedure SetVersion(const Value: string);
procedure SetVersion(const {%H-}Value: string);
procedure CMFocusChanged(var Msg: TLMessage); message CM_FOCUSCHANGED;
procedure CMDialogChar(var Msg: TCMDialogChar); message CM_DIALOGCHAR;
procedure CMBorderChanged(var Msg: TLMessage); message CM_BORDERCHANGED;
@ -170,7 +170,7 @@ type
procedure HookMouseDown; dynamic;
procedure HookMouseEnter; dynamic;
procedure HookMouseLeave; dynamic;
procedure HookMouseMove(X: Integer = 0; Y: Integer = 0); dynamic;
procedure HookMouseMove({%H-}X: Integer = 0; {%H-}Y: Integer = 0); dynamic;
procedure HookMouseUp; dynamic;
procedure HookParentColorChanged; dynamic;
procedure HookParentFontChanged; dynamic;
@ -617,7 +617,7 @@ end;
procedure TJvXPCustomControl.HookMouseUp;
var
CurrentPos: TPoint;
CurrentPos: TPoint = (X:0; Y: 0);
NewControl: TWinControl;
begin
// this hook is called, if the user releases the left mouse button.

4
components/jvcllaz/run/JvXPCtrls/jvxpcoreutils.pas
View File

@ -43,8 +43,8 @@ function JvXPMethodsEqual(const Method1, Method2: TMethod): Boolean;
procedure JvXPDrawLine(const ACanvas: TCanvas; const X1, Y1, X2, Y2: Integer);
procedure JvXPCreateGradientRect(const AWidth, AHeight: Integer; const StartColor,
EndColor: TColor; const AColors: TJvXPGradientColors; const Style: TJvXPGradientStyle;
const Dithered: Boolean; var Bitmap: TBitmap);
EndColor: TColor; const {%H-}AColors: TJvXPGradientColors; const Style: TJvXPGradientStyle;
const {%H-}Dithered: Boolean; var Bitmap: TBitmap);
procedure JvXPAdjustBoundRect(const BorderWidth: Byte;
const ShowBoundLines: Boolean; const BoundLines: TJvXPBoundLines; var Rect: TRect);