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 ...

Была задачка печати ветеренарных справок на фирменных бланках.
Вот я делал так.(вроде штатные средства)
!DATA секция
SpisControl QUEUE,PRE(SPC)
ID SHORT
END
! Вставка
ThisWindow.OpenReport

! после PARENT ( ReturnValue = PARENT.OpenReport())
! вставка
LOOP I# = 1 TO RECORDS(SpisControl)
GET ...