Changeset 217 for trunk/Packages/Common/UListViewSort.pas

Timestamp:

May 27, 2018, 10:24:35 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Build under Lazarus 1.6.2.

File:

• trunk/Packages/Common/UListViewSort.pas (modified) (1 diff)

trunk/Packages/Common/UListViewSort.pas

@@ -152 +152 @@
         R := CellRect(I, 0);
         Editor.Left := R.Left + 2;
-        Editor.Width := R.Width - 4;
+        Editor.Width := (R.Right - R.Left) - 4;
       end;
     end;