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

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