I am wondering if there is a way (message?) to get a column to allow muliple lines in a cell. I found something about height but it doesn't seem to being used.

dsig_at_sigafoos.org

DSigs Radio Free Oregon

Phone: 971-570-2005

You're post was looking kinda lonely so I thought I might take a shot…

We have an example that I thought was originally from this forum where a cell is converted to a combobox on the fly in the POSCHANGED event. Just for jakes, I tried it with an edit box and it appeared to work. So, when focus gets to the cell, you get an edit box. When you leave, it reverts back to the original edittable properties. Is this what you're looking for?

Karl,

Your idea is perhaps the best one available using native OI controls. We have some apps that use that technique. We also use an OLE grid control that does support multiline cells:

[email protected]

SRP Computer Solutions, Inc.

lonely .. that is what I get for asking for 'standard' windows type functionality.

yeah .. if you have the example handy that would be cool. didn't see anything but will search if example isn't handy.

thanks

dsig_at_sigafoos.org

DSigs Radio Free Oregon

Phone: 971-570-2005

Don,

yeah .. if you have any writeup .. pricing etc send it off.

Still a lot of 'standard' functionality missing is OI .. be we have some cute features coming

dsig_at_sigafoos.org

DSigs Radio Free Oregon

Phone: 971-570-2005

Here's the POSCHANGED code FWIW. "CB_VALS" is a control on the window:

declare subroutine forward_event

declare function send_message

$insert ps_equates

BUTTON_STYLE = 16384

HEAD_STYLE = 48

forward_event( NextColumn, NextRow )

BEGIN CASE

CASE NextColumn EQ 2 OR NextColumn EQ 5

Ctrls	= Str( CtrlEntID : @RM, 4 ) : str( @window : '.CB_VALS' : @RM, 2 )

Props	= 'STYLE*SIZE*TEXT*TOPPOS*ORIG_STRUCT*SIZE'

CONVERT '*' TO @RM IN Props

Vals	= Get_Property( Ctrls, Props )

Style	= Vals1,@RM

TblSize	= ValsCol2()+1,@RM

Text	= ValsCol2()+1,@RM

TopPos	= ValsCol2()+1,@RM

Struct	= ValsCol2()+1,@RM

cbSize	= ValsCol2()+1,@RM

columnwidth=Send_Message( CtrlEntID, "COLWIDTH" )

• stat = utility( 'DESTROY', @window : '.CB_VALS' )

/*

	the style property can be in hex format

	but bitor only works with decimal integers

• /

IF Style 1,2 _EQC "0x" THEN

	CONVERT @lower.case TO @upper.case IN Style

	Style=iconv(Style 3,99, "MX")

END

bHasButtons	= bitand( Style, BUTTON_STYLE )

bHasHeads	= bitand( Style, HEAD_STYLE )

x	= TblSize 

y	= TblSize 

IF bHasButtons THEN

	x	+= 40

END

FOR iCol=1 TO NextColumn - 1

	x	+= ColumnWidth 

NEXT iCol

IF bHasHeads THEN

	y	+= 20

END

y	+= (NextRow - TopPos  ) * 14

cbList	= 1 : @SVM : 2 : @SVM : 3 : @SVM : 4

CONVERT @SVM TO @FM IN cbList

/*

Struct 	= CtrlEntID

Struct 	= x

Struct 	= y

Struct 	= ColumnWidth 

Struct 	= Text

Struct 	= 1 : @SVM : 2 : @SVM : 3

Stat	= Utility( 'CREATE', Struct )

• /

cbSize 	= x

cbSize 	= y

cbSize 	= ColumnWidth 

Ctrls	= str( @window : '.CB_VALS' : @RM, 4 )

Props	= 'SIZE' : @RM : 'LIST' : @RM : 'TEXT' : @RM : 'VISIBLE'

Vals	= cbSize : @RM : cbList : @RM : Text : @RM : 1

stat	= set_property( Ctrls, Props, Vals )

Ctrls	= 'SYSTEM' : str( @RM : @window : '.CB_VALS', 2 )

Props	= 'FOCUS' : @RM : '@POS' : @RM : 'REDRAW'

Vals	= @window : '.CB_VALS' : @RM : NextColumn : @FM : NextRow : @RM : 1

stat	= set_property( Ctrls, Props, Vals )

CASE 1

• stat = utility( 'DESTROY', @window : '.CB_VALS' )

stat	= set_property( @window : '.CB_VALS' : @RM : CtrlEntID, 'VISIBLE' : @RM : 'REDRAW', 0 : @RM : 1 )

END CASE

RETURN 0

View this thread on the Works forum...