Uživatelské nástroje
dlgcoverup
Rozdíly
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> | ||
| + | |||
dlgcoverup.txt · Poslední úprava: 2010/06/25 13:08 autor: slim
Nástroje pro stránku
Kromě míst, kde je explicitně uvedeno jinak, je obsah této wiki licencován pod následující licencí: GNU Free Documentation License 1.3
