Recent content by nborshukov

Hi @patelspam ! What if you try: FRAME cust-bal:FONT = FONT-TABLE:NUM-ENTRIES - 1.

This may help.

How the external program is called - persistently or not? If external program is called persistently then look at fi-proc.p. If external program is not called persistently then you must run persistent procedure to handle leave event. See how to do that (once) in fi-proc.p and use fi-persproc.p...

As your combo-box is static, you can set drop down list width once on window/dialog initialization or after you fill combo-box items, using Windows API function SendMessage: &GLOBAL-DEFINE CB_SETDROPPEDWIDTH 352 PROCEDURE SendMessageA EXTERNAL "USER32.DLL": DEFINE INPUT PARAMETER hwnd AS...

wrx file is missing in the web client installation. When you add an OCX to window, a wrx file is created with same name as .w file and with .wrx extension. wrx file is placed in same folder as .w file or in main folder of the application. About wrx file content - Progress KB - What do wrx...

In OUTPUT statement use CONVERT with TARGET "1251" (or other appropriate) to overwrite -cpstream.

define variable dt as datetime no-undo. define variable dec-dt as decimal no-undo decimals 8. define variable dt-1 as datetime no-undo. dt = now. dec-dt = integer(date(dt)) + mtime(dt) / 100000000. dt-1 = datetime(date(integer(truncate(dec-dt,0))), integer((dec-dt...

define input parameter b-h as handle no-undo. define input parameter lbl-delim as character no-undo. define variable iStyle as integer no-undo. define variable oldStyle as integer no-undo. run GetWindowLongA(b-h:hwnd,-16,output iStyle). run SetWindowLongA(b-h:hwnd,-16,iStyle +...

You can use Windos API functions to get multiline button label. To use attached procedure: 1. Set label of your button using any delimiter, for eaxample comma, to specify lines. 2. Call attached procedure, passing button handle and delimiter as input parameters. NOTE: You may call procedure once...

on MOUSE-SELECT-DBLCLICK trigger of browse widget use the next code to obtain the field name for the column: DEF VAR c-h AS WIDGET-HANDLE NO-UNDO. DEF VAR X AS INT NO-UNDO. X = LAST-EVENT:X. c-h = BROWSE {&self-name}:FIRST-COLUMN. DO WHILE VALID-HANDLE(c-h) : IF X GE c-h:X...

I usually use next expression to obtain the radio-set label (if the delimier is default, i.e. ","(comma)): entry(lookup(string(radio-set-1),radio-set-1:radio-buttons in frame {&frame-name}) - 1,radio-set-1:radio-buttons in frame {&frame-name}) where radio-set-1 is the name of your radio-set...

Here is a procedure I use to change labels of "standard" fill-ins, combo-boxes, etc. Run it persistent and send as input parameter a handle of fill-in widget.

GUI DB Server: 8.2a Client: 9.0a OS: WinXP I have a problem with execution of browser's query with left outer-join. Here is the open query statement: define buffer PrevOrder for Order. open query br-1 for each customer no-lock, last order where Order.Cust-Num =...

I've done something using Microsoft TreeView Version 5.0. What exactly you want to do? Tell me more and I'll try to help you.

Under Windows try this: define input parameter sl-hndl as widget-handle no-undo. define output parameter iSL as integer no-undo. &GLOBAL-DEFINE LB_GETCURSEL 392 &GLOBAL-DEFINE LB_SETCURSEL 390 RUN SendMessageA (INPUT sl-hndl:HWND, INPUT {&LB_GETCURSEL}...