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

Qt: fixed warnings

Browse Source 
git-svn-id: trunk@26626 -
This commit is contained in:
zeljko 2010-07-13 14:55:49 +00:00
parent cbc5a306cd
commit b6beec0f82
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtlclintf.inc
View File

@ -160,7 +160,7 @@ begin
if ACursor > crHigh then Exit; if ACursor > crHigh then Exit;
// TODO: map is better // TODO: map is better
case TCursor(ACursor) of case ACursor of
crNone : CursorShape := QtBlankCursor; crNone : CursorShape := QtBlankCursor;
crArrow : CursorShape := QtArrowCursor; crArrow : CursorShape := QtArrowCursor;
crCross : CursorShape := QtCrossCursor; crCross : CursorShape := QtCrossCursor;