Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 | Следующая страница реферата



, {K_CTRL_LEFT , o:panleft() } ;

, {K_END , } ;

, {K_HOME , o:home() } ;

, {K_CTRL_END , } ;

, {K_CTRL_HOME , o } } i := ASCAN( crsm, ei )

IF i 0 ret := crsm[i,2]

ELSE ret := NIL

ENDIF
RETURN ret

10) п.п. переключения режима вставка/замена и вида курсора:
PROCEDURE Repl_Ins()

IF READINSERT()

READINSERT(.F.)

SETCURSOR(SC_INSERT)

ELSE

READINSERT(.T.)

SETCURSOR(SC_NORMAL)

ENDIF
RETURN

11) п.п. перевода в верхний регистр латиницы и кириллицы:
FUNC UpperC(prm)
LOCAL n , i , smb , cs n := LEN( prm )
FOR i = 1 TO n smb := SUBSTR( prm , i , 1 ) cs := ASC( smb )

DO CASE

CASE cs >= 97 .AND. cs = 160 .AND. cs = 224 .AND. cs 80

RETURN
ENDIF
IF x=NIL // Центр по X x := (80-ml)/2

ENDIF
IF y=NIL // Центр по Y y := 24/2 - 1
ENDIF
IF color NIL c := SETCOLOR(color)

@ y,x SAY m

SETCOLOR(c)
ELSE

@ y,x SAY m
ENDIF
RETURN

14) п.п. создания TBrowse-объекта для просмотра-редактирования файла aa.dbf в окне t,l,b,r :
FUNCTION aaCr(t,l,b,r)
LOCAL brws,coln,cblk,chdr brws := TBrowseDb(t,l,b,r) cblk := " " + aa->idst chdr := "Идент. типа станка" coln := TBColumnNew(chdr,cblk) coln:width := 19 brws:AddColumn(coln) cblk := " " + aa->namest chdr := " Наименование типа станка" coln := TBColumnNew(chdr,cblk) coln:width := 35 brws:AddColumn(coln) cblk := chdr := " Норма,дней" coln := TBColumnNew(chdr,cblk) coln:width := 12 brws:AddColumn(coln) brws:colsep := CHR(186) brws:headsep := CHR(205) brws:colorspec := "w+/b,gr+/rb"
RETURN brws

Рекомендуем скачать другие рефераты по теме: доклад, контрольные работы 2 класс.

Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки