|
252
|
Hide the scroll buttons while keeping scrolling possible via drag and drop
Procedure OnCreate
Forward Send OnCreate
Set ComArrangeItemsAs to (OLEexArrangeItemsScroll + OLEexArrangeItemsHorizontal)
Set ComBackground OLEexScrollBackColor to -1
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 "File,Open,Save,Close,Edit,View,Print,Export,Import,Settings,Help,New,Delete,Refresh,Undo,Redo,Copy,Paste,Cut,SelectAll,Find,Replace,ZoomIn,ZoomOut,Sort,Filter,Sync,Backup,Restore,Lock,Unlock,Share,Download,Upload"
Send Destroy to hoItems
End_Procedure
|
|
251
|
Change the background of the scroll-buttons (EBN color)
Procedure OnCreate
Forward Send OnCreate
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 "gBFLBCJwBAEHhEJAAEhABFoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWCQCgkNgzSTAYyDLCIYhkGyPRiASQZUhmHIDTbIEBxfIMIxTBQZY7GGgpRjyGpGRjHc70QADFpoTKmabiab5HoSCZDRrPcgxeA0NAPEiPIypaoLDhaEQyDSJNj2TCIahhNSEbauCZYfoyXYDVpNMyVJJEExXFqXZhkO6rajmOZ1XpPUjUDS9LRxJiKaYCSwYDBbFIWWTZMS3ZhwASxHC8aRhG5wAxOA5fZTlcS5TSUKzXOYALQ2C4rNq+EZbZbpQAaJi2CRrPifZToKbxYDnEKqWBOcI7Vr0NaBPwaeDhHgugYLRcmSAA1BoXhslMX5ejibY8BsDJeF6FYjmWdyXnARAkiAaQxh0DonCMLh8AARoUhCCY/HiSJaBIKBCF2Jp1CABgRGAQZVF6CYSlCS4CGCOAqAyA5gmgKQJgMB74H+BRhHgWgYgYIJIE4Cgnk6M52CCCIiBiDgjgcUA4DIJoJGKSIQn2CgAAgMIcDoT5Yk4NYNCMaJaDCAwJPgfYPGOeJ6ECEAjjgKIPDeD5ZB4SYSCSKQqEUMpIGMYJ9hQZQ5EoVIVCScZwlAPxlikchbhcZZZDwcgyE+WYOGWGQmGmGhPBoDAjnYbIbiaWY+G+E5GAKcJ9h0Zx5loeIeCScRkjcPxnmoAh/iAaAZDwVAsk+WgegmIgoioKhPBWCxDnqENHBoToThOR4DByftYjoaocicJK7k0P4qCqEojikahZDyGA1A+aoui2KwqmqOhPCoTYTnqNODFqXo3hOSxTGye4vGuep6kCMAknKUJRDqbBrCKR4yGyGQ+BCAxtAsPQJDqWx0A0ASAgA==" to Nothing
Send Destroy to hoAppearance
Set ComArrangeItemsAs to (OLEexArrangeItemsScroll + OLEexArrangeItemsHorizontal)
Set ComBackground OLEexScrollViewBorder to -1
Set ComBackground OLEexScrollBackColor to |CI$1000000
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 "File,Open,Save,Close,Edit,View,Print,Export,Import,Settings,Help,New,Delete,Refresh,Undo,Redo,Copy,Paste,Cut,SelectAll,Find,Replace,ZoomIn,ZoomOut,Sort,Filter,Sync,Backup,Restore,Lock,Unlock,Share,Download,Upload"
Send Destroy to hoItems
End_Procedure
|
|
250
|
Change the background of the scroll-buttons (solid color)
Procedure OnCreate
Forward Send OnCreate
Set ComArrangeItemsAs to (OLEexArrangeItemsScroll + OLEexArrangeItemsHorizontal)
Set ComBackground OLEexScrollViewBorder to -1
Set ComBackground OLEexScrollBackColor 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 "File,Open,Save,Close,Edit,View,Print,Export,Import,Settings,Help,New,Delete,Refresh,Undo,Redo,Copy,Paste,Cut,SelectAll,Find,Replace,ZoomIn,ZoomOut,Sort,Filter,Sync,Backup,Restore,Lock,Unlock,Share,Download,Upload"
Send Destroy to hoItems
End_Procedure
|
|
249
|
The margins appear cut off when the control's content exceeds the viewable area
Procedure OnCreate
Forward Send OnCreate
Set ComArrangeItemsAs to (OLEexArrangeItemsScroll + OLEexArrangeItemsHorizontal)
Set ComBackground OLEexScrollViewBorder to -1
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 "File,Open,Save,Close,Edit,View,Print,Export,Import,Settings,Help,New,Delete,Refresh,Undo,Redo,Copy,Paste,Cut,SelectAll,Find,Replace,ZoomIn,ZoomOut,Sort,Filter,Sync,Backup,Restore,Lock,Unlock,Share,Download,Upload"
Send Destroy to hoItems
End_Procedure
|
|
248
|
Show scroll buttons to allow scrolling the content when it does not fit within the viewable area
Procedure OnCreate
Forward Send OnCreate
Set ComArrangeItemsAs to (OLEexArrangeItemsScroll + OLEexArrangeItemsHorizontal)
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 "File,Open,Save,Close,Edit,View,Print,Export,Import,Settings,Help,New,Delete,Refresh,Undo,Redo,Copy,Paste,Cut,SelectAll,Find,Replace,ZoomIn,ZoomOut,Sort,Filter,Sync,Backup,Restore,Lock,Unlock,Share,Download,Upload"
Send Destroy to hoItems
End_Procedure
|
|
247
|
How can I replace or add an icon at runtime
Procedure OnCreate
Forward Send OnCreate
Get ComReplaceIcon "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+OkYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==" Nothing to Nothing
Get ComReplaceIcon "C:\images\favicon.ico" 0 to Nothing
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 "Item[img=1],Item[img=2],[sep],Item <img>1</img>,Item <img>2</img>,[sep],Item <img>1</img>[img=1]"
Send Destroy to hoItems
Send ComRefresh
End_Procedure
|
|
246
|
Display a custom tooltip
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Send ComShowToolTip "new content" "" "+8" "+8"
End_Procedure
|
|
245
|
Shows the tooltip of the object moved relative to its default position
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Send ComShowToolTip "<null>" "<null>" "+8" "+8"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
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 "ToolTip" 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 that should be shown when cursor hovers the item"
Send Destroy to hoItem
Send Destroy to hoItems
Send ComRefresh
End_Procedure
|
|
244
|
ImageSize property on 32 (specifies the size of the control' icons)
Procedure OnCreate
Forward Send OnCreate
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
Set ComPopupFlatImageWidth to 32
Set ComPopupAppearance to OLEFlatBorder
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 "Item" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComImage of hoItem to 1
Set ComCheck of hoItem to True
Send Destroy to hoItem
Get ComAdd of hoItems "" 1 Nothing to Nothing
Get ComAdd of hoItems "Item <img>2</img>" Nothing Nothing to Nothing
Get ComAdd of hoItems "" 1 Nothing to Nothing
Variant voItem1
Get ComAdd of hoItems "Item <img>1</img>" Nothing Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComImage of hoItem1 to 1
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 "Popup[img=1](2[img=2],3[img=3])"
Send Destroy to hoItem2
Send Destroy to hoItems
Send ComRefresh
End_Procedure
|
|
243
|
ImageSize property on 16 (default) (specifies the size of the control' icons)
Procedure OnCreate
Forward Send OnCreate
Set ComImageSize to 16
Set ComPopupAppearance to OLEFlatBorder
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 "Item" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComImage of hoItem to 1
Set ComCheck of hoItem to True
Send Destroy to hoItem
Get ComAdd of hoItems "" 1 Nothing to Nothing
Get ComAdd of hoItems "Item <img>2</img>" Nothing Nothing to Nothing
Get ComAdd of hoItems "" 1 Nothing to Nothing
Variant voItem1
Get ComAdd of hoItems "Item <img>1</img>" Nothing Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComImage of hoItem1 to 1
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 "Popup[img=1](2[img=2],3[img=3])"
Send Destroy to hoItem2
Send Destroy to hoItems
Send ComRefresh
End_Procedure
|
|
242
|
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
Set ComToString to "Mask[edit=98][editwidth=-128][edittype=2][mask=00000],Mask[edit=98][editwidth=-128][edittype=2][mask=00000;1]"
End_Procedure
|
|
241
|
How can I generate/create a progress/step bar for installation
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAEhABfQCg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGIaRWgmFgAQhFcZQSKUOQTDKMIziYBYJhEMgxDREIwjEKEIhoGQcJAGQBJCjWGodQLOEgwHIERQjEyUpIgFBIYhzEAZJ5jOioaBOCY0TxCNCQG5oOBIACqariagBUoKUwADCNdIVfIUQBFDYZabjeooJpmWJWRbJQyiLaVaQSGoYLqgO6LajWIJORpZcB1BK2Cy5FSWJamCYpEwXBY6TpIFKXDIsOSDIqvaKpDI4WxMH4JYELOy4aYPJgAaYweSTTi8CYzMSOLIpOCcCADH4DWjAeh1DAdPzdNytY4uO5YRrzRZ5RDZOgQTq4AZrXbHJpwehZMwyDmEwMmieBch4ExDk2Cxvi4HAMi6MhTlQGBrnsA4dhQapNGqXBzCMfgaj+DgHkSYRfHiVx+EeSxIAAaBYEaVZfHQXpXngCBCEUAYkGMHQHFGSBlEGUISCgFRAkQIQ2BIRoRFQDAoEIW4WgkawGBEcRSBOAQQhaJgmgmYoIiYKoKmKSI2C6C5jAiLAkAcDpYk4NYNCMaJmDiDpjHidg6g+IxIhYMYQmQSQWEaEZiHifhKg8JI5AIToNiQKQiFKFJlEkGhNhWZJJGYT4QFAORWF6F5mAkJhahYJY5hYUBAmOeI4n+GpmkmNhuhuZwJkYcocmcSZWG+C4mEmZhjg8EIZDYaodigCgGgKIJnBmYh7hmKB5hwAIZCeegSg6I5pAmNoGiIKRIn4fYiGMSg2hGJppkmVoTh6KRKF6FYmGKWh2iaKZnHiNoghkKgqi6JILTKRonieaYJDqLYtGaGoWjKLppBqUojDsax6n6OYsCuSwWgSL4qkmIo4i0aYrBqTodCyCRqkGK4mFsNpPjWaoYjLlRsjsCovgqbYLgYcI0GxhZejmbRrgqWIvi0Ox2lSOhuisPoTjsbh7j6Oo8G4KI6nSNQvGsEp4jgb4rhqfI7i2eIqn+Phqikcpcj0bZbkMB4um6TALASJQwmwPoxjkL48E4NpFHEapPAmGRxhuIp3kcbBbhKFpEjCQ43BySQpkzjZKC+W4DCySRxnsUwhh+Mg8k8F5NHEPJeDySpzioPwui+c5sisOZQGobQPDaTAzn0HxIksc5MicJ5CmwPJLE+R4tiwao1jAdANF6AZSjWKJ2iKGB2E2FhFkCcoZEcZpanaSM7FucItjccpbDcDRLAoHUXIKANACICA" to Nothing
Get ComAdd of hoAppearance 1 "CP:2 -8 0 12 0" to Nothing
Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABNoDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGIaRWgmFgAQhFcZQSKUOQTDKMIziYBYJhEMgxDREIwjEKEIhoGQcJAGQBJCjWGodQLOEgwHIERQjEyUpIgFBIYhzEAZJ5jOioaBOCY0TxCNCQG5oOBIACqariagBUoKUwADCNdIVfIUQBFDYZabjeooJpmWJWRbJQyiLaVaQSGoYLqgO6LajWIJORpZcB1BK2Cy5FSWJamCYpEwXBY6TpIFKXDIsOSDIqvaKpDI4WxMH4JYELOy4aYPJgAaYweSTTi8CYzMSOLIpOCcCADH4DWjAeh1DAdPzdNytY4uO5YRrzRZ5RDZOgQTq4AZrXbHJpwehZMwyDmEwMmieBch4ExDk2Cxvi4HAMi6MhTlQGBrnsA4dhQapNGqXBzCMfgaj+DgHkSYRfHiVx+EeSxIAAaBYEaVZfHQXpXngCBCEUAYkGMHQHFGSBlEGUISCgFRAkQIQ2BIRoRFQDAoEIW4WgkawGBEcRSBOAQQhMbIkA6IhoiIJ4KGKSIuC6CojAiNgxguYwolYNINmMOJmDaDojgiJAkAcDpYn4QYQCQKQWESEZkDkJhGhKJAIhYPYTmOSRGDuFJlAkUhShUY4JC4WoSCWOQyF6EIkmkXhihWJhJGIY4ZiYWJCF2GplkmNhfhMUA5iYcoaCcSYeHaHJDimMhvh6Z4kCYSxqGgCgEngO4NioDoFiEKBqCaCIimgeg2gqI4okoPtHGkShChaIBpgMDh6iaZppC4fobimGgKhXVBqhKJoomqCoWimIYqBoAoch8KZZkAAIeiqVomieKorgqXo6iqa5KDaNRpiqewGjKK5rnMDo7i4a5bB6SovGwWwKjAOxpnsPhCjEbI7CKVo1G2Cgyk2LBtCsDpchcbRLCaYo1m4OxklqNptlkepRjOLQ6n6Zo7m4W5Gj6L5ukseppjgLprkqcI5C+SoSmiK5ujsfwCDsbgbnaepBnAa5OjWQAQDuVpPkEb48EcCI/i8SxzAGPZwDwQwTkacIal6f4SDEfA6jSPhxw6EouDGexDA2QJyCkIwakkcwMh8FJCm8bI3BiQQyEzo5HCwXIHCyT5lmyPw6kwc5Kn8PpNmwTJnDuUQ0kqMwVkqKw9AMDpQjSPQOlWSh0HyWpti0dRtFcCJKGYDIvEiNw1E0NxekIdgMgMYpWiQDYXF2WYvk2JpqlqdQsjsJUXAbR9C+E+IYNQOwPBxFcGwfYzRji5CeLsUo0xbhwB4E0F4vR3C6EKJ0YgbwOBWDOFYdonA7AzF2PALgjRWjCDiLoZw2xmByC6A4Coyg4i8BcPsH49AODXBmMkagPBWC7EWPIDoXwKjODeNQewxQxD3A6M8Oo3R7idHWFMa4YA0BPD6OEfAngXiNG+PQXwThQjjHyJ4N4nRyB2F8FICQdRcgoA0AIgI" to Nothing
Get ComAdd of hoAppearance 3 "CP:4 -8 0 12 0" to Nothing
Get ComAdd of hoAppearance 6 "gBFLBCJwBAEHhEJAAEhABFIDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGIaRWgmFgAQhFcZQSKUOQTDKMIziYBYJhEMgxDREIwjEKEIhoGQcJAGQBJCjWGodQLOEgwHIERQjEyUpIgFBIYhzEAZJ5jOioaBOCY0TxCNCQG5oOBIACqariagBUoKUwADCNdIVfIUQBFDYZabjeooJpmWJWRbJQyiLaVaQSGoYLqgO6LajWIJORpZcB1BK2Cy5FSWJamCYpEwXBY6TpIFKXDIsOSDIqvaKpDI4WxMH4JYELOy4aYPJgAaYweSTTi8CYzMSOLIpOCcCADH4DWjAeh1DAdPzdNytY4uO5YRrzRZ5RDZOgQTq4AZrXbHJpwehZMwyDmEwMmieBch4ExDk2Cxvi4HAMi6MhTlQGBrnsA4dhQapNGqXBzCMfgaj+DgHkSYRfHiVx+EeSxIAAaBYEaVZfHQXpXngCBCEUAYkGMHQHFGSBlEGUISCgFRAkQIQ2BIRoRFQDAoEIW4WgkawGBEcRSBOAQQhAVJCCWIhoiIJ4KGKSIuC6CojAiNgxguYwolYNINmMOJmDaDojgiJAkAcDpYn4QYQCQKQWESEZkDkJhGhKJAIhYPYTmOSRGDuFJlAkUhShUY4JC4WoSCWOQyF6EIkmkXhihWJhJGIY4ZiYWJCF2GplkmNhfhMUA5iYcoaCcSYeHaHJJGmMhvh6Z4kCYSxqGgCgEn+IJoEoFoGiGaIKCaCoimiSg2geIBpAMDh6iSZppC4fobikGgKg6JppkodoeiIaYaAKFIfCkWZAACHoqBaJofiqapKjaD4qGkKoWiSHppHqTowDCapqmaOonCses9C0ag6l6O4wmwSo+imL4rCsAoyh+awLBaToxCuWwukkQJsgkepCjObYKjqUYsmkaxSlKLYslsZpiiebY6n6Xo3C2exemOOpomuFpTimbZ7Faao7C8SoCjCHxua4QY4G8W52gaO4khsKpokCZArk6fo/jADAKnqPBkAwGwHj0bY8CsDJBCSDA7A+OwrHwSwUkacRsamRhvhwTwLDscZcHqWZEHIHBunuKhyGudwJkocg5HcJZLGybACGCTAyCoYp8k0MZ7l6b5MHO/w8jqcxpjsGo8jOPVAFEaxMmMA5MnSKvlD4LwMHMSZUGwXROl+UZ0BqBxYkmc5sioSJXCSHRDF+Kw1iwbxklmNh7hMYZQCWbBrGyWxpl2JxwkCG4PYpQbi7DODsRozwtjwRGAUYI8BOArCmLgLQqAngNGKPETgbwOjDHeLsXQBxjjyE4K8FoyA2BcGcG4AAHQ3BKKUIAgI" to Nothing
Get ComAdd of hoAppearance 5 "CP:6 -8 0 12 0" to Nothing
Get ComAdd of hoAppearance 8 "gBFLBCJwBAEHhEJAAEhABSoCg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGIaRWgmFgAQhFcZQSIEEhHBKMYwjOJgFgmEQyDCNAEwXDSEQ0DIOEgjGAkRxtDQZIRnGA5BiGI4RSbKMgwPBIZxCGSfIzpGKqAiCN42UCNFByXAgbyPKibJBBeK4dgOEYhVg7IaCIAFRTJCyTRpEWybLgkNQwWzAdr3DTMTQ3LavKbvKoaYi2L4xSCNEi3VK8dwlJyeKbpWA5IpKCZEQLRU5UXC+KA/OyBY7xHBIXpGU6PVZOVYSHTUE4vAauQAzKQoDqGY5la7aE5WVZkIznWy4Ih0TMcTgBPDVM4qCapJr3DqRRDKMxUfimF57J5hehADoWDw7kSFRLDsFReEiUBxiOJRCHgEQdE6egti6MhZjqWJNiaTppjeNxuGMdYJP+AZlmERb8hARAkiAaQYkcQZUHIGRZIOVgDFAMQIE2AZRiQVQDAoEZEHkTgGBEcICAgfiDlSQgliGKByBuBxiSSIoHiISIGCWCJiGgdAkAcDpYi4LYLCKaJGDCDJiniVgyg2IpIiYKIOmIeJ2DqD4iDiXhCg0JA4mIRoLiOeQmDyEokAidhFhOZBJEYR4OGSORWE2EwkkkQhThaZYnFIXh0E+eYGGKGJmEmFhmhmZZ5iSQ4WiaSRKDeGomAmHhyhyZxJkIXobGWSY6CyHYnEmdh+hkZxnFIeIgmeOZCH+IZogoBZRiEJ4TjYfIiCkCZ+gqGpnioNguiOaQaGYfYkmiSY+gaJoqAoboKicaBZiqIYpmoKgGgyJgqgqNhoiiaRaF6H4risSo+iqJRqkqVo6hkKZJEqOYumwCYKj2DRrnsBpGD+bA7BaR4xmkOwqkuMBslqTpPjGLIbEqU4tGwOpKiaNZrEsZg0jOLZKB6XoRi4C4GHOOJkFuFpmi8KwKFqJYaG6OomHaKQomsWpxjCLpblK9F6kaPo9i2S52m6OQwAsLwCj0LYrkKV5Bm+ag2nuKZwkwDhdjQcRMFYcJCDCWh7BaRptBwYwSjecZMgcF5GHITAMmsboQDQBCAg=" to Nothing
Get ComAdd of hoAppearance 7 "CP:8 0 0 12 0" to Nothing
Set ComRenderType of hoAppearance to -2130772226
Send Destroy to hoAppearance
Set ComLocked to True
Send ComImages "gBJJgBAIEAAFAEGCgAhb/hz/EIAh8Tf5CJo2AEZjQAjEZFEaKEaj8ZAIAEEbjIylErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx2PyGRyWTymVy2XzGZzWbzmdz2f0Gh0Wj0ml02n1Gp1WOh8Sh1q1ux1+yf9m2mu2tx1tp2+81+638w3ds4dn3vE2fBu/FrW353J3Nk49z5lt6tc68r7Ni6dy7e+6Nf78a8fi6F68u25Ve7fprPP8Pq+Mt91U9P1q/w2Hn63n/Dmv89b+vm1cCwNA8EQTBUFwYtyLB8lkII8kCRI0kqSo2cEMJy/8Grsf5+Aef5gRBERgIyf5/REcEUxXFEVH/FkYHBFB/xEeCHRujJ8A8R5AnRHkfHQjJgACdgAA9Isjg8jJAACfAAA/J0oA/JsnyjKcoytKksyqjR4AAB6MzBMUvzDMczzNMsyI3NgATdNE1zTOM6ABLsuy3LEry9O89yIAZ+AAH5gUBQUdg+f5An+fFEUUjKAgA=="
Send ComImages ("gBJJgBggAAQAAgACkKAD/hz/EMNh8TIRNGwAjEZAEXjAojJQjMLjABAAgjUYDMnlUrlkZQcZZ8ZVkymkYVMZOUtjB1moAmcYn8+mEZQk6lsvjExoE9oM3jE5nU8pdToVUpQAotGldIAFXoNfjNOAFQltSqtnsFJolardDqlpAFiskss1wuFXrNsjRojJ/jIkv+BjBpnFGsxrwQAwEYxYAQEZwl6vd9xONxuRseGjOIxmVjOPweSycYv2d02KyGFqObz2n0AAzGivmk1uo0NPzUYzm23mN1+xyRhjJqyRY1VljJayRsjJj0UZ4UY4l64241cY5V65kY53PAHRAHTtnVzPXAHZtnbAHd5/g8Va8lzldm9Fa9Xs0Xu4vHunJ5bmu877hv26zkOw/7uQC/TqP4+b/O1ADvQW8cGpU+kEPXBUBr0LjPoyDUPpcjIvQw/Dgw2tkOow18QIxFoAK5EkIQTCUUK1FTHRDF0RIxGT0wi9sbKNHEWR1GERxLDTpMkOiMmUjJPSgjJloyO0kxrJa9SajEnoxKMvSnKsryDLK2S2AEugBL81TCjErRnDMsPDJknSlMCMSpN0xvzISdA+jKOAAFaM0GjFAz/OETL1CatUQjdCUhQyM0c+0gT5MtG0BSNBU0jFKKM+8lTmvVHUDQtOUlT09xPTEA1cljZgAL9RPfV9bNHWVaVvXdcVnOVa15V9Y18locIyCaMicjIo2DXgioyIljoyG6M2MjFkIxZSMWZZtb2ejFo2vadq2lbNl27b1oXKAFqIxawAWwAFtABbl0Vdb4AXDeFxowUSMiOjIWoyDl7Veg6MAujIkIyT6M38jGAIxgSMYJgsA4OAGEoxhaMYbft/4DgeLYujONABjgAY8AGHgBiIAYmAGK5G0WMZNlGVBUjJGozHAMZm54LIyLedIyE6M5yjGdoxnuftFoKMaHpOi6Pomlozn2mr1p4AaiAGlABoyMaRr2eavrOtaFquwIyBCMh2jI2ugjKUpHn6SJQjIxbgjIdIyA+2bdvaMPBugAbvkfD8LvSMbijG+oxv6MbajG38ZuW8brmfE7zwQAceAHIgByYAcqAHGwFzHDbtufOctx2/JX0YgxRYgNoyA1m9xiiM2IzAgcAnXZdojPbIx3VeePmXeoz3/JKN4Uy9r2/c5EjHlox5vReejPZ+j4np2D5PeNT7HgLZ0PPteKqMpNyEA9D9oACujJIIyJqMgl9++Q8jH1ow/F0Jon4EZfmRh+pGH7kYfyd59D/AAP+JK7CBj7ICP0fs/h/Tr0VkZghACDMESMQFABAcAECQAQLVeQkjAJWGIPAAo5jBLGMKOa6ywMq5yMAsVvCoAELGOwuhgUaGbaWPkYhutsjMOlbQ8h8ymIBGYYkriG1BhxGYjr0iTDsjMTWVHoiCTqKbXIqxGhwACJSvHQgiIyHqK0WyjRNiuHmNxGAnkZCoRkF6zY0xrjbCuN8fQARyj9HSO0eI9EZjURiNkZJBktjgRmQUPSMx1IxHcjEeVgx7kVICJpLJHkYkjE2SgAJLAAkwugAZGQZJADMyEjALiMhngcHwjIbyMiVIyG4jIMGCypIxKtGgAJWsSIzLAjEsoNkYloRiWxGJcEYl0RiXi9pfAAmAnGYUrgATGABMhHMypay3lzLuXsqpWTam5N418ywATNABM8AE0QATTZGxgGsgHTuniuSAjARnLztYU99mc9p8Odn2Rmfzg5wsboFPUjM95GOmoMR+hE/53MoeLQ4jFEAARXnzICfgAKEuooBQwjFGWmuHBSRkP1LCM0rcy2dANKqXEYpaRimDqqZUzpfTUAFNwAU5cPTs0VNKbU+qFURYLGIo1KW7UypzFqoVRXtVNmZFQfErqyR2ihGCROqqGAAeCtyHgAGAGAPgBgD1nrS5EZwbw+DmHvW+uI9yMV0rlXiuwAK9V6rvXCvNgK9jOAeHwcFc7C2HKSP8Pg/x7jPsZY6xdjbH2Rr3ZCylmLJAAAeP8QA/x8Wds+PgjFnSGjwtMP+sYABDj+AwH8cNrbXjhIxbK2FtraA" + ;
"AGGPwPgPxj27t6McjA8R4B/A+Ae4lxnIj4DAH8QwB7mXOciPwAAfxgAHupda6d1br3ZuuRgf1nRwD/vCP+8ZGB/ifH+Pkh16r2EYICA==")
Send ComImages "gBJJgBggAAQAAgACkKAD/hz/EMNh8TIRNGwAjEZAEXjAojJQjMLjABAAgjUYDMnlUrlktl0akQAGMZI80jMzjExl87nk9n0/oFBoVDolFo1HpE9B0ZJcZSkZYEZaUZa9UqVQp1MjNLpNdr1fsFhsVjsAFjItjJ5jK4jK2jKejKDjJxudxt9ttdps8Zs1kv1/wGBwWCtEYPcZY15jB3jI/jIajIHyOPxsZxkYtkYxOGveDz2f0Gh0NcAFqjDHjKyjI9rdd0msjGq096jGk0W33G53U8JkZXOKAGwAAGv3EjHCzIA5NN3fN53P0NPjC3y2tnsHjAJo2ky4A6kY6XQ8Xj8lGCsZX93jBAnwkjJbjKBjI6jIPoXsjFwjHpjAT8r/wBAKThkjJprsjDIJclKMDUjJeIybaMkwjL8AA+yewSAC5IwqaMBhAUQRC6AkIybCMjkjIEJeJqMlbAqMlQjJ0IySyMh8yaXRUjEUIwqqMCNEUgyE0USIxE0dxSl4ZoyKaMyAjCTIwQ6MmgjJRIyHaXx0AEeABHwASfIcxTGskCIxAyMQ2AEMpZC4AAsjIIIyhKMBNA4AFKjI6JfDM1Q6AEPzJQVBqS879vUAEKq9QIACojIkpfCr9AA/iGUJS9MKI8LvgA7oGtA7iM048NM1LUyet6jDfumjIeIy4yx1g4VOOXU9bVuljSNMADNgA2TguspDXtSxDaAA21cWTZLCgAPiMtQzDqowx0ERwADJWradpOVYrOIxZllXDZS+gAFyMj031RURNS6IxdsNURTlVtKzoAXJcV8Xy0lUgASqsQ4q0equjCooxfyMX5ZF84Xhid0MmSbIwmqMJwAGH4bjFTorG6VY4ACPIwkCcoykiSI0eCjIeAB/AflCWZRlyV5glqojglpBn5OSWEOf2dJWR5f58lWgaEk4HA+lwGTclYGCGlwHnHp+opaR5/6KjWeauuOc5oAGbJZmqW5mlmWZilSAgA=="
Send ComImages "gBJJgBggAAQAAgACkKAD/hz/EMNh8TIRNGwAjEZAEXjAojJQjMLjABAAgjUYDMnlUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpE5g8YCcZBMZpc1qNPjASqFJrFZrVbrlYBUZH8ZKcZHcZC0vC8ZHtitVOrtvuFxuVzjARjJsjLHjKpjJZjIfjMmjBbjKtvMZM8ZCF0xmNx2PnALjJFjLMjL4jLjjK8jLAjLky8ZZcZIEZr+Q1Gp1WOAsZD0ZYcZf0ZfMZd8ZeG02UZYUZDcZhOr4XD4lIqIOjK6jL63cY2fO5oA2sYW8ZBkZknF7Xb7k0qN2jGUjF6jHTAHP8/R9GYjDEjJCjIPq/d+n14nZAHgABEjLIjJ4vVALoQGADcva0jFOw+0FwYujFowLSMmajJ6oyfkBPTAj0PRC6MQqjBlIyK74wbEsTK0iKMDIjJZNEjJtoydyMn3DDmIwdiMm0jMQowWKMjCv8TyFIahgqjIarYjAvoyNaMkyjJpQwaCMksjI1IyLyMikjIZpDIkvzArgaIyScZzMjBHoyGMwzZNrHtOAAsP/GKMiqjIDzdPM9Le/EkIwUyMlCjMxpHPdDUOrMjIw/iMCDL1EUhSKigG6yMskjFKUlTVN05TtPU/UFQqwiofJXUqOo/R4AJI/CMQMnKHolV6VIdWaT1qlp8njWyNHwANeMvX6W19YCMWJYdhJY3NigAzw4JbZ1oABZ6WH8B9mWtZh/k/bVuJbbdtH/cNmICA="
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 (OLEexGroupPopupEqualHeight + 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 " <img>5</img> Home" Nothing Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComBackColor of hoItem1 to |CI$7000000
Set ComItemHeight of hoItem1 to 36
Set ComAlignment of hoItem1 to OLEexRight
Set ComForeColor of hoItem1 to (RGB(128,128,128))
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 " <img>6</img> Gebaude" Nothing Nothing to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComBackColor of hoItem2 to |CI$5000000
Set ComAlignment of hoItem2 to OLEexRight
Set ComForeColor of hoItem2 to (RGB(128,128,128))
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 " <img>6</img> Aussttung" Nothing Nothing to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComBackColor of hoItem3 to |CI$5000000
Set ComAlignment of hoItem3 to OLEexRight
Set ComForeColor of hoItem3 to (RGB(128,128,128))
Send Destroy to hoItem3
Variant voItem4
Get ComAdd of hoItems1 " <img>3</img> Produkt" Nothing Nothing to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComBackColor of hoItem4 to |CI$3000000
Set ComAlignment of hoItem4 to OLEexRight
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems1 " <img>4</img> Rabate" Nothing Nothing to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComAlignment of hoItem5 to OLEexRight
Set ComBackColor of hoItem5 to |CI$1000000
Set ComEnabled of hoItem5 to False
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems1 " <img>7</img> Ergebnis" Nothing Nothing to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComAlignment of hoItem6 to OLEexRight
Set ComBackColor of hoItem6 to |CI$1000000
Set ComEnabled of hoItem6 to False
Send Destroy to hoItem6
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
Send ComRefresh
End_Procedure
|
|
240
|
Is there any function to retrieve all available shortcut keys
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexShortcutKeyBackColor to (RGB(0,0,1))
Set ComBackground OLEexShortcutKeyForeColor to (RGB(255,255,255))
Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
Send ComRefresh
Showln (ComShortcutKeysInfo(Self))
End_Procedure
|
|
239
|
How can I display shortcut keys with a different size
Procedure OnCreate
Forward Send OnCreate
Set ComShortcutKeyFormat to "`<font ;14>` + caption"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+SHIFT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "33+3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
238
|
How can I display shortcut keys with a different font
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexShortcutKeyBackColor to (RGB(0,0,1))
Set ComBackground OLEexShortcutKeyForeColor to (RGB(255,255,255))
Set ComShortcutKeyFormat to "`<font Stencil>` + caption"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+SHIFT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "33+3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
237
|
How can I change the visual appearance of the shortcut keys (sample 3, theme)
Procedure OnCreate
Forward Send OnCreate
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 "XP: Button 1 1" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexShortcutKeyAppearance to |CI$1000000
Set ComBackground OLEexShortcutKeyBackColor to (RGB(0,0,0))
Set ComBackground OLEexShortcutKeyForeColor to (RGB(0,0,0))
Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "33+3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
236
|
It is possible somehow to show all available shortcut keys (sample 2)
// Occurs when the user selects the item.
Procedure OnComSelectItem Variant llItm
Forward Send OnComSelectItem llItm
Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
Set ComShortcutKeyFormat to "`<c><font ;6><fgcolor 808080>` + sca + `</fgcolor></font><br><c>Key:` + keys"
Set ComShortcutKeyPressedModifers to OLEexModifierAny
Set ComShortcutKeyFormat to ""
Set ComShortcutKeyVisible to OLEexShowShortcutKeysToggleDelayed
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+CTRL+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+SHIFT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "33+3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
235
|
It is possible somehow to show all available shortcut keys (sample 1)
// Occurs when the user selects the item.
Procedure OnComSelectItem Variant llItm
Forward Send OnComSelectItem llItm
Set ComShortcutKeyPressedModifers to OLEexModifierAny
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "33+3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
234
|
How can I show the shortcut keys semi-transparent
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexShortcutKeyAppearance to (RGB(0,0,0))
Set ComBackground OLEexShortcutKeyBackColor to (RGB(0,0,1))
Set ComBackground OLEexShortcutKeyForeColor to (RGB(255,255,255))
Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
Set ComShortcutKeyTransparent to 50
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "33+3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
233
|
Is it possible somehow to display ID of each item
Procedure OnCreate
Forward Send OnCreate
Set ComDebug to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "33+3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
232
|
How can I change the visual appearance of the shortcut keys (sample 2, EBN)
Procedure OnCreate
Forward Send OnCreate
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 OLEexShortcutKeyAppearance to |CI$1000000
Set ComBackground OLEexShortcutKeyBackColor to (RGB(0,0,0))
Set ComBackground OLEexShortcutKeyForeColor to (RGB(0,0,0))
Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "33+3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
231
|
How can I change the visual appearance of the shortcut keys (sample 1)
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexShortcutKeyAppearance to (RGB(0,0,0))
Set ComBackground OLEexShortcutKeyBackColor to (RGB(0,0,1))
Set ComBackground OLEexShortcutKeyForeColor to (RGB(255,255,255))
Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "33+3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
230
|
Can I show the shortcut key right after the item so it won't overlap it (sample 2)
Procedure OnCreate
Forward Send OnCreate
Set ComShortcutKeyExtPaddingH to "16 + width/2, 16 + height/2 ,16 + width/2,16 + height/2"
Set ComShortcutKeyExtPaddingV to "16 + width/2, 16 + height/2 ,16 + width/2,16 + height/2"
Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "33+3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
229
|
Can I show the shortcut key right after the item so it won't overlap it (sample 1)
Procedure OnCreate
Forward Send OnCreate
Set ComShortcutKeyExtPaddingH to "width/2, height/2 ,width/2,height/2"
Set ComShortcutKeyExtPaddingV to "width/2, height/2 ,width/2,height/2"
Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "33+3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
228
|
Can I specify padding for shortcut keys (sample 2)
Procedure OnCreate
Forward Send OnCreate
Set ComShortcutKeyPadding to "8,8,8,8"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "33+3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
227
|
Can I specify padding for shortcut keys (sample 1)
Procedure OnCreate
Forward Send OnCreate
Set ComShortcutKeyPadding to "0,0,0,0"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "33+3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
226
|
Is it possible to specify where the shortcut keys should be shown
Procedure OnCreate
Forward Send OnCreate
Set ComShortcutKeyAlignH to OLEexShortcutKeyUpperLeft
Set ComShortcutKeyAlignV to OLEexShortcutKeyLowerRight
Set ComShortcutKeyVisible to (OLEexCloseShortcutKeysOnClick + OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "33+3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
225
|
Can I use different shortcut modifier keys for items
Procedure OnCreate
Forward Send OnCreate
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT + CTRL + 1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "CTRL + SHIFT + ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "3 + 33"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Get ComAdd of hoItems "" Nothing Nothing to Nothing
Get ComAdd of hoItems "Press <b>CTRL or ALT" Nothing Nothing to Nothing
Send Destroy to hoItems
End_Procedure
|
|
224
|
How can I disable a shortcut key
Procedure OnCreate
Forward Send OnCreate
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComEnabled of hoItem2 to False
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "3 + 33"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
223
|
I have noticed that the shortcut keys are still visible while I clicking the control. Is it possible to hide them as soon as user clicks anywhere
Procedure OnCreate
Forward Send OnCreate
Set ComShortcutKeyVisible to (OLEexCloseShortcutKeysOnClick + OLEexShowShortcutKeysToggleDelayed)
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "3 + 33"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
222
|
I have a shortcut that's not currently visible, the question is if I can invoke somehow
// Occurs when the user checks the item.
Procedure OnComCheckItem Variant llItm
Forward Send OnComCheckItem llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComShortcutKeyVisible to (OLEexAllowShortcutKeysIfNotShown + OLEexShowShortcutKeysToggleDelayed)
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "ALT + 4"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Get ComAdd of hoItems "press ALT + 4" Nothing Nothing to Nothing
Send Destroy to hoItems
End_Procedure
|
|
221
|
Can I specify a longer delay to display shortcut once the user presses any modifer keys
Procedure OnCreate
Forward Send OnCreate
Set ComShortcutKeyVisible to (OLEexLongerDelayShortcutKeys + OLEexShowShortcutKeysToggleDelayed)
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "3+33"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
220
|
How can I display extended shortcut keys
Procedure OnCreate
Forward Send OnCreate
Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "333"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
219
|
Is it possible to disable the shortcut keys, whithout changing the Shortcut property
Procedure OnCreate
Forward Send OnCreate
Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexDisableShortcutKeys + OLEexShowShortcutKeysToggleDelayed)
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "33+3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
218
|
How can display the shortcut keys only when modifier keys are pressed
Procedure OnCreate
Forward Send OnCreate
Set ComShortcutKeyVisible to OLEexShowShortcutKeysPressOnly
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "3+33"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
217
|
How can I assign a shortcut key to an item
Procedure OnCreate
Forward Send OnCreate
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPopupAppearance of hoItems to OLEShadowBorder
Variant voItem
Get ComAdd of hoItems "" 2 10 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 "Item 1" 0 20 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCheck of hoItem1 to True
Set ComShortcut of hoItem1 to "ALT+1"
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComShortcut of hoItem2 to "ALT+2"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComShortcut of hoItem3 to "ALT+3"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComRadio of hoItem4 to True
Set ComChecked of hoItem4 to True
Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
Set ComShortcut of hoItem4 to "1"
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComRadio of hoItem5 to True
Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
Set ComShortcut of hoItem5 to "2"
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadio of hoItem6 to True
Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
Set ComShortcut of hoItem6 to "33+3"
Send Destroy to hoItem6
Send Destroy to hoItems2
Send Destroy to hoItem3
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
216
|
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 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
End_Procedure
|
|
215
|
Is it possible to have a popup on a radio button when it is checked
Procedure OnCreate
Forward Send OnCreate
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
End_Procedure
|
|
214
|
Is it possible to minimize the control, once the user clicks a button
// 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 -99 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Variant voItem1
Get ComItem of hoItem -99 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant v
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voItem2
Get ComItem of hoItems1 -999 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Variant voItem3
Get ComItem of hoItem2 -999 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Get ComChecked of hoItem3 to v
Send Destroy to hoItem3
Send Destroy to hoItem2
Send Destroy to hoItems1
Set ComVisible of hoItem1 to v
Send Destroy to hoItem1
Send Destroy to hoItem
Send Destroy to hoItems
Showln "RequiredHeight" (ComRequiredHeight(Self))
End_Procedure
// Occurs when the user unchecks the item.
Procedure OnComUncheckItem Variant llItm
Forward Send OnComUncheckItem llItm
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComItem of hoItems2 -99 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Variant voItem5
Get ComItem of hoItem4 -99 to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Variant v1
Variant voItems3
Get ComItems to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Variant voItem6
Get ComItem of hoItems3 -999 to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Variant voItem7
Get ComItem of hoItem6 -999 to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Get ComChecked of hoItem7 to v1
Send Destroy to hoItem7
Send Destroy to hoItem6
Send Destroy to hoItems3
Set ComVisible of hoItem5 to v1
Send Destroy to hoItem5
Send Destroy to hoItem4
Send Destroy to hoItems2
Showln "RequiredHeight" (ComRequiredHeight(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voItems4
Get ComItems to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Set ComToString of hoItems4 to "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
Variant voItem8
Get ComAdd of hoItems4 "Normal" 0 -999 to voItem8
Handle hoItem8
Get Create (RefClass(cComItem)) to hoItem8
Set pvComObject of hoItem8 to voItem8
Set ComCheck of hoItem8 to True
Variant v2
Variant voItem9
Get ComItem -99 to voItem9
Handle hoItem9
Get Create (RefClass(cComItem)) to hoItem9
Set pvComObject of hoItem9 to voItem9
Get ComVisible of hoItem9 to v2
Send Destroy to hoItem9
Set ComChecked of hoItem8 to v2
Set ComX of hoItem8 to "width - iwidth"
Send Destroy to hoItem8
Variant voItem10
Get ComItem of hoItems4 0 to voItem10
Handle hoItem10
Get Create (RefClass(cComItem)) to hoItem10
Set pvComObject of hoItem10 to voItem10
Variant voItems5
Get ComItems of hoItem10 to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Variant voItem11
Get ComAdd of hoItems5 "" 0 0 to voItem11
Handle hoItem11
Get Create (RefClass(cComItem)) to hoItem11
Set pvComObject of hoItem11 to voItem11
Set ComPadding of hoItem11 to "8,0,0,0"
Send Destroy to hoItem11
Variant var_Item3
Get ComAdd of hoItems5 "New Page" Nothing Nothing to var_Item3
Set ComToString of hoItems5 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]([id=0][group=0x03]))"
Set ComID of hoItems5 to 200
Set ComCaption of hoItems5 to "Page1"
Set ComShowPopupAlign of hoItems5 to OLEexShowPopupAlignDown
Variant voItems6
Get ComItems of hoItems5 to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Variant voItem12
Get ComItem of hoItems6 0 to voItem12
Handle hoItem12
Get Create (RefClass(cComItem)) to hoItem12
Set pvComObject of hoItem12 to voItem12
Variant v3
Variant voItems7
Get ComItems of hoItem12 to voItems7
Handle hoItems7
Get Create (RefClass(cComItems)) to hoItems7
Set pvComObject of hoItems7 to voItems7
Get ComAdd of hoItems7 "New Group" Nothing Nothing to v3
Send Destroy to hoItems7
Move v3 to var_Item
Set ComToString of hoItem12 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItem12 to "<b><font ;14>A"
Variant voItems8
Get ComItems of hoItem12 to voItems8
Handle hoItems8
Get Create (RefClass(cComItems)) to hoItems8
Set pvComObject of hoItems8 to voItems8
Set ComBackgroundExt of hoItems8 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
Variant voItem13
Get ComAdd of hoItems8 "" 2 Nothing to voItem13
Handle hoItem13
Get Create (RefClass(cComItem)) to hoItem13
Set pvComObject of hoItem13 to voItem13
Set ComGroupPopup of hoItem13 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
Set ComCaption of hoItem13 to ""
Variant voItems9
Get ComItems of hoItem13 to voItems9
Handle hoItems9
Get Create (RefClass(cComItems)) to hoItems9
Set pvComObject of hoItems9 to voItems9
Variant voItem14
Get ComAdd of hoItems9 "R1" Nothing Nothing to voItem14
Handle hoItem14
Get Create (RefClass(cComItem)) to hoItem14
Set pvComObject of hoItem14 to voItem14
Set ComRadioGroup of hoItem14 to 100
Set ComRadio of hoItem14 to True
Set ComShowCheckedAsSelected of hoItem14 to OLEexDisplayItemHighlight
Set ComChecked of hoItem14 to False
Send Destroy to hoItem14
Variant voItem15
Get ComAdd of hoItems9 "R2" Nothing Nothing to voItem15
Handle hoItem15
Get Create (RefClass(cComItem)) to hoItem15
Set pvComObject of hoItem15 to voItem15
Set ComRadioGroup of hoItem15 to 100
Set ComRadio of hoItem15 to True
Set ComShowCheckedAsSelected of hoItem15 to OLEexDisplayItemHighlight
Set ComChecked of hoItem15 to True
Send Destroy to hoItem15
Variant voItem16
Get ComAdd of hoItems9 "R3" Nothing Nothing to voItem16
Handle hoItem16
Get Create (RefClass(cComItem)) to hoItem16
Set pvComObject of hoItem16 to voItem16
Set ComRadioGroup of hoItem16 to 100
Set ComRadio of hoItem16 to True
Set ComShowCheckedAsSelected of hoItem16 to OLEexDisplayItemHighlight
Set ComChecked of hoItem16 to False
Send Destroy to hoItem16
Send Destroy to hoItems9
Send Destroy to hoItem13
Send Destroy to hoItems8
Send Destroy to hoItem12
Variant v4
Variant voItems10
Get ComItems of hoItems6 to voItems10
Handle hoItems10
Get Create (RefClass(cComItems)) to hoItems10
Set pvComObject of hoItems10 to voItems10
Get ComAdd of hoItems10 "New Group" Nothing Nothing to v4
Send Destroy to hoItems10
Move v4 to var_Item1
Set ComToString of hoItems6 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItems6 to "<b><font ;14>B"
Variant voItems11
Get ComItems of hoItems6 to voItems11
Handle hoItems11
Get Create (RefClass(cComItems)) to hoItems11
Set pvComObject of hoItems11 to voItems11
Set ComBackgroundExt of hoItems11 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
Variant voItem17
Get ComAdd of hoItems11 "" 2 Nothing to voItem17
Handle hoItem17
Get Create (RefClass(cComItem)) to hoItem17
Set pvComObject of hoItem17 to voItem17
Set ComGroupPopup of hoItem17 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
Set ComCaption of hoItem17 to ""
Variant voItems12
Get ComItems of hoItem17 to voItems12
Handle hoItems12
Get Create (RefClass(cComItems)) to hoItems12
Set pvComObject of hoItems12 to voItems12
Variant voItem18
Get ComAdd of hoItems12 "C1" Nothing Nothing to voItem18
Handle hoItem18
Get Create (RefClass(cComItem)) to hoItem18
Set pvComObject of hoItem18 to voItem18
Set ComCheck of hoItem18 to True
Set ComChecked of hoItem18 to True
Send Destroy to hoItem18
Variant voItem19
Get ComAdd of hoItems12 "C2" Nothing Nothing to voItem19
Handle hoItem19
Get Create (RefClass(cComItem)) to hoItem19
Set pvComObject of hoItem19 to voItem19
Set ComCheck of hoItem19 to True
Set ComChecked of hoItem19 to False
Send Destroy to hoItem19
Variant voItem20
Get ComAdd of hoItems12 "C3" Nothing Nothing to voItem20
Handle hoItem20
Get Create (RefClass(cComItem)) to hoItem20
Set pvComObject of hoItem20 to voItem20
Set ComCheck of hoItem20 to True
Set ComChecked of hoItem20 to True
Send Destroy to hoItem20
Send Destroy to hoItems12
Send Destroy to hoItem17
Send Destroy to hoItems11
Send Destroy to hoItems6
Variant voItems13
Get ComItems of hoItems5 to voItems13
Handle hoItems13
Get Create (RefClass(cComItems)) to hoItems13
Set pvComObject of hoItems13 to voItems13
Variant voItem21
Get ComAdd of hoItems13 "" 0 0 to voItem21
Handle hoItem21
Get Create (RefClass(cComItem)) to hoItem21
Set pvComObject of hoItem21 to voItem21
Set ComPadding of hoItem21 to "4,0,0,0"
Send Destroy to hoItem21
Send Destroy to hoItems13
Variant v5
Variant voItems14
Get ComItems of hoItems5 to voItems14
Handle hoItems14
Get Create (RefClass(cComItems)) to hoItems14
Set pvComObject of hoItems14 to voItems14
Get ComAdd of hoItems14 "New Group" Nothing Nothing to v5
Send Destroy to hoItems14
Move v5 to var_Item2
Set ComToString of hoItems5 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItems5 to ""
Variant voItems15
Get ComItems of hoItems5 to voItems15
Handle hoItems15
Get Create (RefClass(cComItems)) to hoItems15
Set pvComObject of hoItems15 to voItems15
Set ComBackgroundExt of hoItems15 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
Variant voItem22
Get ComAdd of hoItems15 "" 0 Nothing to voItem22
Handle hoItem22
Get Create (RefClass(cComItem)) to hoItem22
Set pvComObject of hoItem22 to voItem22
Set ComAllowEdit of hoItem22 to (OLEexItemEditVertical + OLEexItemEditSlider)
Set ComItemHeight of hoItem22 to 76
Set ComEditBorder of hoItem22 to OLEexEditBorderNone
Set ComEditValue of hoItem22 to 25
Send Destroy to hoItem22
Variant voItem23
Get ComAdd of hoItems15 "" 2 Nothing to voItem23
Handle hoItem23
Get Create (RefClass(cComItem)) to hoItem23
Set pvComObject of hoItem23 to voItem23
Set ComGroupPopup of hoItem23 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
Set ComCaption of hoItem23 to ""
Variant voItems16
Get ComItems of hoItem23 to voItems16
Handle hoItems16
Get Create (RefClass(cComItems)) to hoItems16
Set pvComObject of hoItems16 to voItems16
Variant voItem24
Get ComAdd of hoItems16 "" 2 Nothing to voItem24
Handle hoItem24
Get Create (RefClass(cComItem)) to hoItem24
Set pvComObject of hoItem24 to voItem24
Set ComGroupPopup of hoItem24 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems17
Get ComItems of hoItem24 to voItems17
Handle hoItems17
Get Create (RefClass(cComItems)) to hoItems17
Set pvComObject of hoItems17 to voItems17
Variant voItem25
Get ComAdd of hoItems17 "Button1" 2 Nothing to voItem25
Handle hoItem25
Get Create (RefClass(cComItem)) to hoItem25
Set pvComObject of hoItem25 to voItem25
Set ComShowAsButton of hoItem25 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems18
Get ComItems of hoItem25 to voItems18
Handle hoItems18
Get Create (RefClass(cComItems)) to hoItems18
Set pvComObject of hoItems18 to voItems18
Get ComAdd of hoItems18 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems18 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems18 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems18
Send Destroy to hoItem25
Variant voItem26
Get ComAdd of hoItems17 "" 0 0 to voItem26
Handle hoItem26
Get Create (RefClass(cComItem)) to hoItem26
Set pvComObject of hoItem26 to voItem26
Set ComPadding of hoItem26 to "4,0,0,0"
Send Destroy to hoItem26
Variant voItem27
Get ComAdd of hoItems17 "Button2" 2 Nothing to voItem27
Handle hoItem27
Get Create (RefClass(cComItem)) to hoItem27
Set pvComObject of hoItem27 to voItem27
Set ComShowAsButton of hoItem27 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems19
Get ComItems of hoItem27 to voItems19
Handle hoItems19
Get Create (RefClass(cComItems)) to hoItems19
Set pvComObject of hoItems19 to voItems19
Get ComAdd of hoItems19 "Item 4" Nothing Nothing to Nothing
Get ComAdd of hoItems19 "Item 5" Nothing Nothing to Nothing
Get ComAdd of hoItems19 "Item 6" Nothing Nothing to Nothing
Send Destroy to hoItems19
Send Destroy to hoItem27
Send Destroy to hoItems17
Send Destroy to hoItem24
Variant voItem28
Get ComAdd of hoItems16 "Popup" 2 Nothing to voItem28
Handle hoItem28
Get Create (RefClass(cComItem)) to hoItem28
Set pvComObject of hoItem28 to voItem28
Set ComAlignment of hoItem28 to OLEexCenter
Variant voItems20
Get ComItems of hoItem28 to voItems20
Handle hoItems20
Get Create (RefClass(cComItems)) to hoItems20
Set pvComObject of hoItems20 to voItems20
Variant voItem29
Get ComAdd of hoItems20 "Item 7" Nothing Nothing to voItem29
Handle hoItem29
Get Create (RefClass(cComItem)) to hoItem29
Set pvComObject of hoItem29 to voItem29
Set ComCheck of hoItem29 to True
Send Destroy to hoItem29
Get ComAdd of hoItems20 "Item 8" Nothing Nothing to Nothing
Variant voItem30
Get ComAdd of hoItems20 "Item 9" 2 Nothing to voItem30
Handle hoItem30
Get Create (RefClass(cComItem)) to hoItem30
Set pvComObject of hoItem30 to voItem30
Variant voItems21
Get ComItems of hoItem30 to voItems21
Handle hoItems21
Get Create (RefClass(cComItems)) to hoItems21
Set pvComObject of hoItems21 to voItems21
Get ComAdd of hoItems21 "Item 10" Nothing Nothing to Nothing
Get ComAdd of hoItems21 "Item 11" Nothing Nothing to Nothing
Get ComAdd of hoItems21 "Item 12" Nothing Nothing to Nothing
Send Destroy to hoItems21
Send Destroy to hoItem30
Send Destroy to hoItems20
Send Destroy to hoItem28
Send Destroy to hoItems16
Send Destroy to hoItem23
Send Destroy to hoItems15
Send Destroy to hoItems5
Send Destroy to hoItem10
Send Destroy to hoItems4
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]([id=0][group=0x03]))"
Set ComID to 300
Set ComCaption to "Page2"
Set ComShowPopupAlign to OLEexShowPopupAlignDown
Variant voItems22
Get ComItems to voItems22
Handle hoItems22
Get Create (RefClass(cComItems)) to hoItems22
Set pvComObject of hoItems22 to voItems22
Variant voItem31
Get ComItem of hoItems22 0 to voItem31
Handle hoItem31
Get Create (RefClass(cComItem)) to hoItem31
Set pvComObject of hoItem31 to voItem31
Variant voItems23
Get ComItems of hoItem31 to voItems23
Handle hoItems23
Get Create (RefClass(cComItems)) to hoItems23
Set pvComObject of hoItems23 to voItems23
Variant voItem32
Get ComAdd of hoItems23 "S1" Nothing Nothing to voItem32
Handle hoItem32
Get Create (RefClass(cComItem)) to hoItem32
Set pvComObject of hoItem32 to voItem32
Set ComItemHeight of hoItem32 to 88
Set ComAllowEdit of hoItem32 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoItem32 to 25
Send Destroy to hoItem32
Variant voItem33
Get ComAdd of hoItems23 "S2" Nothing Nothing to voItem33
Handle hoItem33
Get Create (RefClass(cComItem)) to hoItem33
Set pvComObject of hoItem33 to voItem33
Set ComItemHeight of hoItem33 to 88
Set ComAllowEdit of hoItem33 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoItem33 to 50
Send Destroy to hoItem33
Variant voItem34
Get ComAdd of hoItems23 "S3" Nothing Nothing to voItem34
Handle hoItem34
Get Create (RefClass(cComItem)) to hoItem34
Set pvComObject of hoItem34 to voItem34
Set ComItemHeight of hoItem34 to 88
Set ComAllowEdit of hoItem34 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoItem34 to 75
Send Destroy to hoItem34
Send Destroy to hoItems23
Send Destroy to hoItem31
Send Destroy to hoItems22
Variant voItem35
Get ComAdd "" 0 0 to voItem35
Handle hoItem35
Get Create (RefClass(cComItem)) to hoItem35
Set pvComObject of hoItem35 to voItem35
Set ComPadding of hoItem35 to "8,0,0,0"
Send Destroy to hoItem35
Set ComPopupFlatAppearance to False
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\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_background.ebn" to Nothing
Get ComAdd of hoAppearance 2 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn" to Nothing
Get ComAdd of hoAppearance 3 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn" to Nothing
Get ComAdd of hoAppearance 4 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn" to Nothing
Get ComAdd of hoAppearance 5 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn" to Nothing
Get ComAdd of hoAppearance 6 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn" to Nothing
Get ComAdd of hoAppearance 7 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn" to Nothing
Get ComAdd of hoAppearance 8 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn" to Nothing
Get ComAdd of hoAppearance 9 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn" to Nothing
Get ComAdd of hoAppearance 10 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn" to Nothing
Get ComAdd of hoAppearance 11 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn" to Nothing
Get ComAdd of hoAppearance 12 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_select.ebn" to Nothing
Get ComAdd of hoAppearance 13 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn" to Nothing
Get ComAdd of hoAppearance 14 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn" to Nothing
Get ComAdd of hoAppearance 15 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn" to Nothing
Get ComAdd of hoAppearance 16 "C:\Program Files\Exontrol\ExToolBar\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\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn" to Nothing
Get ComAdd of hoAppearance 19 "C:\Program Files\Exontrol\ExToolBar\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
Send ComRefresh
End_Procedure
|
|
213
|
Is there any debug option, so I can see the IDs of the items I have in the control
Procedure OnCreate
Forward Send OnCreate
Set ComArrangeItemsAs to OLEexArrangeItemsHorizontal
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 "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
Send ComRefresh
End_Procedure
|
|
212
|
Microsoft Office - Ribbon Like - Minimized
Procedure OnCreate
Forward Send OnCreate
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=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
Variant voItem
Get ComItem of hoItems -99 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
Variant voItem1
Get ComItem of hoItems 0 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant voItems1
Get ComItems of hoItem1 to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voItem2
Get ComAdd of hoItems1 "" 0 0 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComPadding of hoItem2 to "8,0,0,0"
Send Destroy to hoItem2
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]([id=0][group=0x03]))"
Set ComID of hoItems1 to 200
Set ComCaption of hoItems1 to "Page1"
Set ComShowPopupAlign of hoItems1 to OLEexShowPopupAlignDown
Variant voItems2
Get ComItems of hoItems1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem3
Get ComItem of hoItems2 0 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Variant v
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 "New Group" Nothing Nothing to v
Send Destroy to hoItems3
Move v to var_Item
Set ComToString of hoItem3 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItem3 to "<b><font ;14>A"
Variant voItems4
Get ComItems of hoItem3 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Set ComBackgroundExt of hoItems4 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
Variant voItem4
Get ComAdd of hoItems4 "" 2 Nothing to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComGroupPopup of hoItem4 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
Set ComCaption of hoItem4 to ""
Variant voItems5
Get ComItems of hoItem4 to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Variant voItem5
Get ComAdd of hoItems5 "R1" 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
Variant voItem6
Get ComAdd of hoItems5 "R2" Nothing Nothing to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadioGroup of hoItem6 to 100
Set ComRadio of hoItem6 to True
Set ComShowCheckedAsSelected of hoItem6 to OLEexDisplayItemHighlight
Set ComChecked of hoItem6 to True
Send Destroy to hoItem6
Variant voItem7
Get ComAdd of hoItems5 "R3" Nothing Nothing to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Set ComRadioGroup of hoItem7 to 100
Set ComRadio of hoItem7 to True
Set ComShowCheckedAsSelected of hoItem7 to OLEexDisplayItemHighlight
Set ComChecked of hoItem7 to False
Send Destroy to hoItem7
Send Destroy to hoItems5
Send Destroy to hoItem4
Send Destroy to hoItems4
Send Destroy to hoItem3
Variant v1
Variant voItems6
Get ComItems of hoItems2 to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Get ComAdd of hoItems6 "New Group" Nothing Nothing to v1
Send Destroy to hoItems6
Move v1 to var_Item1
Set ComToString of hoItems2 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItems2 to "<b><font ;14>B"
Variant voItems7
Get ComItems of hoItems2 to voItems7
Handle hoItems7
Get Create (RefClass(cComItems)) to hoItems7
Set pvComObject of hoItems7 to voItems7
Set ComBackgroundExt of hoItems7 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
Variant voItem8
Get ComAdd of hoItems7 "" 2 Nothing to voItem8
Handle hoItem8
Get Create (RefClass(cComItem)) to hoItem8
Set pvComObject of hoItem8 to voItem8
Set ComGroupPopup of hoItem8 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
Set ComCaption of hoItem8 to ""
Variant voItems8
Get ComItems of hoItem8 to voItems8
Handle hoItems8
Get Create (RefClass(cComItems)) to hoItems8
Set pvComObject of hoItems8 to voItems8
Variant voItem9
Get ComAdd of hoItems8 "C1" 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
Variant voItem10
Get ComAdd of hoItems8 "C2" Nothing Nothing to voItem10
Handle hoItem10
Get Create (RefClass(cComItem)) to hoItem10
Set pvComObject of hoItem10 to voItem10
Set ComCheck of hoItem10 to True
Set ComChecked of hoItem10 to False
Send Destroy to hoItem10
Variant voItem11
Get ComAdd of hoItems8 "C3" Nothing Nothing to voItem11
Handle hoItem11
Get Create (RefClass(cComItem)) to hoItem11
Set pvComObject of hoItem11 to voItem11
Set ComCheck of hoItem11 to True
Set ComChecked of hoItem11 to True
Send Destroy to hoItem11
Send Destroy to hoItems8
Send Destroy to hoItem8
Send Destroy to hoItems7
Send Destroy to hoItems2
Variant voItems9
Get ComItems of hoItems1 to voItems9
Handle hoItems9
Get Create (RefClass(cComItems)) to hoItems9
Set pvComObject of hoItems9 to voItems9
Variant voItem12
Get ComAdd of hoItems9 "" 0 0 to voItem12
Handle hoItem12
Get Create (RefClass(cComItem)) to hoItem12
Set pvComObject of hoItem12 to voItem12
Set ComPadding of hoItem12 to "4,0,0,0"
Send Destroy to hoItem12
Send Destroy to hoItems9
Variant v2
Variant voItems10
Get ComItems of hoItems1 to voItems10
Handle hoItems10
Get Create (RefClass(cComItems)) to hoItems10
Set pvComObject of hoItems10 to voItems10
Get ComAdd of hoItems10 "New Group" Nothing Nothing to v2
Send Destroy to hoItems10
Move v2 to var_Item2
Set ComToString of hoItems1 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItems1 to ""
Variant voItems11
Get ComItems of hoItems1 to voItems11
Handle hoItems11
Get Create (RefClass(cComItems)) to hoItems11
Set pvComObject of hoItems11 to voItems11
Set ComBackgroundExt of hoItems11 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
Variant voItem13
Get ComAdd of hoItems11 "" 0 Nothing to voItem13
Handle hoItem13
Get Create (RefClass(cComItem)) to hoItem13
Set pvComObject of hoItem13 to voItem13
Set ComAllowEdit of hoItem13 to (OLEexItemEditVertical + OLEexItemEditSlider)
Set ComItemHeight of hoItem13 to 76
Set ComEditBorder of hoItem13 to OLEexEditBorderNone
Set ComEditValue of hoItem13 to 25
Send Destroy to hoItem13
Variant voItem14
Get ComAdd of hoItems11 "" 2 Nothing to voItem14
Handle hoItem14
Get Create (RefClass(cComItem)) to hoItem14
Set pvComObject of hoItem14 to voItem14
Set ComGroupPopup of hoItem14 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
Set ComCaption of hoItem14 to ""
Variant voItems12
Get ComItems of hoItem14 to voItems12
Handle hoItems12
Get Create (RefClass(cComItems)) to hoItems12
Set pvComObject of hoItems12 to voItems12
Variant voItem15
Get ComAdd of hoItems12 "" 2 Nothing to voItem15
Handle hoItem15
Get Create (RefClass(cComItem)) to hoItem15
Set pvComObject of hoItem15 to voItem15
Set ComGroupPopup of hoItem15 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems13
Get ComItems of hoItem15 to voItems13
Handle hoItems13
Get Create (RefClass(cComItems)) to hoItems13
Set pvComObject of hoItems13 to voItems13
Variant voItem16
Get ComAdd of hoItems13 "Button1" 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 1" Nothing Nothing to Nothing
Get ComAdd of hoItems14 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems14 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems14
Send Destroy to hoItem16
Variant voItem17
Get ComAdd of hoItems13 "" 0 0 to voItem17
Handle hoItem17
Get Create (RefClass(cComItem)) to hoItem17
Set pvComObject of hoItem17 to voItem17
Set ComPadding of hoItem17 to "4,0,0,0"
Send Destroy to hoItem17
Variant voItem18
Get ComAdd of hoItems13 "Button2" 2 Nothing to voItem18
Handle hoItem18
Get Create (RefClass(cComItem)) to hoItem18
Set pvComObject of hoItem18 to voItem18
Set ComShowAsButton of hoItem18 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems15
Get ComItems of hoItem18 to voItems15
Handle hoItems15
Get Create (RefClass(cComItems)) to hoItems15
Set pvComObject of hoItems15 to voItems15
Get ComAdd of hoItems15 "Item 4" Nothing Nothing to Nothing
Get ComAdd of hoItems15 "Item 5" Nothing Nothing to Nothing
Get ComAdd of hoItems15 "Item 6" Nothing Nothing to Nothing
Send Destroy to hoItems15
Send Destroy to hoItem18
Send Destroy to hoItems13
Send Destroy to hoItem15
Variant voItem19
Get ComAdd of hoItems12 "Popup" 2 Nothing to voItem19
Handle hoItem19
Get Create (RefClass(cComItem)) to hoItem19
Set pvComObject of hoItem19 to voItem19
Set ComAlignment of hoItem19 to OLEexCenter
Variant voItems16
Get ComItems of hoItem19 to voItems16
Handle hoItems16
Get Create (RefClass(cComItems)) to hoItems16
Set pvComObject of hoItems16 to voItems16
Variant voItem20
Get ComAdd of hoItems16 "Item 7" Nothing Nothing to voItem20
Handle hoItem20
Get Create (RefClass(cComItem)) to hoItem20
Set pvComObject of hoItem20 to voItem20
Set ComCheck of hoItem20 to True
Send Destroy to hoItem20
Get ComAdd of hoItems16 "Item 8" Nothing Nothing to Nothing
Variant voItem21
Get ComAdd of hoItems16 "Item 9" 2 Nothing to voItem21
Handle hoItem21
Get Create (RefClass(cComItem)) to hoItem21
Set pvComObject of hoItem21 to voItem21
Variant voItems17
Get ComItems of hoItem21 to voItems17
Handle hoItems17
Get Create (RefClass(cComItems)) to hoItems17
Set pvComObject of hoItems17 to voItems17
Get ComAdd of hoItems17 "Item 10" Nothing Nothing to Nothing
Get ComAdd of hoItems17 "Item 11" Nothing Nothing to Nothing
Get ComAdd of hoItems17 "Item 12" Nothing Nothing to Nothing
Send Destroy to hoItems17
Send Destroy to hoItem21
Send Destroy to hoItems16
Send Destroy to hoItem19
Send Destroy to hoItems12
Send Destroy to hoItem14
Send Destroy to hoItems11
Send Destroy to hoItems1
Send Destroy to hoItem1
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]([id=0][group=0x03]))"
Set ComID to 300
Set ComCaption to "Page2"
Set ComShowPopupAlign to OLEexShowPopupAlignDown
Variant voItems18
Get ComItems to voItems18
Handle hoItems18
Get Create (RefClass(cComItems)) to hoItems18
Set pvComObject of hoItems18 to voItems18
Variant voItem22
Get ComItem of hoItems18 0 to voItem22
Handle hoItem22
Get Create (RefClass(cComItem)) to hoItem22
Set pvComObject of hoItem22 to voItem22
Variant voItems19
Get ComItems of hoItem22 to voItems19
Handle hoItems19
Get Create (RefClass(cComItems)) to hoItems19
Set pvComObject of hoItems19 to voItems19
Variant voItem23
Get ComAdd of hoItems19 "S1" Nothing Nothing to voItem23
Handle hoItem23
Get Create (RefClass(cComItem)) to hoItem23
Set pvComObject of hoItem23 to voItem23
Set ComItemHeight of hoItem23 to 88
Set ComAllowEdit of hoItem23 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoItem23 to 25
Send Destroy to hoItem23
Variant voItem24
Get ComAdd of hoItems19 "S2" Nothing Nothing to voItem24
Handle hoItem24
Get Create (RefClass(cComItem)) to hoItem24
Set pvComObject of hoItem24 to voItem24
Set ComItemHeight of hoItem24 to 88
Set ComAllowEdit of hoItem24 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoItem24 to 50
Send Destroy to hoItem24
Variant voItem25
Get ComAdd of hoItems19 "S3" Nothing Nothing to voItem25
Handle hoItem25
Get Create (RefClass(cComItem)) to hoItem25
Set pvComObject of hoItem25 to voItem25
Set ComItemHeight of hoItem25 to 88
Set ComAllowEdit of hoItem25 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoItem25 to 75
Send Destroy to hoItem25
Send Destroy to hoItems19
Send Destroy to hoItem22
Send Destroy to hoItems18
Variant voItem26
Get ComAdd "" 0 0 to voItem26
Handle hoItem26
Get Create (RefClass(cComItem)) to hoItem26
Set pvComObject of hoItem26 to voItem26
Set ComPadding of hoItem26 to "8,0,0,0"
Send Destroy to hoItem26
Set ComPopupFlatAppearance to False
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\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_background.ebn" to Nothing
Get ComAdd of hoAppearance 2 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn" to Nothing
Get ComAdd of hoAppearance 3 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn" to Nothing
Get ComAdd of hoAppearance 4 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn" to Nothing
Get ComAdd of hoAppearance 5 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn" to Nothing
Get ComAdd of hoAppearance 6 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn" to Nothing
Get ComAdd of hoAppearance 7 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn" to Nothing
Get ComAdd of hoAppearance 8 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn" to Nothing
Get ComAdd of hoAppearance 9 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn" to Nothing
Get ComAdd of hoAppearance 10 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn" to Nothing
Get ComAdd of hoAppearance 11 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn" to Nothing
Get ComAdd of hoAppearance 12 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_select.ebn" to Nothing
Get ComAdd of hoAppearance 13 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn" to Nothing
Get ComAdd of hoAppearance 14 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn" to Nothing
Get ComAdd of hoAppearance 15 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn" to Nothing
Get ComAdd of hoAppearance 16 "C:\Program Files\Exontrol\ExToolBar\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\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn" to Nothing
Get ComAdd of hoAppearance 19 "C:\Program Files\Exontrol\ExToolBar\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
Send ComRefresh
End_Procedure
|
|
211
|
Microsoft Paint - Ribbon Like - Minimized
Procedure OnCreate
Forward Send OnCreate
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=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
Variant voItem
Get ComItem of hoItems -99 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
Variant voItem1
Get ComItem of hoItems 0 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant voItems1
Get ComItems of hoItem1 to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voItem2
Get ComAdd of hoItems1 "" 0 0 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComPadding of hoItem2 to "8,0,0,0"
Send Destroy to hoItem2
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]([id=0][group=0x03]))"
Set ComID of hoItems1 to 200
Set ComCaption of hoItems1 to "Page1"
Set ComShowPopupAlign of hoItems1 to OLEexShowPopupAlignDown
Variant voItems2
Get ComItems of hoItems1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem3
Get ComItem of hoItems2 0 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Variant v
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 "New Group" Nothing Nothing to v
Send Destroy to hoItems3
Move v to var_Item
Set ComToString of hoItem3 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItem3 to "<b><font ;14>A"
Variant voItems4
Get ComItems of hoItem3 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Set ComBackgroundExt of hoItems4 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
Variant voItem4
Get ComAdd of hoItems4 "" 2 Nothing to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComGroupPopup of hoItem4 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
Set ComCaption of hoItem4 to ""
Variant voItems5
Get ComItems of hoItem4 to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Variant voItem5
Get ComAdd of hoItems5 "R1" 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
Variant voItem6
Get ComAdd of hoItems5 "R2" Nothing Nothing to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadioGroup of hoItem6 to 100
Set ComRadio of hoItem6 to True
Set ComShowCheckedAsSelected of hoItem6 to OLEexDisplayItemHighlight
Set ComChecked of hoItem6 to True
Send Destroy to hoItem6
Variant voItem7
Get ComAdd of hoItems5 "R3" Nothing Nothing to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Set ComRadioGroup of hoItem7 to 100
Set ComRadio of hoItem7 to True
Set ComShowCheckedAsSelected of hoItem7 to OLEexDisplayItemHighlight
Set ComChecked of hoItem7 to False
Send Destroy to hoItem7
Send Destroy to hoItems5
Send Destroy to hoItem4
Send Destroy to hoItems4
Send Destroy to hoItem3
Variant v1
Variant voItems6
Get ComItems of hoItems2 to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Get ComAdd of hoItems6 "New Group" Nothing Nothing to v1
Send Destroy to hoItems6
Move v1 to var_Item1
Set ComToString of hoItems2 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItems2 to "<b><font ;14>B"
Variant voItems7
Get ComItems of hoItems2 to voItems7
Handle hoItems7
Get Create (RefClass(cComItems)) to hoItems7
Set pvComObject of hoItems7 to voItems7
Set ComBackgroundExt of hoItems7 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
Variant voItem8
Get ComAdd of hoItems7 "" 2 Nothing to voItem8
Handle hoItem8
Get Create (RefClass(cComItem)) to hoItem8
Set pvComObject of hoItem8 to voItem8
Set ComGroupPopup of hoItem8 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
Set ComCaption of hoItem8 to ""
Variant voItems8
Get ComItems of hoItem8 to voItems8
Handle hoItems8
Get Create (RefClass(cComItems)) to hoItems8
Set pvComObject of hoItems8 to voItems8
Variant voItem9
Get ComAdd of hoItems8 "C1" 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
Variant voItem10
Get ComAdd of hoItems8 "C2" Nothing Nothing to voItem10
Handle hoItem10
Get Create (RefClass(cComItem)) to hoItem10
Set pvComObject of hoItem10 to voItem10
Set ComCheck of hoItem10 to True
Set ComChecked of hoItem10 to False
Send Destroy to hoItem10
Variant voItem11
Get ComAdd of hoItems8 "C3" Nothing Nothing to voItem11
Handle hoItem11
Get Create (RefClass(cComItem)) to hoItem11
Set pvComObject of hoItem11 to voItem11
Set ComCheck of hoItem11 to True
Set ComChecked of hoItem11 to True
Send Destroy to hoItem11
Send Destroy to hoItems8
Send Destroy to hoItem8
Send Destroy to hoItems7
Send Destroy to hoItems2
Variant voItems9
Get ComItems of hoItems1 to voItems9
Handle hoItems9
Get Create (RefClass(cComItems)) to hoItems9
Set pvComObject of hoItems9 to voItems9
Variant voItem12
Get ComAdd of hoItems9 "" 0 0 to voItem12
Handle hoItem12
Get Create (RefClass(cComItem)) to hoItem12
Set pvComObject of hoItem12 to voItem12
Set ComPadding of hoItem12 to "4,0,0,0"
Send Destroy to hoItem12
Send Destroy to hoItems9
Variant v2
Variant voItems10
Get ComItems of hoItems1 to voItems10
Handle hoItems10
Get Create (RefClass(cComItems)) to hoItems10
Set pvComObject of hoItems10 to voItems10
Get ComAdd of hoItems10 "New Group" Nothing Nothing to v2
Send Destroy to hoItems10
Move v2 to var_Item2
Set ComToString of hoItems1 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItems1 to ""
Variant voItems11
Get ComItems of hoItems1 to voItems11
Handle hoItems11
Get Create (RefClass(cComItems)) to hoItems11
Set pvComObject of hoItems11 to voItems11
Set ComBackgroundExt of hoItems11 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
Variant voItem13
Get ComAdd of hoItems11 "" 0 Nothing to voItem13
Handle hoItem13
Get Create (RefClass(cComItem)) to hoItem13
Set pvComObject of hoItem13 to voItem13
Set ComAllowEdit of hoItem13 to (OLEexItemEditVertical + OLEexItemEditSlider)
Set ComItemHeight of hoItem13 to 76
Set ComEditBorder of hoItem13 to OLEexEditBorderNone
Set ComEditValue of hoItem13 to 25
Send Destroy to hoItem13
Variant voItem14
Get ComAdd of hoItems11 "" 2 Nothing to voItem14
Handle hoItem14
Get Create (RefClass(cComItem)) to hoItem14
Set pvComObject of hoItem14 to voItem14
Set ComGroupPopup of hoItem14 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
Set ComCaption of hoItem14 to ""
Variant voItems12
Get ComItems of hoItem14 to voItems12
Handle hoItems12
Get Create (RefClass(cComItems)) to hoItems12
Set pvComObject of hoItems12 to voItems12
Variant voItem15
Get ComAdd of hoItems12 "" 2 Nothing to voItem15
Handle hoItem15
Get Create (RefClass(cComItem)) to hoItem15
Set pvComObject of hoItem15 to voItem15
Set ComGroupPopup of hoItem15 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems13
Get ComItems of hoItem15 to voItems13
Handle hoItems13
Get Create (RefClass(cComItems)) to hoItems13
Set pvComObject of hoItems13 to voItems13
Variant voItem16
Get ComAdd of hoItems13 "Button1" 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 1" Nothing Nothing to Nothing
Get ComAdd of hoItems14 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems14 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems14
Send Destroy to hoItem16
Variant voItem17
Get ComAdd of hoItems13 "" 0 0 to voItem17
Handle hoItem17
Get Create (RefClass(cComItem)) to hoItem17
Set pvComObject of hoItem17 to voItem17
Set ComPadding of hoItem17 to "4,0,0,0"
Send Destroy to hoItem17
Variant voItem18
Get ComAdd of hoItems13 "Button2" 2 Nothing to voItem18
Handle hoItem18
Get Create (RefClass(cComItem)) to hoItem18
Set pvComObject of hoItem18 to voItem18
Set ComShowAsButton of hoItem18 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems15
Get ComItems of hoItem18 to voItems15
Handle hoItems15
Get Create (RefClass(cComItems)) to hoItems15
Set pvComObject of hoItems15 to voItems15
Get ComAdd of hoItems15 "Item 4" Nothing Nothing to Nothing
Get ComAdd of hoItems15 "Item 5" Nothing Nothing to Nothing
Get ComAdd of hoItems15 "Item 6" Nothing Nothing to Nothing
Send Destroy to hoItems15
Send Destroy to hoItem18
Send Destroy to hoItems13
Send Destroy to hoItem15
Variant voItem19
Get ComAdd of hoItems12 "Popup" 2 Nothing to voItem19
Handle hoItem19
Get Create (RefClass(cComItem)) to hoItem19
Set pvComObject of hoItem19 to voItem19
Set ComAlignment of hoItem19 to OLEexCenter
Variant voItems16
Get ComItems of hoItem19 to voItems16
Handle hoItems16
Get Create (RefClass(cComItems)) to hoItems16
Set pvComObject of hoItems16 to voItems16
Variant voItem20
Get ComAdd of hoItems16 "Item 7" Nothing Nothing to voItem20
Handle hoItem20
Get Create (RefClass(cComItem)) to hoItem20
Set pvComObject of hoItem20 to voItem20
Set ComCheck of hoItem20 to True
Send Destroy to hoItem20
Get ComAdd of hoItems16 "Item 8" Nothing Nothing to Nothing
Variant voItem21
Get ComAdd of hoItems16 "Item 9" 2 Nothing to voItem21
Handle hoItem21
Get Create (RefClass(cComItem)) to hoItem21
Set pvComObject of hoItem21 to voItem21
Variant voItems17
Get ComItems of hoItem21 to voItems17
Handle hoItems17
Get Create (RefClass(cComItems)) to hoItems17
Set pvComObject of hoItems17 to voItems17
Get ComAdd of hoItems17 "Item 10" Nothing Nothing to Nothing
Get ComAdd of hoItems17 "Item 11" Nothing Nothing to Nothing
Get ComAdd of hoItems17 "Item 12" Nothing Nothing to Nothing
Send Destroy to hoItems17
Send Destroy to hoItem21
Send Destroy to hoItems16
Send Destroy to hoItem19
Send Destroy to hoItems12
Send Destroy to hoItem14
Send Destroy to hoItems11
Send Destroy to hoItems1
Send Destroy to hoItem1
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]([id=0][group=0x03]))"
Set ComID to 300
Set ComCaption to "Page2"
Set ComShowPopupAlign to OLEexShowPopupAlignDown
Variant voItems18
Get ComItems to voItems18
Handle hoItems18
Get Create (RefClass(cComItems)) to hoItems18
Set pvComObject of hoItems18 to voItems18
Variant voItem22
Get ComItem of hoItems18 0 to voItem22
Handle hoItem22
Get Create (RefClass(cComItem)) to hoItem22
Set pvComObject of hoItem22 to voItem22
Variant voItems19
Get ComItems of hoItem22 to voItems19
Handle hoItems19
Get Create (RefClass(cComItems)) to hoItems19
Set pvComObject of hoItems19 to voItems19
Variant voItem23
Get ComAdd of hoItems19 "S1" Nothing Nothing to voItem23
Handle hoItem23
Get Create (RefClass(cComItem)) to hoItem23
Set pvComObject of hoItem23 to voItem23
Set ComItemHeight of hoItem23 to 88
Set ComAllowEdit of hoItem23 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoItem23 to 25
Send Destroy to hoItem23
Variant voItem24
Get ComAdd of hoItems19 "S2" Nothing Nothing to voItem24
Handle hoItem24
Get Create (RefClass(cComItem)) to hoItem24
Set pvComObject of hoItem24 to voItem24
Set ComItemHeight of hoItem24 to 88
Set ComAllowEdit of hoItem24 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoItem24 to 50
Send Destroy to hoItem24
Variant voItem25
Get ComAdd of hoItems19 "S3" Nothing Nothing to voItem25
Handle hoItem25
Get Create (RefClass(cComItem)) to hoItem25
Set pvComObject of hoItem25 to voItem25
Set ComItemHeight of hoItem25 to 88
Set ComAllowEdit of hoItem25 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoItem25 to 75
Send Destroy to hoItem25
Send Destroy to hoItems19
Send Destroy to hoItem22
Send Destroy to hoItems18
Variant voItem26
Get ComAdd "" 0 0 to voItem26
Handle hoItem26
Get Create (RefClass(cComItem)) to hoItem26
Set pvComObject of hoItem26 to voItem26
Set ComPadding of hoItem26 to "8,0,0,0"
Send Destroy to hoItem26
Set ComPopupFlatAppearance to False
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/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn" to Nothing
Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn" to Nothing
Get ComAdd of hoAppearance 3 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn" to Nothing
Get ComAdd of hoAppearance 4 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn" to Nothing
Get ComAdd of hoAppearance 5 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn" to Nothing
Get ComAdd of hoAppearance 6 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn" to Nothing
Get ComAdd of hoAppearance 7 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn" to Nothing
Get ComAdd of hoAppearance 8 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn" to Nothing
Get ComAdd of hoAppearance 9 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn" to Nothing
Get ComAdd of hoAppearance 10 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn" to Nothing
Get ComAdd of hoAppearance 11 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn" to Nothing
Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn" to Nothing
Get ComAdd of hoAppearance 13 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn" to Nothing
Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn" to Nothing
Get ComAdd of hoAppearance 15 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn" to Nothing
Get ComAdd of hoAppearance 16 "C:/Program Files/Exontrol/ExToolBar/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/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn" to Nothing
Get ComAdd of hoAppearance 19 "C:/Program Files/Exontrol/ExToolBar/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
Send ComRefresh
End_Procedure
|
|
210
|
Microsoft Windows 8.1 - Ribbon Like - Minimized
Procedure OnCreate
Forward Send OnCreate
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=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
Variant voItem
Get ComItem of hoItems -99 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
Variant voItem1
Get ComItem of hoItems 0 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant voItems1
Get ComItems of hoItem1 to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voItem2
Get ComAdd of hoItems1 "" 0 0 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComPadding of hoItem2 to "8,0,0,0"
Send Destroy to hoItem2
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]([id=0][group=0x03]))"
Set ComID of hoItems1 to 200
Set ComCaption of hoItems1 to "Page1"
Set ComShowPopupAlign of hoItems1 to OLEexShowPopupAlignDown
Variant voItems2
Get ComItems of hoItems1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem3
Get ComItem of hoItems2 0 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Variant v
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 "New Group" Nothing Nothing to v
Send Destroy to hoItems3
Move v to var_Item
Set ComToString of hoItem3 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItem3 to "<b><font ;14>A"
Variant voItems4
Get ComItems of hoItem3 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Set ComBackgroundExt of hoItems4 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
Variant voItem4
Get ComAdd of hoItems4 "" 2 Nothing to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComGroupPopup of hoItem4 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
Set ComCaption of hoItem4 to ""
Variant voItems5
Get ComItems of hoItem4 to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Variant voItem5
Get ComAdd of hoItems5 "R1" 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
Variant voItem6
Get ComAdd of hoItems5 "R2" Nothing Nothing to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComRadioGroup of hoItem6 to 100
Set ComRadio of hoItem6 to True
Set ComShowCheckedAsSelected of hoItem6 to OLEexDisplayItemHighlight
Set ComChecked of hoItem6 to True
Send Destroy to hoItem6
Variant voItem7
Get ComAdd of hoItems5 "R3" Nothing Nothing to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Set ComRadioGroup of hoItem7 to 100
Set ComRadio of hoItem7 to True
Set ComShowCheckedAsSelected of hoItem7 to OLEexDisplayItemHighlight
Set ComChecked of hoItem7 to False
Send Destroy to hoItem7
Send Destroy to hoItems5
Send Destroy to hoItem4
Send Destroy to hoItems4
Send Destroy to hoItem3
Variant v1
Variant voItems6
Get ComItems of hoItems2 to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Get ComAdd of hoItems6 "New Group" Nothing Nothing to v1
Send Destroy to hoItems6
Move v1 to var_Item1
Set ComToString of hoItems2 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItems2 to "<b><font ;14>B"
Variant voItems7
Get ComItems of hoItems2 to voItems7
Handle hoItems7
Get Create (RefClass(cComItems)) to hoItems7
Set pvComObject of hoItems7 to voItems7
Set ComBackgroundExt of hoItems7 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
Variant voItem8
Get ComAdd of hoItems7 "" 2 Nothing to voItem8
Handle hoItem8
Get Create (RefClass(cComItem)) to hoItem8
Set pvComObject of hoItem8 to voItem8
Set ComGroupPopup of hoItem8 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
Set ComCaption of hoItem8 to ""
Variant voItems8
Get ComItems of hoItem8 to voItems8
Handle hoItems8
Get Create (RefClass(cComItems)) to hoItems8
Set pvComObject of hoItems8 to voItems8
Variant voItem9
Get ComAdd of hoItems8 "C1" 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
Variant voItem10
Get ComAdd of hoItems8 "C2" Nothing Nothing to voItem10
Handle hoItem10
Get Create (RefClass(cComItem)) to hoItem10
Set pvComObject of hoItem10 to voItem10
Set ComCheck of hoItem10 to True
Set ComChecked of hoItem10 to False
Send Destroy to hoItem10
Variant voItem11
Get ComAdd of hoItems8 "C3" Nothing Nothing to voItem11
Handle hoItem11
Get Create (RefClass(cComItem)) to hoItem11
Set pvComObject of hoItem11 to voItem11
Set ComCheck of hoItem11 to True
Set ComChecked of hoItem11 to True
Send Destroy to hoItem11
Send Destroy to hoItems8
Send Destroy to hoItem8
Send Destroy to hoItems7
Send Destroy to hoItems2
Variant voItems9
Get ComItems of hoItems1 to voItems9
Handle hoItems9
Get Create (RefClass(cComItems)) to hoItems9
Set pvComObject of hoItems9 to voItems9
Variant voItem12
Get ComAdd of hoItems9 "" 0 0 to voItem12
Handle hoItem12
Get Create (RefClass(cComItem)) to hoItem12
Set pvComObject of hoItem12 to voItem12
Set ComPadding of hoItem12 to "4,0,0,0"
Send Destroy to hoItem12
Send Destroy to hoItems9
Variant v2
Variant voItems10
Get ComItems of hoItems1 to voItems10
Handle hoItems10
Get Create (RefClass(cComItems)) to hoItems10
Set pvComObject of hoItems10 to voItems10
Get ComAdd of hoItems10 "New Group" Nothing Nothing to v2
Send Destroy to hoItems10
Move v2 to var_Item2
Set ComToString of hoItems1 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
Set ComCaption of hoItems1 to ""
Variant voItems11
Get ComItems of hoItems1 to voItems11
Handle hoItems11
Get Create (RefClass(cComItems)) to hoItems11
Set pvComObject of hoItems11 to voItems11
Set ComBackgroundExt of hoItems11 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
Variant voItem13
Get ComAdd of hoItems11 "" 0 Nothing to voItem13
Handle hoItem13
Get Create (RefClass(cComItem)) to hoItem13
Set pvComObject of hoItem13 to voItem13
Set ComAllowEdit of hoItem13 to (OLEexItemEditVertical + OLEexItemEditSlider)
Set ComItemHeight of hoItem13 to 76
Set ComEditBorder of hoItem13 to OLEexEditBorderNone
Set ComEditValue of hoItem13 to 25
Send Destroy to hoItem13
Variant voItem14
Get ComAdd of hoItems11 "" 2 Nothing to voItem14
Handle hoItem14
Get Create (RefClass(cComItem)) to hoItem14
Set pvComObject of hoItem14 to voItem14
Set ComGroupPopup of hoItem14 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
Set ComCaption of hoItem14 to ""
Variant voItems12
Get ComItems of hoItem14 to voItems12
Handle hoItems12
Get Create (RefClass(cComItems)) to hoItems12
Set pvComObject of hoItems12 to voItems12
Variant voItem15
Get ComAdd of hoItems12 "" 2 Nothing to voItem15
Handle hoItem15
Get Create (RefClass(cComItem)) to hoItem15
Set pvComObject of hoItem15 to voItem15
Set ComGroupPopup of hoItem15 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems13
Get ComItems of hoItem15 to voItems13
Handle hoItems13
Get Create (RefClass(cComItems)) to hoItems13
Set pvComObject of hoItems13 to voItems13
Variant voItem16
Get ComAdd of hoItems13 "Button1" 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 1" Nothing Nothing to Nothing
Get ComAdd of hoItems14 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems14 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems14
Send Destroy to hoItem16
Variant voItem17
Get ComAdd of hoItems13 "" 0 0 to voItem17
Handle hoItem17
Get Create (RefClass(cComItem)) to hoItem17
Set pvComObject of hoItem17 to voItem17
Set ComPadding of hoItem17 to "4,0,0,0"
Send Destroy to hoItem17
Variant voItem18
Get ComAdd of hoItems13 "Button2" 2 Nothing to voItem18
Handle hoItem18
Get Create (RefClass(cComItem)) to hoItem18
Set pvComObject of hoItem18 to voItem18
Set ComShowAsButton of hoItem18 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
Variant voItems15
Get ComItems of hoItem18 to voItems15
Handle hoItems15
Get Create (RefClass(cComItems)) to hoItems15
Set pvComObject of hoItems15 to voItems15
Get ComAdd of hoItems15 "Item 4" Nothing Nothing to Nothing
Get ComAdd of hoItems15 "Item 5" Nothing Nothing to Nothing
Get ComAdd of hoItems15 "Item 6" Nothing Nothing to Nothing
Send Destroy to hoItems15
Send Destroy to hoItem18
Send Destroy to hoItems13
Send Destroy to hoItem15
Variant voItem19
Get ComAdd of hoItems12 "Popup" 2 Nothing to voItem19
Handle hoItem19
Get Create (RefClass(cComItem)) to hoItem19
Set pvComObject of hoItem19 to voItem19
Set ComAlignment of hoItem19 to OLEexCenter
Variant voItems16
Get ComItems of hoItem19 to voItems16
Handle hoItems16
Get Create (RefClass(cComItems)) to hoItems16
Set pvComObject of hoItems16 to voItems16
Variant voItem20
Get ComAdd of hoItems16 "Item 7" Nothing Nothing to voItem20
Handle hoItem20
Get Create (RefClass(cComItem)) to hoItem20
Set pvComObject of hoItem20 to voItem20
Set ComCheck of hoItem20 to True
Send Destroy to hoItem20
Get ComAdd of hoItems16 "Item 8" Nothing Nothing to Nothing
Variant voItem21
Get ComAdd of hoItems16 "Item 9" 2 Nothing to voItem21
Handle hoItem21
Get Create (RefClass(cComItem)) to hoItem21
Set pvComObject of hoItem21 to voItem21
Variant voItems17
Get ComItems of hoItem21 to voItems17
Handle hoItems17
Get Create (RefClass(cComItems)) to hoItems17
Set pvComObject of hoItems17 to voItems17
Get ComAdd of hoItems17 "Item 10" Nothing Nothing to Nothing
Get ComAdd of hoItems17 "Item 11" Nothing Nothing to Nothing
Get ComAdd of hoItems17 "Item 12" Nothing Nothing to Nothing
Send Destroy to hoItems17
Send Destroy to hoItem21
Send Destroy to hoItems16
Send Destroy to hoItem19
Send Destroy to hoItems12
Send Destroy to hoItem14
Send Destroy to hoItems11
Send Destroy to hoItems1
Send Destroy to hoItem1
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]([id=0][group=0x03]))"
Set ComID to 300
Set ComCaption to "Page2"
Set ComShowPopupAlign to OLEexShowPopupAlignDown
Variant voItems18
Get ComItems to voItems18
Handle hoItems18
Get Create (RefClass(cComItems)) to hoItems18
Set pvComObject of hoItems18 to voItems18
Variant voItem22
Get ComItem of hoItems18 0 to voItem22
Handle hoItem22
Get Create (RefClass(cComItem)) to hoItem22
Set pvComObject of hoItem22 to voItem22
Variant voItems19
Get ComItems of hoItem22 to voItems19
Handle hoItems19
Get Create (RefClass(cComItems)) to hoItems19
Set pvComObject of hoItems19 to voItems19
Variant voItem23
Get ComAdd of hoItems19 "S1" Nothing Nothing to voItem23
Handle hoItem23
Get Create (RefClass(cComItem)) to hoItem23
Set pvComObject of hoItem23 to voItem23
Set ComItemHeight of hoItem23 to 88
Set ComAllowEdit of hoItem23 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoItem23 to 25
Send Destroy to hoItem23
Variant voItem24
Get ComAdd of hoItems19 "S2" Nothing Nothing to voItem24
Handle hoItem24
Get Create (RefClass(cComItem)) to hoItem24
Set pvComObject of hoItem24 to voItem24
Set ComItemHeight of hoItem24 to 88
Set ComAllowEdit of hoItem24 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoItem24 to 50
Send Destroy to hoItem24
Variant voItem25
Get ComAdd of hoItems19 "S3" Nothing Nothing to voItem25
Handle hoItem25
Get Create (RefClass(cComItem)) to hoItem25
Set pvComObject of hoItem25 to voItem25
Set ComItemHeight of hoItem25 to 88
Set ComAllowEdit of hoItem25 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
Set ComEditValue of hoItem25 to 75
Send Destroy to hoItem25
Send Destroy to hoItems19
Send Destroy to hoItem22
Send Destroy to hoItems18
Variant voItem26
Get ComAdd "" 0 0 to voItem26
Handle hoItem26
Get Create (RefClass(cComItem)) to hoItem26
Set pvComObject of hoItem26 to voItem26
Set ComPadding of hoItem26 to "8,0,0,0"
Send Destroy to hoItem26
Set ComPopupFlatAppearance to False
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/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn" to Nothing
Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn" to Nothing
Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn" to Nothing
Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn" to Nothing
Get ComAdd of hoAppearance 17 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn" to Nothing
Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn" to Nothing
Get ComAdd of hoAppearance 32 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn" to Nothing
Get ComAdd of hoAppearance 33 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn" to Nothing
Get ComAdd of hoAppearance 34 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn" to Nothing
Get ComAdd of hoAppearance 35 "C:/Program Files/Exontrol/ExToolBar/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
Send ComRefresh
End_Procedure
|
|
209
|
How can I display a tab into the toolbar (method 2, minimized)
Procedure OnCreate
Forward Send OnCreate
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=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))"
Variant voItem
Get ComItem of hoItems -99 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
Variant voItem1
Get ComItem of hoItems -10 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant voItems1
Get ComItems of hoItem1 to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voItem2
Get ComAdd of hoItems1 "" 0 0 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComPadding of hoItem2 to "8,0,0,0"
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "New Page" Nothing Nothing to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComToString of hoItem3 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][popupalign=0x01]([id=0][group=0x03]([]))"
Set ComCaption of hoItem3 to "Page<off -5><font ;5><b>1</b></font></off>"
Variant voItems2
Get ComItems of hoItem3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem4
Get ComItem of hoItems2 0 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Variant voItems3
Get ComItems of hoItem4 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Variant voItem5
Get ComAdd of hoItems3 "add here fields for page 1" Nothing Nothing to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComID of hoItem5 to -1000
Set ComEnabled of hoItem5 to False
Set ComBackColor of hoItem5 to (RGB(255,0,0))
Send Destroy to hoItem5
Send Destroy to hoItems3
Send Destroy to hoItem4
Send Destroy to hoItems2
Send Destroy to hoItem3
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][popupalign=0x01]([id=0][group=0x03]([]))"
Set ComCaption of hoItem6 to "Page<off -5><font ;5><b>2</b></font></off>"
Variant voItems4
Get ComItems of hoItem6 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Variant voItem7
Get ComItem of hoItems4 0 to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Variant voItems5
Get ComItems of hoItem7 to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Variant voItem8
Get ComAdd of hoItems5 "add here fields for page 2" Nothing Nothing to voItem8
Handle hoItem8
Get Create (RefClass(cComItem)) to hoItem8
Set pvComObject of hoItem8 to voItem8
Set ComID of hoItem8 to -1001
Set ComEnabled of hoItem8 to False
Set ComBackColor of hoItem8 to (RGB(0,255,0))
Send Destroy to hoItem8
Send Destroy to hoItems5
Send Destroy to hoItem7
Send Destroy to hoItems4
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 hoItem1
Send Destroy to hoItems
Send ComRefresh
End_Procedure
|
|
208
|
How can I display a tab into the toolbar (method 1, minimized)
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexMenuSelBorderColor to (RGB(240,240,240))
Set ComToString to "[group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03]([id=50][pad=8,0,0,0],Page<off -5><font ;5><b>1</b></font></off>[id=60][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][popupalign=1]([group=0x03]([id=80],add here fields for page 1[id=-1000][dis])),Page<off -5><font ;5><b>2</b></font></off>[id=100][typ=2][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][popupalign=1]([group=0x03]([id=120],add here fields for page 2[id=-1001][dis])),[id=140][pad=8,0,0,0]),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))"
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 ComBackColor of hoItem to (RGB(255,0,0))
Send Destroy to hoItem
Send Destroy to hoItems
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 -1001 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComBackColor of hoItem1 to (RGB(0,255,0))
Send Destroy to hoItem1
Send Destroy to hoItems1
Variant voItem2
Get ComItem -99 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComVisible of hoItem2 to False
Send Destroy to hoItem2
End_Procedure
|
|
207
|
Is there a trick to arrange two or three items(buttons) on the Right side, with different widths
Procedure OnCreate
Forward Send OnCreate
Set ComArrangeItemsAs to OLEexArrangeItemsHorizontal
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 "C1[chk],C2[chk],C3[chk]"
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voItem
Get ComAdd of hoItems1 "C4" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComID of hoItem to 40
Set ComCheck of hoItem to True
Set ComChecked of hoItem to True
Set ComItemHeight of hoItem to 24
Set ComX of hoItem to "width - (iwidth + iwidthof(50) + iwidthof(60))"
Send Destroy to hoItem
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem1
Get ComAdd of hoItems2 "C5-Baka" Nothing Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComID of hoItem1 to 50
Set ComCheck of hoItem1 to True
Set ComChecked of hoItem1 to True
Set ComItemHeight of hoItem1 to 24
Set ComX of hoItem1 to "width - (iwidth + iwidthof(60))"
Send Destroy to hoItem1
Send Destroy to hoItems2
Variant voItems3
Get ComItems to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Variant voItem2
Get ComAdd of hoItems3 "Expand" 2 Nothing to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComID of hoItem2 to 60
Set ComItemHeight of hoItem2 to 24
Set ComX of hoItem2 to "width - (iwidth)"
Set ComGroupPopup of hoItem2 to OLEexGroupPopup
Set ComCheck of hoItem2 to True
Set ComShowPopupOnChecked of hoItem2 to True
Variant voItems4
Get ComItems of hoItem2 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Get ComAdd of hoItems4 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems4 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems4 "Item 3" Nothing Nothing to Nothing
Set ComPopupAppearance of hoItems4 to OLEShadowBorder
Send Destroy to hoItems4
Send Destroy to hoItem2
Send Destroy to hoItems3
Send ComRefresh
End_Procedure
|
|
206
|
Is there a trick to arrange two or three items(buttons) on the Right side
Procedure OnCreate
Forward Send OnCreate
Set ComArrangeItemsAs to OLEexArrangeItemsHorizontal
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 "C1[chk],C2[chk],C3[chk]"
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voItem
Get ComAdd of hoItems1 "C4" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCheck of hoItem to True
Set ComChecked of hoItem to True
Set ComX of hoItem to "width - 3*42*dpi"
Send Destroy to hoItem
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem1
Get ComAdd of hoItems2 "C5" 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
Set ComX of hoItem1 to "width - 2*42*dpi"
Send Destroy to hoItem1
Send Destroy to hoItems2
Variant voItems3
Get ComItems to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Variant voItem2
Get ComAdd of hoItems3 "C6" Nothing Nothing to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCheck of hoItem2 to True
Set ComChecked of hoItem2 to True
Set ComX of hoItem2 to "width - 1*42*dpi"
Send Destroy to hoItem2
Send Destroy to hoItems3
End_Procedure
|
|
205
|
How can I add a list of fonts
// Occurs when the user selects the item.
Procedure OnComSelectItem Variant llItm
Forward Send OnComSelectItem llItm
// Items(57707).Caption = Itm.Caption
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComLocalAppearance to OLESingleBorder
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 "Font" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComToString of hoItem to "<font Arial>Arial</font>[id=57707][align=1][button=0x0211][captionwidth=96][height=26][ttp=Font][pad=2,2,0,2][itemsbg=RGB(255,255,255)][visible=255](<font Arial>Arial</font>[id=53248][typ=1][close=0][chk=1],<font Arial Black>Arial Black</font>[id=53249][close=0],<font Comic Sans MS>Comic Sans MS</font>[id=53250][close=0],<font Courier New>Courier New</font>[id=53251][close=0],<font Georgia>Georgia</font>[id=53252][close=0],<font Impact>Impact</font>[id=53253][close=0],<font Lucida Console>Lucida Console</font>[id=53254][close=0],<font Lucida Sans Unicode>Lucida Sans Unicode</font>[id=53255][close=0],<font Tahoma>Tahoma</font>[id=53256][close=0],<font Times New Roman>Times New Roman</font>[id=53257][close=0],<font Trebuchet MS>Trebuchet MS</font>[id=53258][close=0],<font Verdana>Verdana</font>[id=53259][close=0],<font MS Sans Serif>MS Sans Serif</font>[id=53260][close=0],<font MS Serif>MS Serif</font>[id=53261][close=0])"
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
204
|
How can I show a pattern over all items
Procedure OnCreate
Forward Send OnCreate
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
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
Set ComBackgroundExt of hoItems1 to "root[pattern=0x006]"
Send Destroy to hoItems1
Send Destroy to hoItem
Send Destroy to hoItems
Send ComRefresh
End_Procedure
|
|
203
|
How can I show a pattern over the item
Procedure OnCreate
Forward Send OnCreate
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 "Item 1" Nothing Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComBackgroundExt of hoItem1 to "root[pattern=0x006]"
Send Destroy to hoItem1
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
Send ComRefresh
End_Procedure
|
|
202
|
How can I add a color table
// Occurs when the user selects the item.
Procedure OnComSelectItem Variant llItm
Forward Send OnComSelectItem llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComLocalAppearance to OLESingleBorder
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 "Color" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComToString of hoItem to ("Color[id=57685][button=0x0211][ttp=Color][itemsbg=RGB(255,255,255)][visible=255](<fgcolor 808080>color[id=350][align=1][group=0x0133][itemspad=2,2,2,2]([id=360][group=0x33]([id=49152][typ=2][close=0][chk=1][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(0,0,0)][data=RGB(0,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,0,0)]],[id=49153][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(68,68,68)][data=RGB(68,68,68)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(68,68,68)]],[id=49154][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(102,102,102)][data=RGB(102,102,102)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(102,102,102)]],[id=49155][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(153,153,153)][data=RGB(153,153,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,153,153)]],[id=49156][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(204,204,204)][data=RGB(204,204,204)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(204,204,204)]],[id=49157][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(238,238,238)][data=RGB(238,238,238)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(238,238,238)]],[id=49158][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(243,243,243)][data=RGB(243,243,243)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(243,243,243)]],[id=49159][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,255,255)][data=RGB(255,255,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,255,255)]]),[id=450][group=0x33]([id=49160][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,0,0)][data=RGB(255,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,0,0)]],[id=49161][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,153,0)][data=RGB(255,153,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,153,0)]],[id=49162][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,255,0)][data=RGB(255,255" + ;
",0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,255,0)]],[id=49163][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(0,255,0)][data=RGB(0,255,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,255,0)]],[id=49164][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(0,255,255)][data=RGB(0,255,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,255,255)]],[id=49165][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(0,0,255)][data=RGB(0,0,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,0,255)]],[id=49166][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(153,0,255)][data=RGB(153,0,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,0,255)]],[id=49167][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,0,255)][data=RGB(255,0,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,0,255)]]),[id=540][group=0x33]([id=49168][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(244,204,204)][data=RGB(244,204,204)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(244,204,204)]],[id=49169][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(252,229,205)][data=RGB(252,229,205)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(252,229,205)]],[id=49170][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,242,204)][data=RGB(255,242,204)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,242,204)]],[id=49171][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(217,234,211)][data=RGB(217,234,211)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(217,234,211)]],[id=49172][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(208,224,227)][data=RGB(208,224,227)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(208,224,227)]],[id=49173][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(207,226,243)][data=RGB(207,226,243)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(207,226,243)]],[id=49174][typ=2][close=0][show=1][grp=49152][ca" + ;
"ptionwidth=24][height=24][ttp=RGB(217,210,233)][data=RGB(217,210,233)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(217,210,233)]],[id=49175][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(234,209,220)][data=RGB(234,209,220)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(234,209,220)]]),[id=630][group=0x33]([id=49176][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(234,153,153)][data=RGB(234,153,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(234,153,153)]],[id=49177][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(249,203,156)][data=RGB(249,203,156)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(249,203,156)]],[id=49178][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,229,153)][data=RGB(255,229,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,229,153)]],[id=49179][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(182,215,168)][data=RGB(182,215,168)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(182,215,168)]],[id=49180][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(162,196,201)][data=RGB(162,196,201)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(162,196,201)]],[id=49181][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(159,197,232)][data=RGB(159,197,232)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(159,197,232)]],[id=49182][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(180,167,214)][data=RGB(180,167,214)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(180,167,214)]],[id=49183][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(213,166,189)][data=RGB(213,166,189)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(213,166,189)]]),[id=720][group=0x33]([id=49184][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(224,102,102)][data=RGB(224,102,102)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(224,102,102)]],[id=49185][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(246,178,107)" + ;
"][data=RGB(246,178,107)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(246,178,107)]],[id=49186][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,217,102)][data=RGB(255,217,102)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,217,102)]],[id=49187][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(147,196,125)][data=RGB(147,196,125)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(147,196,125)]],[id=49188][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(118,165,175)][data=RGB(118,165,175)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(118,165,175)]],[id=49189][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(111,168,220)][data=RGB(111,168,220)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(111,168,220)]],[id=49190][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(142,124,195)][data=RGB(142,124,195)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(142,124,195)]],[id=49191][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(194,123,160)][data=RGB(194,123,160)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(194,123,160)]]),[id=810][group=0x33]([id=49192][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(204,0,0)][data=RGB(204,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(204,0,0)]],[id=49193][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(230,145,56)][data=RGB(230,145,56)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(230,145,56)]],[id=49194][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(241,194,50)][data=RGB(241,194,50)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(241,194,50)]],[id=49195][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(106,168,79)][data=RGB(106,168,79)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(106,168,79)]],[id=49196][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(69,129,142)][data=RGB(69,129,142)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(69,129,142)]],[id=4919" + ;
"7][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(61,133,198)][data=RGB(61,133,198)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(61,133,198)]],[id=49198][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(103,78,167)][data=RGB(103,78,167)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(103,78,167)]],[id=49199][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(166,77,121)][data=RGB(166,77,121)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(166,77,121)]]),[id=900][group=0x33]([id=49200][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(153,0,0)][data=RGB(153,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,0,0)]],[id=49201][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(180,95,6)][data=RGB(180,95,6)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(180,95,6)]],[id=49202][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(191,144,0)][data=RGB(191,144,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(191,144,0)]],[id=49203][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(56,118,29)][data=RGB(56,118,29)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(56,118,29)]],[id=49204][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(19,79,92)][data=RGB(19,79,92)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(19,79,92)]],[id=49205][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(11,83,148)][data=RGB(11,83,148)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(11,83,148)]],[id=49206][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(53,28,117)][data=RGB(53,28,117)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(53,28,117)]],[id=49207][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(116,27,71)][data=RGB(116,27,71)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(116,27,71)]]),[id=990][group=0x33]([id=49208][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(102,0,0)][data=RGB(102,0,0)][bgext=none[(" + ;
"2D,2D,100%-4D,100%-4D),back=RGB(102,0,0)]],[id=49209][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(120,63,4)][data=RGB(120,63,4)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(120,63,4)]],[id=49210][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(127,96,0)][data=RGB(127,96,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(127,96,0)]],[id=49211][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(39,78,19)][data=RGB(39,78,19)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(39,78,19)]],[id=49212][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(12,52,61)][data=RGB(12,52,61)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(12,52,61)]],[id=49213][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(7,55,99)][data=RGB(7,55,99)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(7,55,99)]],[id=49214][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(32,18,77)][data=RGB(32,18,77)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(32,18,77)]],[id=49215][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(76,17,48)][data=RGB(76,17,48)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(76,17,48)]])))")
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
201
|
Is it possible to re-arrange the items once the toolbar is resized
Procedure OnCreate
Forward Send OnCreate
Set ComArrangeItemsAs to (OLEexArrangeItemsScroll + OLEexArrangeItemsWrap + OLEexArrangeItemsHorizontal)
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 "1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9"
Send Destroy to hoItems
End_Procedure
|