Progress
Programming
Handbook


Code Example

The following program displays a browse that the user can resize and move:

NOTE: The program works in graphical interfaces only.

p-rszbrw.p
/* p-rszbrw.p */ 
/* demonstrates resizable browse */ 
/* p-br01.p made resizable, etc. */ 
DEFINE QUERY q1 FOR customer SCROLLING. 
DEFINE BROWSE b1 QUERY q1 DISPLAY cust-num name credit-limit balance 
    WITH 10 DOWN WIDTH 50 TITLE "Resizable Browse". 
DEFINE FRAME f1 
    b1 AT COL 15 ROW 3  
    WITH SIZE 80 BY 15 SIDE-LABELS ROW 2 CENTERED NO-BOX.  
ASSIGN b1:MOVABLE                  = TRUE 
       b1:RESIZABLE                = TRUE 
       b1:SELECTABLE               = TRUE 
       b1:ROW-RESIZABLE            = TRUE 
       b1:COLUMN-MOVABLE           = TRUE 
       b1:COLUMN-RESIZABLE         = TRUE 
       b1:SEPARATORS               = TRUE 
       b1:EXPANDABLE               = TRUE. 
OPEN QUERY q1 FOR EACH customer NO-LOCK. 
ENABLE ALL WITH FRAME f1. 
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. 

When you run the program and click anywhere except on a separator, column label, or scroll button, the resize handles appear, as Figure 10–1 illustrates:

Figure 10–1: Resizable Browse


Copyright © 2004 Progress Software Corporation
www.progress.com
Voice: (781) 280-4000
Fax: (781) 280-4095