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

LCL: lcltype: added LVN_ODCACHEHINT,LVN_ODSTATECHANGED and LVN_ODFINDITEM to start proper implementation of TCustomListView.OwnerData

Browse Source 
git-svn-id: trunk@35260 -
This commit is contained in:
zeljko 2012-02-09 08:38:45 +00:00
parent 951fdc2310
commit 41db03219e
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/qt/qtwidgets.pas
View File

@ -10190,6 +10190,7 @@ var
v: QVariantH;
WStr: WideString;
DataStr: WideString;
ASelected: Boolean;
begin
{do not set items during design time}
@ -10241,6 +10242,8 @@ begin
DataStr := '';
QVariant_destroy(v);
ASelected := TListView(LCLObject).Items[TopItem].Selected;
if (DataStr <> WStr) then
begin
v := QVariant_create(PWideString(@WStr));
@ -10250,6 +10253,9 @@ begin
QVariant_destroy(v);
end;
end;
if QListWidgetItem_isSelected(Item) <> ASelected then
QListWidgetItem_setSelected(Item, ASelected);
end else
break;
@ -11532,6 +11538,7 @@ var
itemChild: QTreeWidgetItemH;
v: QVariantH;
WStr: WideString;
ASelected: Boolean;
begin
{do not set items during design time}
if csDesigning in LCLObject.ComponentState then
@ -11569,6 +11576,7 @@ begin
continue;
WStr := GetUTF8String(TListView(LCLObject).Items[TopItem].Caption);
ASelected := TListView(LCLObject).Items[TopItem].Selected;
v := QVariant_create(PWideString(@WStr));
try
@ -11601,6 +11609,8 @@ begin
QVariant_destroy(v);
end;
end;
if QTreeWidgetItem_isSelected(Item) <> ASelected then
QTreeWidgetItem_setSelected(Item, ASelected);
end;
inc(i, RowHeight);

3
lcl/lcltype.pp
View File

@ -2911,6 +2911,9 @@ const
LVN_COLUMNCLICK = LVN_FIRST-8;
LVN_BEGINDRAG = LVN_FIRST-9;
LVN_BEGINRDRAG = LVN_FIRST-11;
LVN_ODCACHEHINT = LVN_FIRST-13;
LVN_ODSTATECHANGED = LVN_FIRST-15;
LVN_ODFINDITEM = LVN_FIRST-79;
const
LVIF_TEXT = $0001;