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

LCL, grids: Fix dbgrid header click issue #28919

Browse Source 
git-svn-id: trunk@52617 -
This commit is contained in:
jesus 2016-07-04 06:26:35 +00:00
parent dac8469d9c
commit af0ed1ee21
1 changed files with 26 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
lcl/dbgrids.pas
View File

@ -371,6 +371,7 @@ type
function NeedAutoSizeColumns: boolean;
procedure RenewColWidths;
procedure InternalAutoSizeColumn(aCol: Integer; aCanvas: TCanvas; aDatalinkActive: Boolean);
procedure DoHeaderClick(Index: Integer);
protected
procedure AddAutomaticColumns;
procedure AssignTo(Dest: TPersistent); override;
@ -824,6 +825,17 @@ begin
ColWidths[0]:=12;
end;
procedure TCustomDBGrid.DoHeaderClick(Index: Integer);
var
Column: TColumn;
begin
if Assigned(OnTitleClick) then begin
Column := TColumn(ColumnFromGridColumn(Index));
if Column <> nil then
OnTitleClick(Column);
end;
end;
function TCustomDBGrid.GetColumns: TDBGridColumns;
begin
result := TDBGridColumns( inherited Columns );
@ -2175,17 +2187,12 @@ begin
end;
procedure TCustomDBGrid.HeaderClick(IsColumn: Boolean; index: Integer);
var
Column: TColumn;
begin
{$ifdef dbgDBGrid}
DebugLn('%s.HeaderClick', [ClassName]);
{$endif}
if Assigned(OnTitleClick) and IsColumn then begin
Column := TColumn(ColumnFromGridColumn(Index));
if Column<>nil then
OnTitleClick(Column);
end;
if IsColumn then
DoHeaderClick(Index);
end;
procedure TCustomDBGrid.KeyDown(var Key: Word; Shift: TShiftState);
@ -2807,16 +2814,18 @@ begin
if Button<>mbLeft then
exit;
if (aCol>=FirstGridColumn)and(aRow>=FixedRows) then
begin
if IsColumnVisible(aCol) and
(ColumnEditorStyle(ACol, SelectedField) = cbsCheckboxColumn) then begin
// react only if overriden editor is hidden
if (Editor=nil) or not EditorMode then
SwapCheckBox
end;
if Assigned(OnCellClick) then
OnCellClick(TColumn(ColumnFromGridColumn(aCol)));
if (aCol>=FirstGridColumn) then begin
if (aRow>=FixedRows) then begin
if IsColumnVisible(aCol) and
(ColumnEditorStyle(ACol, SelectedField) = cbsCheckboxColumn) then begin
// react only if overriden editor is hidden
if (Editor=nil) or not EditorMode then
SwapCheckBox
end;
if Assigned(OnCellClick) then
OnCellClick(TColumn(ColumnFromGridColumn(aCol)));
end else
DoHeaderClick(aCol)
end;
end;