==== DlgCoverUp ==== **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