|
110
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
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 ComCheckBoxWidth to 32
Set ComCheckBoxHeight to 32
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
Send Destroy to hoAppearance
Set ComBackground OLEexCheckBoxState0 to |CI$1000000
Set ComBackground OLEexCheckBoxState1 to |CI$2000000
Set ComBackground OLEexCheckBoxState2 to |CI$3000000
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComShowSelection of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 16
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Check A<img>1</img>,Check B<img>2</img>,Check C<img>3</img>"
Send Destroy to hoItems
Variant voItem
Get ComItemByIndex of hoFaceTree 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComState of hoItem 0 to 1
Send Destroy to hoItem
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
109
|
ImageSize property on 16 (default) (specifies the size of control' icons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComImageSize to 16
Send ComImages "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComShowSelection of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 16
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Check A<img>1</img>,Check B<img>2</img>,Check C<img>3</img>"
Send Destroy to hoItems
Variant voItem
Get ComItemByIndex of hoFaceTree 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComState of hoItem 0 to 1
Send Destroy to hoItem
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
108
|
How can I add a hierarchy (multiple-columns), using the Item.ToString method
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to ""
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComLinesAtRoot of hoFaceTree to OLEexLinesAtRoot
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns 1 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoFaceTree to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 2 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComAlignment of hoColumn1 to OLELeftAlignment
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns of hoFaceTree to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 3 to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComAlignment of hoColumn2 to OLELeftAlignment
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Root 1;Root 2;Root 3(Child1.1;Child2.1;Child3.1(SubChild 1.1;SubChild 2.1;SubChild 3.1,SubChild 2.1;SubChild 2.2;SubChild 2.3),Child 1.2;Child 2.2;Child 3.2)"
Send Destroy to hoItems
Variant voItems1
Get ComItems of hoFaceTree to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComExpandAll of hoItems1
Send Destroy to hoItems1
Variant v
Variant voItems2
Get ComItems of hoFaceTree to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem
Get ComItem of hoItems2 0 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Get ComToString of hoItem to v
Send Destroy to hoItem
Send Destroy to hoItems2
Showln v
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
|
|
107
|
How can I add a hierarchy (single column), using the Item.ToString method
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to ""
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComLinesAtRoot of hoFaceTree to OLEexLinesAtRoot
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCount of hoItems to 1
Send Destroy to hoItems
Variant voItems1
Get ComItems of hoFaceTree to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voItem
Get ComItem of hoItems1 0 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComToString of hoItem to "Root(Child1(SubChild 1,SubChild 2),Child2)"
Send Destroy to hoItem
Send Destroy to hoItems1
Variant voItems2
Get ComItems of hoFaceTree to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Send ComExpandAll of hoItems2
Send Destroy to hoItems2
Variant v
Variant voItems3
Get ComItems of hoFaceTree to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Variant voItem1
Get ComItem of hoItems3 0 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Get ComToString of hoItem1 to v
Send Destroy to hoItem1
Send Destroy to hoItems3
Showln v
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
|
|
106
|
How can add items to a list
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to ""
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Pos" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "1 pos ``"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant v
Variant voFace1
Get ComFrontFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceTree1
Get ComFaceTree of hoFace1 to voFaceTree1
Handle hoFaceTree1
Get Create (RefClass(cComFaceTree)) to hoFaceTree1
Set pvComObject of hoFaceTree1 to voFaceTree1
Get ComVisibleItemsCount of hoFaceTree1 to v
Send Destroy to hoFaceTree1
Send Destroy to hoFace1
Set ComCount of hoItems to v
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
|
|
105
|
How can I split a cell
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComHTMLPicture "P1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "P2" to "c:\exontrol\images\auction.gif"
Set ComHTMLPicture "P3" to "c:\exontrol\images\colorize.gif"
Set ComHTMLPicture "P4" to "c:\exontrol\images\auction.gif"
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Choose your quick actions" to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComSingleLine of hoItem 0 to False
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 "" to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComHeight of hoItem1 to 48
Variant s
Move 0 to s
Set ComValue of hoItem1 s to "<c><img>P1</img>"
Set ComCellWidth of hoItem1 s to 48
Set ComHasButton of hoItem1 s to True
Get ComSplitCell of hoItem1 s to s
Set ComValue of hoItem1 s to "<c><img>P2</img>"
Set ComCellWidth of hoItem1 s to 48
Set ComHasButton of hoItem1 s to True
Get ComSplitCell of hoItem1 s to s
Set ComValue of hoItem1 s to "<c><img>P3</img>"
Set ComCellWidth of hoItem1 s to 48
Set ComHasButton of hoItem1 s to True
Get ComSplitCell of hoItem1 s to s
Set ComValue of hoItem1 s to "<c><img>P4</img>"
Set ComCellWidth of hoItem1 s to 48
Set ComHasButton of hoItem1 s to True
Get ComSplitCell of hoItem1 s to s
Send Destroy to hoItem1
Send Destroy to hoItems1
Set ComExpanded of hoItem to True
Send Destroy to hoItem
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
104
|
I've noticed that the Face has no background color. Still, can I change the face's background color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceCalendar
Get ComCreateCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComAutoSize of hoFaceCalendar to OLEexFitClient
Set ComMaxMonthX of hoFaceCalendar to (ComMinMonthX(hoFaceCalendar))
Set ComMaxMonthY of hoFaceCalendar to (ComMinMonthY(hoFaceCalendar))
Set ComShowTodayButton of hoFaceCalendar to False
Send Destroy to hoFaceCalendar
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceBackColor to 15790320
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceHeight to "height"
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceVisible to 1
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
103
|
How can I change the +/- expanding/collapsing buttons
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to ""
Send ComBeginUpdate
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 "gBFLBCJwBAEHhEJAADhABDgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXIUBxAAqXZZFUaKAgOMJDTLBAzUSAAYhtHqeJBjID4JA6UJXRpIAIQSSBUjGOg6TiMUYZAguAxCEzZUT0fAYUQSCC3ZzDCKoRpiCT7Xg8V5OVbjUz9P7AMBwLA7erxap6PJeD54QymGp/R5eMhyLI8UxXFqRY6veKtJhGDIrT5CEIQVA9EyXJqnahqOiaCguPorQy/dYYdg2BYBPS6MAvG4bVrOd59XrgN42fY2ByzAqlMQwS7rOqiY6YWTnehWToHE+JZUmoLB5CufQuAkBYkGO+ZrDWAo7keZZyHmH5+i8X4bluaJyHgGB9mQHx3JjBpViqJRHmueZ7H8Xo3i2fYAl+d5tncMRfDcdZeDMDIjCCJwokoEoQiEJ4KCIfIdgUSZIAWaoGCEUh2BIJ4gnKBgMDICAnHoCggg0Aw4k0KAJkIagaguYwIj4LAmiKEw2CUIIiHMUJSDQSYyGCFYMGQCJCD0JRjiMRg3gmTYjGSVgmgkchSD4JJklIRIXCSSQYj4U4UgkQhGE+EwJEkJJWhGpgGGIOBNmMdhPg8SRiHCGAlibNhohqJpJi4T4ZA2WYIgEYInGOGJlDkCQyECDoTEkKQ+E+C5oCIVhQCUCQpnSDoeg4SZZH8YdhjibQ7AiUgkgcJFyiyEYmGmOhqhyJ5pmILoYCKaRSB6Eg7CcZgZggaRqHqNoTiuDpKkKMormsQ4xiUYgYiKEo6CCWgWiqPovloZoGjoKQYiOLR1ECUAQIC" to Nothing
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABDwCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXIUBxAAqXZZFUaKAgOMJDTLBAzUSAAYhtHqeJBjID4JA6UJXRpIAIQSSBUjGOg6TiMUYZAguAxCEzZUT0fAYUQSCC3ZzDCKoRpiCT7Xg8V5OVbjUz9P7AMBwLA7erxap6PJeD54QymGp/R5eMhyLI8UxXFqRY6veKtJhGDIrT5CEIQVA9EyXJqnahqOiaCguPorQy/dYYdg2BYBPS6MAvG4bVrOd59XrgN42fY2ByzAqlMQwS7rOqiY6YWTnehWToHE+JZUmoLB5CufQuAkBYkGO+ZrDWAo7keZZyHmPQ+g8X4fluYBhneEB9l0Iwpg6RRWiqFQfg+V5nnefh/GAB5yAIfRMFeRZdHeDJDCiSApkoMoEiQKBJmKCIfCcYQiHIFYFkmeBaBOA5JmgsICEyAgJl6AZICMQJODMSgCHCGg/mKSI2C6C5jAiNgpCaIhjDYIggiIQxQlINBJjIYIVgwZAJAYPQlGOIxGDeCQNiMZJWCaCRyFIPgkmSUhEhcJJlCkUhThUZQiFCEYTmSQhSEkNYkHYBIBhiTgTHiXYTmOUhYhwJgJGmJhuhsJoZi4bYbCSeYUl2GJIBYCh4DmDhThCEwkAiaQ0hKE5oEIVITiEaB6BqAofkiaZwmSHgXnYGh4DuDpTjCDQiEgchAg0IpJBobodicKZqgaIAimmIguhcIZpEOMh4GGGIGhaKYrmkWpAmyLIrEqRo2DsGhWCGCgpCuQgNiEaosAsBYmGga5ChGCg6lcVANAEgI" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexTreeGlyphCollapsed to |CI$1000000
Set ComBackground OLEexTreeGlyphExpanded to |CI$2000000
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComExpandOnDblClick of hoFaceTree to True
Set ComItemPadding of hoFaceTree to 16
Set ComHeaderVisible of hoFaceTree to False
Set ComHasLines of hoFaceTree to OLEexThinLine
Set ComLinesAtRoot of hoFaceTree to OLEexGroupLinesInside
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Root 1(Child 1,Child 2),Root 2(Child 3,Child 4)"
Send Destroy to hoItems
Variant voItem
Get ComItemByIndex of hoFaceTree 3 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComExpanded of hoItem to True
Send Destroy to hoItem
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
102
|
How can I use the ToString property
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to ""
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Set ComToString of hoColumns to "Column 1,Column 2,Column 3,Column 4"
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree 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;10;11;12,13;14;15;16,17;18;29;20,21;22;23;24,25;26;27;28,29;30;31;32"
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
|
|
101
|
How can I use the Background property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
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\ExButton\Sample\EBN\Assorted\calendar_single.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexDateHeader to |CI$1000000
Set ComBackground OLEexWeeksHeader to (RGB(250,250,250))
Set ComBackground OLEexDaysHeader to (RGB(250,250,250))
Set ComBackground OLEexDateTodayUp to |CI$2000000
Set ComBackground OLEexDateTodayForeColor to (RGB(255,255,255))
Set ComTexturePicturePath to ""
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceCalendar
Get ComCreateCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComDate of hoFaceCalendar to "1/1/2016"
Set ComAutoSize of hoFaceCalendar to OLEexFitClient
Set ComMaxMonthX of hoFaceCalendar to (ComMinMonthX(hoFaceCalendar))
Set ComMaxMonthY of hoFaceCalendar to (ComMinMonthY(hoFaceCalendar))
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
100
|
How can I display two lists of radio-buttons
// Notifies that a cell changes its state into a face of tree type.
Procedure OnComFaceTreeStateChanged Variant llTree Integer llItem Integer llColumn
Forward Send OnComFaceTreeStateChanged llTree llItem llColumn
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComFaceTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Variant voItem
Get ComItemByIndex of hoFaceTree llItem to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Showln "State" (ComState(hoItem,0))
Send Destroy to hoItem
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to ""
Variant voFace1
Get ComFrontFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceTree1
Get ComCreateTree of hoFace1 to voFaceTree1
Handle hoFaceTree1
Get Create (RefClass(cComFaceTree)) to hoFaceTree1
Set pvComObject of hoFaceTree1 to voFaceTree1
Set ComHeaderVisible of hoFaceTree1 to False
Set ComItemPadding of hoFaceTree1 to 16
Set ComDrawGridLines of hoFaceTree1 to OLEexNoLines
Variant voColumns
Get ComColumns of hoFaceTree1 to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Radio" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem1
Get ComAdd of hoItems "Group A" 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 "Radio <b>1" to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComHasRadioButton of hoItem2 0 to True
Set ComRadioGroup of hoItem2 0 to 1234
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems1 "Radio <b>2" to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComHasRadioButton of hoItem3 0 to True
Set ComRadioGroup of hoItem3 0 to 1234
Set ComState of hoItem3 0 to 1
Send Destroy to hoItem3
Variant voItem4
Get ComAdd of hoItems1 "Radio <b>3" to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComHasRadioButton of hoItem4 0 to True
Set ComRadioGroup of hoItem4 0 to 1234
Send Destroy to hoItem4
Send Destroy to hoItems1
Set ComExpanded of hoItem1 to True
Send Destroy to hoItem1
Variant voItem5
Get ComAdd of hoItems "Group B" to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Variant voItems2
Get ComItems of hoItem5 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem6
Get ComAdd of hoItems2 "Radio <b>1" to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComHasRadioButton of hoItem6 0 to True
Set ComRadioGroup of hoItem6 0 to 1235
Send Destroy to hoItem6
Variant voItem7
Get ComAdd of hoItems2 "Radio <b>2" to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Set ComHasRadioButton of hoItem7 0 to True
Set ComRadioGroup of hoItem7 0 to 1235
Send Destroy to hoItem7
Variant voItem8
Get ComAdd of hoItems2 "Radio <b>3" to voItem8
Handle hoItem8
Get Create (RefClass(cComItem)) to hoItem8
Set pvComObject of hoItem8 to voItem8
Set ComHasRadioButton of hoItem8 0 to True
Set ComRadioGroup of hoItem8 0 to 1235
Set ComState of hoItem8 0 to 1
Send Destroy to hoItem8
Send Destroy to hoItems2
Set ComExpanded of hoItem5 to True
Send Destroy to hoItem5
Send Destroy to hoItems
Send Destroy to hoFaceTree1
Send Destroy to hoFace1
End_Procedure
|
|
99
|
How can I display a list of check-boxes
// Notifies that a cell changes its state into a face of tree type.
Procedure OnComFaceTreeStateChanged Variant llTree Integer llItem Integer llColumn
Forward Send OnComFaceTreeStateChanged llTree llItem llColumn
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComFaceTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Variant voItem
Get ComItemByIndex of hoFaceTree llItem to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Showln "State" (ComState(hoItem,0))
Send Destroy to hoItem
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to ""
Variant voFace1
Get ComFrontFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceTree1
Get ComCreateTree of hoFace1 to voFaceTree1
Handle hoFaceTree1
Get Create (RefClass(cComFaceTree)) to hoFaceTree1
Set pvComObject of hoFaceTree1 to voFaceTree1
Set ComHeaderVisible of hoFaceTree1 to False
Set ComItemPadding of hoFaceTree1 to 16
Set ComDrawGridLines of hoFaceTree1 to OLEexNoLines
Variant voColumns
Get ComColumns of hoFaceTree1 to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem1
Get ComAdd of hoItems "Check <b>1" to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComHasCheckBox of hoItem1 0 to True
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems "Check <b>2" to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComHasCheckBox of hoItem2 0 to True
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems "Check <b>3" to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComHasCheckBox of hoItem3 0 to True
Set ComState of hoItem3 0 to 1
Send Destroy to hoItem3
Variant voItem4
Get ComAdd of hoItems "Check <b>4" to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComHasCheckBox of hoItem4 0 to True
Send Destroy to hoItem4
Send Destroy to hoItems
Send Destroy to hoFaceTree1
Send Destroy to hoFace1
End_Procedure
|
|
98
|
How do I get the selected caption
// Notifies that the user selects a new item/column into a face of tree type.
Procedure OnComFaceTreeSelectionChanged Variant llTree
Forward Send OnComFaceTreeSelectionChanged llTree
Variant v
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComFaceTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Get ComValue of hoFaceTree to v
Send Destroy to hoFaceTree
Send Destroy to hoFace
Showln "Value" v
Variant v1
Variant voFace1
Get ComFrontFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceTree1
Get ComFaceTree of hoFace1 to voFaceTree1
Handle hoFaceTree1
Get Create (RefClass(cComFaceTree)) to hoFaceTree1
Set pvComObject of hoFaceTree1 to voFaceTree1
Get ComCaption of hoFaceTree1 to v1
Send Destroy to hoFaceTree1
Send Destroy to hoFace1
Showln "Caption" v1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to ""
Variant voFace2
Get ComFrontFace to voFace2
Handle hoFace2
Get Create (RefClass(cComFace)) to hoFace2
Set pvComObject of hoFace2 to voFace2
Variant voFaceTree2
Get ComCreateTree of hoFace2 to voFaceTree2
Handle hoFaceTree2
Get Create (RefClass(cComFaceTree)) to hoFaceTree2
Set pvComObject of hoFaceTree2 to voFaceTree2
Set ComItemPadding of hoFaceTree2 to 20
Variant voColumns
Get ComColumns of hoFaceTree2 to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Set ComCount of hoColumns to 5
Send Destroy to hoColumns
Set ComHeaderVisible of hoFaceTree2 to False
Variant voItems
Get ComItems of hoFaceTree2 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant v2
Variant voFace3
Get ComFrontFace to voFace3
Handle hoFace3
Get Create (RefClass(cComFace)) to hoFace3
Set pvComObject of hoFace3 to voFace3
Variant voFaceTree3
Get ComFaceTree of hoFace3 to voFaceTree3
Handle hoFaceTree3
Get Create (RefClass(cComFaceTree)) to hoFaceTree3
Set pvComObject of hoFaceTree3 to voFaceTree3
Get ComVisibleItemsCount of hoFaceTree3 to v2
Send Destroy to hoFaceTree3
Send Destroy to hoFace3
Set ComCount of hoItems to v2
Send Destroy to hoItems
Variant voColumns1
Get ComColumns of hoFaceTree2 to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComItem of hoColumns1 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns of hoFaceTree2 to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComItem of hoColumns2 1 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns of hoFaceTree2 to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn2
Get ComItem of hoColumns3 2 to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComFormatColumn of hoColumn2 to "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
Send Destroy to hoColumn2
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns of hoFaceTree2 to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn3
Get ComItem of hoColumns4 3 to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
Send Destroy to hoColumn3
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns of hoFaceTree2 to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn4
Get ComItem of hoColumns5 4 to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComFormatColumn of hoColumn4 to "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
Send Destroy to hoColumn4
Send Destroy to hoColumns5
Send Destroy to hoFaceTree2
Send Destroy to hoFace2
End_Procedure
|
|
97
|
How do I get the selected value
// Notifies that the user selects a new item/column into a face of tree type.
Procedure OnComFaceTreeSelectionChanged Variant llTree
Forward Send OnComFaceTreeSelectionChanged llTree
Variant v
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComFaceTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Get ComValue of hoFaceTree to v
Send Destroy to hoFaceTree
Send Destroy to hoFace
Showln "Value" v
Variant v1
Variant voFace1
Get ComFrontFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceTree1
Get ComFaceTree of hoFace1 to voFaceTree1
Handle hoFaceTree1
Get Create (RefClass(cComFaceTree)) to hoFaceTree1
Set pvComObject of hoFaceTree1 to voFaceTree1
Get ComCaption of hoFaceTree1 to v1
Send Destroy to hoFaceTree1
Send Destroy to hoFace1
Showln "Caption" v1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to ""
Variant voFace2
Get ComFrontFace to voFace2
Handle hoFace2
Get Create (RefClass(cComFace)) to hoFace2
Set pvComObject of hoFace2 to voFace2
Variant voFaceTree2
Get ComCreateTree of hoFace2 to voFaceTree2
Handle hoFaceTree2
Get Create (RefClass(cComFaceTree)) to hoFaceTree2
Set pvComObject of hoFaceTree2 to voFaceTree2
Set ComItemPadding of hoFaceTree2 to 20
Variant voColumns
Get ComColumns of hoFaceTree2 to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Set ComCount of hoColumns to 5
Send Destroy to hoColumns
Set ComHeaderVisible of hoFaceTree2 to False
Variant voItems
Get ComItems of hoFaceTree2 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant v2
Variant voFace3
Get ComFrontFace to voFace3
Handle hoFace3
Get Create (RefClass(cComFace)) to hoFace3
Set pvComObject of hoFace3 to voFace3
Variant voFaceTree3
Get ComFaceTree of hoFace3 to voFaceTree3
Handle hoFaceTree3
Get Create (RefClass(cComFaceTree)) to hoFaceTree3
Set pvComObject of hoFaceTree3 to voFaceTree3
Get ComVisibleItemsCount of hoFaceTree3 to v2
Send Destroy to hoFaceTree3
Send Destroy to hoFace3
Set ComCount of hoItems to v2
Send Destroy to hoItems
Variant voColumns1
Get ComColumns of hoFaceTree2 to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComItem of hoColumns1 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns of hoFaceTree2 to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComItem of hoColumns2 1 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns of hoFaceTree2 to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn2
Get ComItem of hoColumns3 2 to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComFormatColumn of hoColumn2 to "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
Send Destroy to hoColumn2
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns of hoFaceTree2 to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn3
Get ComItem of hoColumns4 3 to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
Send Destroy to hoColumn3
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns of hoFaceTree2 to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn4
Get ComItem of hoColumns5 4 to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComFormatColumn of hoColumn4 to "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
Send Destroy to hoColumn4
Send Destroy to hoColumns5
Send Destroy to hoFaceTree2
Send Destroy to hoFace2
End_Procedure
|
|
96
|
How can I add buttons on the face
// Notifies that a cell of button's type has been clicked.
Procedure OnComFaceTreeButtonClick Variant llTree Integer llItem Integer llColumn
Forward Send OnComFaceTreeButtonClick llTree llItem llColumn
Showln llItem llColumn
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to ""
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComDrawGridLines of hoFaceTree to OLEexNoLines
Set ComItemPadding of hoFaceTree to 16
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Buttons" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "1 index `A-Z`"
Set ComDef of hoColumn OLEexCellHasButton to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCount of hoItems to 4
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
|
|
95
|
How do I programmatically selects a date (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceCalendar
Get ComCreateCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComValue of hoFaceCalendar to "Jan 21"
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
End_Procedure
|
|
94
|
How do I programmatically selects a date (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceCalendar
Get ComCreateCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComDate of hoFaceCalendar to "1/1/2001"
Set ComSelDate of hoFaceCalendar to (ComDate(hoFaceCalendar))
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
End_Procedure
|
|
93
|
How can I display a hyperlink element
// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick OLEFaceEnum llFace String llAnchorID String llOptions
Forward Send OnComAnchorClick llFace llAnchorID llOptions
Showln llFace llAnchorID llOptions
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComShowSelection of hoFaceTree to False
Set ComHeaderVisible of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexNoLines
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "<a A1\;options1>Item 1</a>,<a A2\;options2>Item 2</a>"
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
|
|
92
|
Can I display image and multiple-lines items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComHTMLPicture "DriveC" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "DriveD" to "c:\exontrol\images\auction.gif"
Set ComHTMLPicture "DriveE" to "c:\exontrol\images\colorize.gif"
Variant voFace
Get ComTopFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComRelativeMargins of hoFace to "0,32,0,0"
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComHasLines of hoFaceTree to OLEexNoLine
Set ComDrawGridLines of hoFaceTree to OLEexNoLines
Set ComItemPadding of hoFaceTree to 24
Set ComHeaderVisible of hoFaceTree to False
Set ComShowSelection of hoFaceTree to True
Set ComSelBackColor of hoFaceTree to (RGB(240,240,240))
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Storage" to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComDivider of hoItem to 0
Set ComBold of hoItem to True
Set ComSelectable of hoItem to False
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Choose a drive to see what's taking up space." to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComSelectable of hoItem1 to False
Set ComSingleLine of hoItem1 0 to False
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 "<img>DriveC:64</img>" to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComHeight of hoItem2 to 68
Set ComBackgroundExt of hoItem2 0 to "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
Set ComBackgroundExtValue of hoItem2 0 OLEexIndexExt2 OLEexTextExtWordWrap to True
Set ComBackgroundExtValue of hoItem2 0 OLEexIndexExt2 OLEexTextExt to "<fgcolor=000000>LROG (C:)<br>58.7 GB used out of 150 GB"
Set ComBackgroundExtValue of hoItem2 0 OLEexIndexExt4 OLEexClientExt to "39%"
Send Destroy to hoItem2
Send Destroy to hoItems1
Variant voItems2
Get ComItems of hoItem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem3
Get ComAdd of hoItems2 "<img>DriveD:64</img>" to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComHeight of hoItem3 to 68
Set ComBackgroundExt of hoItem3 0 to "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
Set ComBackgroundExtValue of hoItem3 0 OLEexIndexExt2 OLEexTextExtWordWrap to True
Set ComBackgroundExtValue of hoItem3 0 OLEexIndexExt2 OLEexTextExt to "<fgcolor=000000>System (D:)<br>112 MB used out of 144 GB"
Set ComBackgroundExtValue of hoItem3 0 OLEexIndexExt4 OLEexClientExt to "1%"
Send Destroy to hoItem3
Send Destroy to hoItems2
Variant voItems3
Get ComItems of hoItem1 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Variant voItem4
Get ComAdd of hoItems3 "<img>DriveD:64</img>" to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComHeight of hoItem4 to 68
Set ComBackgroundExt of hoItem4 0 to "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
Set ComBackgroundExtValue of hoItem4 0 OLEexIndexExt2 OLEexTextExtWordWrap to True
Set ComBackgroundExtValue of hoItem4 0 OLEexIndexExt2 OLEexTextExt to "<fgcolor=000000>Work (E:)<br>53.0 GB used out of 635 GB"
Set ComBackgroundExtValue of hoItem4 0 OLEexIndexExt4 OLEexClientExt to "8%"
Send Destroy to hoItem4
Send Destroy to hoItems3
Variant voItems4
Get ComItems of hoItem1 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Variant voItem5
Get ComAdd of hoItems4 "<img>DriveE:64</img>" to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComHeight of hoItem5 to 68
Set ComBackgroundExt of hoItem5 0 to "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
Set ComBackgroundExtValue of hoItem5 0 OLEexIndexExt2 OLEexTextExtWordWrap to True
Set ComBackgroundExtValue of hoItem5 0 OLEexIndexExt2 OLEexTextExt to "<fgcolor=000000>DVD RW Drive (G:)<br>0.0 GB used out of 0.0 GB"
Set ComBackgroundExtValue of hoItem5 0 OLEexIndexExt4 OLEexClientExt to "0%"
Send Destroy to hoItem5
Send Destroy to hoItems4
Set ComExpanded of hoItem1 to True
Send Destroy to hoItem1
Variant voItem6
Get ComAdd of hoItems "Save Locations" to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComDivider of hoItem6 to 0
Set ComBold of hoItem6 to True
Set ComSelectable of hoItem6 to False
Send Destroy to hoItem6
Variant voItem7
Get ComAdd of hoItems "Change where your apps, documents, music, pictures and videos are saved by default." to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Set ComSelectable of hoItem7 to False
Set ComSingleLine of hoItem7 0 to False
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 "New apps will save to:" to voItem8
Handle hoItem8
Get Create (RefClass(cComItem)) to hoItem8
Set pvComObject of hoItem8 to voItem8
Set ComSelectable of hoItem8 to False
Variant voItems6
Get ComItems of hoItem8 to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Variant voItem9
Get ComAdd of hoItems6 "Drive C" to voItem9
Handle hoItem9
Get Create (RefClass(cComItem)) to hoItem9
Set pvComObject of hoItem9 to voItem9
Set ComSelectable of hoItem9 to False
Set ComHeight of hoItem9 to 24
Set ComHasRadioButton of hoItem9 0 to True
Set ComRadioGroup of hoItem9 0 to 1234
Set ComState of hoItem9 0 to 1
Variant s
Get ComSplitCell of hoItem9 0 to s
Set ComValue of hoItem9 s to "Drive D"
Set ComHasRadioButton of hoItem9 s to True
Set ComRadioGroup of hoItem9 s to 1234
Get ComSplitCell of hoItem9 s to s
Set ComValue of hoItem9 s to "Drive E"
Set ComHasRadioButton of hoItem9 s to True
Set ComRadioGroup of hoItem9 s to 1234
Send Destroy to hoItem9
Send Destroy to hoItems6
Set ComExpanded of hoItem8 to True
Send Destroy to hoItem8
Send Destroy to hoItems5
Variant voItems7
Get ComItems of hoItem7 to voItems7
Handle hoItems7
Get Create (RefClass(cComItems)) to hoItems7
Set pvComObject of hoItems7 to voItems7
Variant voItem10
Get ComAdd of hoItems7 "New documents will save to:" to voItem10
Handle hoItem10
Get Create (RefClass(cComItem)) to hoItem10
Set pvComObject of hoItem10 to voItem10
Set ComSelectable of hoItem10 to False
Variant voItems8
Get ComItems of hoItem10 to voItems8
Handle hoItems8
Get Create (RefClass(cComItems)) to hoItems8
Set pvComObject of hoItems8 to voItems8
Variant voItem11
Get ComAdd of hoItems8 "Drive C" to voItem11
Handle hoItem11
Get Create (RefClass(cComItem)) to hoItem11
Set pvComObject of hoItem11 to voItem11
Set ComSelectable of hoItem11 to False
Set ComHeight of hoItem11 to 24
Set ComHasRadioButton of hoItem11 0 to True
Set ComRadioGroup of hoItem11 0 to 1235
Get ComSplitCell of hoItem11 0 to s
Set ComValue of hoItem11 s to "Drive D"
Set ComHasRadioButton of hoItem11 s to True
Set ComRadioGroup of hoItem11 s to 1235
Set ComState of hoItem11 s to 1
Get ComSplitCell of hoItem11 s to s
Set ComValue of hoItem11 s to "Drive E"
Set ComHasRadioButton of hoItem11 s to True
Set ComRadioGroup of hoItem11 s to 1235
Send Destroy to hoItem11
Send Destroy to hoItems8
Set ComExpanded of hoItem10 to True
Send Destroy to hoItem10
Send Destroy to hoItems7
Variant voItems9
Get ComItems of hoItem7 to voItems9
Handle hoItems9
Get Create (RefClass(cComItems)) to hoItems9
Set pvComObject of hoItems9 to voItems9
Variant voItem12
Get ComAdd of hoItems9 "New music will save to:" to voItem12
Handle hoItem12
Get Create (RefClass(cComItem)) to hoItem12
Set pvComObject of hoItem12 to voItem12
Set ComSelectable of hoItem12 to False
Variant voItems10
Get ComItems of hoItem12 to voItems10
Handle hoItems10
Get Create (RefClass(cComItems)) to hoItems10
Set pvComObject of hoItems10 to voItems10
Variant voItem13
Get ComAdd of hoItems10 "Drive C" to voItem13
Handle hoItem13
Get Create (RefClass(cComItem)) to hoItem13
Set pvComObject of hoItem13 to voItem13
Set ComSelectable of hoItem13 to False
Set ComHeight of hoItem13 to 24
Set ComHasRadioButton of hoItem13 0 to True
Set ComRadioGroup of hoItem13 0 to 1236
Get ComSplitCell of hoItem13 0 to s
Set ComValue of hoItem13 s to "Drive D"
Set ComHasRadioButton of hoItem13 s to True
Set ComRadioGroup of hoItem13 s to 1236
Set ComState of hoItem13 s to 1
Get ComSplitCell of hoItem13 s to s
Set ComValue of hoItem13 s to "Drive E"
Set ComHasRadioButton of hoItem13 s to True
Set ComRadioGroup of hoItem13 s to 1236
Send Destroy to hoItem13
Send Destroy to hoItems10
Set ComExpanded of hoItem12 to True
Send Destroy to hoItem12
Send Destroy to hoItems9
Variant voItems11
Get ComItems of hoItem7 to voItems11
Handle hoItems11
Get Create (RefClass(cComItems)) to hoItems11
Set pvComObject of hoItems11 to voItems11
Variant voItem14
Get ComAdd of hoItems11 "New pictures will save to:" to voItem14
Handle hoItem14
Get Create (RefClass(cComItem)) to hoItem14
Set pvComObject of hoItem14 to voItem14
Set ComSelectable of hoItem14 to False
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 "Drive C" to voItem15
Handle hoItem15
Get Create (RefClass(cComItem)) to hoItem15
Set pvComObject of hoItem15 to voItem15
Set ComSelectable of hoItem15 to False
Set ComHeight of hoItem15 to 24
Set ComHasRadioButton of hoItem15 0 to True
Set ComRadioGroup of hoItem15 0 to 1237
Get ComSplitCell of hoItem15 0 to s
Set ComValue of hoItem15 s to "Drive D"
Set ComHasRadioButton of hoItem15 s to True
Set ComRadioGroup of hoItem15 s to 1237
Set ComState of hoItem15 s to 1
Get ComSplitCell of hoItem15 s to s
Set ComValue of hoItem15 s to "Drive E"
Set ComHasRadioButton of hoItem15 s to True
Set ComRadioGroup of hoItem15 s to 1237
Send Destroy to hoItem15
Send Destroy to hoItems12
Set ComExpanded of hoItem14 to True
Send Destroy to hoItem14
Send Destroy to hoItems11
Variant voItems13
Get ComItems of hoItem7 to voItems13
Handle hoItems13
Get Create (RefClass(cComItems)) to hoItems13
Set pvComObject of hoItems13 to voItems13
Variant voItem16
Get ComAdd of hoItems13 "New videos will save to:" to voItem16
Handle hoItem16
Get Create (RefClass(cComItem)) to hoItem16
Set pvComObject of hoItem16 to voItem16
Set ComSelectable of hoItem16 to False
Variant voItems14
Get ComItems of hoItem16 to voItems14
Handle hoItems14
Get Create (RefClass(cComItems)) to hoItems14
Set pvComObject of hoItems14 to voItems14
Variant voItem17
Get ComAdd of hoItems14 "Drive C" to voItem17
Handle hoItem17
Get Create (RefClass(cComItem)) to hoItem17
Set pvComObject of hoItem17 to voItem17
Set ComSelectable of hoItem17 to False
Set ComHeight of hoItem17 to 24
Set ComHasRadioButton of hoItem17 0 to True
Set ComRadioGroup of hoItem17 0 to 1238
Get ComSplitCell of hoItem17 0 to s
Set ComValue of hoItem17 s to "Drive D"
Set ComHasRadioButton of hoItem17 s to True
Set ComRadioGroup of hoItem17 s to 1238
Set ComState of hoItem17 s to 1
Get ComSplitCell of hoItem17 s to s
Set ComValue of hoItem17 s to "Drive E"
Set ComHasRadioButton of hoItem17 s to True
Set ComRadioGroup of hoItem17 s to 1238
Send Destroy to hoItem17
Send Destroy to hoItems14
Set ComExpanded of hoItem16 to True
Send Destroy to hoItem16
Send Destroy to hoItems13
Set ComExpanded of hoItem7 to True
Send Destroy to hoItem7
Send Destroy to hoItems
Send ComEnsureVisibleItem of hoFaceTree 0
Send Destroy to hoFaceTree
Send Destroy to hoFace
Set ComEnsureVisibleFaceMargin to 0
Send ComEnsureVisibleFace OLEexTopFace Nothing
Set ComAlwaysEnsureVisibleFace to OLEexFitToEnsureFace
Send ComEndUpdate
End_Procedure
|
|
91
|
How can I use the BackgroundExt/BackgroundExtValue properties
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Variant voFace
Get ComBottomFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComRelativeMargins of hoFace to "0,32,0,0"
Set ComTitle of hoFace OLEexTitleFaceCaption to "<c><font ;18>Battery Saver"
Set ComTitle of hoFace OLEexTitleFaceBackgroundExt to "bottom[2],bottom[4,back=RGB(0,0,0)]"
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComHasLines of hoFaceTree to OLEexNoLine
Set ComDrawGridLines of hoFaceTree to OLEexNoLines
Set ComItemPadding of hoFaceTree to 24
Set ComHeaderVisible of hoFaceTree to False
Set ComShowSelection of hoFaceTree to False
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Overview" to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComDivider of hoItem to 0
Set ComBold of hoItem to True
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Batter level (charging):" to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComSingleLine of hoItem1 0 to False
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 "" to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComBackgroundExt of hoItem2 0 to "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
Set ComBackgroundExtValue of hoItem2 0 OLEexIndexExt4 OLEexClientExt to "65%"
Set ComBackgroundExtValue of hoItem2 0 OLEexIndexExt2 OLEexTextExt to (ComBackgroundExtValue(hoItem2,0,OLEexIndexExt4,OLEexClientExt))
Send Destroy to hoItem2
Send Destroy to hoItems1
Set ComExpanded of hoItem1 to True
Send Destroy to hoItem1
Variant voItem3
Get ComAdd of hoItems "Estimated time to full charge:" to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
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 0.15125 to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComFormatCell of hoItem4 0 to "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
Set ComHeight of hoItem4 to 24
Send Destroy to hoItem4
Send Destroy to hoItems2
Set ComExpanded of hoItem3 to True
Send Destroy to hoItem3
Variant voItem5
Get ComAdd of hoItems "Battery Saver" to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComDivider of hoItem5 to 0
Set ComBold of hoItem5 to True
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems "Extends battery life by limiting background activity and push notifications. " to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComSingleLine of hoItem6 0 to False
Send Destroy to hoItem6
Variant voItem7
Get ComAdd of hoItems "Batter saver is currently:" to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Set ComEnabled of hoItem7 to False
Set ComSingleLine of hoItem7 0 to False
Variant voItems3
Get ComItems of hoItem7 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Variant voItem8
Get ComAdd of hoItems3 "" to voItem8
Handle hoItem8
Get Create (RefClass(cComItem)) to hoItem8
Set pvComObject of hoItem8 to voItem8
Set ComHeight of hoItem8 to 24
Set ComHasCheckBox of hoItem8 0 to True
Set ComState of hoItem8 0 to 2
Set ComFormatCell of hoItem8 0 to "state = 1 ? `On` : `Off`"
Set ComEnabled of hoItem8 to False
Send Destroy to hoItem8
Send Destroy to hoItems3
Set ComExpanded of hoItem7 to True
Send Destroy to hoItem7
Variant voItem9
Get ComAdd of hoItems "Battery Saver is off while charging. Choose, when battery saver turns on automatically and how it affects your system." to voItem9
Handle hoItem9
Get Create (RefClass(cComItem)) to hoItem9
Set pvComObject of hoItem9 to voItem9
Set ComSingleLine of hoItem9 0 to False
Send Destroy to hoItem9
Variant voItem10
Get ComAdd of hoItems "<c>Battery Saver Settings" to voItem10
Handle hoItem10
Get Create (RefClass(cComItem)) to hoItem10
Set pvComObject of hoItem10 to voItem10
Set ComSingleLine of hoItem10 0 to False
Set ComHasButton of hoItem10 0 to True
Send Destroy to hoItem10
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
Set ComEnsureVisibleFaceMargin to 0
Send ComEnsureVisibleFace OLEexBottomFace Nothing
Set ComAlwaysEnsureVisibleFace to OLEexFitToEnsureFace
Send ComEndUpdate
End_Procedure
|
|
90
|
How can I change the visual appearance for check and radio buttons
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComCheckBoxWidth to 44
Set ComCheckBoxHeight to 20
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 "gBFLBCJwBAEHhEJAADhABJACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSDIUBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3OyaN5EbbgZz9P7AMBwLA8EwXBqHYIUGJGbhlbTnR7HMhvDIsPDnFqIZhmOZZXjlfh7T7KNByO6LcI3AiDagtWpNTpjf5dV7YNh2LY9UzXNq3bI1W5aUqyAZ9QQpeB0LILYDbRp/FzyO5NNrHG6dZ7oOh1doOUItlaP5lgcPA7hEJ47H8SD0l4LwfhOSJ9nOIh9DefBREMKYMDaX59nsVhvlKdBpCGfgIl+L43lGG5lH+YAGlWZw/EYOAVH8ZQXncdBJDwIJGkiGYDlmUh2BKABhEgVJpgWX4BA4BxcAeWB1H8KJiAaSJJgiWZWAmVA0CEWIln8JYikWfZpCIXARE0fw3GMRpJnaCRYBGWg6gqI5HgoJxfkYCQFlkX5PhkFYyBAJIImGABpGOWQ1k8OxlAWfZ6BGJA1noRQ+GQeQmEoX4kkkOheG2JQDjYUh+iMGJODUbBjHkbAzg6BxpH4bhsmOdZ6EEGAbmIAR/gSCZWkmfYShwYJYlOH5mnoBYvCSaBFnyDYhlcKAll2AwPAaSggCiWZaD6AogiEc4mBmBpYnePZxGMHw3lUeoGGUN5aH8NJpDoBgDgERg6GGFICh2d4GiWK5cngDgvHqWInG0cIfFyBwpjqLArkcTZVHWV5nGaNhxA6VoVicahajaNo9gUHI2nIdRwBwJoOkSMJlFmKpWjWWY2HwPYwm2SxJHIe5sGsYpiGcXpHj6XYxA6NBFAkQBAIC" to Nothing
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABB4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSDIUBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3Oy3KKiQy5cABPq/b6wDA8CwXAaHYRiGDYThmF4dRQAG6RcTLWrPFqVZheGYua4CLBxRrINA0LD9DyHJKnaZkDgpUQGN5dTS4GwPQCN3xRWzUyBaQzJfAZV7Lbw3PadX4XRLHcLwfAXFqWaaNZLneh5DouDz3P5YMuaRBicQ4nl6bpuBwKYRnuUY2jsfg9B0b43hOH5KjucQPnwOpMi+A4pnab5qB0a4znuf57n4f5gAeeJqC4R42mEcg5AoIRBnUfggkgLJiCaRA4AYEoEl+Y4AhcDpaFOGIrBgDYyBwHICmIB5djge4hEilY8g0MotiUZICkMYB6AEIgYDYIh0g+Q5cm+CYjgOfJ6DuDZ2hSWggkESI6DCDJjCkFZDg0Yx4mYJYOmOVoiD8BQhlgfhEgwZRGBoJISy0IgqGoIpDhCJAVCUWQaFMY5fAkYgBD+D5TmyYAlENPBnCsRhFkoYYcmYMAAmkLRHDmGZ9h2Rw4BkeBnFmeZWHSGIYHeQZuHoHonjGboamaVwYmIJwEEYbZNiCaRKAmdx1hyNZChWIQpjcKZYHAKQ6FqHIoh0Vp6hkcBqgoAodikKgmi2LYnmsCohkAXoXkqMojgMIpKh2Gw6lEFAlAEgIA==" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexCheckBoxState0 to |CI$1000000
Set ComBackground OLEexCheckBoxState1 to |CI$2000000
Set ComBackground OLEexCheckBoxState2 to |CI$1f0f0f0
Set ComRadioButtonWidth to 23
Set ComRadioButtonHeight to 23
Variant voAppearance1
Get ComVisualAppearance to voAppearance1
Handle hoAppearance1
Get Create (RefClass(cComAppearance)) to hoAppearance1
Set pvComObject of hoAppearance1 to voAppearance1
Get ComAdd of hoAppearance1 3 "gBFLBCJwBAEHhEJAADhABNoCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFIADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1BKmHZDQRAApqXIjVDAYIQSSBUlkHScRijDICXSIIQmbajIZoJCiVZ3VaGETnRQlJQuEgOHZwDAsBwPBqBPziLp4WzmGqhR5ichYHI8RYVTKXYy3DxZW7OO4PQjQM7hHL8fwlfTuagyGpZOxjP5cdrYHw2J7NUzJeDxbhrTb6Zh7ILVX7TNIwXAdD4PIKmNryORsC4XG5pZ7oOh6Lo3G4rhWZI2nOL4eBON4LkeRJvHWDxvB6G5Lmac56D0OY3hMU5bm6bRoiAeA9DMX5riydJ+D8P4vEeO4xkEcQfCYBZrHKXgzlme4BmCB4eAUZRbAaAZeGsDg4EYCYEmERoaBEOJaiMIY2EIXo2FYFYHmIBp1j8OoQhcYZNDiIgIiYE4Jl2BAlj0agOmiKgyH6Xo2jECYGE8WJmDODpehgFgZEIXI3DyfoQmQSQWEaEZkgkJhKhKZA2hmSxCEyGREnSFJkkkVhWwCCAthFKRjiIXhpiXOhihGYwJESSRCFuIxqGoPomkmDhuhWT45kSXYcl8UxdAkbgPBaMhTD0JApj4foRBoaJ5iqAxdmadhzDcWxpgIf4bhsY4Gg6GYYDcegNGUYg6VMIsBBmNg8CmRwuCOJBgBaAgXh6JQzl6JocE+OQQn+KpqkqNouivgQiiaLJPHaMZYHwQAHHIdRrA6ep2jMbYqx2RxzmqBpajOLxOnacYPHcHZnHGOlynmbo0jSbRLFaJoJlyNpplyKArhcGZcgMWpGjCXo4liM4ukiHpngkeJojiTZphmLIDG2Nwak2N4vEaAJsj2bpLgWFxlGGExOn4dgvHOMpxGgbwkAyaxEFCFAEICA=" to Nothing
Get ComAdd of hoAppearance1 4 "gBFLBCJwBAEHhEJAADhABCEMACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFIADRfFoWmxTdAcYSCGSZZrGOiQADINI0R7UAABPBIMSjAamHZDQRAApqXIjVaAhySQKksg6TiMUYZAbaRBCEzbUZDNBIopUQLVU5ABbUEqBIipIrEQLHNwPBaEYZiOIYW5re4cfzIMhyLI8Ob3CqHZhleTwTjWGYvSp1dBbTQ2QyVRanMDqOjsKxmW5Gbh5NhfHY8dxnDKcZ5jGSudrjEZ9VpmG74JzeEbjRj8chxT4PDxnBK/YDSWgdLo8VzXBpcG2MY4maXxzFKQRxHgOQeC8H4TkuZhzHoNR9kaXpNnONZsGGMo9B4A5bmuFZ7n4Pw/i+XpFmSVB/mAB41hsQJfBYOJXgGXAHm4CoCmCtYAHqXRWBGWB/F2Z5UnaAxZFOaJ2DuTpzHCOQ5gwcg8veDBjlCaA0mGBg6BYapcEONZiHYHADg4MoKE+U4QkEIINAISAig4Y44moPIPA4EpoHSBoOngNgyDiW5jCGShCF+VouA2EQNhKHBMg+Y5pFYPYVmOQxYiAD4kEgNZRHSTokCWax4A4KA2DaDglGkUhYhoZRph4DYZB6NAllEbwOmgKhEhqJ4JjIa4ek8c48mGAoflcAQJhITxaBYCoHEuGZmHuIooioIgKgWJIUCWXh4hkNhImkM4JloMh6iaJRzhySAkCkVhFhUd4QhMJomD0KtvBCCJMGocouh6KIKiifoKlodAmAAOgrgYVoVD7Y5AlMJhDAqPoLh6D4DkCYosicSoYkkQhcmMapOD6LQKkqHgkCwKhwmILpHFqSJ7jaTZbHYBw1lCFwwnEcAqgOUoUGSa5DxkLQGHsVhWhQRJKkmFYkBuaI1lgdBtlMdZKi6LoKnSZQwggOp+kGJpjiufIDiyGQXCiYZCmyJxeAQYQi0YYI+lieoqmmKwpHIdoskIGQGFWSg8DIBx6GCQ4AAYXhHjlo5fCqNpPjYRJ/kucwMkcMpM9GMwqk2Tx3AGa4AnIVpkm2N5cAgcJvk2XIsjGeYlF53hKk2dAnEGJR7nCdxlgYc4ajmEplk4NYNGcWpKiYRx5k4dYhC0RxggsTpXAGQA3jaBoEmuUIuFuCo4DoNoDHqShwCKXYPCSXYzmOMx6lwOwZoawrgkE0HwBY1xegdE2MMWQhBOhoEUBIQAgCAgA==" to Nothing
Send Destroy to hoAppearance1
Set ComBackground OLEexRadioButtonState0 to |CI$3000000
Set ComBackground OLEexRadioButtonState1 to |CI$4000000
Variant voFace
Get ComRightFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComRelativeMargins of hoFace to "0,32,0,0"
Set ComTitle of hoFace OLEexTitleFaceCaption to "<c><font ;18>Table mode"
Set ComTitle of hoFace OLEexTitleFaceBackgroundExt to "bottom[2],bottom[4,back=RGB(0,0,0)]"
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComHasLines of hoFaceTree to OLEexNoLine
Set ComDrawGridLines of hoFaceTree to OLEexNoLines
Set ComItemPadding of hoFaceTree to 24
Set ComHeaderVisible of hoFaceTree to False
Set ComShowSelection of hoFaceTree to False
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Make windows more touch-friendly when using your device as a table" to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComSingleLine of hoItem 0 to False
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 "" to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComHeight of hoItem1 to 24
Set ComHasCheckBox of hoItem1 0 to True
Set ComState of hoItem1 0 to 0
Set ComFormatCell of hoItem1 0 to "state = 0 ? `Off` : `On`"
Send Destroy to hoItem1
Send Destroy to hoItems1
Set ComExpanded of hoItem to True
Send Destroy to hoItem
Variant voItem2
Get ComAdd of hoItems "When I sign in" to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComSingleLine of hoItem2 0 to False
Variant voItems2
Get ComItems of hoItem2 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem3
Get ComAdd of hoItems2 "Automatically swicth to table mode" to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComHeight of hoItem3 to 24
Set ComHasRadioButton of hoItem3 0 to True
Set ComRadioGroup of hoItem3 0 to 1234
Send Destroy to hoItem3
Send Destroy to hoItems2
Variant voItems3
Get ComItems of hoItem2 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Variant voItem4
Get ComAdd of hoItems3 "Go to the desktop" to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComHeight of hoItem4 to 24
Set ComHasRadioButton of hoItem4 0 to True
Set ComRadioGroup of hoItem4 0 to 1234
Send Destroy to hoItem4
Send Destroy to hoItems3
Variant voItems4
Get ComItems of hoItem2 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Variant voItem5
Get ComAdd of hoItems4 "Remember what I used last" to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComHeight of hoItem5 to 24
Set ComHasRadioButton of hoItem5 0 to True
Set ComRadioGroup of hoItem5 0 to 1234
Set ComState of hoItem5 0 to 1
Send Destroy to hoItem5
Send Destroy to hoItems4
Set ComExpanded of hoItem2 to True
Send Destroy to hoItem2
Variant voItem6
Get ComAdd of hoItems "When this device automatically switches table mode on or off" to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComSingleLine of hoItem6 0 to False
Variant voItems5
Get ComItems of hoItem6 to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Variant voItem7
Get ComAdd of hoItems5 "Don't ask me and dont' switch" to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Set ComHeight of hoItem7 to 24
Set ComHasRadioButton of hoItem7 0 to True
Set ComRadioGroup of hoItem7 0 to 1235
Send Destroy to hoItem7
Send Destroy to hoItems5
Variant voItems6
Get ComItems of hoItem6 to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Variant voItem8
Get ComAdd of hoItems6 "Always ask me before switching" to voItem8
Handle hoItem8
Get Create (RefClass(cComItem)) to hoItem8
Set pvComObject of hoItem8 to voItem8
Set ComHeight of hoItem8 to 24
Set ComHasRadioButton of hoItem8 0 to True
Set ComRadioGroup of hoItem8 0 to 1235
Set ComState of hoItem8 0 to 1
Send Destroy to hoItem8
Send Destroy to hoItems6
Variant voItems7
Get ComItems of hoItem6 to voItems7
Handle hoItems7
Get Create (RefClass(cComItems)) to hoItems7
Set pvComObject of hoItems7 to voItems7
Variant voItem9
Get ComAdd of hoItems7 "Don't ask me and always' switch" to voItem9
Handle hoItem9
Get Create (RefClass(cComItem)) to hoItem9
Set pvComObject of hoItem9 to voItem9
Set ComHeight of hoItem9 to 24
Set ComHasRadioButton of hoItem9 0 to True
Set ComRadioGroup of hoItem9 0 to 1235
Send Destroy to hoItem9
Send Destroy to hoItems7
Set ComExpanded of hoItem6 to True
Send Destroy to hoItem6
Variant voItem10
Get ComAdd of hoItems "Hide app icons on the taskbar in table mode" to voItem10
Handle hoItem10
Get Create (RefClass(cComItem)) to hoItem10
Set pvComObject of hoItem10 to voItem10
Set ComSingleLine of hoItem10 0 to False
Variant voItems8
Get ComItems of hoItem10 to voItems8
Handle hoItems8
Get Create (RefClass(cComItems)) to hoItems8
Set pvComObject of hoItems8 to voItems8
Variant voItem11
Get ComAdd of hoItems8 "" to voItem11
Handle hoItem11
Get Create (RefClass(cComItem)) to hoItem11
Set pvComObject of hoItem11 to voItem11
Set ComHeight of hoItem11 to 24
Set ComHasCheckBox of hoItem11 0 to True
Set ComState of hoItem11 0 to 0
Set ComFormatCell of hoItem11 0 to "state = 0 ? `Off` : `On`"
Send Destroy to hoItem11
Send Destroy to hoItems8
Set ComExpanded of hoItem10 to True
Send Destroy to hoItem10
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
Set ComEnsureVisibleFaceMargin to 0
Send ComEnsureVisibleFace OLEexRightFace Nothing
Set ComAlwaysEnsureVisibleFace to OLEexFitToEnsureFace
Send ComEndUpdate
End_Procedure
|
|
89
|
How can I display more group of radio-buttons
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Variant voFace
Get ComLeftFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComRelativeMargins of hoFace to "0,32,0,0"
Set ComTitle of hoFace OLEexTitleFaceCaption to "<c><font ;18>Multitasking"
Set ComTitle of hoFace OLEexTitleFaceBackgroundExt to "bottom[2],bottom[4,back=RGB(0,0,0)]"
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComHasLines of hoFaceTree to OLEexNoLine
Set ComDrawGridLines of hoFaceTree to OLEexNoLines
Set ComItemPadding of hoFaceTree to 24
Set ComHeaderVisible of hoFaceTree to False
Set ComShowSelection of hoFaceTree to False
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Snap" to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComDivider of hoItem to 0
Set ComBold of hoItem to True
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Arrange windows automatically by dragging them to the sides of corners of the scree" to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComSingleLine of hoItem1 0 to False
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 "" to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComHeight of hoItem2 to 24
Set ComHasCheckBox of hoItem2 0 to True
Set ComState of hoItem2 0 to 1
Set ComFormatCell of hoItem2 0 to "state = 0 ? `Off` : `On`"
Send Destroy to hoItem2
Send Destroy to hoItems1
Set ComExpanded of hoItem1 to True
Send Destroy to hoItem1
Variant voItem3
Get ComAdd of hoItems "When I snap more than one window, automatically adjust the size of the windows" to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComSingleLine of hoItem3 0 to False
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 "" to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComHeight of hoItem4 to 24
Set ComHasCheckBox of hoItem4 0 to True
Set ComState of hoItem4 0 to 1
Set ComFormatCell of hoItem4 0 to "state = 0 ? `Off` : `On`"
Send Destroy to hoItem4
Send Destroy to hoItems2
Set ComExpanded of hoItem3 to True
Send Destroy to hoItem3
Variant voItem5
Get ComAdd of hoItems "When I snap a window, show what I can snap next to it" to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComSingleLine of hoItem5 0 to False
Variant voItems3
Get ComItems of hoItem5 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Variant voItem6
Get ComAdd of hoItems3 "" to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComHeight of hoItem6 to 24
Set ComHasCheckBox of hoItem6 0 to True
Set ComFormatCell of hoItem6 0 to "state = 0 ? `Off` : `On`"
Send Destroy to hoItem6
Send Destroy to hoItems3
Set ComExpanded of hoItem5 to True
Send Destroy to hoItem5
Variant voItem7
Get ComAdd of hoItems "Virtual desktops" to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Set ComDivider of hoItem7 to 0
Set ComBold of hoItem7 to True
Send Destroy to hoItem7
Variant voItem8
Get ComAdd of hoItems "On the taskbar, show windows that are open on:" to voItem8
Handle hoItem8
Get Create (RefClass(cComItem)) to hoItem8
Set pvComObject of hoItem8 to voItem8
Set ComSingleLine of hoItem8 0 to False
Variant voItems4
Get ComItems of hoItem8 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Variant voItem9
Get ComAdd of hoItems4 "Only the desktop I'm using" to voItem9
Handle hoItem9
Get Create (RefClass(cComItem)) to hoItem9
Set pvComObject of hoItem9 to voItem9
Set ComHeight of hoItem9 to 24
Set ComHasRadioButton of hoItem9 0 to True
Set ComRadioGroup of hoItem9 0 to 1234
Set ComState of hoItem9 0 to 1
Send Destroy to hoItem9
Send Destroy to hoItems4
Variant voItems5
Get ComItems of hoItem8 to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Variant voItem10
Get ComAdd of hoItems5 "All desktops" to voItem10
Handle hoItem10
Get Create (RefClass(cComItem)) to hoItem10
Set pvComObject of hoItem10 to voItem10
Set ComHeight of hoItem10 to 24
Set ComHasRadioButton of hoItem10 0 to True
Set ComRadioGroup of hoItem10 0 to 1234
Send Destroy to hoItem10
Send Destroy to hoItems5
Set ComExpanded of hoItem8 to True
Send Destroy to hoItem8
Variant voItem11
Get ComAdd of hoItems "Pressing ALT+TAB, show windows that are open on:" to voItem11
Handle hoItem11
Get Create (RefClass(cComItem)) to hoItem11
Set pvComObject of hoItem11 to voItem11
Set ComSingleLine of hoItem11 0 to False
Variant voItems6
Get ComItems of hoItem11 to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Variant voItem12
Get ComAdd of hoItems6 "Only the desktop I'm using" to voItem12
Handle hoItem12
Get Create (RefClass(cComItem)) to hoItem12
Set pvComObject of hoItem12 to voItem12
Set ComHeight of hoItem12 to 24
Set ComHasRadioButton of hoItem12 0 to True
Set ComRadioGroup of hoItem12 0 to 1235
Set ComState of hoItem12 0 to 1
Send Destroy to hoItem12
Send Destroy to hoItems6
Variant voItems7
Get ComItems of hoItem11 to voItems7
Handle hoItems7
Get Create (RefClass(cComItems)) to hoItems7
Set pvComObject of hoItems7 to voItems7
Variant voItem13
Get ComAdd of hoItems7 "All desktops" to voItem13
Handle hoItem13
Get Create (RefClass(cComItem)) to hoItem13
Set pvComObject of hoItem13 to voItem13
Set ComHeight of hoItem13 to 24
Set ComHasRadioButton of hoItem13 0 to True
Set ComRadioGroup of hoItem13 0 to 1235
Send Destroy to hoItem13
Send Destroy to hoItems7
Set ComExpanded of hoItem11 to True
Send Destroy to hoItem11
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
Set ComEnsureVisibleFaceMargin to 0
Send ComEnsureVisibleFace OLEexLeftFace Nothing
Set ComAlwaysEnsureVisibleFace to OLEexFitToEnsureFace
Send ComEndUpdate
End_Procedure
|
|
88
|
How can I use images with the control
// Notifies that a cell of button's type has been clicked.
Procedure OnComFaceTreeButtonClick Variant llTree Integer llItem Integer llColumn
Forward Send OnComFaceTreeButtonClick llTree llItem llColumn
Showln "FaceTreeButtonClick"
End_Procedure
// Notifies that a cell changes its state into a face of tree type.
Procedure OnComFaceTreeStateChanged Variant llTree Integer llItem Integer llColumn
Forward Send OnComFaceTreeStateChanged llTree llItem llColumn
Showln "FaceTreeStateChanged"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComHTMLPicture "P1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "P2" to "c:\exontrol\images\auction.gif"
Set ComHTMLPicture "P3" to "c:\exontrol\images\colorize.gif"
Set ComHTMLPicture "P4" to "c:\exontrol\images\auction.gif"
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComRelativeMargins of hoFace to "0,32,0,0"
Set ComTitle of hoFace OLEexTitleFaceCaption to "<c><font ;18>Notifications"
Set ComTitle of hoFace OLEexTitleFaceBackgroundExt to "bottom[2],bottom[4,back=RGB(0,0,0)]"
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComHasLines of hoFaceTree to OLEexNoLine
Set ComDrawGridLines of hoFaceTree to OLEexNoLines
Set ComItemPadding of hoFaceTree to 24
Set ComHeaderVisible of hoFaceTree to False
Set ComShowSelection of hoFaceTree to False
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Choose your quick actions" to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComSingleLine of hoItem 0 to False
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 "" to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComHeight of hoItem1 to 48
Variant s
Move 0 to s
Set ComValue of hoItem1 s to "<c><img>P1</img>"
Set ComCellWidth of hoItem1 s to 48
Set ComHasButton of hoItem1 s to True
Get ComSplitCell of hoItem1 s to s
Set ComValue of hoItem1 s to "<c><img>P2</img>"
Set ComCellWidth of hoItem1 s to 48
Set ComHasButton of hoItem1 s to True
Get ComSplitCell of hoItem1 s to s
Set ComValue of hoItem1 s to "<c><img>P3</img>"
Set ComCellWidth of hoItem1 s to 48
Set ComHasButton of hoItem1 s to True
Get ComSplitCell of hoItem1 s to s
Set ComValue of hoItem1 s to "<c><img>P4</img>"
Set ComCellWidth of hoItem1 s to 48
Set ComHasButton of hoItem1 s to True
Get ComSplitCell of hoItem1 s to s
Send Destroy to hoItem1
Send Destroy to hoItems1
Set ComExpanded of hoItem to True
Send Destroy to hoItem
Variant voItem2
Get ComAdd of hoItems "Show me tips about Windows" to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComSingleLine of hoItem2 0 to False
Variant voItems2
Get ComItems of hoItem2 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem3
Get ComAdd of hoItems2 "" to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComHeight of hoItem3 to 24
Set ComHasCheckBox of hoItem3 0 to True
Set ComState of hoItem3 0 to 1
Set ComFormatCell of hoItem3 0 to "state = 0 ? `Off` : `On`"
Send Destroy to hoItem3
Send Destroy to hoItems2
Set ComExpanded of hoItem2 to True
Send Destroy to hoItem2
Variant voItem4
Get ComAdd of hoItems "Show app notifications " to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComSingleLine of hoItem4 0 to False
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 "" to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComHeight of hoItem5 to 24
Set ComHasCheckBox of hoItem5 0 to True
Set ComState of hoItem5 0 to 1
Set ComFormatCell of hoItem5 0 to "state = 0 ? `Off` : `On`"
Send Destroy to hoItem5
Send Destroy to hoItems3
Set ComExpanded of hoItem4 to True
Send Destroy to hoItem4
Variant voItem6
Get ComAdd of hoItems "Show notifications on lock screen" to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Set ComSingleLine of hoItem6 0 to False
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 ComAdd of hoItems4 "" to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Set ComHeight of hoItem7 to 24
Set ComHasCheckBox of hoItem7 0 to True
Set ComFormatCell of hoItem7 0 to "state = 0 ? `Off` : `On`"
Send Destroy to hoItem7
Send Destroy to hoItems4
Set ComExpanded of hoItem6 to True
Send Destroy to hoItem6
Variant voItem8
Get ComAdd of hoItems "Show alarms, reminders and incomming VOIP calls on the lock screen" to voItem8
Handle hoItem8
Get Create (RefClass(cComItem)) to hoItem8
Set pvComObject of hoItem8 to voItem8
Set ComSingleLine of hoItem8 0 to False
Variant voItems5
Get ComItems of hoItem8 to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Variant voItem9
Get ComAdd of hoItems5 "" to voItem9
Handle hoItem9
Get Create (RefClass(cComItem)) to hoItem9
Set pvComObject of hoItem9 to voItem9
Set ComHeight of hoItem9 to 24
Set ComHasCheckBox of hoItem9 0 to True
Set ComState of hoItem9 0 to 1
Set ComFormatCell of hoItem9 0 to "state = 0 ? `Off` : `On`"
Send Destroy to hoItem9
Send Destroy to hoItems5
Set ComExpanded of hoItem8 to True
Send Destroy to hoItem8
Variant voItem10
Get ComAdd of hoItems "Hide notications while presentation" to voItem10
Handle hoItem10
Get Create (RefClass(cComItem)) to hoItem10
Set pvComObject of hoItem10 to voItem10
Set ComSingleLine of hoItem10 0 to False
Variant voItems6
Get ComItems of hoItem10 to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Variant voItem11
Get ComAdd of hoItems6 "" to voItem11
Handle hoItem11
Get Create (RefClass(cComItem)) to hoItem11
Set pvComObject of hoItem11 to voItem11
Set ComHeight of hoItem11 to 24
Set ComHasCheckBox of hoItem11 0 to True
Set ComState of hoItem11 0 to 0
Set ComFormatCell of hoItem11 0 to "state = 0 ? `Off` : `On`"
Send Destroy to hoItem11
Send Destroy to hoItems6
Set ComExpanded of hoItem10 to True
Send Destroy to hoItem10
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
Set ComEnsureVisibleFaceMargin to 0
Send ComEnsureVisibleFace OLEexFrontFace Nothing
Set ComAlwaysEnsureVisibleFace to OLEexFitToEnsureFace
Send ComEndUpdate
End_Procedure
|
|
87
|
How do I display a progress bar
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to ""
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComItemPadding of hoFaceTree to 16
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Pos" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "1 pos ``"
Set ComWidth of hoColumn to 8
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoFaceTree to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Progress" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComAlignment of hoColumn1 to OLELeftAlignment
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "" to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBackgroundExt of hoItem 1 to "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
Set ComBackgroundExtValue of hoItem 1 OLEexIndexExt4 OLEexClientExt to "25%"
Set ComBackgroundExtValue of hoItem 1 OLEexIndexExt2 OLEexTextExt to (ComBackgroundExtValue(hoItem,1,OLEexIndexExt4,OLEexClientExt))
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "" to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComBackgroundExt of hoItem1 1 to "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
Set ComBackgroundExtValue of hoItem1 1 OLEexIndexExt4 OLEexClientExt to "15%"
Set ComBackgroundExtValue of hoItem1 1 OLEexIndexExt2 OLEexTextExt to (ComBackgroundExtValue(hoItem1,1,OLEexIndexExt4,OLEexClientExt))
Set ComBackgroundExtValue of hoItem1 1 OLEexIndexExt4 OLEexBackColorExt to 65280
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems "" to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComBackgroundExt of hoItem2 1 to "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
Set ComBackgroundExtValue of hoItem2 1 OLEexIndexExt4 OLEexClientExt to "75%"
Set ComBackgroundExtValue of hoItem2 1 OLEexIndexExt2 OLEexTextExt to (ComBackgroundExtValue(hoItem2,1,OLEexIndexExt4,OLEexClientExt))
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems "" to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComBackgroundExt of hoItem3 1 to "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
Set ComBackgroundExtValue of hoItem3 1 OLEexIndexExt4 OLEexClientExt to "85%"
Set ComBackgroundExtValue of hoItem3 1 OLEexIndexExt2 OLEexTextExt to (ComBackgroundExtValue(hoItem3,1,OLEexIndexExt4,OLEexClientExt))
Send Destroy to hoItem3
Variant voItem4
Get ComAdd of hoItems "" to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComBackgroundExt of hoItem4 1 to "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
Set ComBackgroundExtValue of hoItem4 1 OLEexIndexExt4 OLEexClientExt to "5%"
Set ComBackgroundExtValue of hoItem4 1 OLEexIndexExt2 OLEexTextExt to (ComBackgroundExtValue(hoItem4,1,OLEexIndexExt4,OLEexClientExt))
Set ComBackgroundExtValue of hoItem4 1 OLEexIndexExt4 OLEexBackColorExt to 255
Send Destroy to hoItem4
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
|
|
86
|
I have a column of check box type, the question if I can automatically display on/off when user changes the check's state
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComCheckBoxWidth to 32
Set ComCheckBoxHeight to 29
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 "gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQIAID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQSCmFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIXoDGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIBwU4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRwSkSYhDi0ERCFAECAg" to Nothing
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDaChgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAuEcXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiAwZn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkkCaxA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhprBQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDGK4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfGADYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+BvBPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4FwAIRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg==" to Nothing
Get ComAdd of hoAppearance 3 "gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmGAYOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhyFYdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkENgKDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMhGegNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg/iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8TgxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB+BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovBIhODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8ZI1hEChBQAggI" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexCheckBoxState0 to |CI$1000000
Set ComBackground OLEexCheckBoxState1 to |CI$2000000
Set ComBackground OLEexCheckBoxState2 to |CI$3000000
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComHasLines of hoFaceTree to OLEexThinLine
Set ComShowSelection of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 16
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Partial Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComFormatColumn of hoColumn to "`Check <b>` + 1 rpos `` + '</b> ' + (state=0 ? `<off 4>(off)` : (state=1 ? `<off 4>(on)` : ``))"
Set ComPartialCheck of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant v
Variant voFace1
Get ComFrontFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceTree1
Get ComFaceTree of hoFace1 to voFaceTree1
Handle hoFaceTree1
Get Create (RefClass(cComFaceTree)) to hoFaceTree1
Set pvComObject of hoFaceTree1 to voFaceTree1
Get ComVisibleItemsCount of hoFaceTree1 to v
Send Destroy to hoFaceTree1
Send Destroy to hoFace1
Set ComCount of hoItems to v
Send Destroy to hoItems
Variant voItem
Get ComItemByIndex of hoFaceTree 1 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
Set ComCount of hoItems1 to 3
Send Destroy to hoItems1
Set ComExpanded of hoItem to True
Set ComState of hoItem 0 to 1
Send Destroy to hoItem
Variant voItem1
Get ComItemByIndex of hoFaceTree 2 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant voItems2
Get ComItems of hoItem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComCount of hoItems2 to 3
Send Destroy to hoItems2
Set ComExpanded of hoItem1 to True
Variant voItems3
Get ComItems of hoItem1 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Variant voItem2
Get ComItem of hoItems3 1 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComState of hoItem2 0 to 1
Send Destroy to hoItem2
Send Destroy to hoItems3
Send Destroy to hoItem1
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
85
|
How do I print the control
Procedure OnCreate
Forward Send OnCreate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceCalendar
Get ComCreateCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComAutoSize of hoFaceCalendar to OLEexFitClient
Set ComMaxMonthX of hoFaceCalendar to 1
Set ComMaxMonthY of hoFaceCalendar to 1
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComPrintExt of hoPrint to (pvComObject(Self))
Send ComPreview of hoPrint
Send Destroy to hoPrint
End_Procedure
|
|
84
|
How can I get the caption from the point
// 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
Variant v
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComFaceTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Get ComCaptionFromPoint of hoFaceTree -1 -1 to v
Send Destroy to hoFaceTree
Send Destroy to hoFace
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
Variant voFace1
Get ComFrontFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceTree1
Get ComCreateTree of hoFace1 to voFaceTree1
Handle hoFaceTree1
Get Create (RefClass(cComFaceTree)) to hoFaceTree1
Set pvComObject of hoFaceTree1 to voFaceTree1
Set ComItemPadding of hoFaceTree1 to 16
Set ComHeaderVisible of hoFaceTree1 to False
Set ComForeColor of hoFaceTree1 to (RGB(255,255,255))
Variant voItems
Get ComItems of hoFaceTree1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "<sha \;\;0><font \;18>Place <b>A,<sha \;\;0><font \;18>Place <b>B,<sha \;\;0><font \;18>Place <b>C,<sha \;\;0><font \;18>Place <b>D,<sha \;\;0><font \;18>Place <b>E"
Send Destroy to hoItems
Send Destroy to hoFaceTree1
Send Destroy to hoFace1
End_Procedure
|
|
83
|
How can I get the value from the point
// 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
Variant v
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComFaceTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Get ComValueFromPoint of hoFaceTree -1 -1 to v
Send Destroy to hoFaceTree
Send Destroy to hoFace
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
Variant voFace1
Get ComFrontFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceTree1
Get ComCreateTree of hoFace1 to voFaceTree1
Handle hoFaceTree1
Get Create (RefClass(cComFaceTree)) to hoFaceTree1
Set pvComObject of hoFaceTree1 to voFaceTree1
Set ComItemPadding of hoFaceTree1 to 16
Set ComHeaderVisible of hoFaceTree1 to False
Set ComForeColor of hoFaceTree1 to (RGB(255,255,255))
Variant voItems
Get ComItems of hoFaceTree1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "<sha \;\;0><font \;18>Place <b>A,<sha \;\;0><font \;18>Place <b>B,<sha \;\;0><font \;18>Place <b>C,<sha \;\;0><font \;18>Place <b>D,<sha \;\;0><font \;18>Place <b>E"
Send Destroy to hoItems
Send Destroy to hoFaceTree1
Send Destroy to hoFace1
End_Procedure
|
|
82
|
How can I get the column from the point
// 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
Variant v
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComFaceTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Get ComColumnFromPoint of hoFaceTree -1 -1 to v
Send Destroy to hoFaceTree
Send Destroy to hoFace
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voFace1
Get ComFrontFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceTree1
Get ComCreateTree of hoFace1 to voFaceTree1
Handle hoFaceTree1
Get Create (RefClass(cComFaceTree)) to hoFaceTree1
Set pvComObject of hoFaceTree1 to voFaceTree1
Set ComFullRowSelect of hoFaceTree1 to True
Set ComDrawGridLines of hoFaceTree1 to OLEexRowLines
Variant voColumns
Get ComColumns of hoFaceTree1 to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "A" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "0 pos `A-Z`"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoFaceTree1 to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "B" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "0 pos `B-Z`"
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns of hoFaceTree1 to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "C" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComFormatColumn of hoColumn2 to "0 pos `C-Z`"
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns of hoFaceTree1 to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "D" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "0 pos `D-Z`"
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voItems
Get ComItems of hoFaceTree1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCount of hoItems to 4
Send Destroy to hoItems
Send Destroy to hoFaceTree1
Send Destroy to hoFace1
End_Procedure
|
|
81
|
How can I get the item from the point
// 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
Variant v
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComFaceTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Get ComItemFromPoint of hoFaceTree -1 -1 to v
Send Destroy to hoFaceTree
Send Destroy to hoFace
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voFace1
Get ComFrontFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceTree1
Get ComCreateTree of hoFace1 to voFaceTree1
Handle hoFaceTree1
Get Create (RefClass(cComFaceTree)) to hoFaceTree1
Set pvComObject of hoFaceTree1 to voFaceTree1
Set ComFullRowSelect of hoFaceTree1 to True
Set ComDrawGridLines of hoFaceTree1 to OLEexRowLines
Variant voColumns
Get ComColumns of hoFaceTree1 to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "A" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "0 pos `A-Z`"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoFaceTree1 to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "B" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "0 pos `B-Z`"
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns of hoFaceTree1 to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "C" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComFormatColumn of hoColumn2 to "0 pos `C-Z`"
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns of hoFaceTree1 to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "D" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "0 pos `D-Z`"
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voItems
Get ComItems of hoFaceTree1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCount of hoItems to 4
Send Destroy to hoItems
Send Destroy to hoFaceTree1
Send Destroy to hoFace1
End_Procedure
|
|
80
|
How can I get the value from the point (calendar's date)
// 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
Variant v
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceCalendar
Get ComFaceCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Get ComValueFromPoint of hoFaceCalendar -1 -1 to v
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
Showln "Date:" v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voFace1
Get ComFrontFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceCalendar1
Get ComCreateCalendar of hoFace1 to voFaceCalendar1
Handle hoFaceCalendar1
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar1
Set pvComObject of hoFaceCalendar1 to voFaceCalendar1
Set ComAutoSize of hoFaceCalendar1 to OLEexFitClient
Set ComMaxMonthX of hoFaceCalendar1 to 1
Set ComMaxMonthY of hoFaceCalendar1 to 1
Send Destroy to hoFaceCalendar1
Send Destroy to hoFace1
End_Procedure
|
|
79
|
How can I get the date from the point (calendar's date)
// 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
Variant v
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceCalendar
Get ComFaceCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Get ComDateFromPoint of hoFaceCalendar -1 -1 to v
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
Showln "Date:" v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voFace1
Get ComFrontFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceCalendar1
Get ComCreateCalendar of hoFace1 to voFaceCalendar1
Handle hoFaceCalendar1
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar1
Set pvComObject of hoFaceCalendar1 to voFaceCalendar1
Set ComAutoSize of hoFaceCalendar1 to OLEexFitClient
Set ComMaxMonthX of hoFaceCalendar1 to 1
Set ComMaxMonthY of hoFaceCalendar1 to 1
Send Destroy to hoFaceCalendar1
Send Destroy to hoFace1
End_Procedure
|
|
78
|
How can I get the face from the point
// 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
Showln "Face:" (ComFaceFromPoint(Self,-1,-1))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComIdentifyFace to OLEexIdentifyFaceCaption
End_Procedure
|
|
77
|
Does your control support partial-check feature
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComCheckBoxWidth to 32
Set ComCheckBoxHeight to 29
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 "gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQIAID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQSCmFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIXoDGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIBwU4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRwSkSYhDi0ERCFAECAg" to Nothing
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDaChgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAuEcXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiAwZn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkkCaxA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhprBQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDGK4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfGADYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+BvBPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4FwAIRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg==" to Nothing
Get ComAdd of hoAppearance 3 "gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmGAYOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhyFYdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkENgKDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMhGegNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg/iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8TgxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB+BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovBIhODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8ZI1hEChBQAggI" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexCheckBoxState0 to |CI$1000000
Set ComBackground OLEexCheckBoxState1 to |CI$2000000
Set ComBackground OLEexCheckBoxState2 to |CI$3000000
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComHasLines of hoFaceTree to OLEexThinLine
Set ComShowSelection of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 16
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Partial Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComFormatColumn of hoColumn to "`Check <b>` + 1 rpos ``"
Set ComPartialCheck of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant v
Variant voFace1
Get ComFrontFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceTree1
Get ComFaceTree of hoFace1 to voFaceTree1
Handle hoFaceTree1
Get Create (RefClass(cComFaceTree)) to hoFaceTree1
Set pvComObject of hoFaceTree1 to voFaceTree1
Get ComVisibleItemsCount of hoFaceTree1 to v
Send Destroy to hoFaceTree1
Send Destroy to hoFace1
Set ComCount of hoItems to v
Send Destroy to hoItems
Variant voItem
Get ComItemByIndex of hoFaceTree 1 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
Set ComCount of hoItems1 to 3
Send Destroy to hoItems1
Set ComExpanded of hoItem to True
Set ComState of hoItem 0 to 1
Send Destroy to hoItem
Variant voItem1
Get ComItemByIndex of hoFaceTree 2 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant voItems2
Get ComItems of hoItem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComCount of hoItems2 to 3
Send Destroy to hoItems2
Set ComExpanded of hoItem1 to True
Variant voItems3
Get ComItems of hoItem1 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Variant voItem2
Get ComItem of hoItems3 1 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComState of hoItem2 0 to 1
Send Destroy to hoItem2
Send Destroy to hoItems3
Send Destroy to hoItem1
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
76
|
I am using the Items.ToString, just wondering if I can use it for multiple columns
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to ""
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComDrawGridLines of hoFaceTree to OLEexNoLines
Set ComHeaderVisible of hoFaceTree to False
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Set ComCount of hoColumns to 4
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree 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;10;11;12,13;14;15;16,17;18;29;20,21;22;23;24,25;26;27;28,29;30;31;32"
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
|
|
75
|
How can I show the item on multiple-lines
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 12
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Items" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellSingleLine to False
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Short" to Nothing
Get ComAdd of hoItems "The eXTreeCube library provides fish-eye representation / cube map texturing of different components such as calendar, multiple - columns tree view and so on. Cube map texturing is a form of environment texture mapping that uses a viewing direction (3D vector) to map into a view plane the six 2D textures arranged like the faces of a cube. " to Nothing
Get ComAdd of hoItems "Short" to Nothing
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
74
|
How can I change the visual appearance for the control's radio buttons
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComRadioButtonWidth to 23
Set ComRadioButtonHeight to 23
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 "gBFLBCJwBAEHhEJAADhABNoCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFIADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1BKmHZDQRAApqXIjVDAYIQSSBUlkHScRijDICXSIIQmbajIZoJCiVZ3VaGETnRQlJQuEgOHZwDAsBwPBqBPziLp4WzmGqhR5ichYHI8RYVTKXYy3DxZW7OO4PQjQM7hHL8fwlfTuagyGpZOxjP5cdrYHw2J7NUzJeDxbhrTb6Zh7ILVX7TNIwXAdD4PIKmNryORsC4XG5pZ7oOh6Lo3G4rhWZI2nOL4eBON4LkeRJvHWDxvB6G5Lmac56D0OY3hMU5bm6bRoiAeA9DMX5riydJ+D8P4vEeO4xkEcQfCYBZrHKXgzlme4BmCB4eAUZRbAaAZeGsDg4EYCYEmERoaBEOJaiMIY2EIXo2FYFYHmIBp1j8OoQhcYZNDiIgIiYE4Jl2BAlj0agOmiKgyH6Xo2jECYGE8WJmDODpehgFgZEIXI3DyfoQmQSQWEaEZkgkJhKhKZA2hmSxCEyGREnSFJkkkVhWwCCAthFKRjiIXhpiXOhihGYwJESSRCFuIxqGoPomkmDhuhWT45kSXYcl8UxdAkbgPBaMhTD0JApj4foRBoaJ5iqAxdmadhzDcWxpgIf4bhsY4Gg6GYYDcegNGUYg6VMIsBBmNg8CmRwuCOJBgBaAgXh6JQzl6JocE+OQQn+KpqkqNouivgQiiaLJPHaMZYHwQAHHIdRrA6ep2jMbYqx2RxzmqBpajOLxOnacYPHcHZnHGOlynmbo0jSbRLFaJoJlyNpplyKArhcGZcgMWpGjCXo4liM4ukiHpngkeJojiTZphmLIDG2Nwak2N4vEaAJsj2bpLgWFxlGGExOn4dgvHOMpxGgbwkAyaxEFCFAEICA=" to Nothing
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABCEMACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFIADRfFoWmxTdAcYSCGSZZrGOiQADINI0R7UAABPBIMSjAamHZDQRAApqXIjVaAhySQKksg6TiMUYZAbaRBCEzbUZDNBIopUQLVU5ABbUEqBIipIrEQLHNwPBaEYZiOIYW5re4cfzIMhyLI8Ob3CqHZhleTwTjWGYvSp1dBbTQ2QyVRanMDqOjsKxmW5Gbh5NhfHY8dxnDKcZ5jGSudrjEZ9VpmG74JzeEbjRj8chxT4PDxnBK/YDSWgdLo8VzXBpcG2MY4maXxzFKQRxHgOQeC8H4TkuZhzHoNR9kaXpNnONZsGGMo9B4A5bmuFZ7n4Pw/i+XpFmSVB/mAB41hsQJfBYOJXgGXAHm4CoCmCtYAHqXRWBGWB/F2Z5UnaAxZFOaJ2DuTpzHCOQ5gwcg8veDBjlCaA0mGBg6BYapcEONZiHYHADg4MoKE+U4QkEIINAISAig4Y44moPIPA4EpoHSBoOngNgyDiW5jCGShCF+VouA2EQNhKHBMg+Y5pFYPYVmOQxYiAD4kEgNZRHSTokCWax4A4KA2DaDglGkUhYhoZRph4DYZB6NAllEbwOmgKhEhqJ4JjIa4ek8c48mGAoflcAQJhITxaBYCoHEuGZmHuIooioIgKgWJIUCWXh4hkNhImkM4JloMh6iaJRzhySAkCkVhFhUd4QhMJomD0KtvBCCJMGocouh6KIKiifoKlodAmAAOgrgYVoVD7Y5AlMJhDAqPoLh6D4DkCYosicSoYkkQhcmMapOD6LQKkqHgkCwKhwmILpHFqSJ7jaTZbHYBw1lCFwwnEcAqgOUoUGSa5DxkLQGHsVhWhQRJKkmFYkBuaI1lgdBtlMdZKi6LoKnSZQwggOp+kGJpjiufIDiyGQXCiYZCmyJxeAQYQi0YYI+lieoqmmKwpHIdoskIGQGFWSg8DIBx6GCQ4AAYXhHjlo5fCqNpPjYRJ/kucwMkcMpM9GMwqk2Tx3AGa4AnIVpkm2N5cAgcJvk2XIsjGeYlF53hKk2dAnEGJR7nCdxlgYc4ajmEplk4NYNGcWpKiYRx5k4dYhC0RxggsTpXAGQA3jaBoEmuUIuFuCo4DoNoDHqShwCKXYPCSXYzmOMx6lwOwZoawrgkE0HwBY1xegdE2MMWQhBOhoEUBIQAgCAgA==" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexRadioButtonState0 to |CI$1000000
Set ComBackground OLEexRadioButtonState1 to |CI$2000000
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComShowSelection of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 12
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Radio" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellHasRadioButton to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Radio 1,Radio 2,Radio 3,Radio 4"
Send Destroy to hoItems
Variant voItem
Get ComItemByIndex of hoFaceTree 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComState of hoItem 0 to 1
Send Destroy to hoItem
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
73
|
How can I change the visual appearance for the control's check boxes (6)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComCheckBoxWidth to 16
Set ComCheckBoxHeight to 16
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 "gBFLBCJwBAEHhEJAADhABKMGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFIACxfFoWRrnaA5QoGM4EDTRYADCKsaQ/J0LcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7CcDKDATbr9MZ9ZBCNZoPimEYtS7MMLyRB8QpyAytaBhRaaGwmSr3U7Oc50d69FYTIxcYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNped6NSDVcKxLgaa4fTrOZZzHL9HpviMWYBnWOr+kwJ4zlqY53CAZQ/B4GZzmab5qHyT4cDeDInkwPp8DCTI/h+Iw7nMZZhj4B5eGKL57gYGAgAadZoG8soBgYfxKjcSRYCCYJGGYDoDmCQgNh0ZIZAaSB2gWYJ2F4FwdhsJpuBQfRiAWdQJDqUQUCUASAgA==" to Nothing
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABV0GACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFIACxfFoWRrnaA5QoGM4EDTRYADCKsaQ/J0LcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7CcDKDATbr9MZ9ZBCNZoPimEYtS7MMLQXK8QpyAytaBhRaaGwmSr3U7Oc50d69FYQXqvYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNpedy2YbkFC5LStHwbCrBVpxWotDxQjWVgrHYGI9iybhbiGUo+jafA6DKZxjkoVgxHoHR+iqXx2jMA52l8XJ/CMJ5TkaCp7nmOwHk+XovmECR8BWMYyAIHAgEOBgGFaSo4CWeQVgoSA0lOA5fEGEZQBSYRGBieYFlWMhiBoPZhkabI3geYIzDYIoHA8dxAH2CZYGMLgqHeW4zAYLgWCMB4gGIeoOjcQgJCqWBhgIOhvGKRhAn2D5blcWBaB+JBGi2EhWAgOQlhmEpYgiHB9DwJQCloUgWmUQoOFaEZXlaSB2haZJGF4WwdhsJRslmGJGDmFhYg8ZoHBiZYalCE4tBEQhQBAgI=" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexCheckBoxState0 to |CI$1000000
Set ComBackground OLEexCheckBoxState1 to |CI$2000000
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComShowSelection of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 16
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Check A,Check B,Check C,Check D"
Send Destroy to hoItems
Variant voItem
Get ComItemByIndex of hoFaceTree 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComState of hoItem 0 to 1
Send Destroy to hoItem
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
72
|
How can I change the visual appearance for the control's check boxes (5)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComCheckBoxWidth to 24
Set ComCheckBoxHeight to 24
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 "gBFLBCJwBAEHhEJAADhABO8GACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFIADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1DZ+KxAB76cheIIgAhCJQGSYZaDqOQyRhkBTqEIITZsRoNUIiRStayuDCLTwoSooXayfjHYAwOBYHgmC4NQ7EMRxLAmOw1ZKPQjgDDvDilM4tS7MMxzLK8cx3FjqaAyWhQTgePZNU7UNLwPRMCb3LqvbBsOxbHqma5tWjVYDwPZ9cz3Pq9biAG57fwnC59YLheK5Li9Q4jLbMdByXLMDxHiuRJpnWOw7k6RxrjuM5pj+PA+C8H4TkuZpznoPQ+H8B4rlubp3nsfYfA+H5Tl2cp6n4Pw+C+P5rnucx/B+aAFmqAAgCgFZlHSVZICYCoCmCSA2A6A5hAgPZTGWIQYFYFoFmCVsjj2YZIHYHoHmICIGCKCJiEiCZBGMTJjiIKoJGKSI2C6CBOjiRYSEITp4lWIgyhiOJmDqDpYHiIYgDqEITi0ERCFAECAg==" to Nothing
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABA4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFIADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1DZ+KxAB76cheIIgAhCJQGSYZaDqOQyRhkBTqEIITZsRoNUIiRStayuDCLTwoSooXayfjHYAwOBYHgmC4NQ7EMRxLAmOw1ZKPQjgDDvDilM4tS7MMxzLK8cx3FjqaAyWhQTgePZNU7UNLwPRMCb3LqvbBsOxbHqma5tWjVYDwPZ9cz3Pq9biAG57fq7ZLEYziOR4Hg+JzFbDVKq0aYjA5RlCU5mm8OR6l6Q53pqaAkgQXgBBMeRmGabhtjsTAeGuaZsm+aQMDwfwvAuJYch2dBsj0XJWkqHIZnMCIOEMBICHiXwHFWVx+A+V5pj4eRGGefJvDcC4WjyXArEWF4OAyAgghYCYsDAT5oHYHoHmGU5sncPANGKAA+HiXJyi4IA/g8U4klQfAeDeVIdgqYxIlWaoNGMQ5gnAOIOHMIIQg4IZonSEIBB0OIInCEAjGgaY6GCJIJDYQIRiEOBVmEN5LEGHhOggIx5F4WoKmKWI9lOCgdAkahZhaZhIH4QoRAMCQaE2GJmFmFhQgUJQZgoShwiSSY2HaBxllmFZqFcJ5JnYfofmgCgGgKIJoCeKYWiEKIKCaCogBqd4oneI5pAoRoSiSaRKFaFolmkVwFg0M4OgodoYieagKgaFA6moRhJAkO5qgaCJKGKapKjaLhhmmNoAmoQhOjQRQJEAQCAg==" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexCheckBoxState0 to |CI$1000000
Set ComBackground OLEexCheckBoxState1 to |CI$2000000
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComShowSelection of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 16
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Check A,Check B,Check C,Check D"
Send Destroy to hoItems
Variant voItem
Get ComItemByIndex of hoFaceTree 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComState of hoItem 0 to 1
Send Destroy to hoItem
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
71
|
How can I change the visual appearance for the control's check boxes (4)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComCheckBoxWidth to 32
Set ComCheckBoxHeight to 32
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 "gBFLBCJwBAEHhEJAADhABfICg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==" to Nothing
Get ComAdd of hoAppearance 2 ("gBFLBCJwBAEHhEJAADhABcoFg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoHERggR4A2GKMQH4FwBD0CgAgAAkAFhAEwEYAoYAiBeEUBEAYEBRI8EUCIcAVAEDQG0PcZYIBVgSHEAEGojB4j1AeFkHQ+wsBDBQGQTwyBdDREMAwNAjQhh+BoMYZA1wNhjEIG8QwwROAmEGCgBQCBgBQHKBoUYDQqiNEGNgGgowQjZA0MMHAZwWBgGsD4I4QBqAfDGJAMgrhAiRBGKQQgPRJAyB8EkJIWQUglGOBgZYFgGBYAIDsACmRgjgH0B4EYnQljIBiJwOwRh8DZA2CIGAOwDhRGEDQQwLAulGACJwZYOQ2gtDKMQWglwpDeC6AoUIJgPBiGAAACgggoBDAUPEHgJwShIGwDsEYtBnA" + ;
"JHiBoEQxRgCqAoCkeAbBUAhE2C8EwxBcibBkO0TgjxQjIBkIMIATwDCuGAB0QQEAJAtEKDgUQHgBi0DsJ0SI9AygkAwM0KQ4wIBcAUOEfQPRDgSB8BoZIrg1jNFSP0G4KACCzA4GMHgWqnjwHYAMDATgDhDHYMATokhpA9AaEAYoFwhDkHmAcHIogUBHAANsDIpR+B0EoEEbIRxUgAH+KMegihIDSB0E2X44BNgRFmAEZINhYhYBQIQYoDgUCFHsIgG1hQZhmDgIwCIoRwA7CQGMdYTxniVCAD4OQGhOiHDAJ4BowQSAFAIIAGAcxHBBGGEwRYVB3gfBmDAOoURIi0BsAYQA0KlA0DMA0IImQrhqH6F4VgFRHCxCtLYKwxgyhYYGFgNYjQQidCCICllpJUjVAUOwLwxQ2gwEwDUcwmBrh6H4F4BY6A02kAaNjMYYADBrH6IkF4FVPiDGgEgAYWwkUIGAGIYoWQpDuDkMUVARwCjgDMMMAIoRBAuAKIkNgHQyBEEIJACBAQA==") to Nothing
Get ComAdd of hoAppearance 3 ("gBFLBCJwBAEHhEJAADhABQ4Fg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQuFFBaDOASPcAALgChUDyB4cYtgiiOEyCcEopRCCvEsFIKomQEjnB4L8YgQBfgWEEMgPADhojaDsEcaIlBFiDBqEcRgQQ4ArEOPAfYQhUjmCsMsHIYwShmDmAoDYsRqj" + ;
"xAUAkHwPwDjYH2DsEopA9AaECIoFwhRkjmAcHIUAUBHABFsDMJY+B0goEGLIOozhoj/B2CcPg7hPATGdduAALgiiEBsBkd4Fg2iUCEPsG4RxKDDEoMIGARhDiAHaBcZ4rbeBUBQPkYo+gFAdE+AwKAEQhjGEUE8aQ1QYBQFCJwTgww1BDEaAEVQMwjBgGoBkSghhIjSBUEkJI6QagpFIHQPgZgojaBsDgIw8BvBgHYAG3QeAUhFFSMQfonwxg2D6E8ZQcwnjLG6DYCgjoAitB0IEKIyxigUA8DQZoq5tgiBICoIoUQXDjDgG4BouhFZdBQJEDYQw0BsEsMEawRAkBJACQEA==") to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexCheckBoxState0 to |CI$1000000
Set ComBackground OLEexCheckBoxState1 to |CI$2000000
Set ComBackground OLEexCheckBoxState2 to |CI$3000000
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComShowSelection of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 16
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Check A,Check B,Check C,Check D"
Send Destroy to hoItems
Variant voItem
Get ComItemByIndex of hoFaceTree 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComState of hoItem 0 to 1
Send Destroy to hoItem
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
70
|
How can I change the visual appearance for the control's check boxes (3)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComCheckBoxWidth to 32
Set ComCheckBoxHeight to 29
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 "gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQIAID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQSCmFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIXoDGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIBwU4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRwSkSYhDi0ERCFAECAg" to Nothing
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDaChgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAuEcXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiAwZn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkkCaxA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhprBQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDGK4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfGADYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+BvBPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4FwAIRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg==" to Nothing
Get ComAdd of hoAppearance 3 "gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmGAYOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhyFYdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkENgKDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMhGegNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg/iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8TgxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB+BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovBIhODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8ZI1hEChBQAggI" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexCheckBoxState0 to |CI$1000000
Set ComBackground OLEexCheckBoxState1 to |CI$2000000
Set ComBackground OLEexCheckBoxState2 to |CI$3000000
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComShowSelection of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 16
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Check A,Check B,Check C,Check D"
Send Destroy to hoItems
Variant voItem
Get ComItemByIndex of hoFaceTree 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComState of hoItem 0 to 1
Send Destroy to hoItem
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
69
|
How can I change the visual appearance for the control's check boxes (2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComCheckBoxWidth to 44
Set ComCheckBoxHeight to 20
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 "gBFLBCJwBAEHhEJAADhABJACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSDIUBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3OyaN5EbbgZz9P7AMBwLA8EwXBqHYIUGJGbhlbTnR7HMhvDIsPDnFqIZhmOZZXjlfh7T7KNByO6LcI3AiDagtWpNTpjf5dV7YNh2LY9UzXNq3bI1W5aUqyAZ9QQpeB0LILYDbRp/FzyO5NNrHG6dZ7oOh1doOUItlaP5lgcPA7hEJ47H8SD0l4LwfhOSJ9nOIh9DefBREMKYMDaX59nsVhvlKdBpCGfgIl+L43lGG5lH+YAGlWZw/EYOAVH8ZQXncdBJDwIJGkiGYDlmUh2BKABhEgVJpgWX4BA4BxcAeWB1H8KJiAaSJJgiWZWAmVA0CEWIln8JYikWfZpCIXARE0fw3GMRpJnaCRYBGWg6gqI5HgoJxfkYCQFlkX5PhkFYyBAJIImGABpGOWQ1k8OxlAWfZ6BGJA1noRQ+GQeQmEoX4kkkOheG2JQDjYUh+iMGJODUbBjHkbAzg6BxpH4bhsmOdZ6EEGAbmIAR/gSCZWkmfYShwYJYlOH5mnoBYvCSaBFnyDYhlcKAll2AwPAaSggCiWZaD6AogiEc4mBmBpYnePZxGMHw3lUeoGGUN5aH8NJpDoBgDgERg6GGFICh2d4GiWK5cngDgvHqWInG0cIfFyBwpjqLArkcTZVHWV5nGaNhxA6VoVicahajaNo9gUHI2nIdRwBwJoOkSMJlFmKpWjWWY2HwPYwm2SxJHIe5sGsYpiGcXpHj6XYxA6NBFAkQBAIC" to Nothing
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABB4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSDIUBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3Oy3KKiQy5cABPq/b6wDA8CwXAaHYRiGDYThmF4dRQAG6RcTLWrPFqVZheGYua4CLBxRrINA0LD9DyHJKnaZkDgpUQGN5dTS4GwPQCN3xRWzUyBaQzJfAZV7Lbw3PadX4XRLHcLwfAXFqWaaNZLneh5DouDz3P5YMuaRBicQ4nl6bpuBwKYRnuUY2jsfg9B0b43hOH5KjucQPnwOpMi+A4pnab5qB0a4znuf57n4f5gAeeJqC4R42mEcg5AoIRBnUfggkgLJiCaRA4AYEoEl+Y4AhcDpaFOGIrBgDYyBwHICmIB5djge4hEilY8g0MotiUZICkMYB6AEIgYDYIh0g+Q5cm+CYjgOfJ6DuDZ2hSWggkESI6DCDJjCkFZDg0Yx4mYJYOmOVoiD8BQhlgfhEgwZRGBoJISy0IgqGoIpDhCJAVCUWQaFMY5fAkYgBD+D5TmyYAlENPBnCsRhFkoYYcmYMAAmkLRHDmGZ9h2Rw4BkeBnFmeZWHSGIYHeQZuHoHonjGboamaVwYmIJwEEYbZNiCaRKAmdx1hyNZChWIQpjcKZYHAKQ6FqHIoh0Vp6hkcBqgoAodikKgmi2LYnmsCohkAXoXkqMojgMIpKh2Gw6lEFAlAEgIA==" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexCheckBoxState0 to |CI$1000000
Set ComBackground OLEexCheckBoxState1 to |CI$2000000
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComShowSelection of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 16
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Check A,Check B,Check C,Check D"
Send Destroy to hoItems
Variant voItem
Get ComItemByIndex of hoFaceTree 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComState of hoItem 0 to 1
Send Destroy to hoItem
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
68
|
How can I change the visual appearance for the control's check boxes (1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComCheckBoxWidth to 37
Set ComCheckBoxHeight to 15
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 "gBFLBCJwBAEHhEJAADhABOkGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjQAsTRQFocAChEYxXjKBA1SJNUgyj6WCQPR7CM5OaDgSABIijJDoGAwIgkUBpGKdBynEYoYxAYySQAIIjaYhoNoJChCM7QHQEBwQDCLUgrGbIbCQHDtW5cFr3DaLEzsXi8FwvK67cr2fp/YBgOBYHbdcJ5OxkbouPC7Sa0AKKYywGRNFijV4se7MHzzLKHXxZa6UNJhGhaHomCYkYDILhxfDMGx7GqvbBsOxPXj2DZLW7cNIyDS3NyfLqzcBwOZZdrPC6NPzTdSuHQOC43Tqgcb0PDaVghmOVpnHYOAcE6FxzEuCAAGGOw+C2HhzjuZpRGGAAXj8H4zGWZ53mEPAXgyZ43kWZZ4H4L4ehwRp/muTh2l+F5ll8cpZEeeZYHQIEZEoW5MBgNZ9gGGpzioEoCF+GA0kGApYlYnY6iAaBtjaBQfAabYpgMIJWgIGx9BmNhiBsNBikiAZwgWIg2DoMRkAyKJWB+C4fAYGg1DKIw2DAAA6lEFAlAEgI=" to Nothing
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABC4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjQAsTRQFocAChEYxXjKBA1SJNUgyj6WCQPR7CM5OaDgSABIijJDoGAwIgkUBpGKdBynEYoYxAYySQAIIjaYhoNoJChCM7QHQEBwQDCLUgrGbIbCQHDtW5cFr3DaLKI0J5kUBENhjaBafJ+XzfeBYDgmAYNQbDcJxDC8KwWeQjXYTdyXHilZLaADJcqZVChSwzCafZ5oOK6Bodfq0VY2HabNgnYbNbT7bBrLq6UwWTjZTYZMxuHKMVyLJK/b5wOi3axKBBJWjYOR5Li+MbvNLFCRmO6ObpjgWHxsCiS5vleW5dkCOBBHWPA4F4Rw3kuZpYG0NwbjuD4LAyWhUho9BnmueZ4nof5+BwS40E+Nx9jYeaKAWNhulkF41m8fBfDOVJoDWDJCCALw7g0cphngP5OEMBISH8Wg3hI05ckaUYRAAGL8H4PpPgOVJnDUTIiBAKRfkwcZ0BuBAhCeYgVgWXA3AEfRsiGSJlkobIYnAAgYAWDJyEQPgyAgAIFh6CxBjOMJUCyrQckcJxjniahSHMF54gGRoPl4EZsBgOpNAKMhNDGSZnjYOIUmGRo0mwdAAAgFg1hYGIpGiagzgqE5onMOoelgahkgAIZll2U4bCMaZ2AYagnHgbgDFuXQ2GwM4fCiCYtmMapoBgdJaDAaBni2PYiifSR8HQDpqD6AYmEwFxBlIboWnoGoJiUahGHmNonCYZwmGaJwNiKKBriQWRaEmFooA6UxQhsFAdAqDo6iViJYFCLQdCOLQREIUAQICA=" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexCheckBoxState0 to |CI$1000000
Set ComBackground OLEexCheckBoxState1 to |CI$2000000
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComShowSelection of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 12
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Check A,Check B,Check C,Check D"
Send Destroy to hoItems
Variant voItem
Get ComItemByIndex of hoFaceTree 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComState of hoItem 0 to 1
Send Destroy to hoItem
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
67
|
How can I display an item to fit the control's width
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComHasLines of hoFaceTree to OLEexThinLine
Set ComItemPadding of hoFaceTree to 10
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c>Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoFaceTree to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Pos" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComPosition of hoColumn1 to 0
Set ComAlignment of hoColumn1 to OLELeftAlignment
Set ComFormatColumn of hoColumn1 to "1 rpos ``"
Set ComWidth of hoColumn1 to 24
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns of hoFaceTree to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Pos" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComAlignment of hoColumn2 to OLELeftAlignment
Set ComFormatColumn of hoColumn2 to "1 rpos ``"
Set ComWidth of hoColumn2 to 24
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "<r>Root 1" to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBold of hoItem to True
Set ComDivider of hoItem to 0
Set ComBackColor of hoItem to (RGB(240,240,240))
Set ComSelectable of hoItem to False
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 "Child 1" to Nothing
Get ComAdd of hoItems1 "Child 2" to Nothing
Get ComAdd of hoItems1 "Child 3" to Nothing
Send Destroy to hoItems1
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "<r>Root 2" to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComBold of hoItem1 to True
Set ComDivider of hoItem1 to 0
Set ComBackColor of hoItem1 to (RGB(240,240,240))
Set ComSelectable of hoItem1 to False
Variant voItems2
Get ComItems of hoItem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "Child 1" to Nothing
Get ComAdd of hoItems2 "Child 2" to Nothing
Get ComAdd of hoItems2 "Child 3" to Nothing
Send Destroy to hoItems2
Send Destroy to hoItem1
Send ComExpandAll of hoItems
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
66
|
Is it possible to prevent showing the selecting item ( hide )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComCheckBoxWidth to 32
Set ComTexturePicturePath to ""
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComShowSelection of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 10
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item A,Item B,Item C,Item D"
Send Destroy to hoItems
Variant voItem
Get ComItemByIndex of hoFaceTree 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComState of hoItem 0 to 1
Send Destroy to hoItem
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
65
|
Is it possible to provide a few radio-buttons only, not for entire column
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComShowSelection of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 10
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellPaddingLeft to 4
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item 1" to Nothing
Variant voItem
Get ComAdd of hoItems "Radio 1" to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComHasRadioButton of hoItem 0 to True
Set ComRadioGroup of hoItem 0 to 1234
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Radio 2" to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComHasRadioButton of hoItem1 0 to True
Set ComRadioGroup of hoItem1 0 to 1234
Set ComState of hoItem1 0 to True
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems "Radio 3" to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComHasRadioButton of hoItem2 0 to True
Set ComRadioGroup of hoItem2 0 to 1234
Send Destroy to hoItem2
Get ComAdd of hoItems "Item 1" to Nothing
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
64
|
Is it possible to provide a few check box only, not for entire column
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComShowSelection of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 10
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellPaddingLeft to 4
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item 1" to Nothing
Variant voItem
Get ComAdd of hoItems "Check 1" to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComHasCheckBox of hoItem 0 to True
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Check 2" to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComHasCheckBox of hoItem1 0 to True
Set ComState of hoItem1 0 to 1
Send Destroy to hoItem1
Get ComAdd of hoItems "Item 1" to Nothing
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
63
|
How can I show radio-buttons for the entire column
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComShowSelection of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 10
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Radio" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellHasRadioButton to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item A,Item B,Item C,Item D"
Send Destroy to hoItems
Variant voItem
Get ComItemByIndex of hoFaceTree 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComState of hoItem 0 to 1
Send Destroy to hoItem
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
62
|
How can I show check-boxes for the entire column
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComShowSelection of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Set ComItemPadding of hoFaceTree to 10
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "<c><b>Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item A,Item B,Item C,Item D"
Send Destroy to hoItems
Variant voItem
Get ComItemByIndex of hoFaceTree 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComState of hoItem 0 to 1
Send Destroy to hoItem
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
61
|
How do I select programmatically a value in the calendar
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
Set ComBackground OLEexDateHeaderForeColor to (RGB(1,0,0))
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceCalendar
Get ComCreateCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComForeColor of hoFaceCalendar to (RGB(255,255,255))
Set ComNonworkingDays of hoFaceCalendar to 0
Set ComValue of hoFaceCalendar to "12/31/2016"
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
End_Procedure
|
|
60
|
How do I select programmatically a caption in the list
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\JapanGarden"
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComItemPadding of hoFaceTree to 40
Set ComHeaderVisible of hoFaceTree to False
Set ComForeColor of hoFaceTree to (RGB(255,255,255))
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to ",<sha \;\;0><font \;18>Garden <b>A,<sha \;\;0><font \;18>Garden <b>B,<sha \;\;0><font \;18>Garden <b>C,"
Send Destroy to hoItems
Set ComCaption of hoFaceTree to "Garden B"
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
|
|
59
|
How do I select programmatically a value in the list
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\JapanGarden"
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComItemPadding of hoFaceTree to 40
Set ComHeaderVisible of hoFaceTree to False
Set ComForeColor of hoFaceTree to (RGB(255,255,255))
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to ",<sha \;\;0><font \;18>Garden <b>A,<sha \;\;0><font \;18>Garden <b>B,<sha \;\;0><font \;18>Garden <b>C,"
Send Destroy to hoItems
Set ComValue of hoFaceTree to "<sha ;;0><font ;18>Garden <b>B"
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
|
|
58
|
How can I show solid lines instead
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComHasButtons to OLEexArrow
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComItemPadding of hoFaceTree to 10
Set ComHeaderVisible of hoFaceTree to False
Set ComHasLines of hoFaceTree to OLEexSolidLine
Set ComLinesAtRoot of hoFaceTree to OLEexGroupLines
Set ComGridLineStyle of hoFaceTree to OLEexGridLinesSolid
Set ComDrawGridLines of hoFaceTree to OLEexAllLines
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoFaceTree to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComAlignment of hoColumn1 to OLERightAlignment
Set ComFormatColumn of hoColumn1 to "lower(%0) right 1"
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Root <b>1" 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 "Child 1" to Nothing
Get ComAdd of hoItems1 "Child 2" to Nothing
Get ComAdd of hoItems1 "Child 3" to Nothing
Send Destroy to hoItems1
Set ComExpanded of hoItem to True
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Root <b>2" to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant voItems2
Get ComItems of hoItem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "Child 1" to Nothing
Get ComAdd of hoItems2 "Child 2" to Nothing
Get ComAdd of hoItems2 "Child 3" to Nothing
Send Destroy to hoItems2
Send Destroy to hoItem1
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
57
|
How can I select the entire item rather than the column only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComFullRowSelect of hoFaceTree to True
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Set ComCount of hoColumns to 3
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoFaceTree to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComItem of hoColumns1 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComCaption of hoColumn to "<b><c>Pos"
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComFormatColumn of hoColumn to "0 pos ``"
Set ComWidth of hoColumn to 64
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant v
Variant voFace1
Get ComFrontFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceTree1
Get ComFaceTree of hoFace1 to voFaceTree1
Handle hoFaceTree1
Get Create (RefClass(cComFaceTree)) to hoFaceTree1
Set pvComObject of hoFaceTree1 to voFaceTree1
Get ComVisibleItemsCount of hoFaceTree1 to v
Send Destroy to hoFaceTree1
Send Destroy to hoFace1
Set ComCount of hoItems to v
Send Destroy to hoItems
Set ComSelectItem of hoFaceTree to 1
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEnsureVisibleFace OLEexFrontFace Nothing
Send ComEndUpdate
End_Procedure
|
|
56
|
How can I change the visual appearance of the control's header bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComBackColorHeader of hoFaceTree to |CI$1000000
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Set ComCount of hoColumns to 5
Send Destroy to hoColumns
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEnsureVisibleFace OLEexFrontFace Nothing
Send ComEndUpdate
End_Procedure
|
|
55
|
How can I add multiple-columns, so the horizontal scroll bar is displayed
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComColumnAutoResize of hoFaceTree to False
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Set ComCount of hoColumns to 20
Send Destroy to hoColumns
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEnsureVisibleFace OLEexFrontFace Nothing
Send ComEndUpdate
End_Procedure
|
|
54
|
How can I add multiple-columns
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComItemPadding of hoFaceTree to 10
Set ComLinesAtRoot of hoFaceTree to OLEexGroupLines
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoFaceTree to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Pos" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComPosition of hoColumn1 to 0
Set ComAlignment of hoColumn1 to OLELeftAlignment
Set ComFormatColumn of hoColumn1 to "1 rpos ``"
Set ComWidth of hoColumn1 to 24
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Root 1" 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 "Child 1" to Nothing
Get ComAdd of hoItems1 "Child 2" to Nothing
Get ComAdd of hoItems1 "Child 3" to Nothing
Send Destroy to hoItems1
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Root 2" to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant voItems2
Get ComItems of hoItem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "Child 1" to Nothing
Get ComAdd of hoItems2 "Child 2" to Nothing
Get ComAdd of hoItems2 "Child 3" to Nothing
Send Destroy to hoItems2
Send Destroy to hoItem1
Send ComExpandAll of hoItems
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
53
|
How do I add a hierarchy
// Notifies that an item has been expanded/collapsed into a face of tree type.
Procedure OnComFaceTreeExpandItem Variant llTree Integer llItem
Forward Send OnComFaceTreeExpandItem llTree llItem
Showln llItem
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComExpandOnDblClick of hoFaceTree to True
Set ComItemPadding of hoFaceTree to 10
Set ComHeaderVisible of hoFaceTree to False
Set ComLinesAtRoot of hoFaceTree to OLEexGroupLines
Set ComDrawGridLines of hoFaceTree to OLEexRowLines
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Root 1" 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 "Child 1" to Nothing
Get ComAdd of hoItems1 "Child 2" to Nothing
Get ComAdd of hoItems1 "Child 3" to Nothing
Send Destroy to hoItems1
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Root 2" to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant voItems2
Get ComItems of hoItem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "Child 1" to Nothing
Get ComAdd of hoItems2 "Child 2" to Nothing
Get ComAdd of hoItems2 "Child 3" to Nothing
Send Destroy to hoItems2
Send Destroy to hoItem1
Send ComExpandAll of hoItems
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
52
|
How can I display a calendar control
// Notifies that the user selects a new date/value into a face of the calendar type.
Procedure OnComFaceCalendarValueChanged Variant llCalendar
Forward Send OnComFaceCalendarValueChanged llCalendar
Showln llCalendar
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceCalendar
Get ComCreateCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComValue of hoFaceCalendar to "1/2/2001"
Set ComMonthNames of hoFaceCalendar to (ComLocMonthNames(hoFaceCalendar,Nothing))
Set ComWeekDays of hoFaceCalendar to (ComLocWeekDays(hoFaceCalendar,2))
Set ComFirstWeekDay of hoFaceCalendar to (ComLocFirstWeekDay(hoFaceCalendar))
Set ComAutoSize of hoFaceCalendar to OLEexFitClient
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
End_Procedure
|
|
51
|
How can I change the picture/texture on the faces
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Earth"
End_Procedure
|
|
50
|
How can I get ride of the default texture
Procedure OnCreate
Forward Send OnCreate
Set ComIdentifyFace to (OLEexIdentifyFaceFrame + OLEexIdentifyFaceName + OLEexIdentifyFaceCaption)
Set ComTexturePicturePath to ""
End_Procedure
|
|
49
|
How do I get ride of grid lines, and the top border it shows on the tree face
Procedure OnCreate
Forward Send OnCreate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComItemPadding of hoFaceTree to 20
Set ComHeaderVisible of hoFaceTree to False
Set ComDrawGridLines of hoFaceTree to OLEexNoLines
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item A" to Nothing
Get ComAdd of hoItems "Item B" to Nothing
Get ComAdd of hoItems "Item C" to Nothing
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
|
|
48
|
How can I add a list of items (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item A" to Nothing
Get ComAdd of hoItems "Item B" to Nothing
Get ComAdd of hoItems "Item C" to Nothing
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
|
|
47
|
How can I add a list of items (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item A,Item B,Item C"
Send Destroy to hoItems
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
|
|
46
|
Fisheye Calendar View - Year
// Notifies that the user selects a new item/column/value into a face of the tree type.
Procedure OnComFaceTreeValueChanged Variant llTree
Forward Send OnComFaceTreeValueChanged llTree
// f.FaceCalendar.Year = Tree.Caption
Variant f
Get ComFace (ComVisibleFace(Self)) to f
Get ComFrontFace to f
Variant voFace
Get ComNeighbor OLEexRotateLeft to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceCalendar
Get ComFaceCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComDate of hoFaceCalendar to f
Send ComMove of hoFaceCalendar OLEexRotateLeft Nothing
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
Variant voFace1
Get ComNeighbor OLEexRotateRight to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceCalendar1
Get ComFaceCalendar of hoFace1 to voFaceCalendar1
Handle hoFaceCalendar1
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar1
Set pvComObject of hoFaceCalendar1 to voFaceCalendar1
Set ComDate of hoFaceCalendar1 to f
Send ComMove of hoFaceCalendar1 OLEexRotateRight Nothing
Send Destroy to hoFaceCalendar1
Send Destroy to hoFace1
Variant voFace2
Get ComNeighbor OLEexRotateRight to voFace2
Handle hoFace2
Get Create (RefClass(cComFace)) to hoFace2
Set pvComObject of hoFace2 to voFace2
Variant voFace3
Get ComNeighbor of hoFace2 OLEexRotateRight to voFace3
Handle hoFace3
Get Create (RefClass(cComFace)) to hoFace3
Set pvComObject of hoFace3 to voFace3
Variant voFaceCalendar2
Get ComFaceCalendar of hoFace3 to voFaceCalendar2
Handle hoFaceCalendar2
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar2
Set pvComObject of hoFaceCalendar2 to voFaceCalendar2
Set ComDate of hoFaceCalendar2 to f
Send ComMove of hoFaceCalendar2 OLEexRotateRight Nothing
Send ComMove of hoFaceCalendar2 OLEexRotateRight Nothing
Send Destroy to hoFaceCalendar2
Send Destroy to hoFace3
Send Destroy to hoFace2
End_Procedure
// Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction.
Procedure OnComMove OLERotateEnum llRotateDir OLEFaceEnum llFromFace OLEFaceEnum llToFace
Forward Send OnComMove llRotateDir llFromFace llToFace
Get ComFace llToFace to f
Variant voFaceCalendar3
Get ComFaceCalendar to voFaceCalendar3
Handle hoFaceCalendar3
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar3
Set pvComObject of hoFaceCalendar3 to voFaceCalendar3
Variant v
Variant voFace4
Get ComFace llFromFace to voFace4
Handle hoFace4
Get Create (RefClass(cComFace)) to hoFace4
Set pvComObject of hoFace4 to voFace4
Variant voFaceCalendar4
Get ComFaceCalendar of hoFace4 to voFaceCalendar4
Handle hoFaceCalendar4
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar4
Set pvComObject of hoFaceCalendar4 to voFaceCalendar4
Get ComSelDate of hoFaceCalendar4 to v
Send Destroy to hoFaceCalendar4
Send Destroy to hoFace4
Set ComSelDate of hoFaceCalendar3 to v
Send Destroy to hoFaceCalendar3
Variant voFace5
Get ComFace llFromFace to voFace5
Handle hoFace5
Get Create (RefClass(cComFace)) to hoFace5
Set pvComObject of hoFace5 to voFace5
Variant voFaceCalendar5
Get ComFaceCalendar of hoFace5 to voFaceCalendar5
Handle hoFaceCalendar5
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar5
Set pvComObject of hoFaceCalendar5 to voFaceCalendar5
Send ComUnselectDate of hoFaceCalendar5
Send Destroy to hoFaceCalendar5
Send Destroy to hoFace5
Variant voFace6
Get ComNeighbor OLEexRotateLeft to voFace6
Handle hoFace6
Get Create (RefClass(cComFace)) to hoFace6
Set pvComObject of hoFace6 to voFace6
Variant voFaceCalendar6
Get ComFaceCalendar of hoFace6 to voFaceCalendar6
Handle hoFaceCalendar6
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar6
Set pvComObject of hoFaceCalendar6 to voFaceCalendar6
Set ComDate of hoFaceCalendar6 to f
Send ComMove of hoFaceCalendar6 OLEexRotateLeft Nothing
Send Destroy to hoFaceCalendar6
Send Destroy to hoFace6
Variant voFace7
Get ComNeighbor OLEexRotateRight to voFace7
Handle hoFace7
Get Create (RefClass(cComFace)) to hoFace7
Set pvComObject of hoFace7 to voFace7
Variant voFaceCalendar7
Get ComFaceCalendar of hoFace7 to voFaceCalendar7
Handle hoFaceCalendar7
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar7
Set pvComObject of hoFaceCalendar7 to voFaceCalendar7
Set ComDate of hoFaceCalendar7 to f
Send ComMove of hoFaceCalendar7 OLEexRotateRight Nothing
Send Destroy to hoFaceCalendar7
Send Destroy to hoFace7
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComEnsureVisibleFaceMargin to 32
Set ComEnsureVisibleFaceOnDblClick to False
Set ComEnsureVisibleFaces to "0,2,1,3,4"
Variant voFace8
Get ComFrontFace to voFace8
Handle hoFace8
Get Create (RefClass(cComFace)) to hoFace8
Set pvComObject of hoFace8 to voFace8
Variant voFaceCalendar8
Get ComCreateCalendar of hoFace8 to voFaceCalendar8
Handle hoFaceCalendar8
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar8
Set pvComObject of hoFaceCalendar8 to voFaceCalendar8
Set ComDate of hoFaceCalendar8 to "1/1/2016"
Set ComAutoSize of hoFaceCalendar8 to OLEexFitClient
Set ComMaxMonthX of hoFaceCalendar8 to 1
Set ComMaxMonthY of hoFaceCalendar8 to 1
Set ComShowTodayButton of hoFaceCalendar8 to False
Set ComFirstWeekDay of hoFaceCalendar8 to OLEexMonday
Set ComSelBackColor of hoFaceCalendar8 to |CI$2000000
Set ComSelForeColor of hoFaceCalendar8 to (RGB(0,0,0))
Set ComShowNonMonthDays of hoFaceCalendar8 to True
Send Destroy to hoFaceCalendar8
Send Destroy to hoFace8
Variant v1
Variant voFace9
Get ComFrontFace to voFace9
Handle hoFace9
Get Create (RefClass(cComFace)) to hoFace9
Set pvComObject of hoFace9 to voFace9
Variant voFaceCalendar9
Get ComFaceCalendar of hoFace9 to voFaceCalendar9
Handle hoFaceCalendar9
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar9
Set pvComObject of hoFaceCalendar9 to voFaceCalendar9
Get ComDate of hoFaceCalendar9 to v1
Send Destroy to hoFaceCalendar9
Send Destroy to hoFace9
Variant d
Move v1 to d
Variant voFace10
Get ComLeftFace to voFace10
Handle hoFace10
Get Create (RefClass(cComFace)) to hoFace10
Set pvComObject of hoFace10 to voFace10
Variant voFaceCalendar10
Get ComCreateCalendar of hoFace10 to voFaceCalendar10
Handle hoFaceCalendar10
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar10
Set pvComObject of hoFaceCalendar10 to voFaceCalendar10
Set ComDate of hoFaceCalendar10 to d
Send ComMove of hoFaceCalendar10 OLEexRotateLeft Nothing
Set ComAutoSize of hoFaceCalendar10 to OLEexFitClient
Set ComMaxMonthX of hoFaceCalendar10 to 1
Set ComMaxMonthY of hoFaceCalendar10 to 1
Set ComShowTodayButton of hoFaceCalendar10 to False
Set ComFirstWeekDay of hoFaceCalendar10 to OLEexMonday
Set ComSelBackColor of hoFaceCalendar10 to |CI$2000000
Set ComSelForeColor of hoFaceCalendar10 to (RGB(0,0,0))
Set ComShowNonMonthDays of hoFaceCalendar10 to True
Send Destroy to hoFaceCalendar10
Send Destroy to hoFace10
Variant voFace11
Get ComRightFace to voFace11
Handle hoFace11
Get Create (RefClass(cComFace)) to hoFace11
Set pvComObject of hoFace11 to voFace11
Variant voFaceCalendar11
Get ComCreateCalendar of hoFace11 to voFaceCalendar11
Handle hoFaceCalendar11
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar11
Set pvComObject of hoFaceCalendar11 to voFaceCalendar11
Set ComDate of hoFaceCalendar11 to d
Send ComMove of hoFaceCalendar11 OLEexRotateRight Nothing
Set ComAutoSize of hoFaceCalendar11 to OLEexFitClient
Set ComMaxMonthX of hoFaceCalendar11 to 1
Set ComMaxMonthY of hoFaceCalendar11 to 1
Set ComShowTodayButton of hoFaceCalendar11 to False
Set ComFirstWeekDay of hoFaceCalendar11 to OLEexMonday
Set ComSelBackColor of hoFaceCalendar11 to |CI$2000000
Set ComSelForeColor of hoFaceCalendar11 to (RGB(0,0,0))
Set ComShowNonMonthDays of hoFaceCalendar11 to True
Send Destroy to hoFaceCalendar11
Send Destroy to hoFace11
Variant voFace12
Get ComBottomFace to voFace12
Handle hoFace12
Get Create (RefClass(cComFace)) to hoFace12
Set pvComObject of hoFace12 to voFace12
Variant voFaceCalendar12
Get ComCreateCalendar of hoFace12 to voFaceCalendar12
Handle hoFaceCalendar12
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar12
Set pvComObject of hoFaceCalendar12 to voFaceCalendar12
Set ComDate of hoFaceCalendar12 to d
Send ComMove of hoFaceCalendar12 OLEexRotateRight Nothing
Send ComMove of hoFaceCalendar12 OLEexRotateRight Nothing
Set ComAutoSize of hoFaceCalendar12 to OLEexFitClient
Set ComMaxMonthX of hoFaceCalendar12 to 1
Set ComMaxMonthY of hoFaceCalendar12 to 1
Set ComShowTodayButton of hoFaceCalendar12 to False
Set ComFirstWeekDay of hoFaceCalendar12 to OLEexMonday
Set ComSelBackColor of hoFaceCalendar12 to |CI$2000000
Set ComSelForeColor of hoFaceCalendar12 to (RGB(0,0,0))
Set ComShowNonMonthDays of hoFaceCalendar12 to True
Send Destroy to hoFaceCalendar12
Send Destroy to hoFace12
Variant voFace13
Get ComTopFace to voFace13
Handle hoFace13
Get Create (RefClass(cComFace)) to hoFace13
Set pvComObject of hoFace13 to voFace13
Variant voFaceTree
Get ComCreateTree of hoFace13 to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Set ComItemPadding of hoFaceTree to 20
Set ComSelBackColor of hoFaceTree to |CI$2000000
Set ComSelForeColor of hoFaceTree to (RGB(0,0,0))
Variant voColumns
Get ComColumns of hoFaceTree to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Set ComCount of hoColumns to 5
Send Destroy to hoColumns
Set ComHeaderVisible of hoFaceTree to False
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant v2
Variant voFace14
Get ComTopFace to voFace14
Handle hoFace14
Get Create (RefClass(cComFace)) to hoFace14
Set pvComObject of hoFace14 to voFace14
Variant voFaceTree1
Get ComFaceTree of hoFace14 to voFaceTree1
Handle hoFaceTree1
Get Create (RefClass(cComFaceTree)) to hoFaceTree1
Set pvComObject of hoFaceTree1 to voFaceTree1
Get ComVisibleItemsCount of hoFaceTree1 to v2
Send Destroy to hoFaceTree1
Send Destroy to hoFace14
Set ComCount of hoItems to v2
Send Destroy to hoItems
Variant voColumns1
Get ComColumns of hoFaceTree to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComItem of hoColumns1 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns of hoFaceTree to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComItem of hoColumns2 1 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns of hoFaceTree to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn2
Get ComItem of hoColumns3 2 to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComFormatColumn of hoColumn2 to "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
Send Destroy to hoColumn2
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns of hoFaceTree to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn3
Get ComItem of hoColumns4 3 to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
Send Destroy to hoColumn3
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns of hoFaceTree to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn4
Get ComItem of hoColumns5 4 to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComFormatColumn of hoColumn4 to "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
Send Destroy to hoColumn4
Send Destroy to hoColumns5
Variant v3
Variant voFace15
Get ComFrontFace to voFace15
Handle hoFace15
Get Create (RefClass(cComFace)) to hoFace15
Set pvComObject of hoFace15 to voFace15
Variant voFaceCalendar13
Get ComFaceCalendar of hoFace15 to voFaceCalendar13
Handle hoFaceCalendar13
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar13
Set pvComObject of hoFaceCalendar13 to voFaceCalendar13
Get ComYear of hoFaceCalendar13 to v3
Send Destroy to hoFaceCalendar13
Send Destroy to hoFace15
Set ComCaption of hoFaceTree to v3
Send Destroy to hoFaceTree
Send Destroy to hoFace13
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 "gBFLBCJwBAEHhEJAADhABXgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDIAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZZmWCQCglf5HABRb7xPLoARTAaeJKoWboJAiGwLQjQUyABSdEyRJSLYhGIZRFqKZIRDSMFiwTZNVypAaIYqqaA6qzfJymabAAZJEradozTLIE7xVLEVYNKCmZCwMAAcgmEQgSTAda2BYELTzECoYDGCrcKpWCaNQLWEB5BQeJSNL6kIqsazgAqPLJtWhaVwxXIEI5AAC5QA0S7pOxeO6JbRGdZbNrlbz1PTMaazTgYDzmWqiYxxMraXxSlmMprGsIpVl2LRnD0A5bnSN49mAARAlIYw6B0ThGFGDIBG0QghBMfZRiGNAkFECZoG6YQBgiOgCmuRRSg6GAElWAJMkgFgGgGYIIAyVQ7GCRhUAAOQhAMBgSDWIRDG4Fg3CGCBmBmBYNjgUJWDIIgIECZBCEsKIUkqCZhiiJgqgaYRjB4LguiMBAkiqDLenYrBjgiZg6gGIwyioMoNCAWJqEKEJjkiTg/CqIxZA4SoNmQWJ5AODxMlkRJehSZRJFYVoVmUEw2D2EZlhkXhehfURuE+DJllkfhmhUJgZBoYwqiWEx+G6G5nAmRhyhoZJgAIUIUGcKZmHqHQlkmYh6h+Zp5nIawzigQ4CgaIZogoJoKiEDJpgodoMmiSgqhKJNxDoPQzmmA4GhqJppkodoeiYDJ6FpaQpmqFomigKgiiqJIpiqShuiiGoonqKoZisapaj4dYl3WCo6i6a5KnaPotiQeoCj6MJsEsAhrDQLIDg6SoymySw2k6MgNAqJpQjOLRLFaUI0iyGxWlq/p6kIPY0m2Oxul2LZjDMRpmgiLoLiaaoIi4YxGinoY7kaauhnuGJlj2b4Lmaeo+m8Sx6mWOZhAubwCj2bpLhqKYJkyKTnECThYgoVJCCiYpPBIL5xEMLwWjsTQsGcGpGi6XBYkuRQLvcIhCE8DIWDCSZLiKdwqC+MpMjcLZKguXIcjiTJyFOQYnD+TYMmSLZOkmHJ3D6T50AybItiGYJji2MwABAECAg=" to Nothing
Send Destroy to hoAppearance
Variant voAppearance1
Get ComVisualAppearance to voAppearance1
Handle hoAppearance1
Get Create (RefClass(cComAppearance)) to hoAppearance1
Set pvComObject of hoAppearance1 to voAppearance1
Get ComAdd of hoAppearance1 2 "gBFLBCJwBAEHhEJAADhABOkGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEYFDSAUIjKKkIhkGIYZBGQBJDjWGgyQjOEByDIMRwjE4YBpkGYYJDSIYHTZIUzTJAdGSVJKNKAoKCaEg2R4qsZCCKwUgmTo9VBJU9CFi6ZIRDSMFiyXZUIxHEKnIqrOjbBjaUpYABLErTBKUSzrEadAAwGbKJj+VJBULMVD2BDWGABOYAKarWa7fhaUqJUTVdI1VBOIYmADPcaqCxrLgMMpnWxpN42bjdPY7V6Bc7yXJsHimK5GUTQA4aFIENydJzINjsKBKBriLIybpeFr7BiME4/YLhAA0vZNUYsg0XguBqaAeEOIYUjqYQgGCCBJECUhjDoHROEYWooAGTRMCEEx9lGIY0CQUZOnuZQDBEdYFkeI5+H+igGAKAJgEgFgGgGUAzn4CoCmCSA2A6A5hAgCgQgSYRIE4EoFGGCBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAYLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ1n4OpWmQDQBICA==" to Nothing
Send Destroy to hoAppearance1
Set ComBackground OLEexDateHeader to |CI$1000000
Set ComBackground OLEexWeeksHeader to (RGB(250,250,250))
Set ComBackground OLEexDaysHeader to (RGB(250,250,250))
Set ComBackground OLEexDateTodayUp to |CI$2000000
Set ComBackground OLEexDateTodayForeColor to (RGB(255,255,255))
Send ComEnsureVisibleFace OLEexFrontFace Nothing
Send ComEndUpdate
End_Procedure
|
|
45
|
How can I add a FaceTree object ( method 2 )
Procedure OnCreate
Forward Send OnCreate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceTree
Get ComCreateTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item <b>1,Item <b>2,Item <b>3"
Send Destroy to hoItems
Set ComSelectItem of hoFaceTree to 1
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
|
|
44
|
How can I add a FaceTree object ( method 1 )
Procedure OnCreate
Forward Send OnCreate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComType of hoFace to OLEexFaceTree
Variant voFaceTree
Get ComFaceTree of hoFace to voFaceTree
Handle hoFaceTree
Get Create (RefClass(cComFaceTree)) to hoFaceTree
Set pvComObject of hoFaceTree to voFaceTree
Variant voItems
Get ComItems of hoFaceTree to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item <b>1,Item <b>2,Item <b>3"
Send Destroy to hoItems
Set ComSelectItem of hoFaceTree to 1
Send Destroy to hoFaceTree
Send Destroy to hoFace
End_Procedure
|
|
43
|
How can I add a FaceCalendar object ( method 2 )
Procedure OnCreate
Forward Send OnCreate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceCalendar
Get ComCreateCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComAutoSize of hoFaceCalendar to OLEexFitClient
Set ComValue of hoFaceCalendar to "12/31/1971"
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
End_Procedure
|
|
42
|
How can I add a FaceCalendar object ( method 1 )
Procedure OnCreate
Forward Send OnCreate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComType of hoFace to OLEexFaceCalendar
Variant voFaceCalendar
Get ComFaceCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComAutoSize of hoFaceCalendar to OLEexFitClient
Set ComValue of hoFaceCalendar to "12/31/1971"
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
End_Procedure
|
|
41
|
How can I add a FacePicture object ( method 2 )
Procedure OnCreate
Forward Send OnCreate
Set ComIdentifyFace to (OLEexIdentifyFaceFrame + OLEexIdentifyFaceName + OLEexIdentifyFaceCaption)
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFacePicture
Get ComCreatePicture of hoFace to voFacePicture
Handle hoFacePicture
Get Create (RefClass(cComFacePicture)) to hoFacePicture
Set pvComObject of hoFacePicture to voFacePicture
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture of hoFacePicture to (vPicture)
Set ComPictureDisplay of hoFacePicture to OLETile
Set ComWidth of hoFacePicture to "2 * pwidth"
Set ComHeight of hoFacePicture to "2 * pheight"
Set ComTop of hoFacePicture to "122"
Set ComLeft of hoFacePicture to "46"
Send Destroy to hoFacePicture
Send Destroy to hoFace
End_Procedure
|
|
40
|
How can I add a FacePicture object ( method 1 )
Procedure OnCreate
Forward Send OnCreate
Set ComIdentifyFace to (OLEexIdentifyFaceFrame + OLEexIdentifyFaceName + OLEexIdentifyFaceCaption)
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComType of hoFace to OLEexFacePicture
Variant voFacePicture
Get ComFacePicture of hoFace to voFacePicture
Handle hoFacePicture
Get Create (RefClass(cComFacePicture)) to hoFacePicture
Set pvComObject of hoFacePicture to voFacePicture
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture of hoFacePicture to (vPicture)
Set ComPictureDisplay of hoFacePicture to OLETile
Set ComWidth of hoFacePicture to "2 * pwidth"
Set ComHeight of hoFacePicture to "2 * pheight"
Set ComTop of hoFacePicture to "122"
Set ComLeft of hoFacePicture to "46"
Send Destroy to hoFacePicture
Send Destroy to hoFace
End_Procedure
|
|
39
|
How can I prevent bringing a specified face into the front
Procedure OnCreate
Forward Send OnCreate
Set ComEnsureVisibleFaces to "0"
End_Procedure
|
|
38
|
Is it possible to show one face opaque, while other semi-transparent
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Set ComDefaultFaceType to OLEexFaceCalendar
Set ComTransparentContent to 75
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComTransparentContent of hoFace to 0
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
37
|
How can I add a Calendar control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMargins to "0,0,0,0"
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComType of hoFace to OLEexFaceCalendar
Variant voFaceCalendar
Get ComFaceCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComShowNonMonthDays of hoFaceCalendar to True
Set ComAutoSize of hoFaceCalendar to OLEexFitClient
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
36
|
Is it possible to init faces at once
// Notifies your application that a face changes its type, so you can initialize its content.
Procedure OnComInitFaceContent Variant llFace
Forward Send OnComInitFaceContent llFace
// Face.FaceContent.ShowTodayButton = False
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDefaultFaceType to OLEexFaceCalendar
End_Procedure
|
|
35
|
How can I disable zoom when rolling the mouse wheel
Procedure OnCreate
Forward Send OnCreate
Set ComOnMouseWheel to OLEexMouseWheelNothing
End_Procedure
|
|
34
|
Fisheye Calendar View - LR
// Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction.
Procedure OnComMove OLERotateEnum llRotateDir OLEFaceEnum llFromFace OLEFaceEnum llToFace
Forward Send OnComMove llRotateDir llFromFace llToFace
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceCalendar
Get ComFaceCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Send ComMove of hoFaceCalendar llRotateDir Nothing
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
Variant voFace1
Get ComLeftFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceCalendar1
Get ComFaceCalendar of hoFace1 to voFaceCalendar1
Handle hoFaceCalendar1
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar1
Set pvComObject of hoFaceCalendar1 to voFaceCalendar1
Variant v
Variant voFace2
Get ComFrontFace to voFace2
Handle hoFace2
Get Create (RefClass(cComFace)) to hoFace2
Set pvComObject of hoFace2 to voFace2
Variant voFaceCalendar2
Get ComFaceCalendar of hoFace2 to voFaceCalendar2
Handle hoFaceCalendar2
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar2
Set pvComObject of hoFaceCalendar2 to voFaceCalendar2
Get ComDate of hoFaceCalendar2 to v
Send Destroy to hoFaceCalendar2
Send Destroy to hoFace2
Set ComDate of hoFaceCalendar1 to v
Send ComPrevMonth of hoFaceCalendar1 Nothing
Send Destroy to hoFaceCalendar1
Send Destroy to hoFace1
Variant voFace3
Get ComRightFace to voFace3
Handle hoFace3
Get Create (RefClass(cComFace)) to hoFace3
Set pvComObject of hoFace3 to voFace3
Variant voFaceCalendar3
Get ComFaceCalendar of hoFace3 to voFaceCalendar3
Handle hoFaceCalendar3
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar3
Set pvComObject of hoFaceCalendar3 to voFaceCalendar3
Variant v1
Variant voFace4
Get ComFrontFace to voFace4
Handle hoFace4
Get Create (RefClass(cComFace)) to hoFace4
Set pvComObject of hoFace4 to voFace4
Variant voFaceCalendar4
Get ComFaceCalendar of hoFace4 to voFaceCalendar4
Handle hoFaceCalendar4
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar4
Set pvComObject of hoFaceCalendar4 to voFaceCalendar4
Get ComDate of hoFaceCalendar4 to v1
Send Destroy to hoFaceCalendar4
Send Destroy to hoFace4
Set ComDate of hoFaceCalendar3 to v1
Send ComNextMonth of hoFaceCalendar3 Nothing
Send Destroy to hoFaceCalendar3
Send Destroy to hoFace3
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
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 ("gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQ1DBJQwwXBIZhgGIBIRgUBJCjWGodQLOEgwHIERQjEyUJAmCYhRiCB42TrNIJwSBUPwTGKBXZDQRAApKVIWUAMFBVg7GRYcVxIUgAdDYMyZJyBa4qapaTheEQyDSJNr3DCMUTlBK7IhsKCaLhqZIDUzGVpWbZdMRlFCVJYgOTqDgQMIkUhSE5TVIEew3H7DaymKrKeobFoaZ6AAL3ZBNTR5J6EbTwWRcZpuRJGWDGdhwTocB5MADbZAwOpNLgOc53TjdF4DBwAATzJCQL50KCbfziG67WxVeqQJgiggNpOAwbZjDGHoGC2IZAgAORbFiPxDHoAIsmIewdiGHpHEGTIzm2Nocn0TgSluBpgnEbgcF4PAPnkSQAA+c58AAVwcheiRzF4NIJiofYWgUJAIEIRQBiQYwdAcUZIGUV5QDKCAHECRAhDYGhGgMZAkCgaRiEaHAYEWRpIG2ERFkIQBwm2CxiniOgwgyYpjmoNg3g2YxwkwwYzCiSwyCOaQCD8MxjkibJLDMDJDCoPgyEyMwskkNpNjMaJ1hSYxIkYVoVEACRWFqC4OBOCJgCkShSgiCQiEgQZ8gAHpIAIBB8hoZo5iobIbmaaYqGZWByCCAwnkoAhwlQNQNCkbhXguJYYkqAoVguQpwjsIxIlIJNHksE4kmoOhgSsEokmkShUnCJZLzYOwigiIgYjULYLDmegwiAZ5zjSNwuAsYg8g8IplAMZoRhST1UCMJ5IGIqoiEiIgUgoIpIGqbo9i8JgyBaNQggmUh4hoOBOAOAoRDoLJCFSFQkgsQpQjGH4qEiQJJDITB6CCCQ7G2ShEjsLwLhGIBpBiBIhCwRAQEQIJsEIEJDkuLptjsLphAwRI7kOMQkEoEJFnGABaiyCZ6ESeI/kkAhAg2IRLikYgwDoToTiCEQkgiUxElEM5pBIbIcCYBQhEwTASASGB0E4EZEmEPBIkccZ8HsIJInILB4E2RpvasSwTAQUgIgMH5pVGYg4GuYx8l8NxqDiQoFC4SYSGiFokEyYw4kwFhF8GSQSkQPITCGUp0i0NwllKcoxBcJwRkqEooiaJBLCKSIvCp54aDYPoAAORJyDwSWUhENANAwQgBB6R4xlqcgPDSbQzE+XB3EweBGBGRABigawZE6GcLoHxCAQFICkAIvhOhgACM4OYnBhjQHsDoT4Zxsj0DYJsEwwBhJgMIOsXIcwOC+CCJMRA2BgCFFYJUegiBzA6AaMcDLuAAAdBiMUBQDWyhuC2JYTQiBMAmEQNwaw5xtjzB6MAPAHhDDEHyD4JwUgRiAHEDUTgNggABHEJwAYkBzA2GkDMAIRAQAIBCM8No3ERC4D4B8Q4FxygiBwI4IYbxIjjGyB4c4mQACUXaD8dYhh/CfGqNwNIXhfizCyPsPw7xfjkD4FQRo+R7h9D8K8bI3A+jeGoAIfAnxNjhD3JYLIvxDj2H8KAIYcQ/ivGCP8X4JxGD9AGIgNgUgRCECgIkaAegHiBFmPkQYTx4jsB+OEf4AAPAzBkBwEI1AdCHAqCIFYBQwCoAQIECgHwag4BuAIMA4AbgUBEIgJ4KQIDlAGIcg4HBRkyAOHAdwHBqCIGKBgUYCAVAFCgJwagYQ+AvD0YAKYCgwhGH4F4eYxg3ijFQEEWQ8RqDfEOGgdhUBYA2AMHYdwEARBMAOGkJgpAWiFGAKoGgRhIDQCkCEcAPQDhBGYDkQ4KAABrHaHAKYCwAhgBWKAEAnw5jOGaNoYwKB+DmA0JwFYBxhAsCMAgOoIgYjGBwMUCYAgyBKAeDEdAPBqggGsBoYYVAihICiOgHoRxRCRl6PQHgLhAB3A+CMBYmAuhgHZRgaAzhbgHDUJECQYgoBIAYFERgMQMjKEGBUUQtAqgKBiEoFAWREDjA4CsBktw4B/AUMEdARwEgBAMFAHYhhTDnFMAMdADwwjwB2IweIngZhUEUNECwSwKB" + ;
"NFePEeILApCyG4B0QQOAkAIGCHIFwxRdCRA+LMRwOwFDQH8B+B4aQ3huGYCIQYoA7AMHALgGwBwwDwA0EwEAggMhDBgGACAAgAA+BMUgHoqABCRCSKMEgRRECxAcLIIw+7RhoGCNMBwMQUgrAINATYEh5hZCQI8PQAQHDHBIM4DM9wwiMACIkCA6BwDACOGMFQEQHh6BYKQLQ/B/ARFEDgIoJRojAFqBUCQLgpDjF6J0U4MQnT5BGJADQ8w1BxEeOVTgRx6hBE2EMOAbhGihCyC0E42A+AWAEMQK4DhkCzCYEcNQ1RQhqAcKAR44RnA6AODgWoFhRDMCGAgMg1QZgDDQG4BoIRMAzEMBAZwGgBgVDIAwEIqAagGCAPIDwQxMCECYLUFgVhdChHyF0dQghRgdDIDAAgmhBAGAkAIPATgRBAoqB4mYYAWAQBmLAiQmgrj7AHXgFABhYD2B8MULAVAqAABYxMAACAfDHCwJsC4Xw2DtE0DwCwZhlCeA2CcMArBkgBICA") to Nothing
Get ComAdd of hoAppearance 2 "CP:1 -6 0 6 0" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexDateHeader to |CI$2000000
Set ComBackground OLEexDateHeaderForeColor to (RGB(255,255,255))
Set ComBackground OLEexWeeksHeader to (RGB(240,240,240))
Set ComBackground OLEexDaysHeader to (RGB(240,240,240))
Set ComBackground OLEexDateTodayUp to |CI$2000000
Set ComBackground OLEexDateTodayForeColor to (RGB(255,255,255))
Set ComAllowRotate to (OLEexRotateRight + OLEexRotateLeft)
Set ComEnsureVisibleFaceOnDblClick to False
Set ComDefaultFaceType to OLEexFaceCalendar
Variant voFace5
Get ComFrontFace to voFace5
Handle hoFace5
Get Create (RefClass(cComFace)) to hoFace5
Set pvComObject of hoFace5 to voFace5
Variant voFaceCalendar5
Get ComFaceCalendar of hoFace5 to voFaceCalendar5
Handle hoFaceCalendar5
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar5
Set pvComObject of hoFaceCalendar5 to voFaceCalendar5
Set ComDate of hoFaceCalendar5 to "1/1/2016"
Send Destroy to hoFaceCalendar5
Send Destroy to hoFace5
Variant voFace6
Get ComTopFace to voFace6
Handle hoFace6
Get Create (RefClass(cComFace)) to hoFace6
Set pvComObject of hoFace6 to voFace6
Set ComType of hoFace6 to OLEexFaceNone
Send Destroy to hoFace6
Variant voFace7
Get ComDownFace to voFace7
Handle hoFace7
Get Create (RefClass(cComFace)) to hoFace7
Set pvComObject of hoFace7 to voFace7
Set ComType of hoFace7 to OLEexFaceNone
Send Destroy to hoFace7
Set ComAlwaysEnsureVisibleFace to (OLEexAlwaysVisibleFrontFace + OLEexFitToEnsureFace)
Send ComEndUpdate
End_Procedure
|
|
33
|
Fisheye Calendar View - S
// Notifies that the user browses for a new date into a face of calendar type.
Procedure OnComFaceCalendarDateChanged Variant llCalendar
Forward Send OnComFaceCalendarDateChanged llCalendar
Variant v
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant voFaceCalendar
Get ComFaceCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Get ComDate of hoFaceCalendar to v
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
Variant currentDate
Move v to currentDate
Variant voFace1
Get ComLeftFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceCalendar1
Get ComFaceCalendar of hoFace1 to voFaceCalendar1
Handle hoFaceCalendar1
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar1
Set pvComObject of hoFaceCalendar1 to voFaceCalendar1
Set ComDate of hoFaceCalendar1 to currentDate
Send ComPrevMonth of hoFaceCalendar1 Nothing
Send Destroy to hoFaceCalendar1
Send Destroy to hoFace1
Variant voFace2
Get ComRightFace to voFace2
Handle hoFace2
Get Create (RefClass(cComFace)) to hoFace2
Set pvComObject of hoFace2 to voFace2
Variant voFaceCalendar2
Get ComFaceCalendar of hoFace2 to voFaceCalendar2
Handle hoFaceCalendar2
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar2
Set pvComObject of hoFaceCalendar2 to voFaceCalendar2
Set ComDate of hoFaceCalendar2 to currentDate
Send ComNextMonth of hoFaceCalendar2 Nothing
Send Destroy to hoFaceCalendar2
Send Destroy to hoFace2
Variant voFace3
Get ComTopFace to voFace3
Handle hoFace3
Get Create (RefClass(cComFace)) to hoFace3
Set pvComObject of hoFace3 to voFace3
Variant voFaceCalendar3
Get ComFaceCalendar of hoFace3 to voFaceCalendar3
Handle hoFaceCalendar3
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar3
Set pvComObject of hoFaceCalendar3 to voFaceCalendar3
Set ComDate of hoFaceCalendar3 to currentDate
Send ComPrevYear of hoFaceCalendar3 Nothing
Send Destroy to hoFaceCalendar3
Send Destroy to hoFace3
Variant voFace4
Get ComDownFace to voFace4
Handle hoFace4
Get Create (RefClass(cComFace)) to hoFace4
Set pvComObject of hoFace4 to voFace4
Variant voFaceCalendar4
Get ComFaceCalendar of hoFace4 to voFaceCalendar4
Handle hoFaceCalendar4
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar4
Set pvComObject of hoFaceCalendar4 to voFaceCalendar4
Set ComDate of hoFaceCalendar4 to currentDate
Send ComNextYear of hoFaceCalendar4 Nothing
Send Destroy to hoFaceCalendar4
Send Destroy to hoFace4
End_Procedure
// Notifies your application that a face changes its type to exFaceCalendar.
Procedure OnComInitFaceCalendar Variant llCalendar
Forward Send OnComInitFaceCalendar llCalendar
Move to Calendar
End_Procedure
// Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction.
Procedure OnComMove OLERotateEnum llRotateDir OLEFaceEnum llFromFace OLEFaceEnum llToFace
Forward Send OnComMove llRotateDir llFromFace llToFace
Variant voFace5
Get ComFrontFace to voFace5
Handle hoFace5
Get Create (RefClass(cComFace)) to hoFace5
Set pvComObject of hoFace5 to voFace5
Variant voFaceCalendar5
Get ComFaceCalendar of hoFace5 to voFaceCalendar5
Handle hoFaceCalendar5
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar5
Set pvComObject of hoFaceCalendar5 to voFaceCalendar5
Send ComMove of hoFaceCalendar5 llRotateDir Nothing
Send Destroy to hoFaceCalendar5
Send Destroy to hoFace5
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
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 "gBFLBCJwBAEHhEJAADhABXgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDIAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZZmWCQCglf5HABRb7xPLoARTAaeJKoWboJAiGwLQjQUyABSdEyRJSLYhGIZRFqKZIRDSMFiwTZNVypAaIYqqaA6qzfJymabAAZJEradozTLIE7xVLEVYNKCmZCwMAAcgmEQgSTAda2BYELTzECoYDGCrcKpWCaNQLWEB5BQeJSNL6kIqsazgAqPLJtWhaVwxXIEI5AAC5QA0S7pOxeO6JbRGdZbNrlbz1PTMaazTgYDzmWqiYxxMraXxSlmMprGsIpVl2LRnD0A5bnSN49mAARAlIYw6B0ThGFGDIBG0QghBMfZRiGNAkFECZoG6YQBgiOgCmuRRSg6GAElWAJMkgFgGgGYIIAyVQ7GCRhUAAOQhAMBgSDWIRDG4Fg3CGCBmBmBYNjgUJWDIIgIECZBCEsKIUkqCZhiiJgqgaYRjB4LguiMBAkiqDLenYrBjgiZg6gGIwyioMoNCAWJqEKEJjkiTg/CqIxZA4SoNmQWJ5AODxMlkRJehSZRJFYVoVmUEw2D2EZlhkXhehfURuE+DJllkfhmhUJgZBoYwqiWEx+G6G5nAmRhyhoZJgAIUIUGcKZmHqHQlkmYh6h+Zp5nIawzigQ4CgaIZogoJoKiEDJpgodoMmiSgqhKJNxDoPQzmmA4GhqJppkodoeiYDJ6FpaQpmqFomigKgiiqJIpiqShuiiGoonqKoZisapaj4dYl3WCo6i6a5KnaPotiQeoCj6MJsEsAhrDQLIDg6SoymySw2k6MgNAqJpQjOLRLFaUI0iyGxWlq/p6kIPY0m2Oxul2LZjDMRpmgiLoLiaaoIi4YxGinoY7kaauhnuGJlj2b4Lmaeo+m8Sx6mWOZhAubwCj2bpLhqKYJkyKTnECThYgoVJCCiYpPBIL5xEMLwWjsTQsGcGpGi6XBYkuRQLvcIhCE8DIWDCSZLiKdwqC+MpMjcLZKguXIcjiTJyFOQYnD+TYMmSLZOkmHJ3D6T50AybItiGYJji2MwABAECAg=" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexDateHeader to |CI$1000000
Set ComBackground OLEexWeeksHeader to (RGB(250,250,250))
Set ComBackground OLEexDaysHeader to (RGB(250,250,250))
Set ComBackground OLEexDateTodayUp to |CI$2000000
Set ComBackground OLEexDateTodayForeColor to (RGB(255,255,255))
Set ComTexturePicturePath to ""
Set ComDefaultFaceType to OLEexFaceCalendar
Set ComAlwaysEnsureVisibleFace to (OLEexAlwaysVisibleFrontFace + OLEexFitToEnsureFace)
Variant voFace6
Get ComFrontFace to voFace6
Handle hoFace6
Get Create (RefClass(cComFace)) to hoFace6
Set pvComObject of hoFace6 to voFace6
Variant voFaceCalendar6
Get ComFaceCalendar of hoFace6 to voFaceCalendar6
Handle hoFaceCalendar6
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar6
Set pvComObject of hoFaceCalendar6 to voFaceCalendar6
Set ComDate of hoFaceCalendar6 to "1/1/2016"
Send Destroy to hoFaceCalendar6
Send Destroy to hoFace6
Send ComEndUpdate
End_Procedure
|
|
32
|
While navigating the Down/Top faces, I am not able to rotate it. Is it possible (ensure always front face)
Procedure OnCreate
Forward Send OnCreate
Send ComEnsureVisibleFace OLEexDownFace False
Set ComAlwaysEnsureVisibleFace to (OLEexAlwaysVisibleFrontFace + OLEexFitToEnsureFace)
End_Procedure
|
|
31
|
How can I show a single month only
Procedure OnCreate
Forward Send OnCreate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComType of hoFace to OLEexFaceCalendar
Variant voFaceCalendar
Get ComFaceCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComDate of hoFaceCalendar to "1/1/2001"
Set ComSelDate of hoFaceCalendar to (ComDate(hoFaceCalendar))
Set ComMinDate of hoFaceCalendar to "1/1/2001"
Set ComMaxDate of hoFaceCalendar to "1/31/2001"
Set ComFirstWeekDay of hoFaceCalendar to OLEexMonday
Set ComShowWeeks of hoFaceCalendar to False
Set ComShowNonMonthDays of hoFaceCalendar to False
Set ComShowTodayButton of hoFaceCalendar to False
Set ComMaxMonthX of hoFaceCalendar to (ComMinMonthX(hoFaceCalendar))
Set ComMaxMonthY of hoFaceCalendar to (ComMinMonthY(hoFaceCalendar))
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
End_Procedure
|
|
30
|
How can I show date calendar
Procedure OnCreate
Forward Send OnCreate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComType of hoFace to OLEexFaceCalendar
Variant voFaceCalendar
Get ComFaceCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComShowNonMonthDays of hoFaceCalendar to False
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
End_Procedure
|
|
29
|
How can I prevent dbl click to ensure the clicked face is visible
Procedure OnCreate
Forward Send OnCreate
Set ComEnsureVisibleFaceOnDblClick to False
End_Procedure
|
|
28
|
How can I put a picture into the center of the texture but behind the control's face
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHTMLPicture "logo" to "c:\exontrol\images\zipdisk.gif"
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComType of hoFace to OLEexFaceCalendar
Variant voFaceCalendar
Get ComFaceCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComShowTodayButton of hoFaceCalendar to False
Send Destroy to hoFaceCalendar
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceCaption to "<img>logo</img>"
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceAnchor to 0
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceHTMLRotate to 0
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceHTMLRotate to 0
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceLeft to "(width-twidth)/2"
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceTop to "(height-theight)/2"
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceWidth to "twidth"
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceHeight to "theight"
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceVisible to 1
Send Destroy to hoFace
Variant voFace1
Get ComFrontFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant voFaceCalendar1
Get ComFaceCalendar of hoFace1 to voFaceCalendar1
Handle hoFaceCalendar1
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar1
Set pvComObject of hoFaceCalendar1 to voFaceCalendar1
Set ComForeColor of hoFaceCalendar1 to (RGB(255,0,0))
Send Destroy to hoFaceCalendar1
Send Destroy to hoFace1
Send ComEndUpdate
End_Procedure
|
|
27
|
How do I put my logo on the right-bottom side of the face (method 2), while I using the face
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHTMLPicture "logo" to "c:\exontrol\images\zipdisk.gif"
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComType of hoFace to OLEexFaceCalendar
Variant voFaceCalendar
Get ComFaceCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComShowTodayButton of hoFaceCalendar to False
Send Destroy to hoFaceCalendar
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceCaption to "<r><img>logo</img>"
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceAnchor to 2
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceHTMLRotate to 0
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
26
|
Is it possible to show two or more titles/extra titles
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComType of hoFace to OLEexFaceCalendar
Variant voFaceCalendar
Get ComFaceCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComShowTodayButton of hoFaceCalendar to False
Send Destroy to hoFaceCalendar
Set ComTitle of hoFace OLEexTitleFaceCaption to "<font ;18><c><fgcolor=0000FF>This is the title"
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceCaption to "<font ;18><c><fgcolor=FF0000>This is the extra title"
Set ComExtraTitle of hoFace "extra" OLEexTitleFaceAnchor to 2
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
25
|
How can I display the title at the left side of the face
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComTitle of hoFace OLEexTitleFaceCaption to "<font ;18><c>This is the title"
Set ComType of hoFace to OLEexFaceCalendar
Variant voFaceCalendar
Get ComFaceCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComShowTodayButton of hoFaceCalendar to False
Send Destroy to hoFaceCalendar
Set ComTitle of hoFace OLEexTitleFaceAnchor to 4
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
24
|
How can I display the title at the bottom side of the face
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComTitle of hoFace OLEexTitleFaceCaption to "<font ;18><c>This is the title"
Set ComType of hoFace to OLEexFaceCalendar
Variant voFaceCalendar
Get ComFaceCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComShowTodayButton of hoFaceCalendar to False
Send Destroy to hoFaceCalendar
Set ComTitle of hoFace OLEexTitleFaceAnchor to 2
Set ComTitle of hoFace OLEexTitleFaceHTMLRotate to 0
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
23
|
Can I display the title to a different position
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComTitle of hoFace OLEexTitleFaceCaption to "<font ;18><c><bgcolor=FFFFFF>This is the title"
Set ComType of hoFace to OLEexFaceCalendar
Set ComTitle of hoFace OLEexTitleFaceVisible to -1
Set ComTitle of hoFace OLEexTitleFaceTop to "(height-theight)/2"
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
22
|
How can I display a title for a face
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComTitle of hoFace OLEexTitleFaceCaption to "<font ;18><c>This is the title"
Set ComType of hoFace to OLEexFaceCalendar
Send Destroy to hoFace
Send ComEndUpdate
End_Procedure
|
|
21
|
Can I put the picture at specified position
Procedure OnCreate
Forward Send OnCreate
Set ComIdentifyFace to (OLEexIdentifyFaceFrame + OLEexIdentifyFaceName + OLEexIdentifyFaceCaption)
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComType of hoFace to OLEexFacePicture
Variant voFacePicture
Get ComFacePicture of hoFace to voFacePicture
Handle hoFacePicture
Get Create (RefClass(cComFacePicture)) to hoFacePicture
Set pvComObject of hoFacePicture to voFacePicture
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture of hoFacePicture to (vPicture)
Set ComPictureDisplay of hoFacePicture to OLETile
Set ComWidth of hoFacePicture to "2 * pwidth"
Set ComHeight of hoFacePicture to "2 * pheight"
Set ComTop of hoFacePicture to "122"
Set ComLeft of hoFacePicture to "46"
Send Destroy to hoFacePicture
Send Destroy to hoFace
End_Procedure
|
|
20
|
How do I put my logo on the right-bottom side of the face (method 1)
Procedure OnCreate
Forward Send OnCreate
Set ComIdentifyFace to (OLEexIdentifyFaceFrame + OLEexIdentifyFaceName + OLEexIdentifyFaceCaption)
Variant voFace
Get ComFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComType of hoFace to OLEexFacePicture
Variant voFacePicture
Get ComFacePicture of hoFace to voFacePicture
Handle hoFacePicture
Get Create (RefClass(cComFacePicture)) to hoFacePicture
Set pvComObject of hoFacePicture to voFacePicture
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture of hoFacePicture to (vPicture)
Set ComPictureDisplay of hoFacePicture to OLELowerRight
Set ComWidth of hoFacePicture to "width"
Set ComHeight of hoFacePicture to "height"
Set ComTop of hoFacePicture to "0"
Set ComLeft of hoFacePicture to "0"
Send Destroy to hoFacePicture
Send Destroy to hoFace
End_Procedure
|
|
19
|
Can I use any picture on the background's faces
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTexturePicturePath to ""
Variant voFace
Get ComFace OLEexFrontFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture of hoFace to (vPicture)
Send Destroy to hoFace
Variant voFace1
Get ComFace OLEexBottomFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Variant vPicture1
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\auction.gif`)" to vPicture1
Set ComPicture of hoFace1 to (vPicture1)
Send Destroy to hoFace1
Variant voFace2
Get ComFace OLEexRightFace to voFace2
Handle hoFace2
Get Create (RefClass(cComFace)) to hoFace2
Set pvComObject of hoFace2 to voFace2
Variant vPicture2
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\colorize.gif`)" to vPicture2
Set ComPicture of hoFace2 to (vPicture2)
Send Destroy to hoFace2
Variant voFace3
Get ComFace OLEexLeftFace to voFace3
Handle hoFace3
Get Create (RefClass(cComFace)) to hoFace3
Set pvComObject of hoFace3 to voFace3
Variant vPicture3
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\colorize.gif`)" to vPicture3
Set ComPicture of hoFace3 to (vPicture3)
Send Destroy to hoFace3
Variant voFace4
Get ComFace OLEexTopFace to voFace4
Handle hoFace4
Get Create (RefClass(cComFace)) to hoFace4
Set pvComObject of hoFace4 to voFace4
Variant vPicture4
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\auction.gif`)" to vPicture4
Set ComPicture of hoFace4 to (vPicture4)
Send Destroy to hoFace4
Variant voFace5
Get ComFace OLEexDownFace to voFace5
Handle hoFace5
Get Create (RefClass(cComFace)) to hoFace5
Set pvComObject of hoFace5 to voFace5
Variant vPicture5
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture5
Set ComPicture of hoFace5 to (vPicture5)
Send Destroy to hoFace5
Set ComAlwaysEnsureVisibleFace to OLEexDisableEnsureVisibleFace
Send ComEndUpdate
End_Procedure
|
|
18
|
Is it possible to show the cube's texture more transparent, so the faces are more visible
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTransparent to 80
Set ComTexturePicturePath to "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
Set ComAlwaysEnsureVisibleFace to OLEexDisableEnsureVisibleFace
Set ComIdentifyFace to OLEexIdentifyFaceFrame
Variant voFace
Get ComTopFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComType of hoFace to OLEexFaceCalendar
Variant voFaceCalendar
Get ComFaceCalendar of hoFace to voFaceCalendar
Handle hoFaceCalendar
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
Set pvComObject of hoFaceCalendar to voFaceCalendar
Set ComDate of hoFaceCalendar to "2/1/2016"
Set ComMaxMonthX of hoFaceCalendar to 1
Set ComMaxMonthY of hoFaceCalendar to 1
Send Destroy to hoFaceCalendar
Send Destroy to hoFace
Variant voFace1
Get ComLeftFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Set ComType of hoFace1 to OLEexFaceCalendar
Variant voFaceCalendar1
Get ComFaceCalendar of hoFace1 to voFaceCalendar1
Handle hoFaceCalendar1
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar1
Set pvComObject of hoFaceCalendar1 to voFaceCalendar1
Set ComDate of hoFaceCalendar1 to "3/1/2016"
Set ComMaxMonthX of hoFaceCalendar1 to 1
Set ComMaxMonthY of hoFaceCalendar1 to 1
Send Destroy to hoFaceCalendar1
Send Destroy to hoFace1
Variant voFace2
Get ComFrontFace to voFace2
Handle hoFace2
Get Create (RefClass(cComFace)) to hoFace2
Set pvComObject of hoFace2 to voFace2
Set ComType of hoFace2 to OLEexFaceCalendar
Variant voFaceCalendar2
Get ComFaceCalendar of hoFace2 to voFaceCalendar2
Handle hoFaceCalendar2
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar2
Set pvComObject of hoFaceCalendar2 to voFaceCalendar2
Set ComDate of hoFaceCalendar2 to "4/1/2016"
Set ComMaxMonthX of hoFaceCalendar2 to 1
Set ComMaxMonthY of hoFaceCalendar2 to 1
Send Destroy to hoFaceCalendar2
Send Destroy to hoFace2
Variant voFace3
Get ComRightFace to voFace3
Handle hoFace3
Get Create (RefClass(cComFace)) to hoFace3
Set pvComObject of hoFace3 to voFace3
Set ComType of hoFace3 to OLEexFaceCalendar
Variant voFaceCalendar3
Get ComFaceCalendar of hoFace3 to voFaceCalendar3
Handle hoFaceCalendar3
Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar3
Set pvComObject of hoFaceCalendar3 to voFaceCalendar3
Set ComDate of hoFaceCalendar3 to "5/1/2016"
Set ComMaxMonthX of hoFaceCalendar3 to 1
Set ComMaxMonthY of hoFaceCalendar3 to 1
Send Destroy to hoFaceCalendar3
Send Destroy to hoFace3
Set ComShowAs to OLEexFishEye
Set ComAlwaysEnsureVisibleFace to OLEexDisableEnsureVisibleFace
Set ComIdentifyFace to OLEexIdentifyFaceFrame
Send ComEndUpdate
End_Procedure
|
|
17
|
How can I load a different texture on the cube
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
End_Procedure
|
|
16
|
How can I show no texture/picture on all faces
Procedure OnCreate
Forward Send OnCreate
Set ComTexturePicturePath to ""
Set ComIdentifyFace to (OLEexIdentifyFaceFrame + OLEexIdentifyFaceName + OLEexIdentifyFaceCaption)
Set ComIdentifyFaceCaption to "<sha ;;0><fgcolor=000000>Face <%index%></font> <%name%>"
End_Procedure
|
|
15
|
Fish-Eye Rectangular
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowAs to OLEexFishEye
Set ComInternals to "zoommin=1;zoomdefault=1;zoommax=1;zoomdivsmall=256;zoomdivlarge=48;fisheyepersp=4"
Set ComIdentifyFace to OLEexIdentifyFaceFrame
Variant voFace
Get ComTopFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComType of hoFace to OLEexFaceCalendar
Send Destroy to hoFace
Variant voFace1
Get ComLeftFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Set ComType of hoFace1 to OLEexFaceCalendar
Send Destroy to hoFace1
Variant voFace2
Get ComFrontFace to voFace2
Handle hoFace2
Get Create (RefClass(cComFace)) to hoFace2
Set pvComObject of hoFace2 to voFace2
Set ComType of hoFace2 to OLEexFaceCalendar
Send Destroy to hoFace2
Variant voFace3
Get ComRightFace to voFace3
Handle hoFace3
Get Create (RefClass(cComFace)) to hoFace3
Set pvComObject of hoFace3 to voFace3
Set ComType of hoFace3 to OLEexFaceCalendar
Send Destroy to hoFace3
Send ComEndUpdate
End_Procedure
|
|
14
|
Orthographic
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowAs to OLEexOrthographic
Set ComAlwaysEnsureVisibleFace to OLEexDisableEnsureVisibleFace
Set ComIdentifyFace to OLEexIdentifyFaceFrame
Variant voFace
Get ComTopFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComType of hoFace to OLEexFaceCalendar
Send Destroy to hoFace
Variant voFace1
Get ComLeftFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Set ComType of hoFace1 to OLEexFaceCalendar
Send Destroy to hoFace1
Variant voFace2
Get ComFrontFace to voFace2
Handle hoFace2
Get Create (RefClass(cComFace)) to hoFace2
Set pvComObject of hoFace2 to voFace2
Set ComType of hoFace2 to OLEexFaceCalendar
Send Destroy to hoFace2
Variant voFace3
Get ComRightFace to voFace3
Handle hoFace3
Get Create (RefClass(cComFace)) to hoFace3
Set pvComObject of hoFace3 to voFace3
Set ComType of hoFace3 to OLEexFaceCalendar
Send Destroy to hoFace3
Set ComRotX to 0.748933
Set ComRotY to 0.617099
Set ComZoom to 1
Send ComEndUpdate
End_Procedure
|
|
13
|
Fish-Eye Default
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowAs to OLEexFishEye
Set ComAlwaysEnsureVisibleFace to OLEexDisableEnsureVisibleFace
Set ComIdentifyFace to OLEexIdentifyFaceFrame
Variant voFace
Get ComTopFace to voFace
Handle hoFace
Get Create (RefClass(cComFace)) to hoFace
Set pvComObject of hoFace to voFace
Set ComType of hoFace to OLEexFaceCalendar
Send Destroy to hoFace
Variant voFace1
Get ComLeftFace to voFace1
Handle hoFace1
Get Create (RefClass(cComFace)) to hoFace1
Set pvComObject of hoFace1 to voFace1
Set ComType of hoFace1 to OLEexFaceCalendar
Send Destroy to hoFace1
Variant voFace2
Get ComFrontFace to voFace2
Handle hoFace2
Get Create (RefClass(cComFace)) to hoFace2
Set pvComObject of hoFace2 to voFace2
Set ComType of hoFace2 to OLEexFaceCalendar
Send Destroy to hoFace2
Variant voFace3
Get ComRightFace to voFace3
Handle hoFace3
Get Create (RefClass(cComFace)) to hoFace3
Set pvComObject of hoFace3 to voFace3
Set ComType of hoFace3 to OLEexFaceCalendar
Send Destroy to hoFace3
Set ComRotX to 0
Set ComRotY to 0.8
Set ComZoom to 1
Send ComEndUpdate
End_Procedure
|
|
12
|
I know the user can drag the cube to any position. The question is how can I restore the layout
Procedure OnCreate
Forward Send OnCreate
Set ComIdentifyFace to (OLEexIdentifyFaceFrame + OLEexIdentifyFaceName + OLEexIdentifyFaceCaption)
Set ComRotX to 0.25
Set ComRotY to 0.75
Set ComZoom to 1
End_Procedure
|
|
11
|
How do I put my logo on the right-bottom side of the control
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
End_Procedure
|