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

LCL, dbgrid, check column exists before getting button style, from Tristan Linnell, issue #22873

Browse Source 
git-svn-id: trunk@39118 -
This commit is contained in:
jesus 2012-10-17 23:28:28 +00:00
parent 68fae160e5
commit ad7b61f063
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/dbgrids.pas
View File

@ -1778,10 +1778,13 @@ begin
end;
function TCustomDBGrid.ColumnEditorStyle(aCol: Integer; F: TField): TColumnButtonStyle;
var
gridcol: TGridColumn;
begin
result := cbsAuto;
if Columns.Enabled then
result := ColumnFromGridColumn(aCol).ButtonStyle;
gridcol := ColumnFromGridColumn(aCol);
if Columns.Enabled and assigned(gridcol) then
result := gridcol.ButtonStyle;
result := DefaultEditorStyle(result, F);
end;