Cell プロパティ
Cellプロパティはグリッドのセルです。
グリッド内の特定のセルをどのように処理するかを見るには、次の例をコピーしてフォームに貼り付け、そのフォームをコンパイルして実行してください。
function options(*DIRECT)
begin_com role(*EXTENDS #PRIM_FORM) clientheight(389) clientwidth(421) height(423) left(347) top(167) width(429)
define_com class(#PRIM_GRID) name(#GRID_1) columnbuttonheight(18) columnbuttonpress(True) displayposition(2) height(169) left(24) parent(#COM_OWNER) rowresize(True) selectionstyle(Extended) showselection(True) tabposition(2) top(16) width(377)
define_com class(#PRIM_GDCL) name(#GDCL_1) captionalign(Left) displayposition(1) parent(#GRID_1) sortonclick(True) source(#EMPNO) width(36)
define_com class(#PRIM_GDCL) name(#GDCL_2) captionalign(Left) displayposition(2) parent(#GRID_1) source(#SURNAME) width(79) widthtype(Remainder)
define_com class(#PRIM_GPBX) name(#GPBX_13) caption('Style') displayposition(5) height(145) left(240) parent(#GPBX_12) tabposition(9) tabstop(False) top(16) width(121)
define_com class(#PRIM_GPBX) name(#GPBX_12) displayposition(1) height(177) left(24) parent(#COM_OWNER) tabposition(1) tabstop(False) top(192) width(377)
define_com class(#PRIM_RDBN) name(#RDBN_8) caption('Normal') displayposition(2) height(17) left(16) parent(#GPBX_13) tabposition(1) top(16) width(68)
define_com class(#PRIM_RDBN) name(#RDBN_9) caption('Warning') displayposition(1) height(17) left(16) parent(#GPBX_13) tabposition(2) top(32) width(68)
define_com class(#PRIM_RDBN) name(#RDBN_14) caption('Large M') displayposition(7) height(17) left(16) parent(#GPBX_13) tabposition(7) top(112) width(58)
define_com class(#PRIM_RDBN) name(#RDBN_10) caption('Large') displayposition(3) height(17) left(16) parent(#GPBX_13) tabposition(3) top(48) width(68)
define_com class(#PRIM_RDBN) name(#RDBN_13) caption('Emph') displayposition(6) height(17) left(16) parent(#GPBX_13) tabposition(6) top(96) width(49)
define_com class(#PRIM_RDBN) name(#RDBN_11) caption('Smth') displayposition(4) height(17) left(16) parent(#GPBX_13) tabposition(4) top(64) width(49)
define_com class(#PRIM_RDBN) name(#RDBN_12) caption('Title') displayposition(5) height(17) left(16) parent(#GPBX_13) tabposition(5) top(80) width(49)
define_com class(#PRIM_SPDT) name(#SPDT_ROW) displayposition(1) height(17) left(112) parent(#GPBX_12) tabposition(6) top(112) value(1) width(50)
define_com class(#PRIM_SPDT) name(#SPDT_COL) displayposition(2) height(17) left(112) parent(#GPBX_12) tabposition(8) top(136) value(1) width(51)
define_com class(#PRIM_LABL) name(#LABL_1) caption('Row') displayposition(3) height(17) left(56) parent(#GPBX_12) tabposition(5) tabstop(False) top(112) width(49)
define_com class(#PRIM_LABL) name(#LABL_2) caption('Column') displayposition(4) height(21) left(56) parent(#GPBX_12) tabposition(7) tabstop(False) top(136) width(49)
define_com class(#PRIM_RDBN) name(#RDBN_FOCUS) buttonchecked(True) caption('Focus Cell') displayposition(6) height(14) left(24) parent(#GPBX_12) tabposition(1) top(19)
define_com class(#PRIM_RDBN) name(#RDBN_ANCHOR) caption('Anchor Cell') displayposition(7) height(17) left(24) parent(#GPBX_12) tabposition(2) top(40)
define_com class(#PRIM_RDBN) name(#RDBN_CELL) caption('Cell') displayposition(8) height(17) left(24) parent(#GPBX_12) tabposition(4) top(88)
define_com class(#PRIM_RDBN) name(#RDBN_CITEM) caption('Current Item') displayposition(9) height(17) left(24) parent(#GPBX_12) tabposition(3) top(64)
define_com class(#STD_NUM) name(#STD_NUM)
evtroutine handling(#COM_OWNER.Initialize) options(*NOCLEARMESSAGES *NOCLEARERRORS)
select fields(#GRID_1) from_file(PSLMST)
add_entry to_list(#GRID_1)
endselect
endroutine
evtroutine handling(#RDBN_8.Click)
if cond('#RDBN_CITEM.Buttonchecked = true')
set com(#GRID_1.currentitem) visualstyle(#vs_norm)
endif
if cond('#RDBN_FOCUS.Buttonchecked = true')
set com(#GRID_1.focuscell) visualstyle(#vs_norm)
endif
if cond('#RDBN_anchor.Buttonchecked = true')
set com(#GRID_1.anchorcell) visualstyle(#vs_norm)
endif
if cond('#RDBN_cell.Buttonchecked = true')
set com(#GRID_1.cell<#SPDT_ROW.Value #SPDT_COL.Value>) visualstyle(#vs_norm)
endif
endroutine
evtroutine handling(#RDBN_9.Click)
if cond('#RDBN_CITEM.Buttonchecked = true')
set com(#GRID_1.currentitem) visualstyle(#vs_WARN)
endif
if cond('#RDBN_FOCUS.Buttonchecked = true')
set com(#GRID_1.focuscell) visualstyle(#vs_WARN)
endif
if cond('#RDBN_anchor.Buttonchecked = true')
set com(#GRID_1.anchorcell) visualstyle(#vs_WARN)
endif
if cond('#RDBN_cell.Buttonchecked = true')
set com(#GRID_1.cell<#SPDT_ROW.Value #SPDT_COL.Value>) visualstyle(#vs_WARN)
endif
endroutine
evtroutine handling(#RDBN_10.Click)
if cond('#RDBN_CITEM.Buttonchecked = true')
set com(#GRID_1.currentitem) visualstyle(#vs_Large)
endif
if cond('#RDBN_FOCUS.Buttonchecked = true')
set com(#GRID_1.focuscell) visualstyle(#VS_LARGE)
endif
if cond('#RDBN_anchor.Buttonchecked = true')
set com(#GRID_1.anchorcell) visualstyle(#vs_Large)
endif
if cond('#RDBN_cell.Buttonchecked = true')
set com(#GRID_1.cell<#SPDT_ROW.Value #SPDT_COL.Value>) visualstyle(#vs_Large)
endif
endroutine
evtroutine handling(#RDBN_11.Click)
if cond('#RDBN_CITEM.Buttonchecked = true')
set com(#GRID_1.currentitem) visualstyle(#VS_SMTH)
endif
if cond('#RDBN_FOCUS.Buttonchecked = true')
set com(#GRID_1.focuscell) visualstyle(#vs_smth)
endif
if cond('#RDBN_anchor.Buttonchecked = true')
set com(#GRID_1.anchorcell) visualstyle(#vs_smth)
endif
if cond('#RDBN_cell.Buttonchecked = true')
set com(#GRID_1.cell<#SPDT_ROW.Value #SPDT_COL.Value>) visualstyle(#vs_smth)
endif
endroutine
evtroutine handling(#RDBN_12.Click)
if cond('#RDBN_CITEM.Buttonchecked = true')
set com(#GRID_1.currentitem) visualstyle(#VS_TITLE)
endif
if cond('#RDBN_FOCUS.Buttonchecked = true')
set com(#GRID_1.focuscell) visualstyle(#VS_TITLE)
endif
if cond('#RDBN_anchor.Buttonchecked = true')
set com(#GRID_1.anchorcell) visualstyle(#VS_TITLE)
endif
if cond('#RDBN_cell.Buttonchecked = true')
set com(#GRID_1.cell<#SPDT_ROW.Value #SPDT_COL.Value>) visualstyle(#VS_TITLE)
endif
endroutine
evtroutine handling(#RDBN_13.Click)
if cond('#RDBN_CITEM.Buttonchecked = true')
set com(#GRID_1.currentitem) visualstyle(#VS_EMPH)
endif
if cond('#RDBN_FOCUS.Buttonchecked = true')
set com(#GRID_1.focuscell) visualstyle(#VS_EMPH)
endif
if cond('#RDBN_anchor.Buttonchecked = true')
set com(#GRID_1.anchorcell) visualstyle(#VS_EMPH)
endif
if cond('#RDBN_cell.Buttonchecked = true')
set com(#GRID_1.cell<#SPDT_ROW.Value #SPDT_COL.Value>) visualstyle(#VS_EMPH)
endif
endroutine
evtroutine handling(#RDBN_14.Click)
if cond('#RDBN_CITEM.Buttonchecked = true')
set com(#GRID_1.currentitem) visualstyle(#VS_larem)
endif
if cond('#RDBN_FOCUS.Buttonchecked = true')
set com(#GRID_1.focuscell) visualstyle(#VS_larem)
endif
if cond('#RDBN_anchor.Buttonchecked = true')
set com(#GRID_1.anchorcell) visualstyle(#VS_larem)
endif
if cond('#RDBN_cell.Buttonchecked = true')
set com(#GRID_1.cell<#SPDT_ROW.Value #SPDT_COL.Value>) visualstyle(#VS_larem)
endif
endroutine
end_com