WinGanttIvlRemove

Dieser Befehl entfernt ein Box-/Interval-/Line-Objekt (obj) aus einem GanttGraph-Objekt.

Beispiel:

// Alle Box-, Intervall- oder Linien-Objekte aus einem GanttGraph entfernen
sub ObjectsRemove
(
  aGanttGraph   : int;  // GanttGraph
  aObjType      : int;  // Objekttyp
)

  local
  {
    tObj          : int;  // Objekt
  }

{
  // Falls Objekt kein GanttGraph-Unterobjekt
  if ((aObjType != _WinTypeIvlBox) and (aObjType != _WinTypeInterval) and (aObjType != _WinTypeIvlLine))
    // Funktion abbrechen
    return;

  // Objektaktualisierung deaktivieren
  aGanttGraph->WinUpdate(_WinUpdOff);

  // Alle Objekte vom Typ aObjType durchlaufen
  for    tObj # aGanttGraph->WinInfo(_WinFirst, 1, aObjType);
  loop   tObj # aGanttGraph->WinInfo(_WinFirst, 1, aObjType);
  while  (tObj > 0)
  {
    // Objekt entfernen
    tObj->WinGanttIvlRemove();
  }

  // Objektaktualisierung aktivieren
  WinUpdate(aGanttGraph, _WinUpdOn);
}

Mögliche Laufzeitfehler:

• _ErrHdlInvalid: GanttGraph (obj) ungültig