|
Following is some DDS for a pop-up prompt window that works fine (e.g. you can drag the window about) in System 21 explorer. It is a proper DDS window not the pseudo window as in System 21. Hope it helps. Grahame Ward Pimpernel International A DSPSIZ(24 80 *DS3) A REF(*LIBL/RYREF) A CA12(12) A PRINT R F01SFL SFL 33 SFLNXTCHG OPTNS1 1A B 2 1 CHECK(ER) VALUES(' ' '1') DSPATR(UL) 35 DSPATR(PC RI) DSGCS1 R -3 O 2 4REFFLD(DSGN01 RYP01) DESCS1 R O 2 10REFFLD(DESC01 RYP01) DSGNS1 R H REFFLD(DSGN01 RYP01) A R F01CTL SFLCTL(F01SFL) A SFLSIZ(0012) A SFLPAG(0011) A WINDOW(F01WIN) A ROLLUP(26 'Roll Up') A BLINK A OVERLAY A N30 SFLCLR A 30 SFLDSPCTL A 31 SFLDSP A 32 SFLEND(*MORE) A SRN01 4S 0H SFLRCDNBR(CURSOR) A SCR01 5S 0H SFLSCROLL A 1 1'S Design' A DSPATR(HI) A 1 17'Search for..' A DSPATR(HI) A SRCHDS 10 B 1 30CHECK(LC) A 50 DSPATR(RI) A 50 COLOR(WHT) A R F01WIN A BLINK A OVERLAY A WINDOW(4 30 15 39 *NOMSGLIN) A WDWBORDER((*COLOR GRN) (*DSPATR RI)- A (*CHAR ' ')) A WDWTITLE((*TEXT 'Select Design')) A WDWTITLE((*TEXT 'F12=Previous') *BO- A TTOM) A 14 1' - A ' A DSPATR(UL) A COLOR(BLU) A 15 1'1=Select' A COLOR(BLU) A 50 15 14'No Records Match Search' A COLOR(WHT) R @ASSUME ASSUME OVERLAY 1 2' ' R @KEEP KEEP OVERLAY
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.