Uživatelské nástroje

Nástroje pro tento web


dlgcoverup

Rozdíly

Zde můžete vidět rozdíly mezi vybranou verzí a aktuální verzí dané stránky.

Odkaz na výstup diff

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