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

LCL: make ValueListEditor work also when ColumnTitles are not shown.

Browse Source 
git-svn-id: trunk@39442 -
This commit is contained in:
juha 2012-12-05 13:27:12 +00:00
parent 64b47ff313
commit 6b108dd2d8
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/valedit.pas
View File

@ -445,10 +445,9 @@ var
I: Integer;
begin
Result:='';
if ARow=0 then begin
if doColumnTitles in DisplayOptions then
if ACol<FTitleCaptions.Count then
Result:=FTitleCaptions[ACol];
if (ARow=0) and (doColumnTitles in DisplayOptions) then begin
if ACol<FTitleCaptions.Count then
Result:=FTitleCaptions[ACol];
exit;
end;
I:=ARow-FixedRows;