haorenhui
2023-10-30 6d6cc10d9e8e242661da7fd655dec155a09d676c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Quintiq file version 2.0
#parent: #root
Method ParseDialogTabPages (TG_UIDialog tg_dialog, TG_UITabPage parenttabpage, GUIComponent component) id:Method_GlobalStateTestGenerator_ParseDialogTabPages
{
  #keys: '[142876.9.1259715224]'
  Body:
  [*
    name := '';
    tabpagekey := Key::ZeroKey();
    display := component.Display();
    
    istabpage := component.istype( TabPage );
    
    name := GlobalStateTestGenerator.GetComponentNameFromDisplay( display );
    
    if( istabpage )
    {
      tabpagekey := component.Key();
      title := component.GetProperty( 'Title' );
      taborder := component.GetProperty( 'Taborder' );
      
      parenttabpage := TG_UITabPage::FindOrCreate( tg_dialog, parenttabpage, name, title, tabpagekey, display, StringToNumber::StandardConverter().SafeConvert( taborder ) );
    }
    
    traverse( component, SubComponents, child )
    {
      GlobalStateTestGenerator.ParseDialogTabPages( tg_dialog, parenttabpage, child );
    }
  *]
}