Hello,
Don't know about WB but in WD I place one checkbox control and the use following code to clone it with a bit of indirection.
v is int sNewCtrl is string nWinHeight is int nWinWidth is int nConHeight is int nConwidth is int nRSCount is int CaptionSet is string sLastRowCreate is string nWinHeight=MyWindow..Height-CBOX_DocsReq1..Height-BTN_Ok..Height-50 nWinWidth=MyWindow..Width-CBOX_DocsReq1..Width nRSCount=HNbRec(docsreq)+1 HReadFirst(docsreq) FOR v = 2 TO nRSCount IF v = 2 THEN nConHeight=CBOX_DocsReq1..Y+CBOX_DocsReq1..Height nConwidth=CBOX_DocsReq1..X ControlClone(CBOX_DocsReq1,"CBOX_DocsReq" + NumToString(v),nConwidth,nConHeight) sNewCtrl = "CBOX_DocsReq1" sLastRowCreate="CBOX_DocsReq1" CaptionSet="CBOX_DocsReq1[1]" ELSE sNewCtrl = "CBOX_DocsReq" + (v - 1) CaptionSet="CBOX_DocsReq1"+ (v - 1)+"[1]" nConHeight={sNewCtrl,indControl}..Y+{sNewCtrl,indControl}..Height nConwidth={sNewCtrl,indControl}..X IF nConHeight>=nWinHeight THEN nConHeight={sLastRowCreate,indControl}..Y nConwidth={sLastRowCreate,indControl}..X+{sLastRowCreate,indControl}..Width sLastRowCreate="CBOX_DocsReq" + (v) END ControlClone(CBOX_DocsReq1,"CBOX_DocsReq" + NumToString(v),nConwidth,nConHeight) END {sNewCtrl,indControl}..Visible = True {sNewCtrl,indControl}[1]..Caption=NoSpace(docsreq.docreqName) {sNewCtrl,indControl}[1]..ReturnedValue=NoSpace(docsreq.docsreqID) HReadNext(docsreq)
The code is actually in a WD15 project.
HTH
Yogi Yang |