forum.clarionlife.net

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

..ОТРЫВОК
Queue:Browse:1       QUEUE                            !Queue declaration for browse/combo box using ?Browse:1
markFlag               LIKE(markFlag)                 !List box control field - type derived from local data
SJ:KOD                 LIKE(SJ:KOD)                   !List box control field - type derived from field
nm3                    LIKE(nm3)                      !List box control field - type derived from local data
nm2                    LIKE(nm2)                      !List box control field - type derived from local data
SJ:NAIM                LIKE(SJ:NAIM)                  !List box control field - type derived from field
SJ:C2                  LIKE(SJ:C2)                    !List box control field - type derived from field
SJ:GRUP                LIKE(SJ:GRUP)                  !List box control field - type derived from field
SJ:C1                  LIKE(SJ:C1)                    !List box control field - type derived from field
Mark                   BYTE                           !Entry's marked status
ViewPosition           STRING(1024)                   !Entry's view position
                     END
 MAP
    MakeSqlFilter(),STRING
  END
EnhancedFocusManager EnhancedFocusClassType
QuickWindow          WINDOW('Browse the SPRJALOB File'),AT(,,491,198),FONT('MS Sans Serif',8,,FONT:regular),RESIZE, |
  CENTER,GRAY,IMM,MDI,HLP('BRSPRJALOB'),SYSTEM
                       LIST,AT(8,46,468,108),USE(?Browse:1),HVSCROLL,FORMAT('12L|M~mark Flag~@n3@19L|M~KOD~@n_' & |
  '4b@35L(2)|M~Катег.~L(0)@s120@188R(2)|M~Подгруппа~C(0)@s120@446L(2)|M~NAIM~@s150@46R(' & |
  '2)|M~C2~C(1)@n-14@51R(2)|M~Гр~C(0)@n-14@56R(2)|M~Категория~C(0)@n-14@'),FROM(Queue:Browse:1), |
  MARK(markFlag),MSG('Browsing the SPRJALOB file')   !  ТУТ  ОШИБКУ ВЫДАЕТ

                       BUTTON('&Select'),AT(89,158,49,14),USE(?Select:2),LEFT,ICON('WASELECT.ICO'),FLAT,MSG('Select the Record'), |
  TIP('Select the Record')
                       BUTTON('&View'),AT(142,158,49,14),USE(?View:3),LEFT,ICON('WAVIEW.ICO'),FLAT,MSG('View Record'), |
  TIP('View Record')

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

IF KEYCODE() = MouseLeft2 AND ?List{PROPLIST:MouseUpField} = 1
  ...
END