In the article Forcing Uppercase in an EditTable Control we are given this code:

hWnd=Get_Property(CtrlEntID, "HANDLE")

if hWnd then

…..Format=str("lu" not(not(Upper))+1,1, 119): \00\

…..SendMessage(hWnd, DTM_SETCOLFORMAT$, Col - 1, GetPointer(Format))

end

We have been using it for years in OI16. In one application all columns of all edittables use this logic extensively.

Recently, however, we have started converting this application to OI32 (4.1.3) and this logic is now causing problems. It seems to work okay for when the edittable has 6 or less columns. When there are more columns, however, OI crashes and closes down.

Can this be looked into and possibly resolved for OI 7.0?

Thank you,

dbakke@srpcs.com

SRP Computer Solutions, Inc.

Don,

I created a 7 column table and then ran the following event on a push button:

declare subroutine SendMessage

WM_USER$=0x0400
DTM_SETCOLFORMAT$=WM_USER$ + 18

hWnd=Get_Property(@WINDOW:".TABLE_1", "HANDLE")
if hWnd then
  //Format=str("lu" not(not(Upper))+1,1, 119): \00\
  Format=str("u", 119): \00\
  for Col=1 to 7
    SendMessage(hWnd, DTM_SETCOLFORMAT$, Col - 1, GetPointer(Format))
  Next Col
end

RETURN 0

and it ran without problems. How about putting together a nice little test window packaged up in a RDK that reproduces this problem?

Pat

View this thread on the Works forum...