Hi All,

Tired of those anemic looking group boxes? When you create the box, make the 
title = "" (blank).
Do all the embedding or whatever, then add the following little function to 
be called when there is a _refreshWnd event in your DoDialog routine. 

CLEAR LOCAL
DIM r AS RECT
LOCAL FN GroupBox(title AS STR31, lft AS INT,   tp AS INT,   rgt AS INT,   bt 
AS INT)
TEXT _Charcoal,12,0,0          //_Charcoal is 2002
// PEN [penWidth][,[penHeight][,[visible][,[mode][,pattern]]]]
PEN 2,2,1,8,0
/* The coordinates for the next SETRECT are obtained as follows:
          lft   = LEFT of first radio button 
          tp    = TOP   of first radio button 
          rgt   = RIGHT of first radio button
          bt    = BOTTOM of LAST radio button */
CALL SETRECT(r,lft-20,tp-20,rgt+20,bt+12)     // put space between buttons 
and box
CALL FRAMEROUNDRECT(r,9,9)                           // rounded corners
/*   Print position coordinates are obtained as follows:
        horiz pos   = LEFT of first radio button 
        vert   pos     = TOP   of first radio button    */
PRINT%(lft-5,tp-15) " ";title;" ";
CALL PENNORMAL
END FN

When this runs you will have a nice rounded rectangle title box with 2 pixel 
line thickness.
Say, wouldn't this be a nice option to have in TWM?   :)

Bruce Gottshall

--
To unsubscribe, send ANY message to: futurebasic-unsubscribe@...