Zde můžete vidět rozdíly mezi vybranou verzí a aktuální verzí dané stránky.
— |
dlgcoverup [2010/06/25 13:08] (aktuální) slim vytvořeno |
||
---|---|---|---|
Řádek 1: | Řádek 1: | ||
+ | ==== 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://\\ | ||
+ | <code> | ||
+ | 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 | ||
+ | </code> | ||
+ | |||