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

2
components/jvcllaz/run/JvStdCtrls/jvbaseedits.pas
View File

@ -477,7 +477,7 @@ function TJvCustomNumEdit.IsValidChar(Key: Char): Boolean;
var
S: string;
FSelStart, SelStop, DecPos: Integer;
RetValue: Double;
RetValue: Double = 0.0;
begin
Result := False;
S := EditText;

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

@ -85,7 +85,7 @@ type
procedure MouseLeave(Control: TControl); override;
procedure Paint; override;
procedure PaintButton(ACanvas: TCanvas); virtual;
procedure PaintFrame(ACanvas: TCanvas); virtual;
procedure PaintFrame({%H-}ACanvas: TCanvas); virtual;
function InsideBtn(X, Y: Integer): Boolean; virtual;
function WantKey(Key: Integer; Shift: TShiftState;
const KeyText: WideString): Boolean; override;
@ -419,7 +419,7 @@ begin
else
Exit;
{ wait 'til menu is done }
while PeekMessage(Msg, 0, LM_MOUSEFIRST, LM_MOUSELAST, PM_REMOVE) do
while PeekMessage(Msg{%H-}, 0, LM_MOUSEFIRST, LM_MOUSELAST, PM_REMOVE) do
{nothing};
{ release button }
MouseUp(Button, Shift, X, Y);

7
components/jvcllaz/run/JvStdCtrls/jvcheckbox.pas
View File

@ -34,10 +34,9 @@ unit JvCheckBox;
interface
uses
LCLIntf, LCLType, LMessages,
Classes, Graphics, Controls, StdCtrls, Types,
JvTypes, JvLinkedControls;
// JvTypes, JvExStdCtrls, JvLinkedControls, JvDataSourceIntf;
LCLIntf, LCLType,
Classes, Graphics, Controls, StdCtrls,
JvLinkedControls;
const
DefaultValueChecked = '1';