|
185
|
Event event
// Notifies the application once the control fires an event.
Procedure OnComEvent Integer llEventID
Forward Send OnComEvent llEventID
Showln (ComEventParam(Self,-2))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Popup 1(Check 1[typ=1],Check 2[typ=1],Check 3[typ=1],Item 1),Expand[img=2][typ=1][chk=1][spchk=-1][group=0x0103](Check 4[typ=1],Check 5[typ=1],Check 6[typ=1][chk=1],Item 2)"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
184
|
UncheckItem event
// Occurs when the user unchecks the item.
Procedure OnComUncheckItem Variant llItm
Forward Send OnComUncheckItem llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Popup 1(Check 1[typ=1],Check 2[typ=1],Check 3[typ=1],Item 1),Expand[img=2][typ=1][chk=1][spchk=-1][group=0x0103](Check 4[typ=1],Check 5[typ=1],Check 6[typ=1][chk=1],Item 2)"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
183
|
CheckItem event
// Occurs when the user checks the item.
Procedure OnComCheckItem Variant llItm
Forward Send OnComCheckItem llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Popup 1(Check 1[typ=1],Check 2[typ=1],Check 3[typ=1],Item 1),Expand[img=2][typ=1][chk=1][spchk=-1][group=0x0103](Check 4[typ=1],Check 5[typ=1],Check 6[typ=1][chk=1],Item 2)"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
182
|
SelectItem event
// Occurs when the user selects the item.
Procedure OnComSelectItem Variant llItm
Forward Send OnComSelectItem llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Popup 1(Check 1[typ=1],Check 2[typ=1],Check 3[typ=1],Item 1),Expand[img=2][typ=1][chk=1][spchk=-1][group=0x0103](Check 4[typ=1],Check 5[typ=1],Check 6[typ=1][chk=1],Item 2)"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
181
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComImageSize to 32
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to 16
Send Destroy to hoStdFont
Send ComImages ("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==" to Nothing
Get ComAdd of hoAppearance 2 ("gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" + ;
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==") to Nothing
Get ComAdd of hoAppearance 3 ("gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" + ;
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=") to Nothing
Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
Send Destroy to hoAppearance
Set ComSelBackColor to |CI$4000000
Set ComSelForeColor to (RGB(0,0,1))
Set ComBackground OLEexCheckBoxState0 to |CI$1000000
Set ComBackground OLEexCheckBoxState1 to |CI$2000000
Set ComBackground OLEexCheckBoxState2 to |CI$3000000
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Expand" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComImage of hoitem to 0
Set ComGroupPopup of hoitem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
Set ComCheck of hoitem to True
Set ComShowPopupOnChecked of hoitem to True
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComPadding of hoItems1 to "22,0,0,0"
Variant voitem1
Get ComAdd of hoItems1 "Check 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCheck of hoitem1 to True
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "Check 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComCheck of hoitem2 to True
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "Check 3" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComCheck of hoitem3 to True
Set ComChecked of hoitem3 to True
Send Destroy to hoitem3
Send Destroy to hoItems1
Set ComChecked of hoitem to True
Send Destroy to hoitem
Variant voitem4
Get ComAdd of hoItems "" Nothing Nothing to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComToString of hoitem4 to "Expand[typ=1][img=2][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Check 1[id=20][typ=1],Check 2[id=30][typ=1],Check 3[id=40][typ=1][chk=1])"
Send Destroy to hoitem4
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
180
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComImageSize to 16
Send ComImages "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
Send Destroy to hoAppearance
Set ComSelBackColor to |CI$4000000
Set ComSelForeColor to (RGB(0,0,1))
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Expand" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComImage of hoitem to 0
Set ComGroupPopup of hoitem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
Set ComCheck of hoitem to True
Set ComShowPopupOnChecked of hoitem to True
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComPadding of hoItems1 to "22,0,0,0"
Variant voitem1
Get ComAdd of hoItems1 "Check 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCheck of hoitem1 to True
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "Check 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComCheck of hoitem2 to True
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "Check 3" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComCheck of hoitem3 to True
Set ComChecked of hoitem3 to True
Send Destroy to hoitem3
Send Destroy to hoItems1
Set ComChecked of hoitem to True
Send Destroy to hoitem
Variant voitem4
Get ComAdd of hoItems "" Nothing Nothing to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComToString of hoitem4 to "Expand[typ=1][img=2][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Check 1[id=20][typ=1],Check 2[id=30][typ=1],Check 3[id=40][typ=1][chk=1])"
Send Destroy to hoitem4
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
179
|
How do I get the item's value without the place holders (exclude mask-characters)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "Mask[edit=98][editwidth=-128][edittype=2][mask=00000],Mask[edit=98][editwidth=-128][edittype=2][mask=00000;1]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
178
|
Is it possible to insert items at a specified position during runtime, without rebuilding the entire item which hosts the items
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item A" 0 1000 to Nothing
Get ComAdd of hoItems "Item B" 0 1001 to Nothing
Variant voitem
Get ComAdd of hoItems "Item C" 0 1002 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComPosition of hoitem to 0
Send Destroy to hoitem
Send Destroy to hoItems
Showln (ComSelect(Self,Nothing,Nothing,Nothing))
End_Procedure
|
|
177
|
Is it possible to have a popup on a radio button when it is checked
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "[group=0x03][id=0](Link[id=10][typ=2][grp=100][chk=1],Move To[id=20][typ=2][grp=100][spchk][arrow=0]())"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get Comitem of hoItems 20 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item A" 0 1000 to Nothing
Send Destroy to hoItems1
Variant voItems2
Get ComItems of hoitem to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "Item B" 0 1001 to Nothing
Send Destroy to hoItems2
Variant voItems3
Get ComItems of hoitem to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComAdd of hoItems3 "Item C" 0 1002 to Nothing
Send Destroy to hoItems3
Send Destroy to hoitem
Send Destroy to hoItems
Showln (ComSelect(Self,Nothing,Nothing,Nothing))
End_Procedure
|
|
176
|
How can I control the height of the control, so no scroll is required to view all items
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to 6
Send Destroy to hoStdFont
Set ComMenuAppearance to OLEexMenuNormal
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Showln (ComVisibleItemsCount(hoItems))
Set ComVisibleItemsCount of hoItems to 255
Set ComToString of hoItems to "1,2,3,4,5,6,7,8,9,10,11,12,13"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
175
|
How do I specify the control's height (method 3)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item 1" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComItemHeight of hoitem to 24
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComItemHeight of hoitem1 to 24
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems "Item 3" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComItemHeight of hoitem2 to 24
Send Destroy to hoitem2
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
174
|
How do I specify the control's height (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item 1" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComPadding of hoitem to "0,4,0,4"
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComPadding of hoitem1 to "0,4,0,4"
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems "Item 3" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComPadding of hoitem2 to "0,4,0,4"
Send Destroy to hoitem2
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
173
|
How do I specify the control's height (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to 12
Send Destroy to hoStdFont
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
172
|
How can I change the visual appearance of the progress bar
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground |CI$104 to |CI$1000000
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Progress" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditProgress
Set ComEditWidth of hoitem to -128
Set ComEditValue of hoitem to 25
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
171
|
How can I change the progress's color
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComBackground |CI$104 to (RGB(255,0,0))
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Progress" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditProgress
Set ComEditWidth of hoitem to -128
Set ComEditValue of hoitem to 25
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
170
|
I am using the Item.Visible property on False to hide the item, but the editor is still visible
// Occurs when the user checks the item.
Procedure OnComCheckItem Variant llItm
Forward Send OnComCheckItem llItm
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get Comitem of hoItems 1000 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComVisible of hoitem to True
Set ComAllowEdit of hoitem to (OLEexItemEditReadOnly + OLEexItemEditProgress)
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
// Occurs when the user unchecks the item.
Procedure OnComUncheckItem Variant llItm
Forward Send OnComUncheckItem llItm
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get Comitem of hoItems1 1000 to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComVisible of hoitem1 to False
Set ComAllowEdit of hoitem1 to OLEexItemDisableEdit
Send Destroy to hoitem1
Send Destroy to hoItems1
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voitem2
Get ComAdd of hoItems2 "" 2 Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Variant voItems3
Get ComItems of hoitem2 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComAdd of hoItems3 "Visible" Nothing Nothing to Nothing
Variant voitem3
Get ComAdd of hoItems3 "" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComCheck of hoitem3 to True
Set ComChecked of hoitem3 to True
Send Destroy to hoitem3
Variant voitem4
Get ComAdd of hoItems3 "Item 2" 1000 to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComItemHeight of hoitem4 to 18
Set ComCaption of hoitem4 to "Percent"
Set ComAllowEdit of hoitem4 to (OLEexItemEditReadOnly + OLEexItemEditProgress)
Set ComEditValue of hoitem4 to 50
Set ComVisible of hoitem4 to True
Send Destroy to hoitem4
Get ComAdd of hoItems3 "Visible" Nothing Nothing to Nothing
Send Destroy to hoItems3
Set ComGroupPopup of hoitem2 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Send Destroy to hoitem2
Send Destroy to hoItems2
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
169
|
How can I change the color of a disabled item
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Disabled" 2 0 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComForeColor of hoitem to (RGB(255,0,0))
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "" Nothing Nothing to Nothing
Send Destroy to hoItems1
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Disabled" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComEnabled of hoitem1 to False
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
168
|
Microsoft Windows 8.1 - Ribbon Like
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComMenuAppearance to OLEexMenuNormal
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
Variant voitem
Get Comitem of hoItems 0 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "" 0 0 to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComPadding of hoitem1 to "8,0,0,0"
Send Destroy to hoitem1
Variant var_item3
Get ComAdd of hoItems1 "New Page" Nothing Nothing to var_item3
Set ComToString of hoItems1 to "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
Set ComID of hoItems1 to 200
Set ComCaption of hoItems1 to "Page1"
Variant v
Variant voItems2
Get ComItems of hoItems1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "New Group" Nothing Nothing to v
Send Destroy to hoItems2
Move v to var_item
Set ComToString of hoItems1 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItems1 to "<b><font ;14>A"
Variant voItems3
Get ComItems of hoItems1 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Set ComBackgroundExt of hoItems3 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
Variant voitem2
Get ComAdd of hoItems3 "" 2 Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComGroupPopup of hoitem2 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
Set ComCaption of hoitem2 to ""
Variant voItems4
Get ComItems of hoitem2 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Variant voitem3
Get ComAdd of hoItems4 "R1" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComRadioGroup of hoitem3 to 100
Set ComRadio of hoitem3 to True
Set ComShowCheckedAsSelected of hoitem3 to OLEexDisplayItemHighlight
Set ComChecked of hoitem3 to False
Send Destroy to hoitem3
Variant voitem4
Get ComAdd of hoItems4 "R2" Nothing Nothing to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComRadioGroup of hoitem4 to 100
Set ComRadio of hoitem4 to True
Set ComShowCheckedAsSelected of hoitem4 to OLEexDisplayItemHighlight
Set ComChecked of hoitem4 to True
Send Destroy to hoitem4
Variant voitem5
Get ComAdd of hoItems4 "R3" Nothing Nothing to voitem5
Handle hoitem5
Get Create (RefClass(cComitem)) to hoitem5
Set pvComObject of hoitem5 to voitem5
Set ComRadioGroup of hoitem5 to 100
Set ComRadio of hoitem5 to True
Set ComShowCheckedAsSelected of hoitem5 to OLEexDisplayItemHighlight
Set ComChecked of hoitem5 to False
Send Destroy to hoitem5
Send Destroy to hoItems4
Send Destroy to hoitem2
Send Destroy to hoItems3
Send Destroy to hoItems1
Variant v1
Variant voItems5
Get ComItems of hoitem to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Get ComAdd of hoItems5 "New Group" Nothing Nothing to v1
Send Destroy to hoItems5
Move v1 to var_item1
Set ComToString of hoitem to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoitem to "<b><font ;14>B"
Variant voItems6
Get ComItems of hoitem to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Set ComBackgroundExt of hoItems6 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
Variant voitem6
Get ComAdd of hoItems6 "" 2 Nothing to voitem6
Handle hoitem6
Get Create (RefClass(cComitem)) to hoitem6
Set pvComObject of hoitem6 to voitem6
Set ComGroupPopup of hoitem6 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
Set ComCaption of hoitem6 to ""
Variant voItems7
Get ComItems of hoitem6 to voItems7
Handle hoItems7
Get Create (RefClass(cComItems)) to hoItems7
Set pvComObject of hoItems7 to voItems7
Variant voitem7
Get ComAdd of hoItems7 "C1" Nothing Nothing to voitem7
Handle hoitem7
Get Create (RefClass(cComitem)) to hoitem7
Set pvComObject of hoitem7 to voitem7
Set ComCheck of hoitem7 to True
Set ComChecked of hoitem7 to True
Send Destroy to hoitem7
Variant voitem8
Get ComAdd of hoItems7 "C2" Nothing Nothing to voitem8
Handle hoitem8
Get Create (RefClass(cComitem)) to hoitem8
Set pvComObject of hoitem8 to voitem8
Set ComCheck of hoitem8 to True
Set ComChecked of hoitem8 to False
Send Destroy to hoitem8
Variant voitem9
Get ComAdd of hoItems7 "C3" Nothing Nothing to voitem9
Handle hoitem9
Get Create (RefClass(cComitem)) to hoitem9
Set pvComObject of hoitem9 to voitem9
Set ComCheck of hoitem9 to True
Set ComChecked of hoitem9 to True
Send Destroy to hoitem9
Send Destroy to hoItems7
Send Destroy to hoitem6
Send Destroy to hoItems6
Send Destroy to hoitem
Variant voItems8
Get ComItems of hoItems to voItems8
Handle hoItems8
Get Create (RefClass(cComItems)) to hoItems8
Set pvComObject of hoItems8 to voItems8
Variant voitem10
Get ComAdd of hoItems8 "" 0 0 to voitem10
Handle hoitem10
Get Create (RefClass(cComitem)) to hoitem10
Set pvComObject of hoitem10 to voitem10
Set ComPadding of hoitem10 to "4,0,0,0"
Send Destroy to hoitem10
Send Destroy to hoItems8
Variant v2
Variant voItems9
Get ComItems of hoItems to voItems9
Handle hoItems9
Get Create (RefClass(cComItems)) to hoItems9
Set pvComObject of hoItems9 to voItems9
Get ComAdd of hoItems9 "New Group" Nothing Nothing to v2
Send Destroy to hoItems9
Move v2 to var_item2
Set ComToString of hoItems to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItems to ""
Variant voItems10
Get ComItems of hoItems to voItems10
Handle hoItems10
Get Create (RefClass(cComItems)) to hoItems10
Set pvComObject of hoItems10 to voItems10
Set ComBackgroundExt of hoItems10 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
Variant voitem11
Get ComAdd of hoItems10 "" 0 Nothing to voitem11
Handle hoitem11
Get Create (RefClass(cComitem)) to hoitem11
Set pvComObject of hoitem11 to voitem11
Set ComAllowEdit of hoitem11 to (OLEexItemEditVertical + OLEexItemEditSlider)
Set ComItemHeight of hoitem11 to 76
Set ComEditBorder of hoitem11 to OLEexEditBorderNone
Set ComEditValue of hoitem11 to 25
Send Destroy to hoitem11
Variant voitem12
Get ComAdd of hoItems10 "" 2 Nothing to voitem12
Handle hoitem12
Get Create (RefClass(cComitem)) to hoitem12
Set pvComObject of hoitem12 to voitem12
Set ComGroupPopup of hoitem12 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
Set ComCaption of hoitem12 to ""
Variant voItems11
Get ComItems of hoitem12 to voItems11
Handle hoItems11
Get Create (RefClass(cComItems)) to hoItems11
Set pvComObject of hoItems11 to voItems11
Variant voitem13
Get ComAdd of hoItems11 "" 2 Nothing to voitem13
Handle hoitem13
Get Create (RefClass(cComitem)) to hoitem13
Set pvComObject of hoitem13 to voitem13
Set ComGroupPopup of hoitem13 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems12
Get ComItems of hoitem13 to voItems12
Handle hoItems12
Get Create (RefClass(cComItems)) to hoItems12
Set pvComObject of hoItems12 to voItems12
Variant voitem14
Get ComAdd of hoItems12 "Button1" 2 Nothing to voitem14
Handle hoitem14
Get Create (RefClass(cComitem)) to hoitem14
Set pvComObject of hoitem14 to voitem14
Set ComShowAsButton of hoitem14 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems13
Get ComItems of hoitem14 to voItems13
Handle hoItems13
Get Create (RefClass(cComItems)) to hoItems13
Set pvComObject of hoItems13 to voItems13
Get ComAdd of hoItems13 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems13 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems13 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems13
Send Destroy to hoitem14
Variant voitem15
Get ComAdd of hoItems12 "" 0 0 to voitem15
Handle hoitem15
Get Create (RefClass(cComitem)) to hoitem15
Set pvComObject of hoitem15 to voitem15
Set ComPadding of hoitem15 to "4,0,0,0"
Send Destroy to hoitem15
Variant voitem16
Get ComAdd of hoItems12 "Button2" 2 Nothing to voitem16
Handle hoitem16
Get Create (RefClass(cComitem)) to hoitem16
Set pvComObject of hoitem16 to voitem16
Set ComShowAsButton of hoitem16 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems14
Get ComItems of hoitem16 to voItems14
Handle hoItems14
Get Create (RefClass(cComItems)) to hoItems14
Set pvComObject of hoItems14 to voItems14
Get ComAdd of hoItems14 "Item 4" Nothing Nothing to Nothing
Get ComAdd of hoItems14 "Item 5" Nothing Nothing to Nothing
Get ComAdd of hoItems14 "Item 6" Nothing Nothing to Nothing
Send Destroy to hoItems14
Send Destroy to hoitem16
Send Destroy to hoItems12
Send Destroy to hoitem13
Variant voitem17
Get ComAdd of hoItems11 "Popup" 2 Nothing to voitem17
Handle hoitem17
Get Create (RefClass(cComitem)) to hoitem17
Set pvComObject of hoitem17 to voitem17
Set ComAlignment of hoitem17 to OLEexCenter
Variant voItems15
Get ComItems of hoitem17 to voItems15
Handle hoItems15
Get Create (RefClass(cComItems)) to hoItems15
Set pvComObject of hoItems15 to voItems15
Variant voitem18
Get ComAdd of hoItems15 "Item 7" Nothing Nothing to voitem18
Handle hoitem18
Get Create (RefClass(cComitem)) to hoitem18
Set pvComObject of hoitem18 to voitem18
Set ComCheck of hoitem18 to True
Send Destroy to hoitem18
Get ComAdd of hoItems15 "Item 8" Nothing Nothing to Nothing
Variant voitem19
Get ComAdd of hoItems15 "Item 9" 2 Nothing to voitem19
Handle hoitem19
Get Create (RefClass(cComitem)) to hoitem19
Set pvComObject of hoitem19 to voitem19
Variant voItems16
Get ComItems of hoitem19 to voItems16
Handle hoItems16
Get Create (RefClass(cComItems)) to hoItems16
Set pvComObject of hoItems16 to voItems16
Get ComAdd of hoItems16 "Item 10" Nothing Nothing to Nothing
Get ComAdd of hoItems16 "Item 11" Nothing Nothing to Nothing
Get ComAdd of hoItems16 "Item 12" Nothing Nothing to Nothing
Send Destroy to hoItems16
Send Destroy to hoitem19
Send Destroy to hoItems15
Send Destroy to hoitem17
Send Destroy to hoItems11
Send Destroy to hoitem12
Send Destroy to hoItems10
Send Destroy to hoItems
Variant var_item4
Get ComAdd "New Page" Nothing Nothing to var_item4
Set ComToString to "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
Set ComID to 300
Set ComCaption to "Page2"
Variant voItems17
Get ComItems to voItems17
Handle hoItems17
Get Create (RefClass(cComItems)) to hoItems17
Set pvComObject of hoItems17 to voItems17
Variant voitem20
Get ComAdd of hoItems17 "S1" Nothing Nothing to voitem20
Handle hoitem20
Get Create (RefClass(cComitem)) to hoitem20
Set pvComObject of hoitem20 to voitem20
Set ComItemHeight of hoitem20 to 88
Set ComAllowEdit of hoitem20 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoitem20 to 25
Send Destroy to hoitem20
Variant voitem21
Get ComAdd of hoItems17 "S2" Nothing Nothing to voitem21
Handle hoitem21
Get Create (RefClass(cComitem)) to hoitem21
Set pvComObject of hoitem21 to voitem21
Set ComItemHeight of hoitem21 to 88
Set ComAllowEdit of hoitem21 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoitem21 to 50
Send Destroy to hoitem21
Variant voitem22
Get ComAdd of hoItems17 "S3" Nothing Nothing to voitem22
Handle hoitem22
Get Create (RefClass(cComitem)) to hoitem22
Set pvComObject of hoitem22 to voitem22
Set ComItemHeight of hoitem22 to 88
Set ComAllowEdit of hoitem22 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoitem22 to 75
Send Destroy to hoitem22
Send Destroy to hoItems17
Variant voitem23
Get ComAdd "" 0 0 to voitem23
Handle hoitem23
Get Create (RefClass(cComitem)) to hoitem23
Set pvComObject of hoitem23 to voitem23
Set ComPadding of hoitem23 to "8,0,0,0"
Send Destroy to hoitem23
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn" to Nothing
Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn" to Nothing
Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn" to Nothing
Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn" to Nothing
Get ComAdd of hoAppearance 17 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn" to Nothing
Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn" to Nothing
Get ComAdd of hoAppearance 32 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn" to Nothing
Get ComAdd of hoAppearance 33 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn" to Nothing
Get ComAdd of hoAppearance 34 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn" to Nothing
Get ComAdd of hoAppearance 35 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn" to Nothing
Send Destroy to hoAppearance
Set ComAppearance to |CI$1000000
Set ComBackground OLEexToolTipAppearance to (ComAppearance(Self))
Set ComSelBackColor to |CI$e000000
Set ComBackground OLEexMenuHotBackColor to |CI$c000000
Set ComBackground OLEexMenuSelHotBackColor to |CI$23000000
Set ComBackground |CI$2 to |CI$22000000
Set ComBackground |CI$3 to |CI$23000000
Set ComBackground OLEexCheckBoxState0 to |CI$20000000
Set ComBackground OLEexCheckBoxState1 to |CI$21000000
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
167
|
Microsoft Paint - Ribbon Like
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComMenuAppearance to OLEexMenuNormal
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
Variant voitem
Get Comitem of hoItems 0 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "" 0 0 to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComPadding of hoitem1 to "8,0,0,0"
Send Destroy to hoitem1
Variant var_item3
Get ComAdd of hoItems1 "New Page" Nothing Nothing to var_item3
Set ComToString of hoItems1 to "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
Set ComID of hoItems1 to 200
Set ComCaption of hoItems1 to "Page1"
Variant v
Variant voItems2
Get ComItems of hoItems1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "New Group" Nothing Nothing to v
Send Destroy to hoItems2
Move v to var_item
Set ComToString of hoItems1 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItems1 to "<b><font ;14>A"
Variant voItems3
Get ComItems of hoItems1 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Set ComBackgroundExt of hoItems3 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
Variant voitem2
Get ComAdd of hoItems3 "" 2 Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComGroupPopup of hoitem2 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
Set ComCaption of hoitem2 to ""
Variant voItems4
Get ComItems of hoitem2 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Variant voitem3
Get ComAdd of hoItems4 "R1" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComRadioGroup of hoitem3 to 100
Set ComRadio of hoitem3 to True
Set ComShowCheckedAsSelected of hoitem3 to OLEexDisplayItemHighlight
Set ComChecked of hoitem3 to False
Send Destroy to hoitem3
Variant voitem4
Get ComAdd of hoItems4 "R2" Nothing Nothing to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComRadioGroup of hoitem4 to 100
Set ComRadio of hoitem4 to True
Set ComShowCheckedAsSelected of hoitem4 to OLEexDisplayItemHighlight
Set ComChecked of hoitem4 to True
Send Destroy to hoitem4
Variant voitem5
Get ComAdd of hoItems4 "R3" Nothing Nothing to voitem5
Handle hoitem5
Get Create (RefClass(cComitem)) to hoitem5
Set pvComObject of hoitem5 to voitem5
Set ComRadioGroup of hoitem5 to 100
Set ComRadio of hoitem5 to True
Set ComShowCheckedAsSelected of hoitem5 to OLEexDisplayItemHighlight
Set ComChecked of hoitem5 to False
Send Destroy to hoitem5
Send Destroy to hoItems4
Send Destroy to hoitem2
Send Destroy to hoItems3
Send Destroy to hoItems1
Variant v1
Variant voItems5
Get ComItems of hoitem to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Get ComAdd of hoItems5 "New Group" Nothing Nothing to v1
Send Destroy to hoItems5
Move v1 to var_item1
Set ComToString of hoitem to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoitem to "<b><font ;14>B"
Variant voItems6
Get ComItems of hoitem to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Set ComBackgroundExt of hoItems6 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
Variant voitem6
Get ComAdd of hoItems6 "" 2 Nothing to voitem6
Handle hoitem6
Get Create (RefClass(cComitem)) to hoitem6
Set pvComObject of hoitem6 to voitem6
Set ComGroupPopup of hoitem6 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
Set ComCaption of hoitem6 to ""
Variant voItems7
Get ComItems of hoitem6 to voItems7
Handle hoItems7
Get Create (RefClass(cComItems)) to hoItems7
Set pvComObject of hoItems7 to voItems7
Variant voitem7
Get ComAdd of hoItems7 "C1" Nothing Nothing to voitem7
Handle hoitem7
Get Create (RefClass(cComitem)) to hoitem7
Set pvComObject of hoitem7 to voitem7
Set ComCheck of hoitem7 to True
Set ComChecked of hoitem7 to True
Send Destroy to hoitem7
Variant voitem8
Get ComAdd of hoItems7 "C2" Nothing Nothing to voitem8
Handle hoitem8
Get Create (RefClass(cComitem)) to hoitem8
Set pvComObject of hoitem8 to voitem8
Set ComCheck of hoitem8 to True
Set ComChecked of hoitem8 to False
Send Destroy to hoitem8
Variant voitem9
Get ComAdd of hoItems7 "C3" Nothing Nothing to voitem9
Handle hoitem9
Get Create (RefClass(cComitem)) to hoitem9
Set pvComObject of hoitem9 to voitem9
Set ComCheck of hoitem9 to True
Set ComChecked of hoitem9 to True
Send Destroy to hoitem9
Send Destroy to hoItems7
Send Destroy to hoitem6
Send Destroy to hoItems6
Send Destroy to hoitem
Variant voItems8
Get ComItems of hoItems to voItems8
Handle hoItems8
Get Create (RefClass(cComItems)) to hoItems8
Set pvComObject of hoItems8 to voItems8
Variant voitem10
Get ComAdd of hoItems8 "" 0 0 to voitem10
Handle hoitem10
Get Create (RefClass(cComitem)) to hoitem10
Set pvComObject of hoitem10 to voitem10
Set ComPadding of hoitem10 to "4,0,0,0"
Send Destroy to hoitem10
Send Destroy to hoItems8
Variant v2
Variant voItems9
Get ComItems of hoItems to voItems9
Handle hoItems9
Get Create (RefClass(cComItems)) to hoItems9
Set pvComObject of hoItems9 to voItems9
Get ComAdd of hoItems9 "New Group" Nothing Nothing to v2
Send Destroy to hoItems9
Move v2 to var_item2
Set ComToString of hoItems to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItems to ""
Variant voItems10
Get ComItems of hoItems to voItems10
Handle hoItems10
Get Create (RefClass(cComItems)) to hoItems10
Set pvComObject of hoItems10 to voItems10
Set ComBackgroundExt of hoItems10 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
Variant voitem11
Get ComAdd of hoItems10 "" 0 Nothing to voitem11
Handle hoitem11
Get Create (RefClass(cComitem)) to hoitem11
Set pvComObject of hoitem11 to voitem11
Set ComAllowEdit of hoitem11 to (OLEexItemEditVertical + OLEexItemEditSlider)
Set ComItemHeight of hoitem11 to 76
Set ComEditBorder of hoitem11 to OLEexEditBorderNone
Set ComEditValue of hoitem11 to 25
Send Destroy to hoitem11
Variant voitem12
Get ComAdd of hoItems10 "" 2 Nothing to voitem12
Handle hoitem12
Get Create (RefClass(cComitem)) to hoitem12
Set pvComObject of hoitem12 to voitem12
Set ComGroupPopup of hoitem12 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
Set ComCaption of hoitem12 to ""
Variant voItems11
Get ComItems of hoitem12 to voItems11
Handle hoItems11
Get Create (RefClass(cComItems)) to hoItems11
Set pvComObject of hoItems11 to voItems11
Variant voitem13
Get ComAdd of hoItems11 "" 2 Nothing to voitem13
Handle hoitem13
Get Create (RefClass(cComitem)) to hoitem13
Set pvComObject of hoitem13 to voitem13
Set ComGroupPopup of hoitem13 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems12
Get ComItems of hoitem13 to voItems12
Handle hoItems12
Get Create (RefClass(cComItems)) to hoItems12
Set pvComObject of hoItems12 to voItems12
Variant voitem14
Get ComAdd of hoItems12 "Button1" 2 Nothing to voitem14
Handle hoitem14
Get Create (RefClass(cComitem)) to hoitem14
Set pvComObject of hoitem14 to voitem14
Set ComShowAsButton of hoitem14 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems13
Get ComItems of hoitem14 to voItems13
Handle hoItems13
Get Create (RefClass(cComItems)) to hoItems13
Set pvComObject of hoItems13 to voItems13
Get ComAdd of hoItems13 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems13 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems13 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems13
Send Destroy to hoitem14
Variant voitem15
Get ComAdd of hoItems12 "" 0 0 to voitem15
Handle hoitem15
Get Create (RefClass(cComitem)) to hoitem15
Set pvComObject of hoitem15 to voitem15
Set ComPadding of hoitem15 to "4,0,0,0"
Send Destroy to hoitem15
Variant voitem16
Get ComAdd of hoItems12 "Button2" 2 Nothing to voitem16
Handle hoitem16
Get Create (RefClass(cComitem)) to hoitem16
Set pvComObject of hoitem16 to voitem16
Set ComShowAsButton of hoitem16 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems14
Get ComItems of hoitem16 to voItems14
Handle hoItems14
Get Create (RefClass(cComItems)) to hoItems14
Set pvComObject of hoItems14 to voItems14
Get ComAdd of hoItems14 "Item 4" Nothing Nothing to Nothing
Get ComAdd of hoItems14 "Item 5" Nothing Nothing to Nothing
Get ComAdd of hoItems14 "Item 6" Nothing Nothing to Nothing
Send Destroy to hoItems14
Send Destroy to hoitem16
Send Destroy to hoItems12
Send Destroy to hoitem13
Variant voitem17
Get ComAdd of hoItems11 "Popup" 2 Nothing to voitem17
Handle hoitem17
Get Create (RefClass(cComitem)) to hoitem17
Set pvComObject of hoitem17 to voitem17
Set ComAlignment of hoitem17 to OLEexCenter
Variant voItems15
Get ComItems of hoitem17 to voItems15
Handle hoItems15
Get Create (RefClass(cComItems)) to hoItems15
Set pvComObject of hoItems15 to voItems15
Variant voitem18
Get ComAdd of hoItems15 "Item 7" Nothing Nothing to voitem18
Handle hoitem18
Get Create (RefClass(cComitem)) to hoitem18
Set pvComObject of hoitem18 to voitem18
Set ComCheck of hoitem18 to True
Send Destroy to hoitem18
Get ComAdd of hoItems15 "Item 8" Nothing Nothing to Nothing
Variant voitem19
Get ComAdd of hoItems15 "Item 9" 2 Nothing to voitem19
Handle hoitem19
Get Create (RefClass(cComitem)) to hoitem19
Set pvComObject of hoitem19 to voitem19
Variant voItems16
Get ComItems of hoitem19 to voItems16
Handle hoItems16
Get Create (RefClass(cComItems)) to hoItems16
Set pvComObject of hoItems16 to voItems16
Get ComAdd of hoItems16 "Item 10" Nothing Nothing to Nothing
Get ComAdd of hoItems16 "Item 11" Nothing Nothing to Nothing
Get ComAdd of hoItems16 "Item 12" Nothing Nothing to Nothing
Send Destroy to hoItems16
Send Destroy to hoitem19
Send Destroy to hoItems15
Send Destroy to hoitem17
Send Destroy to hoItems11
Send Destroy to hoitem12
Send Destroy to hoItems10
Send Destroy to hoItems
Variant var_item4
Get ComAdd "New Page" Nothing Nothing to var_item4
Set ComToString to "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
Set ComID to 300
Set ComCaption to "Page2"
Variant voItems17
Get ComItems to voItems17
Handle hoItems17
Get Create (RefClass(cComItems)) to hoItems17
Set pvComObject of hoItems17 to voItems17
Variant voitem20
Get ComAdd of hoItems17 "S1" Nothing Nothing to voitem20
Handle hoitem20
Get Create (RefClass(cComitem)) to hoitem20
Set pvComObject of hoitem20 to voitem20
Set ComItemHeight of hoitem20 to 88
Set ComAllowEdit of hoitem20 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoitem20 to 25
Send Destroy to hoitem20
Variant voitem21
Get ComAdd of hoItems17 "S2" Nothing Nothing to voitem21
Handle hoitem21
Get Create (RefClass(cComitem)) to hoitem21
Set pvComObject of hoitem21 to voitem21
Set ComItemHeight of hoitem21 to 88
Set ComAllowEdit of hoitem21 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoitem21 to 50
Send Destroy to hoitem21
Variant voitem22
Get ComAdd of hoItems17 "S3" Nothing Nothing to voitem22
Handle hoitem22
Get Create (RefClass(cComitem)) to hoitem22
Set pvComObject of hoitem22 to voitem22
Set ComItemHeight of hoitem22 to 88
Set ComAllowEdit of hoitem22 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoitem22 to 75
Send Destroy to hoitem22
Send Destroy to hoItems17
Variant voitem23
Get ComAdd "" 0 0 to voitem23
Handle hoitem23
Get Create (RefClass(cComitem)) to hoitem23
Set pvComObject of hoitem23 to voitem23
Set ComPadding of hoitem23 to "8,0,0,0"
Send Destroy to hoitem23
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn" to Nothing
Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn" to Nothing
Get ComAdd of hoAppearance 3 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn" to Nothing
Get ComAdd of hoAppearance 4 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn" to Nothing
Get ComAdd of hoAppearance 5 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn" to Nothing
Get ComAdd of hoAppearance 6 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn" to Nothing
Get ComAdd of hoAppearance 7 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn" to Nothing
Get ComAdd of hoAppearance 8 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn" to Nothing
Get ComAdd of hoAppearance 9 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn" to Nothing
Get ComAdd of hoAppearance 10 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn" to Nothing
Get ComAdd of hoAppearance 11 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn" to Nothing
Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn" to Nothing
Get ComAdd of hoAppearance 13 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn" to Nothing
Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn" to Nothing
Get ComAdd of hoAppearance 15 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn" to Nothing
Get ComAdd of hoAppearance 16 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn" to Nothing
Get ComAdd of hoAppearance 17 "CP:16 0 0 0 1" to Nothing
Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn" to Nothing
Get ComAdd of hoAppearance 19 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn" to Nothing
Get ComAdd of hoAppearance 20 "CP:19 0 0 0 1" to Nothing
Send Destroy to hoAppearance
Set ComLocalAppearance to OLEShadowBorder
Set ComAppearance to |CI$1000000
Set ComForeColor to (RGB(21,66,139))
Set ComSelBackColor to |CI$e000000
Set ComBackground OLEexToolTipAppearance to (ComAppearance(Self))
Set ComBackground |CI$2 to |CI$d000000
Set ComBackground OLEexGroupPopupFrameSingle to |CI$5000000
Set ComBackground OLEexGroupPopupFrameHStart to |CI$6000000
Set ComBackground OLEexGroupPopupFrameHIntermediate to |CI$7000000
Set ComBackground OLEexGroupPopupFrameHEnd to |CI$8000000
Set ComBackground OLEexGroupPopupFrameVStart to |CI$9000000
Set ComBackground OLEexGroupPopupFrameVIntermediate to |CI$a000000
Set ComBackground OLEexGroupPopupFrameVEnd to |CI$b000000
Set ComBackground OLEexMenuHotBackColor to |CI$c000000
Set ComBackground OLEexMenuSelHotBackColor to |CI$f000000
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
166
|
Microsoft Office - Ribbon Like
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComMenuAppearance to OLEexMenuNormal
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
Variant voitem
Get Comitem of hoItems 0 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "" 0 0 to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComPadding of hoitem1 to "8,0,0,0"
Send Destroy to hoitem1
Variant var_item3
Get ComAdd of hoItems1 "New Page" Nothing Nothing to var_item3
Set ComToString of hoItems1 to "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
Set ComID of hoItems1 to 200
Set ComCaption of hoItems1 to "Page1"
Variant v
Variant voItems2
Get ComItems of hoItems1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "New Group" Nothing Nothing to v
Send Destroy to hoItems2
Move v to var_item
Set ComToString of hoItems1 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItems1 to "<b><font ;14>A"
Variant voItems3
Get ComItems of hoItems1 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Set ComBackgroundExt of hoItems3 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
Variant voitem2
Get ComAdd of hoItems3 "" 2 Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComGroupPopup of hoitem2 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
Set ComCaption of hoitem2 to ""
Variant voItems4
Get ComItems of hoitem2 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Variant voitem3
Get ComAdd of hoItems4 "R1" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComRadioGroup of hoitem3 to 100
Set ComRadio of hoitem3 to True
Set ComShowCheckedAsSelected of hoitem3 to OLEexDisplayItemHighlight
Set ComChecked of hoitem3 to False
Send Destroy to hoitem3
Variant voitem4
Get ComAdd of hoItems4 "R2" Nothing Nothing to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComRadioGroup of hoitem4 to 100
Set ComRadio of hoitem4 to True
Set ComShowCheckedAsSelected of hoitem4 to OLEexDisplayItemHighlight
Set ComChecked of hoitem4 to True
Send Destroy to hoitem4
Variant voitem5
Get ComAdd of hoItems4 "R3" Nothing Nothing to voitem5
Handle hoitem5
Get Create (RefClass(cComitem)) to hoitem5
Set pvComObject of hoitem5 to voitem5
Set ComRadioGroup of hoitem5 to 100
Set ComRadio of hoitem5 to True
Set ComShowCheckedAsSelected of hoitem5 to OLEexDisplayItemHighlight
Set ComChecked of hoitem5 to False
Send Destroy to hoitem5
Send Destroy to hoItems4
Send Destroy to hoitem2
Send Destroy to hoItems3
Send Destroy to hoItems1
Variant v1
Variant voItems5
Get ComItems of hoitem to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Get ComAdd of hoItems5 "New Group" Nothing Nothing to v1
Send Destroy to hoItems5
Move v1 to var_item1
Set ComToString of hoitem to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoitem to "<b><font ;14>B"
Variant voItems6
Get ComItems of hoitem to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Set ComBackgroundExt of hoItems6 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
Variant voitem6
Get ComAdd of hoItems6 "" 2 Nothing to voitem6
Handle hoitem6
Get Create (RefClass(cComitem)) to hoitem6
Set pvComObject of hoitem6 to voitem6
Set ComGroupPopup of hoitem6 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
Set ComCaption of hoitem6 to ""
Variant voItems7
Get ComItems of hoitem6 to voItems7
Handle hoItems7
Get Create (RefClass(cComItems)) to hoItems7
Set pvComObject of hoItems7 to voItems7
Variant voitem7
Get ComAdd of hoItems7 "C1" Nothing Nothing to voitem7
Handle hoitem7
Get Create (RefClass(cComitem)) to hoitem7
Set pvComObject of hoitem7 to voitem7
Set ComCheck of hoitem7 to True
Set ComChecked of hoitem7 to True
Send Destroy to hoitem7
Variant voitem8
Get ComAdd of hoItems7 "C2" Nothing Nothing to voitem8
Handle hoitem8
Get Create (RefClass(cComitem)) to hoitem8
Set pvComObject of hoitem8 to voitem8
Set ComCheck of hoitem8 to True
Set ComChecked of hoitem8 to False
Send Destroy to hoitem8
Variant voitem9
Get ComAdd of hoItems7 "C3" Nothing Nothing to voitem9
Handle hoitem9
Get Create (RefClass(cComitem)) to hoitem9
Set pvComObject of hoitem9 to voitem9
Set ComCheck of hoitem9 to True
Set ComChecked of hoitem9 to True
Send Destroy to hoitem9
Send Destroy to hoItems7
Send Destroy to hoitem6
Send Destroy to hoItems6
Send Destroy to hoitem
Variant voItems8
Get ComItems of hoItems to voItems8
Handle hoItems8
Get Create (RefClass(cComItems)) to hoItems8
Set pvComObject of hoItems8 to voItems8
Variant voitem10
Get ComAdd of hoItems8 "" 0 0 to voitem10
Handle hoitem10
Get Create (RefClass(cComitem)) to hoitem10
Set pvComObject of hoitem10 to voitem10
Set ComPadding of hoitem10 to "4,0,0,0"
Send Destroy to hoitem10
Send Destroy to hoItems8
Variant v2
Variant voItems9
Get ComItems of hoItems to voItems9
Handle hoItems9
Get Create (RefClass(cComItems)) to hoItems9
Set pvComObject of hoItems9 to voItems9
Get ComAdd of hoItems9 "New Group" Nothing Nothing to v2
Send Destroy to hoItems9
Move v2 to var_item2
Set ComToString of hoItems to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItems to ""
Variant voItems10
Get ComItems of hoItems to voItems10
Handle hoItems10
Get Create (RefClass(cComItems)) to hoItems10
Set pvComObject of hoItems10 to voItems10
Set ComBackgroundExt of hoItems10 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
Variant voitem11
Get ComAdd of hoItems10 "" 0 Nothing to voitem11
Handle hoitem11
Get Create (RefClass(cComitem)) to hoitem11
Set pvComObject of hoitem11 to voitem11
Set ComAllowEdit of hoitem11 to (OLEexItemEditVertical + OLEexItemEditSlider)
Set ComItemHeight of hoitem11 to 76
Set ComEditBorder of hoitem11 to OLEexEditBorderNone
Set ComEditValue of hoitem11 to 25
Send Destroy to hoitem11
Variant voitem12
Get ComAdd of hoItems10 "" 2 Nothing to voitem12
Handle hoitem12
Get Create (RefClass(cComitem)) to hoitem12
Set pvComObject of hoitem12 to voitem12
Set ComGroupPopup of hoitem12 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
Set ComCaption of hoitem12 to ""
Variant voItems11
Get ComItems of hoitem12 to voItems11
Handle hoItems11
Get Create (RefClass(cComItems)) to hoItems11
Set pvComObject of hoItems11 to voItems11
Variant voitem13
Get ComAdd of hoItems11 "" 2 Nothing to voitem13
Handle hoitem13
Get Create (RefClass(cComitem)) to hoitem13
Set pvComObject of hoitem13 to voitem13
Set ComGroupPopup of hoitem13 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems12
Get ComItems of hoitem13 to voItems12
Handle hoItems12
Get Create (RefClass(cComItems)) to hoItems12
Set pvComObject of hoItems12 to voItems12
Variant voitem14
Get ComAdd of hoItems12 "Button1" 2 Nothing to voitem14
Handle hoitem14
Get Create (RefClass(cComitem)) to hoitem14
Set pvComObject of hoitem14 to voitem14
Set ComShowAsButton of hoitem14 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems13
Get ComItems of hoitem14 to voItems13
Handle hoItems13
Get Create (RefClass(cComItems)) to hoItems13
Set pvComObject of hoItems13 to voItems13
Get ComAdd of hoItems13 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems13 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems13 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems13
Send Destroy to hoitem14
Variant voitem15
Get ComAdd of hoItems12 "" 0 0 to voitem15
Handle hoitem15
Get Create (RefClass(cComitem)) to hoitem15
Set pvComObject of hoitem15 to voitem15
Set ComPadding of hoitem15 to "4,0,0,0"
Send Destroy to hoitem15
Variant voitem16
Get ComAdd of hoItems12 "Button2" 2 Nothing to voitem16
Handle hoitem16
Get Create (RefClass(cComitem)) to hoitem16
Set pvComObject of hoitem16 to voitem16
Set ComShowAsButton of hoitem16 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems14
Get ComItems of hoitem16 to voItems14
Handle hoItems14
Get Create (RefClass(cComItems)) to hoItems14
Set pvComObject of hoItems14 to voItems14
Get ComAdd of hoItems14 "Item 4" Nothing Nothing to Nothing
Get ComAdd of hoItems14 "Item 5" Nothing Nothing to Nothing
Get ComAdd of hoItems14 "Item 6" Nothing Nothing to Nothing
Send Destroy to hoItems14
Send Destroy to hoitem16
Send Destroy to hoItems12
Send Destroy to hoitem13
Variant voitem17
Get ComAdd of hoItems11 "Popup" 2 Nothing to voitem17
Handle hoitem17
Get Create (RefClass(cComitem)) to hoitem17
Set pvComObject of hoitem17 to voitem17
Set ComAlignment of hoitem17 to OLEexCenter
Variant voItems15
Get ComItems of hoitem17 to voItems15
Handle hoItems15
Get Create (RefClass(cComItems)) to hoItems15
Set pvComObject of hoItems15 to voItems15
Variant voitem18
Get ComAdd of hoItems15 "Item 7" Nothing Nothing to voitem18
Handle hoitem18
Get Create (RefClass(cComitem)) to hoitem18
Set pvComObject of hoitem18 to voitem18
Set ComCheck of hoitem18 to True
Send Destroy to hoitem18
Get ComAdd of hoItems15 "Item 8" Nothing Nothing to Nothing
Variant voitem19
Get ComAdd of hoItems15 "Item 9" 2 Nothing to voitem19
Handle hoitem19
Get Create (RefClass(cComitem)) to hoitem19
Set pvComObject of hoitem19 to voitem19
Variant voItems16
Get ComItems of hoitem19 to voItems16
Handle hoItems16
Get Create (RefClass(cComItems)) to hoItems16
Set pvComObject of hoItems16 to voItems16
Get ComAdd of hoItems16 "Item 10" Nothing Nothing to Nothing
Get ComAdd of hoItems16 "Item 11" Nothing Nothing to Nothing
Get ComAdd of hoItems16 "Item 12" Nothing Nothing to Nothing
Send Destroy to hoItems16
Send Destroy to hoitem19
Send Destroy to hoItems15
Send Destroy to hoitem17
Send Destroy to hoItems11
Send Destroy to hoitem12
Send Destroy to hoItems10
Send Destroy to hoItems
Variant var_item4
Get ComAdd "New Page" Nothing Nothing to var_item4
Set ComToString to "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
Set ComID to 300
Set ComCaption to "Page2"
Variant voItems17
Get ComItems to voItems17
Handle hoItems17
Get Create (RefClass(cComItems)) to hoItems17
Set pvComObject of hoItems17 to voItems17
Variant voitem20
Get ComAdd of hoItems17 "S1" Nothing Nothing to voitem20
Handle hoitem20
Get Create (RefClass(cComitem)) to hoitem20
Set pvComObject of hoitem20 to voitem20
Set ComItemHeight of hoitem20 to 88
Set ComAllowEdit of hoitem20 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoitem20 to 25
Send Destroy to hoitem20
Variant voitem21
Get ComAdd of hoItems17 "S2" Nothing Nothing to voitem21
Handle hoitem21
Get Create (RefClass(cComitem)) to hoitem21
Set pvComObject of hoitem21 to voitem21
Set ComItemHeight of hoitem21 to 88
Set ComAllowEdit of hoitem21 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoitem21 to 50
Send Destroy to hoitem21
Variant voitem22
Get ComAdd of hoItems17 "S3" Nothing Nothing to voitem22
Handle hoitem22
Get Create (RefClass(cComitem)) to hoitem22
Set pvComObject of hoitem22 to voitem22
Set ComItemHeight of hoitem22 to 88
Set ComAllowEdit of hoitem22 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoitem22 to 75
Send Destroy to hoitem22
Send Destroy to hoItems17
Variant voitem23
Get ComAdd "" 0 0 to voitem23
Handle hoitem23
Get Create (RefClass(cComitem)) to hoitem23
Set pvComObject of hoitem23 to voitem23
Set ComPadding of hoitem23 to "8,0,0,0"
Send Destroy to hoitem23
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_background.ebn" to Nothing
Get ComAdd of hoAppearance 2 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn" to Nothing
Get ComAdd of hoAppearance 3 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn" to Nothing
Get ComAdd of hoAppearance 4 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn" to Nothing
Get ComAdd of hoAppearance 5 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn" to Nothing
Get ComAdd of hoAppearance 6 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn" to Nothing
Get ComAdd of hoAppearance 7 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn" to Nothing
Get ComAdd of hoAppearance 8 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn" to Nothing
Get ComAdd of hoAppearance 9 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn" to Nothing
Get ComAdd of hoAppearance 10 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn" to Nothing
Get ComAdd of hoAppearance 11 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn" to Nothing
Get ComAdd of hoAppearance 12 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_select.ebn" to Nothing
Get ComAdd of hoAppearance 13 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn" to Nothing
Get ComAdd of hoAppearance 14 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn" to Nothing
Get ComAdd of hoAppearance 15 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn" to Nothing
Get ComAdd of hoAppearance 16 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn" to Nothing
Get ComAdd of hoAppearance 17 "CP:16 0 0 0 1" to Nothing
Get ComAdd of hoAppearance 18 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn" to Nothing
Get ComAdd of hoAppearance 19 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn" to Nothing
Get ComAdd of hoAppearance 20 "CP:19 0 0 0 1" to Nothing
Send Destroy to hoAppearance
Set ComForeColor to (RGB(21,66,139))
Set ComSelBackColor to |CI$e000000
Set ComLocalAppearance to OLEShadowBorder
Set ComAppearance to |CI$1000000
Set ComBackground OLEexToolTipAppearance to (ComAppearance(Self))
Set ComBackground |CI$2 to |CI$d000000
Set ComBackground OLEexGroupPopupFrameSingle to |CI$5000000
Set ComBackground OLEexGroupPopupFrameHStart to |CI$6000000
Set ComBackground OLEexGroupPopupFrameHIntermediate to |CI$7000000
Set ComBackground OLEexGroupPopupFrameHEnd to |CI$8000000
Set ComBackground OLEexGroupPopupFrameVStart to |CI$9000000
Set ComBackground OLEexGroupPopupFrameVIntermediate to |CI$a000000
Set ComBackground OLEexGroupPopupFrameVEnd to |CI$b000000
Set ComBackground OLEexMenuHotBackColor to |CI$c000000
Set ComBackground OLEexMenuSelHotBackColor to |CI$f000000
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
165
|
How I can assign buttons to a tab
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComBackground OLEexMenuSelBorderColor to (RGB(240,240,240))
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=0][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))"
Variant voitem
Get Comitem of hoItems -10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "" 0 0 to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComPadding of hoitem1 to "8,0,0,0"
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "New Page" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComToString of hoitem2 to "[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0]([id=50][group=0x03]([]))"
Set ComCaption of hoitem2 to "Page<off -5><font ;5><b>1</b></font></off>"
Variant voItems2
Get ComItems of hoitem2 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voitem3
Get ComAdd of hoItems2 "Button 1" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComShowAsButton of hoitem3 to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
Send Destroy to hoitem3
Variant voitem4
Get ComAdd of hoItems2 "Button 2" Nothing Nothing to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComShowAsButton of hoitem4 to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
Send Destroy to hoitem4
Variant voitem5
Get ComAdd of hoItems2 "Button 3" Nothing Nothing to voitem5
Handle hoitem5
Get Create (RefClass(cComitem)) to hoitem5
Set pvComObject of hoitem5 to voitem5
Set ComShowAsButton of hoitem5 to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
Send Destroy to hoitem5
Send Destroy to hoItems2
Send Destroy to hoitem2
Variant voitem6
Get ComAdd of hoItems1 "New Page" Nothing Nothing to voitem6
Handle hoitem6
Get Create (RefClass(cComitem)) to hoitem6
Set pvComObject of hoitem6 to voitem6
Set ComToString of hoitem6 to "[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0]([id=50][group=0x03]([]))"
Set ComCaption of hoitem6 to "Page<off -5><font ;5><b>2</b></font></off>"
Variant voItems3
Get ComItems of hoitem6 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Variant voitem7
Get ComAdd of hoItems3 "Button 3" Nothing Nothing to voitem7
Handle hoitem7
Get Create (RefClass(cComitem)) to hoitem7
Set pvComObject of hoitem7 to voitem7
Set ComShowAsButton of hoitem7 to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
Send Destroy to hoitem7
Variant voitem8
Get ComAdd of hoItems3 "Button 4" Nothing Nothing to voitem8
Handle hoitem8
Get Create (RefClass(cComitem)) to hoitem8
Set pvComObject of hoitem8 to voitem8
Set ComShowAsButton of hoitem8 to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
Send Destroy to hoitem8
Send Destroy to hoItems3
Send Destroy to hoitem6
Variant voitem9
Get ComAdd of hoItems1 "" 0 0 to voitem9
Handle hoitem9
Get Create (RefClass(cComitem)) to hoitem9
Set pvComObject of hoitem9 to voitem9
Set ComPadding of hoitem9 to "8,0,0,0"
Send Destroy to hoitem9
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
164
|
How can I hide an item
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item 1" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComVisible of hoitem to False
Send Destroy to hoitem
Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
163
|
How do I get the item giving its caption
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item 1" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComID of hoitem to 1000
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComID of hoitem1 to 1001
Send Destroy to hoitem1
Send Destroy to hoItems
Variant voitem2
Get Comitem "Item 1" to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComBold of hoitem2 to True
Send Destroy to hoitem2
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
162
|
How do I get the item giving its identifier
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item 1" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComID of hoitem to 1000
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComID of hoitem1 to 1001
Send Destroy to hoitem1
Send Destroy to hoItems
Variant voitem2
Get Comitem 1000 to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComBold of hoitem2 to True
Send Destroy to hoitem2
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
161
|
Can I change the cursor where it hovers the item
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComCursor to "exCross"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
Variant voitem
Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCursor of hoitem to "exNoDrop"
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
160
|
I am using radio-buttons, the question is it possible to uncheck the radio-buttons, so no button is pressed in the group
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComAllowToggleRadio to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Radio 1" 1000 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComRadio of hoitem to True
Set ComRadioGroup of hoitem to 100
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Radio 2" 1001 to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComRadio of hoitem1 to True
Set ComRadioGroup of hoitem1 to 100
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems "Radio 2" 1003 to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComRadio of hoitem2 to True
Set ComRadioGroup of hoitem2 to 100
Send Destroy to hoitem2
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
159
|
Is it possible to display the item's identifiers
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComDebug to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item 1" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComID of hoitem to 10001
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComID of hoitem1 to 10002
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
158
|
How do I disable showing the tooltip for all control (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComAllowToolTip to False
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComTooltip of hoitem to "this is a bit of text to be shown when cursor hovers it"
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComTooltip of hoitem1 to "this is a bit of text to be shown when cursor hovers it"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
157
|
How can I disable the control
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item 1" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComEnabled of hoitem to False
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComEnabled of hoitem1 to False
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems "Item 3" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComEnabled of hoitem2 to False
Send Destroy to hoitem2
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
156
|
How can I specify a different border/visual appearance for drop down portion of the select buttons/combobox (ebn)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComLocalAppearance to |CI$1000000
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "Button" 2 Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComShowAsButton of hoitem1 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems2
Get ComItems of hoitem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems2
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "Button" 2 Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComShowAsButton of hoitem2 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems3
Get ComItems of hoitem2 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComAdd of hoItems3 "Item 4" Nothing Nothing to Nothing
Get ComAdd of hoItems3 "Item 5" Nothing Nothing to Nothing
Get ComAdd of hoItems3 "Item 6" Nothing Nothing to Nothing
Send Destroy to hoItems3
Send Destroy to hoitem2
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
155
|
How can I specify a different border for drop down portion of the select buttons/combobox
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComLocalAppearance to OLEShadowBorder
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "Button" 2 Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComShowAsButton of hoitem1 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems2
Get ComItems of hoitem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems2
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "Button" 2 Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComShowAsButton of hoitem2 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems3
Get ComItems of hoitem2 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComAdd of hoItems3 "Item 4" Nothing Nothing to Nothing
Get ComAdd of hoItems3 "Item 5" Nothing Nothing to Nothing
Get ComAdd of hoItems3 "Item 6" Nothing Nothing to Nothing
Send Destroy to hoItems3
Send Destroy to hoitem2
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
154
|
How can I change the visual appearance for the entire control
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComAppearance to |CI$1000000
Set ComShowCheckedAsSelected to OLEexDisplayItemCheckHighlight
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPadding of hoItems to "4,4,4,4"
Variant voitem
Get ComAdd of hoItems "Radio 1" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComRadio of hoitem to True
Set ComChecked of hoitem to True
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Radio 2" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComRadio of hoitem1 to True
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems "Radio 3" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComRadio of hoitem2 to True
Send Destroy to hoitem2
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
153
|
How can I show a border arround the control
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComAppearance to OLEFlatBorder
Set ComShowCheckedAsSelected to OLEexDisplayItemCheckHighlight
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPadding of hoItems to "4,4,4,4"
Variant voitem
Get ComAdd of hoItems "Check 1" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComChecked of hoitem to True
Set ComCheck of hoitem to True
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Check 2" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCheck of hoitem1 to True
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
152
|
Is it possible to change the item's background color when check/uncheck the item
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComShowCheckedAsSelected to OLEexDisplayItemCheckHighlight
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPadding of hoItems to "4,4,4,4"
Variant voitem
Get ComAdd of hoItems "Check 1" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComChecked of hoitem to True
Set ComCheck of hoitem to True
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Check 2" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCheck of hoitem1 to True
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
151
|
How can I change the colors for hot/hover items
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComBackground OLEexMenuHotBackColor to (RGB(0,0,1))
Set ComBackground OLEexMenuHotForeColor to (RGB(255,255,255))
Set ComBackground OLEexMenuSelHotBackColor to (RGB(128,128,128))
Set ComBackground OLEexMenuSelHotForeColor to (RGB(255,255,255))
Set ComSelBackColor to (RGB(128,128,128))
Set ComSelForeColor to (RGB(255,255,255))
Set ComBackground OLEexMenuSelBorderColor to (RGB(128,128,128))
Set ComShowCheckedAsSelected to OLEexDisplayItemCheckHighlight
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPadding of hoItems to "4,4,4,4"
Variant voitem
Get ComAdd of hoItems "" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComToString of hoitem to "[group=3](Item 1,Item 2)"
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Check 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComChecked of hoitem1 to True
Set ComCheck of hoitem1 to True
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems "Check 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComCheck of hoitem2 to True
Send Destroy to hoitem2
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
150
|
How do I change the visual appearance of the groups (vertical)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
Get ComAdd of hoAppearance 3 "c:\exontrol\images\hot.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexGroupPopupFrameSingle to |CI$1000000
Set ComBackground OLEexGroupPopupFrameVStart to |CI$1000000
Set ComBackground OLEexGroupPopupFrameVIntermediate to |CI$2000000
Set ComBackground OLEexGroupPopupFrameVEnd to |CI$3000000
Set ComBackground OLEexGroupPopupFrameSolid to (RGB(255,0,0))
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "Vertical" 2 Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAlignment of hoitem1 to OLEexCenter
Set ComGroupPopup of hoitem1 to (OLEexGroupPopupVertical + OLEexGroupPopup)
Variant voItems2
Get ComItems of hoitem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
Get ComAdd of hoItems2 "Item 4" Nothing Nothing to Nothing
Get ComAdd of hoItems2 "Item 5" Nothing Nothing to Nothing
Send Destroy to hoItems2
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComCaptionWidth of hoitem2 to 12
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "Vertical" 2 Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComAlignment of hoitem3 to OLEexCenter
Set ComGroupPopup of hoitem3 to (OLEexGroupPopupVertical + OLEexGroupPopupFrameThickBox + OLEexGroupPopupFrameSolidBox + OLEexGroupPopup)
Variant voItems3
Get ComItems of hoitem3 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComAdd of hoItems3 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems3 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems3 "Item 3" Nothing Nothing to Nothing
Get ComAdd of hoItems3 "Item 4" Nothing Nothing to Nothing
Get ComAdd of hoItems3 "Item 5" Nothing Nothing to Nothing
Send Destroy to hoItems3
Send Destroy to hoitem3
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
149
|
How do I change the visual appearance of the groups (horizontal)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
Get ComAdd of hoAppearance 3 "c:\exontrol\images\hot.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexGroupPopupFrameSingle to |CI$1000000
Set ComBackground OLEexGroupPopupFrameHStart to |CI$1000000
Set ComBackground OLEexGroupPopupFrameHIntermediate to |CI$2000000
Set ComBackground OLEexGroupPopupFrameHEnd to |CI$3000000
Set ComBackground OLEexGroupPopupFrameSolid to (RGB(255,0,0))
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Horizontal Group" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to OLEexGroupPopup
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 4" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 5" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Horizontal Group[group=193](Item 1,Item 2,Item 3,Item 4,Item 5)"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
148
|
How can I change the visual appearance of the separator item
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexMenuSeparatorItem to |CI$1000000
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCaptionWidth of hoitem to 128
Send Destroy to hoitem
Get ComAdd of hoItems "" 1 Nothing to Nothing
Variant voitem1
Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCaptionWidth of hoitem1 to 128
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems "" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComToString of hoitem2 to "<font ;5>separator[sep]"
Send Destroy to hoitem2
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
147
|
How can I change the visual appearance of the flat portion of the drop down of the control
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComFlatBackColor to |CI$1000000
Set ComBackground OLEexMenuFlatLineColor to (ComFlatBackColor(Self))
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCheck of hoitem1 to True
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComCheck of hoitem2 to True
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComCheck of hoitem3 to True
Send Destroy to hoitem3
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
146
|
How can I change the visual appearance of the radio-buttons to be displayed in the context menu (ebn)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexRadioButtonState0 to |CI$1000000
Set ComBackground OLEexRadioButtonState1 to |CI$2000000
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to OLEexGroupPopup
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "Radio 1" 1000 to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComRadio of hoitem1 to True
Set ComRadioGroup of hoitem1 to 100
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "Radio 2" 1001 to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComRadio of hoitem2 to True
Set ComRadioGroup of hoitem2 to 100
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "Radio 2" 1003 to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComRadio of hoitem3 to True
Set ComRadioGroup of hoitem3 to 100
Send Destroy to hoitem3
Variant voitem4
Get Comitem of hoItems1 1000 to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComChecked of hoitem4 to True
Send Destroy to hoitem4
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
145
|
How can I change the visual appearance of the check-boxes to be displayed in the context menu (ebn)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexCheckBoxState0 to |CI$1000000
Set ComBackground OLEexCheckBoxState1 to |CI$2000000
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "Check 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCheck of hoitem1 to True
Set ComChecked of hoitem1 to True
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "Check 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComCheck of hoitem2 to True
Send Destroy to hoitem2
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
144
|
How can I change the visual appearance of the tooltips to be displayed in the context menu (ebn)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance
Set ComToolTipDelay to 1
Set ComBackground OLEexToolTipAppearance to |CI$1000000
Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComTooltip of hoitem to "this is a bit of text to be shown when cursor hovers it"
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComTooltip of hoitem1 to "this is a bit of text to be shown when cursor hovers it"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
143
|
Is it possible to change the visual appearance of the buttons to be displayed in the context menu (ebn)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground |CI$2 to |CI$1000000
Set ComBackground |CI$3 to |CI$2000000
Set ComBackground OLEexMenuSeparatorSelectButton to (RGB(255,0,0))
Set ComBackground OLEexMenuSeparatorSelectButtonBottom to (RGB(0,0,255))
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPadding of hoItems to "4,4,4,4"
Variant voitem
Get ComAdd of hoItems "Button" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComShowAsButton of hoitem to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComEnabled of hoitem1 to False
Set ComItemHeight of hoitem1 to 4
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems "Button" 2 Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComShowAsButton of hoitem2 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems1
Get ComItems of hoitem2 to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems "" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComEnabled of hoitem3 to False
Set ComItemHeight of hoitem3 to 4
Send Destroy to hoitem3
Variant voitem4
Get ComAdd of hoItems "Button" 2 Nothing to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComShowAsButton of hoitem4 to (OLEexShowAsSelectButton + OLEexShowAsButtonAutoSize)
Variant voItems2
Get ComItems of hoitem4 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems2
Send Destroy to hoitem4
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
142
|
I've seen that the width of the tooltip is variable. Can I make it larger
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToolTipWidth to 328
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComTooltip of hoitem to "this is a bit of text to be shown when cursor hovers it"
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComTooltip of hoitem1 to "this is a bit of text to be shown when cursor hovers it"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
141
|
How do I disable showing the tooltip for all control (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToolTipDelay to 0
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComTooltip of hoitem to "this is a bit of text to be shown when cursor hovers it"
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComTooltip of hoitem1 to "this is a bit of text to be shown when cursor hovers it"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
140
|
How do I let the tooltip being displayed longer
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToolTipPopDelay to 10000
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComTooltip of hoitem to "this is a bit of text to be shown when cursor hovers it"
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComTooltip of hoitem1 to "this is a bit of text to be shown when cursor hovers it"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
139
|
How do I show the tooltip quicker
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToolTipDelay to 1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComTooltip of hoitem to "this is a bit of text to be shown when cursor hovers it"
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComTooltip of hoitem1 to "this is a bit of text to be shown when cursor hovers it"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
138
|
How can I get the version of the control I am running
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Showln (ComVersion(Self))
End_Procedure
|
|
137
|
How can I align the picture on the control's background
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\card.png`)" to vPicture
Set ComPicture to (vPicture)
Set ComPictureDisplay to OLEUpperRight
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
136
|
Is it possible to place a picture on the control's background
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\card.png`)" to vPicture
Set ComPicture to (vPicture)
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
135
|
How can I display the item using a different font/size
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCaption of hoitem to "<font ;14>This is a bit of text"
Send Destroy to hoitem
Get ComAdd of hoItems "<font ;6>This is a bit of text" Nothing Nothing to Nothing
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCaption of hoitem1 to "<font Times New Roman;22>This is a bit of text</font>. Default"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
134
|
How can I use the Event event, available for /COM version
// Notifies the application once the control fires an event.
Procedure OnComEvent Integer llEventID
Forward Send OnComEvent llEventID
Showln "Event" (ComEventParam(Self,-2))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Check" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCheck of hoitem to True
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Slider" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAllowEdit of hoitem1 to OLEexItemEditSlider
Set ComEditWidth of hoitem1 to 128
Set ComEditBorder of hoitem1 to OLEexEditBorderNone
Set ComEditValue of hoitem1 to 25
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
133
|
Is it possible to get notified once the user edits the field, or change the slider value
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln "EditChange event on Itm object"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditSlider
Set ComEditWidth of hoitem to 128
Set ComEditBorder of hoitem to OLEexEditBorderNone
Set ComEditValue of hoitem to 25
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
132
|
How do I get notified once I uncheck an item
// Occurs when the user unchecks the item.
Procedure OnComUncheckItem Variant llItm
Forward Send OnComUncheckItem llItm
Showln "UncheckItem event on Itm object"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCheck of hoitem to True
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCheck of hoitem1 to True
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
131
|
How do I get notified once I check an item
// Occurs when the user checks the item.
Procedure OnComCheckItem Variant llItm
Forward Send OnComCheckItem llItm
Showln "CheckItem event on Itm object"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCheck of hoitem to True
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCheck of hoitem1 to True
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
130
|
How do I get notified once I click/select an item
// Occurs when the user selects the item.
Procedure OnComSelectItem Variant llItm
Forward Send OnComSelectItem llItm
Showln "SelectItem event on Itm object"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
129
|
Does your control support padding for items
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComMenuAppearance to OLEexMenuNormal
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPadding of hoItems to "2,12,2,2"
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Set ComBackColor of hoItems to (RGB(255,255,255))
Set ComBackgroundExt of hoItems to "root[pattern=0x000,frame=RGB(128,128,128)](top[2],top[10,text=`<font ;6><fgcolor 808080> group </font></fgcolor>`,align=0x11])"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
128
|
How can I change the visual appearance for items, when cursor hovers it (hot,EBN)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComHotBackColor of hoItems1 to |CI$1000000
Set ComPadding of hoItems1 to "4,8,4,8"
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "[group=0x03][itemspad=4,8,4,8][itemsbghot=0x1000000](Item 1,Item 2,Item 3)"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
127
|
How can I change the background color for items, when cursor hovers it (hot)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComHotBackColor of hoItems1 to (RGB(255,0,0))
Set ComPadding of hoItems1 to "0,8,0,8"
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "[group=0x03][itemspad=0,8,0,8][itemsbghot=RGB(255,0,0)](Item 1,Item 2,Item 3)"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
126
|
How can I change the visual appearance for items (EBN)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComBackColor of hoItems1 to |CI$1000000
Set ComPadding of hoItems1 to "4,8,4,8"
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
125
|
How can I change the background color for items
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComBackColor of hoItems1 to (RGB(255,0,0))
Set ComPadding of hoItems1 to "0,8,0,8"
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "[group=0x03][itemspad=0,8,0,8][itemsbg=RGB(255,0,0)](Item 1,Item 2,Item 3)"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
124
|
How do I hide the left gray portion to be shown on the drop down menu/popup (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComFlatImageWidth to 0
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
123
|
How do I hide the left gray portion to be shown on the drop down menu/popup (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComMenuAppearance to OLEexMenuNormal
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
122
|
How can I arrange the drop down item from left to right, rather than top to bottom
// Occurs when the user selects the item.
Procedure OnComSelectItem Variant llItm
Forward Send OnComSelectItem llItm
Showln "Clicked"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComMenuAppearance to OLEexMenuNormal
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Button" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComShowAsButton of hoitem to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "" 2 Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComGroupPopup of hoitem1 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems2
Get ComItems of hoitem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems2
Send Destroy to hoitem1
Send Destroy to hoItems1
Send Destroy to hoitem
Variant voitem2
Get ComAdd of hoItems "" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComToString of hoitem2 to "Button[button=0x0113][popupapp=6]([group=0x03](Item 1,Item 2,Item 3))"
Send Destroy to hoitem2
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
121
|
How can I add a drop down button / combobox (method 2)
// Occurs when the user selects the item.
Procedure OnComSelectItem Variant llItm
Forward Send OnComSelectItem llItm
Showln "Clicked"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Button" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComShowAsButton of hoitem to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Button[button=275][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
120
|
How can I add a drop down button / combobox (method 1)
// Occurs when the user selects the item.
Procedure OnComSelectItem Variant llItm
Forward Send OnComSelectItem llItm
Showln "Clicked"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Button" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComShowAsButton of hoitem to (OLEexShowAsSelectButton + OLEexShowAsButtonAutoSize)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Button[button=0x13][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
119
|
I am using exShowAsSelectButton/exShowAsSelectButtonBottom but none of them works. What could be wrong
// Occurs when the user selects the item.
Procedure OnComSelectItem Variant llItm
Forward Send OnComSelectItem llItm
Showln "Clicked"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Button" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComShowAsButton of hoitem to (OLEexShowAsSelectButton + OLEexShowAsButtonAutoSize)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
118
|
How can I add a button (push button)
// Occurs when the user selects the item.
Procedure OnComSelectItem Variant llItm
Forward Send OnComSelectItem llItm
Showln "Clicked"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Button" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComShowAsButton of hoitem to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Button[button=0x03]"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
117
|
How can I display grouping items with no frame arround
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Horizontal Group" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexGroupPopupFrameThickBox + OLEexGroupPopupFrameSolidBox + OLEexGroupPopupEqualHeight + OLEexGroupPopupEqualWidth + OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "A" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAlignment of hoitem1 to OLEexCenter
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "BC" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComAlignment of hoitem2 to OLEexCenter
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "D" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComAlignment of hoitem3 to OLEexCenter
Send Destroy to hoitem3
Send Destroy to hoItems1
Send Destroy to hoitem
Variant voitem4
Get ComAdd of hoItems "" Nothing Nothing to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComToString of hoitem4 to "Horizontal Group[group=243](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])"
Send Destroy to hoitem4
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
116
|
How can I display grouping items of the same size/width/height
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Horizontal Group" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexGroupPopupFrameThickBox + OLEexGroupPopupFrameSolidBox + OLEexGroupPopupEqualHeight + OLEexGroupPopupEqualWidth + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "A" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAlignment of hoitem1 to OLEexCenter
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "BC" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComAlignment of hoitem2 to OLEexCenter
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "D" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComAlignment of hoitem3 to OLEexCenter
Send Destroy to hoitem3
Send Destroy to hoItems1
Send Destroy to hoitem
Variant voitem4
Get ComAdd of hoItems "" Nothing Nothing to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComToString of hoitem4 to "Horizontal Group[group=0xF1](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])"
Send Destroy to hoitem4
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
115
|
Is it possible to display a ticker frame arround grouping items
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Horizontal Group" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexGroupPopupFrameThickBox + OLEexGroupPopupFrameSolidBox + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Horizontal Group[group=193](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
114
|
How do I display items horizontally arranged
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Horizontal Group" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to OLEexGroupPopup
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Horizontal Group[group=0x01](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
113
|
Is it possible to expand an item when it is clicked (tree,group,vertical)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Expand" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
Set ComCheck of hoitem to True
Set ComShowPopupOnChecked of hoitem to True
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComPadding of hoItems1 to "22,0,0,0"
Variant voitem1
Get ComAdd of hoItems1 "Radio 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComRadio of hoitem1 to True
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "Radio 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComRadio of hoitem2 to True
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "Radio 3" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComRadio of hoitem3 to True
Set ComChecked of hoitem3 to True
Send Destroy to hoitem3
Send Destroy to hoItems1
Set ComChecked of hoitem to True
Send Destroy to hoitem
Variant voitem4
Get ComAdd of hoItems "" Nothing Nothing to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComToString of hoitem4 to "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=2][chk=1])"
Send Destroy to hoitem4
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
112
|
Is it possible to expand an item when it is clicked (tree,group,vertical)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Expand" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
Set ComCheck of hoitem to True
Set ComShowPopupOnChecked of hoitem to True
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComPadding of hoItems1 to "22,0,0,0"
Variant voitem1
Get ComAdd of hoItems1 "Radio 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComRadio of hoitem1 to True
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "Radio 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComRadio of hoitem2 to True
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "Radio 3" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComRadio of hoitem3 to True
Set ComChecked of hoitem3 to True
Send Destroy to hoitem3
Send Destroy to hoItems1
Set ComChecked of hoitem to True
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
111
|
Is it possible to expand an item when it is clicked (group)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Expand" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to OLEexGroupPopup
Set ComItemHeight of hoitem to 24
Set ComCheck of hoitem to True
Set ComShowPopupOnChecked of hoitem to True
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
110
|
Is it possible to extend an item when it is clicked
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Expand" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCheck of hoitem to True
Set ComShowPopupOnChecked of hoitem to True
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
109
|
Does your control implement padding for item
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComBackColor of hoItems to (RGB(250,250,250))
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComPadding of hoitem to "4,4,4,4"
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Item[pad=4,4,4,4]"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
108
|
How can I add an empty item for a horizontal group
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Variant voitem1
Get ComAdd of hoItems1 "" 2 Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComGroupPopup of hoitem1 to (OLEexGroupPopupCenter + OLEexGroupPopup)
Set ComItemHeight of hoitem1 to 12
Variant voItems2
Get ComItems of hoitem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voitem2
Get ComAdd of hoItems2 "" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComEnabled of hoitem2 to False
Set ComItemHeight of hoitem2 to 8
Set ComCaptionWidth of hoitem2 to 8
Send Destroy to hoitem2
Send Destroy to hoItems2
Send Destroy to hoitem1
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
107
|
How can I add an empty/separator item
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
Variant voitem
Get ComAdd of hoItems "" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComEnabled of hoitem to False
Set ComItemHeight of hoitem to 2
Set ComCaptionWidth of hoitem to 8
Set ComBackColor of hoitem to (RGB(240,240,240))
Send Destroy to hoitem
Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
106
|
How can I add an empty/frame item
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexGroupPopupCenter + OLEexGroupPopup)
Set ComItemHeight of hoitem to 12
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComEnabled of hoitem1 to False
Set ComItemHeight of hoitem1 to 8
Set ComCaptionWidth of hoitem1 to 8
Send Destroy to hoitem1
Send Destroy to hoItems1
Send Destroy to hoitem
Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
105
|
How can I specify the height of the item
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComBackColor of hoItems to (RGB(250,250,250))
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComItemHeight of hoitem to 64
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Item[height=64]"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
104
|
How can I specify the width of the item
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComBackColor of hoItems to (RGB(250,250,250))
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCaptionWidth of hoitem to 128
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Item[captionwidth=128]"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
103
|
How do I align the item
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComBackColor of hoItems to (RGB(250,250,250))
Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAlignment of hoitem to OLEexCenter
Set ComCaptionWidth of hoitem to 128
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAlignment of hoitem1 to OLEexRight
Set ComCaptionWidth of hoitem1 to 128
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems "" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComToString of hoitem2 to "Item[align=1]"
Send Destroy to hoitem2
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
102
|
How can I underline the item
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComUnderline of hoitem to True
Send Destroy to hoitem
Get ComAdd of hoItems "<u>Item</u>" Nothing Nothing to Nothing
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Item[und]"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
101
|
How can I show the item as strikeout
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComStrikeout of hoitem to True
Send Destroy to hoitem
Get ComAdd of hoItems "<s>Item</s>" Nothing Nothing to Nothing
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Item[stk]"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|