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

jvcllaz: Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7466 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-05-23 08:13:16 +00:00
parent 50b17876b0
commit 3f5a223715
18 changed files with 40 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/jvcllaz/run/JvDB/jvdblookup.pas
View File

@ -41,7 +41,7 @@ interface
uses
//{$IFDEF WINDOWS}Windows,{$ENDIF}
Variants, Classes, Graphics, Controls, Forms, DB, DBCtrls,
LMessages, LCLType, LCLIntf, LCLProc, EditBtn, Themes,
LMessages, LCLType, LCLIntf, LCLProc, Themes,
JvThemes, JvDBUtils;
const
@ -3268,7 +3268,7 @@ end;
function TJvDBLookupCombo.GetDropDownButtonRect: TRect;
begin
Result := Rect(ClientWidth - FButtonWidth - Round((Width - ClientWidth) / 2), 0, Width, ClientHeight);
Result := Rect(ClientWidth - FButtonWidth - (Width - ClientWidth) div 2, 0, Width, ClientHeight);
end;
procedure TJvDBLookupCombo.InvalidateFrame;