FWD » Core Development » User Interface

DEFINE VARIABLE name-hdl AS WIDGET-HANDLE.

DEFINE VARIABLE num-hdl AS WIDGET-HANDLE.

DEFINE VARIABLE address-hdl AS WIDGET-HANDLE.

DEFINE VARIABLE calc-col-hdl AS WIDGET-HANDLE.

DEFINE VARIABLE browse-hdl AS WIDGET-HANDLE.

DEFINE VARIABLE buff-field-hdl AS WIDGET-HANDLE.

DEFINE VARIABLE brws-col-hdl AS WIDGET-HANDLE.

DEFINE VARIABLE j AS INTEGER.

def temp-table tt field f1 as integer

                  field f2 as character.

create tt. tt.f1 = 1. tt.f2 = "test 1".

create tt. tt.f1 = 2. tt.f2 = "test 2".

DEFINE FRAME MyFrame WITH SIZE 80 BY 20.

DEFINE QUERY q1 FOR tt SCROLLING.

CREATE BROWSE browse-hdl

             ASSIGN TITLE = "Dynamic Browse"

             X = 2

             Y = 2

             FRAME = FRAME MyFrame:HANDLE

             MULTIPLE          = TRUE

             READ-ONLY         = YES

             COLUMN-MOVABLE    = TRUE

             COLUMN-RESIZABLE  = TRUE

             FONT = 10

             QUERY = QUERY q1:HANDLE.             

num-hdl = browse-hdl:ADD-LIKE-COLUMN("tt.f1").

name-hdl = browse-hdl:ADD-LIKE-COLUMN("tt.f2").

ENABLE ALL WITH FRAME MyFrame.

OPEN QUERY q1 FOR EACH tt NO-LOCK.

WAIT-FOR CLOSE OF CURRENT-WINDOW.