Zero, да я не говорю, что у них не правильно! может и меня оболочка ТП 7.0 глюченная, но и в борланде та же фигня! У них нет того, что мне надо- соответствия между идентификаторами и числом! Если я пишу вместо cmQuit единицу, то все работает. И я думаю что в случае других идентификаторов так же будет работать. Но нет информации на этот счет!

во нашел(хотя можно было и самому догадаться!) hcNoContext=0; но что же мне делать с другими идентификаторами? и почему у меня не работает все по-нормальному, как у всех...

Вот еще:
hcBenchmarks = 108;
hcConfig = 114;
hcConfigBench = 115;
hcConfigGlobal = 117;
hcConfigRPM = 116;
hcDisk = 104;
hcDiskSelect = 105;
hcDiskSelectList = 106;
hcDiskSelectManual = 107;
hcFile = 100;
hcFileDOSShell = 102;
hcFileExit = 103;
hcFileSave = 101;
hcGraphs = 109;
hcGraphsCache = 113;
hcGraphsRead = 110;
hcGraphsVerify = 112;
hcGraphsWrite = 111;
hcMainIndex = 7;
hcMsgBoxExit = 500;
hcMsgBoxMultitask = 501;
hcNoContext = 0;



Это сообщение отредактировал(а) nero_schwarz - 28.11.2004, 22:46

Цитата(Guest @ 28.11.2004, 22:18)

Но нет информации на этот счет!

У меня, тоже нет информации на тот счёт.

Цитата(nero_schwarz @ 28.11.2004, 22:43)

во нашел(хотя можно было и самому догадаться!) hcNoContext=0; но что же мне делать с другими идентификаторами? и почему у меня не работает все по-нормальному, как у всех...

И что интересно ты полезного нашёл, чему же ты приравнял cmClose ─ твою комманду закрытия активного окна? Я это спрашиваю потому что мне самому стало интересно, давно у меня уже небыло случая когда уменя возникают вопросы по паскалю. И ещё какие у тебя остались идентификаторы, и чё у тебя неработает?

Всегда здал, что всё гениальное просто. Но хорошая мысля приходит опосля(что тоже верно).
Так вот зачем где-то искать, если у тебя всё под рукой:
Заходим в поиск файла, задаём найти текст: cmQuit в папке ТП и находим список файлов, один из которых tp\doc\views.int. Пожалуйста проблема решена:

const

{ TView State masks }

sfVisible = $0001;
sfCursorVis = $0002;
sfCursorIns = $0004;
sfShadow = $0008;
sfActive = $0010;
sfSelected = $0020;
sfFocused = $0040;
sfDragging = $0080;
sfDisabled = $0100;
sfModal = $0200;
sfDefault = $0400;
sfExposed = $0800;

{ TView Option masks }

ofSelectable = $0001;
ofTopSelect = $0002;
ofFirstClick = $0004;
ofFramed = $0008;
ofPreProcess = $0010;
ofPostProcess = $0020;
ofBuffered = $0040;
ofTileable = $0080;
ofCenterX = $0100;
ofCenterY = $0200;
ofCentered = $0300;
ofValidate = $0400;
ofVersion = $3000;
ofVersion10 = $0000;
ofVersion20 = $1000;

{ TView GrowMode masks }

gfGrowLoX = $01;
gfGrowLoY = $02;
gfGrowHiX = $04;
gfGrowHiY = $08;
gfGrowAll = $0F;
gfGrowRel = $10;

{ TView DragMode masks }

dmDragMove = $01;
dmDragGrow = $02;
dmLimitLoX = $10;
dmLimitLoY = $20;
dmLimitHiX = $40;
dmLimitHiY = $80;
dmLimitAll = $F0;

{ TView Help context codes }

hcNoContext = 0;
hcDragging = 1;

{ TScrollBar part codes }

sbLeftArrow = 0;
sbRightArrow = 1;
sbPageLeft = 2;
sbPageRight = 3;
sbUpArrow = 4;
sbDownArrow = 5;
sbPageUp = 6;
sbPageDown = 7;
sbIndicator = 8;

{ TScrollBar options for TWindow.StandardScrollBar }

sbHorizontal = $0000;
sbVertical = $0001;
sbHandleKeyboard = $0002;

{ TWindow Flags masks }

wfMove = $01;
wfGrow = $02;
wfClose = $04;
wfZoom = $08;

{ TWindow number constants }

wnNoNumber = 0;

{ TWindow palette entries }

wpBlueWindow = 0;
wpCyanWindow = 1;
wpGrayWindow = 2;

{ Standard command codes }

cmValid = 0;
cmQuit = 1;
cmError = 2;
cmMenu = 3;
cmClose = 4;
cmZoom = 5;
cmResize = 6;
cmNext = 7;
cmPrev = 8;
cmHelp = 9;

{ Application command codes }

cmCut = 20;
cmCopy = 21;
cmPaste = 22;
cmUndo = 23;
cmClear = 24;
cmTile = 25;
cmCascade = 26;

{ TDialog standard commands }

cmOK = 10;
cmCancel = 11;
cmYes = 12;
cmNo = 13;
cmDefault = 14;

{ Standard messages }

cmReceivedFocus = 50;
cmReleasedFocus = 51;
cmCommandSetChanged = 52;

{ TScrollBar messages }

cmScrollBarChanged = 53;
cmScrollBarClicked = 54;

{ TWindow select messages }

cmSelectWindowNum = 55;

{ TListViewer messages }

cmListItemSelected = 56;
Спасибо всем кто мне помогал в моём поиске!
Осталось разобраться с использованием драйвера для LPT в ТП. Думаю на этот раз мне не удастся так легко отделаться...