Extended LIST properties

  !- overwrite column behavior
  CLEAR(extProps)
  extProps.nColumn = 2        !- name column
  extProps.bWordWrap = TRUE
  SELF.SetExtListProps(extProps)
  CLEAR(extProps)
  extProps.nColumn = 3        !- address column
  extProps.bWordWrap = TRUE
  extProps.nMinFontSize = 6   !- min reduced font size
  SELF.SetExtListProps(extProps)
  CLEAR(extProps)
  extProps.nColumn = 4        !- post column
  extProps.bWordWrap = TRUE
  SELF.SetExtListProps(extProps)

For writing code that specifies List Column Numbers using Equates works better if the List changes to add, move or delete columns.

For APPs there are templates like this post of mine, and it links to Rick’s original, that make it easy. For Hand Code use ITEMIZE.

1 Like

In new update:

  • New list property “hot tracking” added: visual effects while an end user hovers over a row.
  • Simplified property declarations: new methods like EnableWordWrap, EnableUnicode, EnableHotRow.
  • Bug fixes.

A new video on GitHub page demonstrates hot tracking property behavior.

Tips and tricks:how to separate header from data?

lstEmployees.AfterDrawList              PROCEDURE(TRect pListRect)
hdrHeight                                 LONG, AUTO
g                                         TGdiPlusGraphics
pen                                       TGdiPlusPen
  CODE
  !- draw a line between a header and 1st row
  hdrHeight = SELF.HeaderHeight()
  pen.CreatePen(GdipMakeARGB(COLOR:Red))
  g.FromHDC(SELF.dc.GetHandle())
  g.DrawLine(pen, pListRect.left, hdrHeight-1, pListRect.right, hdrHeight-1)

2 Likes

Nice Mike! Looks very clear with a nice line under the header.

Best regards
Jeffrey

Another useless feature that could be implemented: blurred sensitive data.

Normal appearance:

Blurred sensitive data:

2 Likes