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

RxFPC:cleanup code

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4647 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-05-12 07:25:00 +00:00
parent adf78c2a5f
commit e2921c7a65
6 changed files with 218 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/rx/trunk/rxdbgridfootertools.pas
View File

@ -114,18 +114,10 @@ type
function TRxDBGridFooterTools.MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: integer): boolean;
var
Cell: TGridCoord;
begin
if (Y > THackRxDBGrid(RxDBGrid).GCache.ClientHeight - (RxDBGrid.DefaultRowHeight * RxDBGrid.FooterOptions.RowCount)) then
begin
Result:=true;
Cell := RxDBGrid.MouseCoord(X, Y);
if (ssDouble in Shift) then
DoSetupTools;
end
else
Result:=false;
Result:=(Y > THackRxDBGrid(RxDBGrid).GCache.ClientHeight - (RxDBGrid.DefaultRowHeight * RxDBGrid.FooterOptions.RowCount));
if Result and (ssDouble in Shift) then
DoSetupTools;
end;
constructor TRxDBGridFooterTools.Create(AOwner: TComponent);