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

Grids: fix wrong result of TCustomGrid.GetEditorBorderStyle when FEditor = FPickListEditor. Issue #0028782.

Browse Source 
git-svn-id: trunk@52912 -
This commit is contained in:
bart 2016-09-04 12:51:11 +00:00
parent c3f04f89d1
commit b1262a951e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -5119,10 +5119,10 @@ end;
function TCustomGrid.GetEditorBorderStyle: TBorderStyle; function TCustomGrid.GetEditorBorderStyle: TBorderStyle;
begin begin
result := bsSingle; result := bsSingle;
if FEditor = FstringEditor then if FEditor = FStringEditor then
Result := FStringEditor.BorderStyle Result := FStringEditor.BorderStyle
else if FEditor = FPickListEditor then else if FEditor = FPickListEditor then
Result := FStringEditor.BorderStyle; Result := FPickListEditor.BorderStyle;
end; end;
function TCustomGrid.GetBorderWidth: Integer; function TCustomGrid.GetBorderWidth: Integer;