DDT

DlgCoverUp() - procedura

Procedura ukončí nastavování aktuální záložky v dialogu a vrátí se ke zpracovaní záložky nadřazené aktuálním záložkám. Procedura má smysl pouze v případě vnořených záložek.

Příklad:

  Global AktualCover:Integer=0

  DefDialog('Test Záložek',492,372)
  DlgShade(-1,'',4,4,482,298)
  DlgButton(id_OK,'OK',334,306);
  DlgOnLineHelp(id_OK,'Pokracuje ve zpracování')
  DlgButton(id_Cancel,'Zpet',404,306);
  DlgOnLineHelp(id_Cancel,'Ukoncí bez zpracování')
  DlgCover(1710,4,8,8,474,290,False,AktualCover)
  SetCover(1,'Záložka &A')
  SetCover(2,'Záložka &B')
  SetCover(3,'Záložka &C')
  DlgStatic(-1,'C',8,8,256);
  SetCover(4,'Záložka &D')
  DlgCoverUp();
  DlgCover(1810,4,8,8,466,258,False,,1)
  SetCover(1,'Podzáložka &A1')
  DlgStatic(-1,'A1',8,8,256);
  SetCover(2,'Podzáložka &A2')
  DlgStatic(-1,'A2',8,8,256);
  SetCover(3,'Podzáložka &A3')
  DlgStatic(-1,'A3',8,8,256);
  SetCover(4,'Podzáložka &A4')
  DlgStatic(-1,'A4',8,8,256);
  DlgCoverUp();
  DlgCover(1910,3,8,8,466,258,False,,2)
  SetCover(1,'Podzáložka &B1')
  DlgStatic(-1,'B1',8,8,256);
  SetCover(2,'Podzáložka &B2')
  DlgStatic(-1,'B2',8,8,256);
  SetCover(3,'Podzáložka &B3')
  DlgStatic(-1,'B3',8,8,256);
  DlgCoverUp();
  DlgCover(2010,4,8,8,466,258,False,,4)
  SetCover(1,'Podzáložka &D1')
  DlgStatic(-1,'D1',8,8,256);
  SetCover(2,'Podzáložka &D2')
  DlgStatic(-1,'D2',8,8,256);
  SetCover(3,'Podzáložka &D3')
  DlgStatic(-1,'D3',8,8,256);
  SetCover(4,'Podzáložka &D4')
  DlgStatic(-1,'D4',8,8,256);

  Result:Integer=DlgExecute(True)
  if(Result<>id_OK)
    Halt