forum.clarionlife.net

А если так display(?LOC:Summa)

Из документации описания структуры struct { unsigned filesig; /* file signature */ unsigned sfatr; /* file attribute and status */ unsigned char numbkeys;/* number of keys in file */ unsigned long numrecs;/* number of records in file */ unsigned long numdels;/* number of deleted records */ unsigned ...

Здается мне что свойства
1. флаг, что MEMO BINARY
2. флаг OEM
передаются драйверу Клары из проги и к заголовку не имеют никакого отношения.

Вот только не понял, зачем там у Вас кусок кода под OMIT() ?

Это маленький бонус для лучшего понимания

Попробуй это.(своял наспех)

Первый вариант не проверял.
По второму варианту все работает.
Попробуй поискать в головном модуле типа AllFiles.clw описание FrameRef &WINDOW может там есть префикс к переменной FrameRef.

Если без POST !В головном модуле глобально описать переменную FrameRef &WINDOW !В процедуре FRAME после открытия окна FrameRef &= AppFrame ! или FrameRef &= 0{PROP:HANDLE} 1 !В вызываемой процедуре после открытия окна FrameRef{PROP:text} = 'Hello, world! '

Примерчик

Попробуй динамически создавать контролы (CREATE(...))

***** ABPRPDF.CLW !SET the flags !@ IF SELF.FontsNames.CharSet=2 LOC:Flags +=FDFlag:Symbolic !@ ELSE !@ LOC:Flags +=FDFlag:Nonsymbolic !@ END IF BAND(LOC:OUTLINETEXTMETRIC.otmTextMetrics.tmPitchAndFamily,PitchAndFamily:FIXED_PITCH)<>PitchAndFa Попробуй это.

C:\Documents and Settings\....\Application Data\SoftVelocity\Clarion\7.0\ClarionProperties.xml
А дальше сам.

Для меня это ж-па. (Novell , WIN, ORACLE - в одном флаконе) Стараюсь всегда делатьследующее sav:record GROUP;BYTE;DIM(SIZE(DISCHAR:RECORD). CODE ! ......набор байтов !далее идет шаблонный код ! Call Close file methods SAV:RECORD = DISCHAR:RECORD Relate:DISCHAR.Close DISCHAR:RECORD = SAV:RECORD !Как ...

Желательно в контексте использования под Clarion

Можно посмотреть в NetTalk от CapeSoft в модуле NetAll.clw -> AnsiCStringToUnicodeCString

Пардон вот полная FREE(SpisControl) SETTARGET(Report,?Detail) LOOP ThisField= 0{PROP:NextField,ThisField} IF ~ThisField THEN BREAK. IF ThisField{prop:TYPE} = CREATE:string IF ~CLIP(ThisField{prop:text}) = '' SPC:ID = ThisField ADD(SpisControl) IF ERROR() THEN STOP(ERROR()) . END END END LOOP I# = 1 ...

Была задачка печати ветеренарных справок на фирменных бланках. Вот я делал так.(вроде штатные средства) !DATA секция SpisControl QUEUE,PRE(SPC) ID SHORT END ! Вставка ThisWindow.OpenReport ! после PARENT ( ReturnValue = PARENT.OpenReport()) ! вставка LOOP I# = 1 TO RECORDS(SpisControl) GET(SpisContr...