forum.clarionlife.net

Код: Выделить всё

  system{prop:CharSet} = Charset:Cyrillic
  system{prop:FontCharSet + prop:TipsFont} = Charset:Cyrillic
  system{prop:Font} = 'Arial'
  ! End of "Before Opening the Window"
  OPEN(AppFrame)
  WindowOpened=True
  ! Start of "After Opening the Window"
  ! [Priority 4000]
  0{PROP:StatusText,1} = GETINI('DATABASE','GIBASE','','.\STARTRAP.INI')
  !START(MONITOR, 25000)
  post(EVENT:ACCEPTED, ?Регистрациялицензий)

Код: Выделить всё

AppFrame   APPLICATION('Главное меню'),AT(,,510,292),FONT('Arial',11,,,CHARSET:CYRILLIC),RESIZE,CENTER, |
                  ICON('prilavok.ico'),IMM,MASK,MAX,STATUS(-1,100,150),SYSTEM
                       MENUBAR,USE(?Menubar)
                         MENU('&Файл'),USE(?File)

Код: Выделить всё

AppFrame             APPLICATION('Администрирование "************"'),AT(,,520,400),FONT('MS Sans Serif',8,COLOR:Black, |
  FONT:regular,CHARSET:CYRILLIC),RESIZE,TILED,AUTO,ICON('SUPPORT.ICO'),IMM,MAX,STATUS(-1,80, |
  120,45),SYSTEM
                       MENUBAR,USE(?MENUBAR1)
                         ITEM('&Выход'),USE(?Выход),STD(STD:Close)
                         ITEM('&Настройки'),USE(?Настройки)
                         ITEM('&Управление доступом'),USE(?Доступ)
                         MENU('Управление сервером'),USE(?Управлениесервером)
                           ITEM('&Монитор лицензий'),USE(?Регистрациялицензий)
                           ITEM,USE(?SEPARATOR1),SEPARATOR
                           ITEM('Загрузка скриптов'),USE(?УправлениесерверомЗагрузкаскриптов),DISABLE
                           ITEM,USE(?SEPARATOR2),SEPARATOR
                           ITEM('&Обнуление версий'),USE(?УправлениесерверомОбнулениеверсий)
                         END
                         MENU('Просмотр базы'),USE(?Просмотрбазы),HIDE
                         END
                         MENU('&Окно'),USE(?Окно),MSG('Arrange multiple open windows'),STD(STD:WindowList)
                           ITEM('T&ile'),USE(?Tile),MSG('Arrange multiple opened windows'),STD(STD:TileWindow)
                           ITEM('&Cascade'),USE(?Cascade),MSG('Arrange multiple opened windows'),STD(STD:CascadeWindow)
                           ITEM('&Arrange Icons'),USE(?Arrange),MSG('Arrange the icons for minimized windows'),STD(STD:ArrangeIcons)
                         END
                       END
                       TOOLBAR,AT(0,0,520,20),USE(?TOOLBAR1)
                         BUTTON,AT(6,3,16,15),USE(?Button4),ICON('EXIT.ico'),FLAT,SKIP,STD(STD:Close)
                         BUTTON,AT(27,3,16,15),USE(?Button3),ICON('TOOLS.ico'),FLAT,SKIP,TIP('Настройки')
                         REGION,AT(0,0,,1),USE(?Region1),FULL,BEVEL(-1)
                         BUTTON,AT(47,3,16,15),USE(?ROLI),ICON('key.ico'),FLAT,SKIP,TIP('Управление доступом')
                         BUTTON,AT(67,3,16,15),USE(?Button1),ICON('Search.ico'),FLAT,SKIP,TIP('Монитор лицензий')
                       END

Код: Выделить всё

Wait   WINDOW(''),AT(-100,-100,1,1),timer(500) 
       END

OPEN(Wait)
Display() 
Accept 
   CASE Event()
   OF  Event:OpenWindow
       Start(....) 
   OF Event:Timer 
      Break 
End 
Close(Wait)