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

Qt: fixed wrong cast

Browse Source 
git-svn-id: trunk@35866 -
This commit is contained in:
zeljko 2012-03-10 11:23:24 +00:00
parent 0fd8705211
commit 82aea5f59c
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1129,7 +1129,6 @@ class function TQtWSCustomListView.ItemGetChecked(const ALV: TCustomListView;
const AIndex: Integer; const AItem: TListItem): Boolean; const AIndex: Integer; const AItem: TListItem): Boolean;
var var
QtTreeWidget: TQtTreeWidget; QtTreeWidget: TQtTreeWidget;
TWI: QTreeWidgetItemH;
LWI: QListWidgetItemH; LWI: QListWidgetItemH;
AState: QtCheckState; AState: QtCheckState;
begin begin
@ -1145,7 +1144,7 @@ begin
AState := QtUnChecked; AState := QtUnChecked;
LWI := TQtListWidget(ALV.Handle).getItem(AIndex); LWI := TQtListWidget(ALV.Handle).getItem(AIndex);
if LWI <> nil then if LWI <> nil then
AState := TQtListWidget(ALV).GetItemLastCheckState(LWI); AState := TQtListWidget(ALV.Handle).GetItemLastCheckState(LWI);
Result := AState = QtChecked; Result := AState = QtChecked;
end else end else
begin begin