Gleichbleibende Zeilenhöhe im RecView

RecView mit unterschiedlicher Zeilenhöhe

Das RecView-Objekt eignet sich für die Darstellung von Inhalten aus der Datenbank mit variabler Zeilenhöhe. Es ist Beispielsweise die Anzeige von RTF-Inhalten, Texten und Bildern möglich.
Im Gegensatz zu einer RecList, welche eine gleichbleibende Zeilenhöhe besitzt, bietet das RecView-Objekt die Möglichkeit die Zeilenhöhe pro Zelle zu variieren. Es gibt allerdings Situationen, in welchen eine uneinheitliche Zeilenhöhe unvorteilhaft ist. Im weiteren Verlauf dieses Artikels möchte ich Ihnen eine Möglichkeit aufzeigen, eine gleichbleibende Zeilenhöhen im RecView zu realisieren.

Wie ich bereits im Artikel SelectorItem im RecView beschrieben habe, können einzelne Items innerhalb einer Group unter Verwendung von wpSelectorItem angesprochen werden.
Nach dem Ereignis EvtLstGroupInit, in welchem eine Veränderung der Feldinhalte, das Lesen von verknüpften Dateiinhalten oder das Anpassen der Itemfarbe in der aktuellen Gruppe erfolgen kann, wird das Ereignis EvtLstGroupArrange ausgelöst.
Diese Ereignis wird nach der Initialisierung einer Gruppe aufgerufen. Die Ausgabe der Gruppe erfolgte jedoch noch nicht. Hier können nun die SubItems neu positioniert oder weitere Veränderungen vorgenommen werden. Nun kann prozedural ermittelt werden, wie hoch die momentan höchste Zelle in einer Zeile ist. Dies kann ohne größere Probleme mit der Maximum-Funktion Max() realisiert werden. Anschließend wird dieser Wert der Gruppe zugewiesen.

RecView mit gleicher Zeilenhöhe

sub EvtLstGroupArrange
(
   aEvt     : event;    // Ereignis
   aRecBuf  : handle;   // Datensatzpuffer
   aGroup   : handle;   // Gruppe
   aViewId  : int;      // Nummer des View
)  : logic;
local
{
   tItemNo      : int;
   tMaxHeight   : int;
}
{
   // Ermitteln des höchsten Items
   for tItemNo # 1
   loop inc(tItemNo)
   while (tItemNo <= aEvt:obj->WinInfo(_WinCount))
   {
      aGroup->wpSelectorItem # tItemNo;

      if (aGroup->wpVisible) {
        tMaxHeight # Max(aGroup->wpContentHeight, tMaxHeight)};
   }
   // Setzen aller Items auf diese Höhe
   for tItemNo # 1
   loop inc(tItemNo)
   while (tItemNo <= aEvt:obj->WinInfo(_WinCount))
   {
      aGroup->wpSelectorItem # tItemNo;

      if (aGroup->wpVisible) {
        aGroup->wpContentHeight # tMaxHeight};
   }
}