FWD » Core Development » User Interface

DEF TEMP-TABLE tt FIELD f1 AS integer

                  field f2 as char.

def var i as integer.

def var str as char.

def buffer xtt for tt.

repeat i = 1 to 20:

   create tt. tt.f1 = i. tt.f2 = "test" + string(i).

end.

DEFINE QUERY q FOR tt SCROLLING.

OPEN QUERY q FOR EACH tt.

DEF BROWSE brws QUERY q 

DISPLAY 

     tt.f1 width-chars 10

     tt.f2 width-chars 10

     enable tt.f2

     WITH size 30 by 10 TITLE "Static browse" separators.

DEF FRAME fr brws skip str

   WITH TITLE "Frame" SIZE 70 BY 20 NO-LABELS.

def var cnt as integer.

on "row-entry" of browse brws do:

  cnt = cnt + 1.

  message "row-entry" cnt.  

end.       

ENABLE ALL WITH FRAME fr.

message "test 1: click on the bottom fill-in, click on the cell with '5'".

message "test 2: click on the bottom fill-in, click on the cell with 'test5'".

WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW.