paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 17:00:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fix toggle checkbox on column on right click, it should be left click, issue #16482

Browse Source 
git-svn-id: trunk@25442 -
This commit is contained in:
jesus 2010-05-15 19:23:12 +00:00
parent aa6b21a51f
commit 15ace269d6
2 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/dbgrids.pas
View File

@ -362,7 +362,7 @@ type
procedure AddAutomaticColumns;
procedure BeforeMoveSelection(const DCol,DRow: Integer); override;
procedure BeginLayout;
procedure CellClick(const aCol,aRow: Integer); override;
procedure CellClick(const aCol,aRow: Integer; const Button:TMouseButton); override;
procedure InvalidateSizes;
procedure ColRowMoved(IsColumn: Boolean; FromIndex,ToIndex: Integer); override;
function ColumnEditorStyle(aCol: Integer; F: TField): TColumnButtonStyle;
@ -2262,8 +2262,12 @@ begin
{$ifdef dbgDBGrid}DebugLn('DBGrid.EditorDoGetValue FIN');{$endif}
end;
procedure TCustomDBGrid.CellClick(const aCol, aRow: Integer);
procedure TCustomDBGrid.CellClick(const aCol, aRow: Integer; const Button:TMouseButton);
begin
if Button<>mbLeft then
exit;
if (aCol>=FirstGridColumn)and(aRow>=FixedRows) then
begin
if ColumnEditorStyle(ACol, SelectedField) = cbsCheckboxColumn then begin

14
lcl/grids.pas
View File

@ -796,7 +796,7 @@ type
procedure CalcFocusRect(var ARect: TRect);
function CanEditShow: Boolean; virtual;
function CanGridAcceptKey(Key: Word; Shift: TShiftState): Boolean; virtual;
procedure CellClick(const aCol,aRow: Integer); virtual;
procedure CellClick(const aCol,aRow: Integer; const Button:TMouseButton); virtual;
procedure CheckLimits(var aCol,aRow: Integer);
procedure CheckLimitsWithError(const aCol, aRow: Integer);
procedure CMMouseLeave(var Message :TLMessage); message CM_MouseLeave;
@ -1113,7 +1113,7 @@ type
protected
FGrid: TVirtualGrid;
procedure CalcCellExtent(acol, aRow: Integer; var aRect: TRect); virtual;
procedure CellClick(const aCol,aRow: Integer); override;
procedure CellClick(const aCol,aRow: Integer; const Button:TMouseButton); override;
procedure ColRowDeleted(IsColumn: Boolean; index: Integer); override;
procedure ColRowExchanged(IsColumn: Boolean; index,WithIndex: Integer); override;
procedure ColRowInserted(IsColumn: boolean; index: integer); override;
@ -5469,14 +5469,14 @@ begin
gsNormal:
if not FixedGrid then
CellClick(cur.x, cur.y);
CellClick(cur.x, cur.y, Button);
gsSelecting:
begin
if SelectActive then
MoveExtend(False, Cur.x, Cur.y)
else
CellClick(cur.x, cur.y);
CellClick(cur.x, cur.y, Button);
end;
gsColMoving:
@ -6329,7 +6329,7 @@ begin
}
end;
procedure TCustomGrid.CellClick(const aCol, aRow: Integer);
procedure TCustomGrid.CellClick(const aCol, aRow: Integer; const Button:TMouseButton);
begin
end;
@ -8408,9 +8408,9 @@ begin
//
end;
procedure TCustomDrawGrid.CellClick(const ACol, ARow: Integer);
procedure TCustomDrawGrid.CellClick(const ACol, ARow: Integer; const Button:TMouseButton);
begin
if CellNeedsCheckboxBitmaps(ACol, ARow) then
if (Button=mbLeft) and CellNeedsCheckboxBitmaps(ACol, ARow) then
ToggleCheckbox;
end;