Re: selection based list box
I though I did but will try again. Guess I did not try that combination. tried all else thanks that did it Regards Chuck On Tue, Aug 15, 2017 at 4:08 PM, Tai Bui via 4D_Tech <4d_tech@lists.4d.com> wrote: > Hi, > > Have you tried passing 0 for the row number? According to the > documentation: > "If position is 0 and if the action parameter contains Listbox replace > selection or is omitted, all the rows of the listbox are selected. If the > action parameter contains Listbox remove from selection, all the listbox > rows are deselected." > > Hope this helps. > > Best Regards, > Tai B. > > > > > -Original Message- > From: 4D_Tech [mailto:4d_tech-boun...@lists.4d.com] On Behalf Of Charles > Miller via 4D_Tech > Sent: Tuesday, August 15, 2017 12:54 PM > To: 4D iNug Technical > Cc: Charles Miller > Subject: selection based list box > > Hi All, > Version 15.4hf2 > > I have a selection based list box with following code on double click event > > *If *(*Not*(InDoubleClick_B)) > > InDoubleClick_B:=*True* > > *C_BOOLEAN*(INV_InventInspLocked) > > *FORM SET INPUT*([InventoryPhotos];"Input") > > *C_LONGINT*($LBCol_L;$LBRow_L) > > *LISTBOX GET CELL POSITION*(*;"InventoyPhotos_LB";$LBCol_L;$LBRow_L) > > *If *($LBRow_L>0) > > > > *GOTO SELECTED RECORD*([InventoryPhotos];$LBRow_L) > > *MODIFY RECORD*([InventoryPhotos]) > > > *REDRAW*(SelectListBox) > > *INV_CreatePhotosList * > > //INV_CreatePhotosList > > *Else * > > *If *(*Not*(INV_InventInspLocked)) > > *ADD RECORD*([InventoryPhotos];*) > > *INV_CreatePhotosList * > > *End if * > > *End if * > > InDoubleClick_B:=*False* > > *End if * > If I double click into a row let's say 2 and modify record get out. > I have a hidden button that runs this code I want to set so no line is > selected I have tried > > //LISTBOX SELECT ROW(*;"InventoyPhotos_LB";$LBRow_L;Listbox remove from > selection) > > > What dumb think am I missing > > > thank and regards > > > Chuck > > What I want to do is have no record selected as I have a hidden button > running > -- > > - > Chuck Miller Voice: (617) 739-0306 Fax: (617) 232-1064 Informed > Solutions, Inc. > Brookline, MA 02446 USA Registered 4D Developer >Providers of 4D, Sybase & SQL Server connectivity > http://www.informed-solutions.com > > - > This message and any attached documents contain information which may be > confidential, subject to privilege or exempt from disclosure under > applicable law. These materials are intended only for the use of the > intended recipient. If you are not the intended recipient of this > transmission, you are hereby notified that any distribution, disclosure, > printing, copying, storage, modification or the taking of any action in > reliance upon this transmission is strictly prohibited. Delivery of this > message to any person other than the intended recipient shall not > compromise or waive such confidentiality, privilege or exemption from > disclosure as to this communication. > ** > 4D Internet Users Group (4D iNUG) > FAQ: http://lists.4d.com/faqnug.html > Archive: http://lists.4d.com/archives.html > Options: http://lists.4d.com/mailman/options/4d_tech > Unsub: mailto:4d_tech-unsubscr...@lists.4d.com > ** > ** > 4D Internet Users Group (4D iNUG) > FAQ: http://lists.4d.com/faqnug.html > Archive: http://lists.4d.com/archives.html > Options: http://lists.4d.com/mailman/options/4d_tech > Unsub: mailto:4d_tech-unsubscr...@lists.4d.com > ** -- - Chuck Miller Voice: (617) 739-0306 Fax: (617) 232-1064 Informed Solutions, Inc. Brookline, MA 02446 USA Registered 4D Developer Providers of 4D, Sybase & SQL Server connectivity http://www.informed-solutions.com - This message and any attached documents contain information which may be confidential, subject to privilege or exempt from disclosure under applicable law. These materials are intended only for the use of the intended recipient. If you are not the intended recipient of this transmission, you are hereby notified that any distribution, disclosure, printing, copying, storage, modification or the taking of any action in reliance upon this transmission is strictly prohibited. Delivery of this message to any person other than the intended recipient shall not compromise or waive such confidentiality, privilege or exemption from disclosure as to this communication. *
RE: selection based list box
Hi, Have you tried passing 0 for the row number? According to the documentation: "If position is 0 and if the action parameter contains Listbox replace selection or is omitted, all the rows of the listbox are selected. If the action parameter contains Listbox remove from selection, all the listbox rows are deselected." Hope this helps. Best Regards, Tai B. -Original Message- From: 4D_Tech [mailto:4d_tech-boun...@lists.4d.com] On Behalf Of Charles Miller via 4D_Tech Sent: Tuesday, August 15, 2017 12:54 PM To: 4D iNug Technical Cc: Charles Miller Subject: selection based list box Hi All, Version 15.4hf2 I have a selection based list box with following code on double click event *If *(*Not*(InDoubleClick_B)) InDoubleClick_B:=*True* *C_BOOLEAN*(INV_InventInspLocked) *FORM SET INPUT*([InventoryPhotos];"Input") *C_LONGINT*($LBCol_L;$LBRow_L) *LISTBOX GET CELL POSITION*(*;"InventoyPhotos_LB";$LBCol_L;$LBRow_L) *If *($LBRow_L>0) *GOTO SELECTED RECORD*([InventoryPhotos];$LBRow_L) *MODIFY RECORD*([InventoryPhotos]) *REDRAW*(SelectListBox) *INV_CreatePhotosList * //INV_CreatePhotosList *Else * *If *(*Not*(INV_InventInspLocked)) *ADD RECORD*([InventoryPhotos];*) *INV_CreatePhotosList * *End if * *End if * InDoubleClick_B:=*False* *End if * If I double click into a row let's say 2 and modify record get out. I have a hidden button that runs this code I want to set so no line is selected I have tried //LISTBOX SELECT ROW(*;"InventoyPhotos_LB";$LBRow_L;Listbox remove from selection) What dumb think am I missing thank and regards Chuck What I want to do is have no record selected as I have a hidden button running -- - Chuck Miller Voice: (617) 739-0306 Fax: (617) 232-1064 Informed Solutions, Inc. Brookline, MA 02446 USA Registered 4D Developer Providers of 4D, Sybase & SQL Server connectivity http://www.informed-solutions.com - This message and any attached documents contain information which may be confidential, subject to privilege or exempt from disclosure under applicable law. These materials are intended only for the use of the intended recipient. If you are not the intended recipient of this transmission, you are hereby notified that any distribution, disclosure, printing, copying, storage, modification or the taking of any action in reliance upon this transmission is strictly prohibited. Delivery of this message to any person other than the intended recipient shall not compromise or waive such confidentiality, privilege or exemption from disclosure as to this communication. ** 4D Internet Users Group (4D iNUG) FAQ: http://lists.4d.com/faqnug.html Archive: http://lists.4d.com/archives.html Options: http://lists.4d.com/mailman/options/4d_tech Unsub: mailto:4d_tech-unsubscr...@lists.4d.com ** ** 4D Internet Users Group (4D iNUG) FAQ: http://lists.4d.com/faqnug.html Archive: http://lists.4d.com/archives.html Options: http://lists.4d.com/mailman/options/4d_tech Unsub: mailto:4d_tech-unsubscr...@lists.4d.com **
selection based list box
Hi All, Version 15.4hf2 I have a selection based list box with following code on double click event *If *(*Not*(InDoubleClick_B)) InDoubleClick_B:=*True* *C_BOOLEAN*(INV_InventInspLocked) *FORM SET INPUT*([InventoryPhotos];"Input") *C_LONGINT*($LBCol_L;$LBRow_L) *LISTBOX GET CELL POSITION*(*;"InventoyPhotos_LB";$LBCol_L;$LBRow_L) *If *($LBRow_L>0) *GOTO SELECTED RECORD*([InventoryPhotos];$LBRow_L) *MODIFY RECORD*([InventoryPhotos]) *REDRAW*(SelectListBox) *INV_CreatePhotosList * //INV_CreatePhotosList *Else * *If *(*Not*(INV_InventInspLocked)) *ADD RECORD*([InventoryPhotos];*) *INV_CreatePhotosList * *End if * *End if * InDoubleClick_B:=*False* *End if * If I double click into a row let's say 2 and modify record get out. I have a hidden button that runs this code I want to set so no line is selected I have tried //LISTBOX SELECT ROW(*;"InventoyPhotos_LB";$LBRow_L;Listbox remove from selection) What dumb think am I missing thank and regards Chuck What I want to do is have no record selected as I have a hidden button running -- - Chuck Miller Voice: (617) 739-0306 Fax: (617) 232-1064 Informed Solutions, Inc. Brookline, MA 02446 USA Registered 4D Developer Providers of 4D, Sybase & SQL Server connectivity http://www.informed-solutions.com - This message and any attached documents contain information which may be confidential, subject to privilege or exempt from disclosure under applicable law. These materials are intended only for the use of the intended recipient. If you are not the intended recipient of this transmission, you are hereby notified that any distribution, disclosure, printing, copying, storage, modification or the taking of any action in reliance upon this transmission is strictly prohibited. Delivery of this message to any person other than the intended recipient shall not compromise or waive such confidentiality, privilege or exemption from disclosure as to this communication. ** 4D Internet Users Group (4D iNUG) FAQ: http://lists.4d.com/faqnug.html Archive: http://lists.4d.com/archives.html Options: http://lists.4d.com/mailman/options/4d_tech Unsub: mailto:4d_tech-unsubscr...@lists.4d.com **
v12+ Folder Properties
There is a command Document Properties - which returns various bits of info about a document, including in this instance what I am looking for - visibility. However, this command fails (error) when trying to get the same information for a folder. It appears that there is no equivalent command (Folder Properties). Does anyone have a way to determine (cross platform - Mac and PC) and set Folder visibility? I know on a Mac I can check for/add a leading period to adjust a file or folder's visibility - but that does not work on PC. Ideas? Thanks Chip --- Gas is for washing parts Alcohol is for drinkin' Nitromethane is for racing ** 4D Internet Users Group (4D iNUG) FAQ: http://lists.4d.com/faqnug.html Archive: http://lists.4d.com/archives.html Options: http://lists.4d.com/mailman/options/4d_tech Unsub: mailto:4d_tech-unsubscr...@lists.4d.com **
Re: Listbox Printing
I see how that works. What tripped me up initially was discovering what looked like an exception. Run the app "LBPrint" and you'll see the listbox populates in the printout. Then run "Host" which has no forms or methods. It uses LBPrint as a component. The the listbox does not populate. In both cases run "aLBPTest" to insure a new process. I have learned that something about the scope of its variables changes *within* an app when it is run as a component. I was not aware of this at first. Here is the latest I tested with in the method printLB: SET PRINT PREVIEW(True) If (OK=1) OPEN PRINTING JOB FORM LOAD("Form1") ARRAY LONGINT(aA;0) ARRAY TEXT(aB;0) For ($i;1;10) APPEND TO ARRAY(aA;$i) APPEND TO ARRAY(aB;"Text"+String($i)) End for v1:="Test String" $all:=Print object(*;"ListBox") $all:=Print object(*;"v1") CLOSE PRINTING JOB End if Thanks, Keith - CDI > On Aug 14, 2017, at 5:51 PM, Keisuke Miyako via 4D_Tech > <4d_tech@lists.4d.com> wrote: > > FORM LOAD simply loads the form definition. > the data source (variables and arrays) are not bound automatically in print. > you need to populate the objects by their names: > > SET PRINT PREVIEW(True) > > If (OK=1) > > OPEN PRINTING JOB > > FORM LOAD("Form1") > > $aA:=OBJECT Get pointer(Object named;"Column1") > $aB:=OBJECT Get pointer(Object named;"Column2") > > ARRAY LONGINT($aA->;0) > ARRAY TEXT($aB->;0) > > For ($i;1;10) > APPEND TO ARRAY($aA->;$i) > APPEND TO ARRAY($aB->;"Text"+String($i)) > End for > > $printed:=Print object(*;"ListBox") > > $v1:=OBJECT Get pointer(Object named;"v1") > $v1->:="Test String" > > $printed:=Print object(*;"v1") > > CLOSE PRINTING JOB > > End if > >> 2017/08/15 3:14、Keith Culotta via 4D_Tech <4d_tech@lists.4d.com> のメール: >> >> I did not mean to miss your point, but the following does not work when >> called from within the component either. The code I uploaded has it outside >> the print job. All variations have worked when used in the matrix structure. > ** 4D Internet Users Group (4D iNUG) FAQ: http://lists.4d.com/faqnug.html Archive: http://lists.4d.com/archives.html Options: http://lists.4d.com/mailman/options/4d_tech Unsub: mailto:4d_tech-unsubscr...@lists.4d.com **