You mean:

1. Copy the following code into a program
IF ASELOBJ(laTemp) > 0 AND VARTYPE(laTemp[1]) = "O" AND laTemp[1].BaseClass
= "Column"
        lcName = INPUTBOX("Adding object to column:" +
laTemp[1].Name,"Specify the name","Checkbox1")
        IF NOT EMPTY(lcName)
                IF NOT PEMSTATUS(laTemp[1], lcName, 5)
                        lnChoice = MESSAGEBOX("Do you want to add a custom
class?", 3, "Adding control")
                        DO CASE
                                CASE lnChoice = 6
                                        IF AGETCLASS(laClass)
                                                laTemp[1].NewObject(lcName,
laClass[2], laClass[1])
                                        ENDIF
                                CASE lnChoice = 7
                                        lcClass = INPUTBOX("Adding object to
column:" + laTemp[1].Name,"Specify the class","Checkbox")
                                        IF NOT EMPTY(lcClass)
                                                laTemp[1].AddObject(lcName,
lcClass)                                                
                                        ENDIF
                        ENDCASE
                ELSE
                        MESSAGEBOX("Object wioth the specified name already
exists",16,"Error adding control")
                ENDIF
        ENDIF
ENDIF

2. Select the column in the designer 

3. Run the program

Hmm. This might be a nice little gem to put into an intellisense script?

Sietse Wijnker


> -----Original Message-----
> From: [EMAIL PROTECTED] 
> [mailto:[EMAIL PROTECTED] On Behalf Of Andy Davies
> Sent: donderdag 26 oktober 2006 20:07
> To: [EMAIL PROTECTED]
> Subject: RE: Adding controls to a grid column
> 
> c'mon folks - what's with all the dragging and clicking?
> - tell the guy how to do it *programmatically* <s>
> 
> Andrew Davies  MBCS CITP
>   - AndyD        8-)#
> 
> 
> **********************************************************************
> 
> This email and any files transmitted with it are confidential 
> and intended solely for the use of the individual or entity 
> to whom they are addressed. If you have received this email 
> in error please notify the system manager.
> 
> This footnote also confirms that this email message has been 
> swept by MIMEsweeper for the presence of computer viruses.
> 
> Please contact [EMAIL PROTECTED] with 
> any queries.
> 
> **********************************************************************
> 
> 
> 
[excessive quoting removed by server]

_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** All postings, unless explicitly stated otherwise, are the opinions of the 
author, and do not constitute legal or medical advice. This statement is added 
to the messages for those lawyers who are too stupid to see the obvious.

Reply via email to