Отправлено: 15.11.12 14:42. Заголовок: Вопрос по сборке проекта

использую Clipper 5.2e portable выкачанный по адресу http://softclipper.narod.ru/download.html. При сборке проекта rtlink предлагает указать путь до библиотеки CE50.LIB. Подскажите пожалуйста где найти данный файлик... или полноценную папку со всеми библиотеками. Опыт работы с clipper отсутсвует а экзешник собрать очень хочется. Please help...

 Отправлено: 05.12.12 10:05. Заголовок: А другие static пере..

А другие static переменные работают нормально, или там только SetStack объявлена ?

 Отправлено: 05.12.12 10:19. Заголовок: И еще, файл компилир..

И еще, файл компилируется с ключом /n ?

 Отправлено: 05.12.12 11:28. Заголовок: строка вызова компил..

строка вызова компилятора:

clipper name_file /b /m /w >1.log

перенес эти две процедуры в другой модуль

 
 #include "Set.ch" 
 #include "common.ch" 
 #include "inkey.ch" 
  
 static SetStack:={}, Static37, Static38, Static39, Static40, Static41, Static42 
 static Static2, Static3, Static4, Static5, Static7 
  
 ******************************** 
 procedure SaveSet() 
  
    AAdd(SetStack, {Select(), indexord(), RecNo()}) 
  
 ******************************** 
 procedure RestoreSet() 
  
    local length:= Len(SetStack) 
    if (length > 0) 
       select (SetStack[length, 1]) 
       set order to SetStack[length, 2] 
       go SetStack[length, 3] 
    endif 
    aSize(SetStack, length - 1) 
  
 ******************************** 
 function GETSECRET(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8) 
  
    local Local1:= Row(), Local2:= Col(), Local3[1], Local4 
    Static38:= iif(Arg2 = Nil, Local1, Arg2) 
    Static39:= iif(Arg3 = Nil, Local2, Arg3) 
    if (Arg4 = Nil) 
       Arg4:= .F. 
    endif 
    SetPos(Static38, Static39) 
    if (Arg5 != Nil) 
       dispout(Arg5) 
       Static39:= Col() + 1 
       SetPos(Static38, Static39) 
    endif 
    if (csetdeli()) 
       Static39++ 
    endif 
    Static37:= Arg1 
    Local3[1]:= __Get({|_1| iif(ISNIL(_1), Static37, Static37:= _1)}, ; 
       "_CGETSECRET", Arg6, Arg7, Arg8) 
    Local3[1]:row(255) 
    Static40:= Local3[1] 
    Static42:= wselect() 
    Static41:= MaxCol() + 1 - Static39 
    Local4:= trapinput("_SECRET") 
    ReadModal(Local3) 
    trapinput(Local4) 
    if (!Arg4) 
       unselected() 
    endif 
    @ Static38, Static39 say rangerepl(33, 31, Static37, "*") 
    standard() 
    SetPos(Local1, Local2) 
    return Static37 
  
 ******************************** 
 procedure _SECRET 
  
    local Local1 
    if (wselect() = Static42 .AND. readvar() == "_CGETSECRET") 
       Static40:assign() 
       Local1:= dsetwindow(.T.) 
       sayscreen(rangerepl(33, 31, Left(Static37, Static41), "*"), ; 
          Static38, Static39) 
       dsetwindow(Local1) 
       SetPos(Static38, Col()) 
    endif 
    return 
  
 ********************************

НЕТ ТАКОЙ ПЕРЕМЕННОЙ....Хотя рядом статические переменные которые используются в ф-циях ввода пароля....Пароль же я ввожу при входе в программу и там все нормально.

 Отправлено: 05.12.12 12:06. Заголовок: Чтобы статические пе..

Чтобы статические переменные, объявленные вне процедур, были видны, надо при компиляции добавить ключ /n

 Отправлено: 05.12.12 12:31. Заголовок: alkresin - СПАСИБО. ..

alkresin - СПАСИБО. Век живи век учись. Одной проблемой стало меньше.

 Отправлено: 20.12.12 19:40. Заголовок: Перевел проект на xH..

Перевел проект на xHarbour. Появилась стабильность. Доработал печать... Прощай LPT. Появилась возможность запускть прогу под win2008 x64. После нового года буду пробовать людей сажать работать через удал. раб стол.... Красотищщааа....

Всем огромное спасибо за участие...
Не прощаюсь. Вопросы все равно будут еще возникать.

 Отправлено: 21.12.12 10:24. Заголовок: yukirin пишет: Крас..

yukirin пишет:

цитата:

Красотищщааа....

Используй gtwvt-терминал. Там можно будет свои шрифты настраивать и регулировать размер задачи на экране.
Смотри тему http://clipper.borda.ru/?1-4-0-00000624-000-40-0-1356073627 ищи фразу:
GTWVT-терминал "Настройка палитры/шрифтов/размеров экрана" for xHarbour 1.2 !