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

Qt: fixed index out of bounds when setting item text. issue #27740

Browse Source 
git-svn-id: trunk@48509 -
This commit is contained in:
zeljko 2015-03-26 16:02:28 +00:00
parent 31adc59c71
commit 3162d8bfd0
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt/qtwscomctrls.pp
View File

@ -1547,7 +1547,9 @@ begin
AAlignment := AlignmentToQtAlignmentMap[ALV.Column[ASubIndex].Alignment] or QtAlignVCenter; AAlignment := AlignmentToQtAlignmentMap[ALV.Column[ASubIndex].Alignment] or QtAlignVCenter;
QtTreeWidget.setItemText(TWI, ASubIndex, Str, AAlignment); QtTreeWidget.setItemText(TWI, ASubIndex, Str, AAlignment);
{issue #27696 for autosized columns we must provide sizehint} {issue #27696 for autosized columns we must provide sizehint}
if ALV.Column[ASubIndex].AutoSize then if (TCustomListViewHack(ALV).Columns.Count > 0) and (ASubIndex >= 0) and
(ASubIndex < TCustomListViewHack(ALV).Columns.Count) and
ALV.Column[ASubIndex].AutoSize then
begin begin
if Assigned(TCustomListViewHack(ALV).SmallImages) then if Assigned(TCustomListViewHack(ALV).SmallImages) then
AIconWidth := TCustomListViewHack(ALV).SmallImages.Width AIconWidth := TCustomListViewHack(ALV).SmallImages.Width