|
110
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.ImageSize = 32
.Font.Size = 16
.CheckBoxWidth = 32
.CheckBoxHeight = 32
var_s = "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqN"
var_s = var_s + "UqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwy"
var_s = var_s + "V21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CM"
var_s = var_s + "Po9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9F"
var_s = var_s + "EKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y"
var_s = var_s + "7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkF"
var_s = var_s + "gTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtN"
var_s = var_s + "hCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xio"
var_s = var_s + "W5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4"
var_s = var_s + "VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6"
var_s = var_s + "/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVD"
var_s = var_s + "NKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT"
var_s = var_s + "8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlff"
var_s = var_s + "EkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6"
var_s = var_s + "I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8Rg"
var_s = var_s + "H5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWR"
var_s = var_s + "JNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="
.Images(var_s)
with .VisualAppearance
var_s1 = "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
var_s1 = var_s1 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
var_s1 = var_s1 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxR"
var_s1 = var_s1 + "DWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYF"
var_s1 = var_s1 + "oFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4Uk"
var_s1 = var_s1 + "mCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAo"
var_s1 = var_s1 + "chqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0"
var_s1 = var_s1 + "ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8"
var_s1 = var_s1 + "CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2U"
var_s1 = var_s1 + "gJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
.Add(1,var_s1)
var_s2 = "gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
var_s2 = var_s2 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
var_s2 = var_s2 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n"
var_s2 = var_s2 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnSc"
var_s2 = var_s2 + "g1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpA"
var_s2 = var_s2 + "oPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDR"
var_s2 = var_s2 + "DFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lG"
var_s2 = var_s2 + "NAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBg"
var_s2 = var_s2 + "k0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuX"
var_s2 = var_s2 + "pMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2Cy"
var_s2 = var_s2 + "A4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8Rp"
var_s2 = var_s2 + "BzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8T"
var_s2 = var_s2 + "I7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeH"
var_s2 = var_s2 + "GFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuh"
var_s2 = var_s2 + "oiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMs"
var_s2 = var_s2 + "CwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4ga"
var_s2 = var_s2 + "BEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgs"
var_s2 = var_s2 + "wOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtY"
var_s2 = var_s2 + "QGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBh"
var_s2 = var_s2 + "YDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0Mg"
var_s2 = var_s2 + "RBCCQAgQEA=="
.Add(2,var_s2)
var_s3 = "gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
var_s3 = var_s3 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
var_s3 = var_s3 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n"
var_s3 = var_s3 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSe"
var_s3 = var_s3 + "Q7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjn"
var_s3 = var_s3 + "OIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ"
var_s3 = var_s3 + "9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGS"
var_s3 = var_s3 + "UwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4y"
var_s3 = var_s3 + "mkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkX"
var_s3 = var_s3 + "I/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6"
var_s3 = var_s3 + "BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRA"
var_s3 = var_s3 + "jDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEB"
var_s3 = var_s3 + "wpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQH"
var_s3 = var_s3 + "oFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRh"
var_s3 = var_s3 + "cDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQ"
var_s3 = var_s3 + "AA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjV"
var_s3 = var_s3 + "HiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4z"
var_s3 = var_s3 + "xW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH"
var_s3 = var_s3 + "0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="
.Add(3,var_s3)
endwith
.Object.Background(70) = 0x1000000
.Object.Background(71) = 0x2000000
.Object.Background(72) = 0x3000000
with .FrontFace.CreateTree
.ShowSelection = .F.
.DrawGridLines = -2
.ItemPadding = 16
with .Columns.Add("<c><b>Check")
.Alignment = 0
.Def(0) = .T.
endwith
.Items.ToString = "Check A<img>1</img>,Check B<img>2</img>,Check C<img>3</img>"
.ItemByIndex(1).State(0) = 1
endwith
.EndUpdate
endwith
|
|
109
|
ImageSize property on 16 (default) (specifies the size of control' icons)
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.ImageSize = 16
var_s = "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqd"
var_s = var_s + "SqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVtt"
var_s = var_s + "mp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8ac"
var_s = var_s + "vQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTG"
var_s = var_s + "sbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPn"
var_s = var_s + "wD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
.Images(var_s)
with .FrontFace.CreateTree
.ShowSelection = .F.
.DrawGridLines = -2
.ItemPadding = 16
with .Columns.Add("<c><b>Check")
.Alignment = 0
.Def(0) = .T.
endwith
.Items.ToString = "Check A<img>1</img>,Check B<img>2</img>,Check C<img>3</img>"
.ItemByIndex(1).State(0) = 1
endwith
.EndUpdate
endwith
|
|
108
|
How can I add a hierarchy (multiple-columns), using the Item.ToString method
with thisform.TreeCube1
.TexturePicturePath = ""
with .FrontFace.CreateTree
.LinesAtRoot = -1
.Columns.Add(1).Alignment = 0
.Columns.Add(2).Alignment = 0
.Columns.Add(3).Alignment = 0
var_s = "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),C"
var_s = var_s + "hild 1.2;Child 2.2;Child 3.2)"
.Items.ToString = var_s
.Items.ExpandAll
DEBUGOUT( .Items.Item(0).ToString )
endwith
endwith
|
|
107
|
How can I add a hierarchy (single column), using the Item.ToString method
with thisform.TreeCube1
.TexturePicturePath = ""
with .FrontFace.CreateTree
.LinesAtRoot = -1
.Columns.Add("").Alignment = 0
.Items.Count = 1
.Items.Item(0).ToString = "Root(Child1(SubChild 1,SubChild 2),Child2)"
.Items.ExpandAll
DEBUGOUT( .Items.Item(0).ToString )
endwith
endwith
|
|
106
|
How can add items to a list
with thisform.TreeCube1
.TexturePicturePath = ""
with .FrontFace.CreateTree
.Columns.Add("Pos").FormatColumn = "1 pos ``"
.Items.Count = thisform.TreeCube1.FrontFace.FaceTree.VisibleItemsCount
endwith
endwith
|
|
105
|
How can I split a cell
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.Object.HTMLPicture("P1") = "c:\exontrol\images\zipdisk.gif"
.Object.HTMLPicture("P2") = "c:\exontrol\images\auction.gif"
.Object.HTMLPicture("P3") = "c:\exontrol\images\colorize.gif"
.Object.HTMLPicture("P4") = "c:\exontrol\images\auction.gif"
with .FrontFace
with .CreateTree
.Columns.Add("Default").Alignment = 0
with .Items
with .Add("Choose your quick actions")
.SingleLine(0) = .F.
with .Items.Add("")
.Height = 48
s = 0
.Value(s) = "<c><img>P1</img>"
.CellWidth(s) = 48
.HasButton(s) = .T.
s = .SplitCell(s)
.Value(s) = "<c><img>P2</img>"
.CellWidth(s) = 48
.HasButton(s) = .T.
s = .SplitCell(s)
.Value(s) = "<c><img>P3</img>"
.CellWidth(s) = 48
.HasButton(s) = .T.
s = .SplitCell(s)
.Value(s) = "<c><img>P4</img>"
.CellWidth(s) = 48
.HasButton(s) = .T.
s = .SplitCell(s)
endwith
.Expanded = .T.
endwith
endwith
endwith
endwith
.EndUpdate
endwith
|
|
104
|
I've noticed that the Face has no background color. Still, can I change the face's background color
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
with .FrontFace
with .CreateCalendar
.AutoSize = 1
.MaxMonthX = .MinMonthX
.MaxMonthY = .MinMonthY
.ShowTodayButton = .F.
endwith
.ExtraTitle("extra",1) = 15790320
.ExtraTitle("extra",8) = "height"
.ExtraTitle("extra",9) = 1
endwith
.EndUpdate
endwith
|
|
103
|
How can I change the +/- expanding/collapsing buttons
with thisform.TreeCube1
.TexturePicturePath = ""
.BeginUpdate
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAADhABDgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXI"
var_s = var_s + "UBxAAqXZZFUaKAgOMJDTLBAzUSAAYhtHqeJBjID4JA6UJXRpIAIQSSBUjGOg6TiMUYZAguAxCEzZUT0fAYUQSCC3ZzDCKoRpiCT7Xg8V5OVbjUz9P7AMBwLA7erxap6P"
var_s = var_s + "JeD54QymGp/R5eMhyLI8UxXFqRY6veKtJhGDIrT5CEIQVA9EyXJqnahqOiaCguPorQy/dYYdg2BYBPS6MAvG4bVrOd59XrgN42fY2ByzAqlMQwS7rOqiY6YWTnehWToH"
var_s = var_s + "E+JZUmoLB5CufQuAkBYkGO+ZrDWAo7keZZyHmH5+i8X4bluaJyHgGB9mQHx3JjBpViqJRHmueZ7H8Xo3i2fYAl+d5tncMRfDcdZeDMDIjCCJwokoEoQiEJ4KCIfIdgUS"
var_s = var_s + "ZIAWaoGCEUh2BIJ4gnKBgMDICAnHoCggg0Aw4k0KAJkIagaguYwIj4LAmiKEw2CUIIiHMUJSDQSYyGCFYMGQCJCD0JRjiMRg3gmTYjGSVgmgkchSD4JJklIRIXCSSQYj"
var_s = var_s + "4U4UgkQhGE+EwJEkJJWhGpgGGIOBNmMdhPg8SRiHCGAlibNhohqJpJi4T4ZA2WYIgEYInGOGJlDkCQyECDoTEkKQ+E+C5oCIVhQCUCQpnSDoeg4SZZH8YdhjibQ7AiUg"
var_s = var_s + "kgcJFyiyEYmGmOhqhyJ5pmILoYCKaRSB6Eg7CcZgZggaRqHqNoTiuDpKkKMormsQ4xiUYgYiKEo6CCWgWiqPovloZoGjoKQYiOLR1ECUAQIC"
.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAADhABDwCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXI"
var_s1 = var_s1 + "UBxAAqXZZFUaKAgOMJDTLBAzUSAAYhtHqeJBjID4JA6UJXRpIAIQSSBUjGOg6TiMUYZAguAxCEzZUT0fAYUQSCC3ZzDCKoRpiCT7Xg8V5OVbjUz9P7AMBwLA7erxap6P"
var_s1 = var_s1 + "JeD54QymGp/R5eMhyLI8UxXFqRY6veKtJhGDIrT5CEIQVA9EyXJqnahqOiaCguPorQy/dYYdg2BYBPS6MAvG4bVrOd59XrgN42fY2ByzAqlMQwS7rOqiY6YWTnehWToH"
var_s1 = var_s1 + "E+JZUmoLB5CufQuAkBYkGO+ZrDWAo7keZZyHmPQ+g8X4fluYBhneEB9l0Iwpg6RRWiqFQfg+V5nnefh/GAB5yAIfRMFeRZdHeDJDCiSApkoMoEiQKBJmKCIfCcYQiHIF"
var_s1 = var_s1 + "YFkmeBaBOA5JmgsICEyAgJl6AZICMQJODMSgCHCGg/mKSI2C6C5jAiNgpCaIhjDYIggiIQxQlINBJjIYIVgwZAJAYPQlGOIxGDeCQNiMZJWCaCRyFIPgkmSUhEhcJJlC"
var_s1 = var_s1 + "kUhThUZQiFCEYTmSQhSEkNYkHYBIBhiTgTHiXYTmOUhYhwJgJGmJhuhsJoZi4bYbCSeYUl2GJIBYCh4DmDhThCEwkAiaQ0hKE5oEIVITiEaB6BqAofkiaZwmSHgXnYGh"
var_s1 = var_s1 + "4DuDpTjCDQiEgchAg0IpJBobodicKZqgaIAimmIguhcIZpEOMh4GGGIGhaKYrmkWpAmyLIrEqRo2DsGhWCGCgpCuQgNiEaosAsBYmGga5ChGCg6lcVANAEgI"
.Add(2,var_s1)
endwith
.Object.Background(84) = 0x1000000
.Object.Background(85) = 0x2000000
with .FrontFace.CreateTree
.ExpandOnDblClick = .T.
.ItemPadding = 16
.HeaderVisible = .F.
.HasLines = 2
.LinesAtRoot = 3
.DrawGridLines = -2
.Columns.Add("Def").Alignment = 0
.Items.ToString = "Root 1(Child 1,Child 2),Root 2(Child 3,Child 4)"
.ItemByIndex(3).Expanded = .T.
endwith
.EndUpdate
endwith
|
|
102
|
How can I use the ToString property
with thisform.TreeCube1
.TexturePicturePath = ""
with .FrontFace.CreateTree
.DrawGridLines = -2
.Columns.ToString = "Column 1,Column 2,Column 3,Column 4"
.Items.ToString = "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"
endwith
endwith
|
|
101
|
How can I use the Background property
with thisform.TreeCube1
.BeginUpdate
.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn")
.Object.Background(8) = 0x1000000
.Object.Background(7) = RGB(250,250,250)
.Object.Background(6) = RGB(250,250,250)
.Object.Background(9) = 0x2000000
.Object.Background(31) = RGB(255,255,255)
.TexturePicturePath = ""
with .FrontFace.CreateCalendar
.Date = {^2016-1-1}
.AutoSize = 1
.MaxMonthX = .MinMonthX
.MaxMonthY = .MinMonthY
endwith
.EndUpdate
endwith
|
|
100
|
How can I display two lists of radio-buttons
*** FaceTreeStateChanged event - Notifies that a cell changes its state into a face of tree type. ***
LPARAMETERS Tree,Item,Column
with thisform.TreeCube1
with .FrontFace.FaceTree.ItemByIndex(Item)
DEBUGOUT( "State" )
DEBUGOUT( .State(0) )
endwith
endwith
with thisform.TreeCube1
.TexturePicturePath = ""
with .FrontFace.CreateTree
.HeaderVisible = .F.
.ItemPadding = 16
.DrawGridLines = 0
.Columns.Add("Radio").Alignment = 0
with .Items
with .Add("Group A")
with .Items
with .Add("Radio <b>1")
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1234
endwith
with .Add("Radio <b>2")
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1234
.State(0) = 1
endwith
with .Add("Radio <b>3")
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1234
endwith
endwith
.Expanded = .T.
endwith
with .Add("Group B")
with .Items
with .Add("Radio <b>1")
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1235
endwith
with .Add("Radio <b>2")
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1235
endwith
with .Add("Radio <b>3")
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1235
.State(0) = 1
endwith
endwith
.Expanded = .T.
endwith
endwith
endwith
endwith
|
|
99
|
How can I display a list of check-boxes
*** FaceTreeStateChanged event - Notifies that a cell changes its state into a face of tree type. ***
LPARAMETERS Tree,Item,Column
with thisform.TreeCube1
with .FrontFace.FaceTree.ItemByIndex(Item)
DEBUGOUT( "State" )
DEBUGOUT( .State(0) )
endwith
endwith
with thisform.TreeCube1
.TexturePicturePath = ""
with .FrontFace.CreateTree
.HeaderVisible = .F.
.ItemPadding = 16
.DrawGridLines = 0
.Columns.Add("Check").Alignment = 0
with .Items
.Add("Check <b>1").HasCheckBox(0) = .T.
.Add("Check <b>2").HasCheckBox(0) = .T.
with .Add("Check <b>3")
.HasCheckBox(0) = .T.
.State(0) = 1
endwith
.Add("Check <b>4").HasCheckBox(0) = .T.
endwith
endwith
endwith
|
|
98
|
How do I get the selected caption
*** FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type. ***
LPARAMETERS Tree
with thisform.TreeCube1
DEBUGOUT( "Value" )
DEBUGOUT( .FrontFace.FaceTree.Value )
DEBUGOUT( "Caption" )
DEBUGOUT( .FrontFace.FaceTree.Caption )
endwith
with thisform.TreeCube1
.TexturePicturePath = ""
with .FrontFace
with .CreateTree
.ItemPadding = 20
.Columns.Count = 5
.HeaderVisible = .F.
.Items.Count = thisform.TreeCube1.FrontFace.FaceTree.VisibleItemsCount
.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
endwith
endwith
endwith
|
|
97
|
How do I get the selected value
*** FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type. ***
LPARAMETERS Tree
with thisform.TreeCube1
DEBUGOUT( "Value" )
DEBUGOUT( .FrontFace.FaceTree.Value )
DEBUGOUT( "Caption" )
DEBUGOUT( .FrontFace.FaceTree.Caption )
endwith
with thisform.TreeCube1
.TexturePicturePath = ""
with .FrontFace
with .CreateTree
.ItemPadding = 20
.Columns.Count = 5
.HeaderVisible = .F.
.Items.Count = thisform.TreeCube1.FrontFace.FaceTree.VisibleItemsCount
.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
endwith
endwith
endwith
|
|
96
|
How can I add buttons on the face
*** FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked. ***
LPARAMETERS Tree,Item,Column
with thisform.TreeCube1
DEBUGOUT( Item )
DEBUGOUT( Column )
endwith
with thisform.TreeCube1
.TexturePicturePath = ""
with .FrontFace.CreateTree
.DrawGridLines = 0
.ItemPadding = 16
with .Columns.Add("Buttons")
.FormatColumn = "1 index `A-Z`"
.Def(2) = .T.
endwith
.Items.Count = 4
endwith
endwith
|
|
95
|
How do I programmatically selects a date (method 2)
with thisform.TreeCube1
with .FrontFace.CreateCalendar
.Value = "Jan 21"
endwith
endwith
|
|
94
|
How do I programmatically selects a date (method 1)
with thisform.TreeCube1
with .FrontFace.CreateCalendar
.Date = {^2001-1-1}
.SelDate = .Date
endwith
endwith
|
|
93
|
How can I display a hyperlink element
*** AnchorClick event - Occurs when an anchor element is clicked. ***
LPARAMETERS Face,AnchorID,Options
with thisform.TreeCube1
DEBUGOUT( Face )
DEBUGOUT( AnchorID )
DEBUGOUT( Options )
endwith
with thisform.TreeCube1
with .FrontFace.CreateTree
.ShowSelection = .F.
.HeaderVisible = .F.
.DrawGridLines = 0
.Items.ToString = "<a A1\;options1>Item 1</a>,<a A2\;options2>Item 2</a>"
endwith
endwith
|
|
92
|
Can I display image and multiple-lines items
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.Object.HTMLPicture("DriveC") = "c:\exontrol\images\zipdisk.gif"
.Object.HTMLPicture("DriveD") = "c:\exontrol\images\auction.gif"
.Object.HTMLPicture("DriveE") = "c:\exontrol\images\colorize.gif"
with .TopFace
.RelativeMargins = "0,32,0,0"
with .CreateTree
.HasLines = 0
.DrawGridLines = 0
.ItemPadding = 24
.HeaderVisible = .F.
.ShowSelection = .T.
.SelBackColor = RGB(240,240,240)
.Columns.Add("Default").Alignment = 0
with .Items
with .Add("Storage")
.Divider = 0
.Bold = .T.
.Selectable = .F.
endwith
with .Add("Choose a drive to see what's taking up space.")
.Selectable = .F.
.SingleLine(0) = .F.
with .Items.Add("<img>DriveC:64</img>")
.Height = 68
.BackgroundExt(0) = "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
.BackgroundExtValue(0,2,5) = .T.
.BackgroundExtValue(0,2,4) = "<fgcolor=000000>LROG (C:)<br>58.7 GB used out of 150 GB"
.BackgroundExtValue(0,4,2) = "39%"
endwith
with .Items.Add("<img>DriveD:64</img>")
.Height = 68
.BackgroundExt(0) = "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
.BackgroundExtValue(0,2,5) = .T.
.BackgroundExtValue(0,2,4) = "<fgcolor=000000>System (D:)<br>112 MB used out of 144 GB"
.BackgroundExtValue(0,4,2) = "1%"
endwith
with .Items.Add("<img>DriveD:64</img>")
.Height = 68
.BackgroundExt(0) = "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
.BackgroundExtValue(0,2,5) = .T.
.BackgroundExtValue(0,2,4) = "<fgcolor=000000>Work (E:)<br>53.0 GB used out of 635 GB"
.BackgroundExtValue(0,4,2) = "8%"
endwith
with .Items.Add("<img>DriveE:64</img>")
.Height = 68
.BackgroundExt(0) = "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
.BackgroundExtValue(0,2,5) = .T.
.BackgroundExtValue(0,2,4) = "<fgcolor=000000>DVD RW Drive (G:)<br>0.0 GB used out of 0.0 GB"
.BackgroundExtValue(0,4,2) = "0%"
endwith
.Expanded = .T.
endwith
with .Add("Save Locations")
.Divider = 0
.Bold = .T.
.Selectable = .F.
endwith
with .Add("Change where your apps, documents, music, pictures and videos are saved by default.")
.Selectable = .F.
.SingleLine(0) = .F.
with .Items.Add("New apps will save to:")
.Selectable = .F.
with .Items.Add("Drive C")
.Selectable = .F.
.Height = 24
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1234
.State(0) = 1
s = .SplitCell(0)
.Value(s) = "Drive D"
.HasRadioButton(s) = .T.
.RadioGroup(s) = 1234
s = .SplitCell(s)
.Value(s) = "Drive E"
.HasRadioButton(s) = .T.
.RadioGroup(s) = 1234
endwith
.Expanded = .T.
endwith
with .Items.Add("New documents will save to:")
.Selectable = .F.
with .Items.Add("Drive C")
.Selectable = .F.
.Height = 24
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1235
s = .SplitCell(0)
.Value(s) = "Drive D"
.HasRadioButton(s) = .T.
.RadioGroup(s) = 1235
.State(s) = 1
s = .SplitCell(s)
.Value(s) = "Drive E"
.HasRadioButton(s) = .T.
.RadioGroup(s) = 1235
endwith
.Expanded = .T.
endwith
with .Items.Add("New music will save to:")
.Selectable = .F.
with .Items.Add("Drive C")
.Selectable = .F.
.Height = 24
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1236
s = .SplitCell(0)
.Value(s) = "Drive D"
.HasRadioButton(s) = .T.
.RadioGroup(s) = 1236
.State(s) = 1
s = .SplitCell(s)
.Value(s) = "Drive E"
.HasRadioButton(s) = .T.
.RadioGroup(s) = 1236
endwith
.Expanded = .T.
endwith
with .Items.Add("New pictures will save to:")
.Selectable = .F.
with .Items.Add("Drive C")
.Selectable = .F.
.Height = 24
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1237
s = .SplitCell(0)
.Value(s) = "Drive D"
.HasRadioButton(s) = .T.
.RadioGroup(s) = 1237
.State(s) = 1
s = .SplitCell(s)
.Value(s) = "Drive E"
.HasRadioButton(s) = .T.
.RadioGroup(s) = 1237
endwith
.Expanded = .T.
endwith
with .Items.Add("New videos will save to:")
.Selectable = .F.
with .Items.Add("Drive C")
.Selectable = .F.
.Height = 24
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1238
s = .SplitCell(0)
.Value(s) = "Drive D"
.HasRadioButton(s) = .T.
.RadioGroup(s) = 1238
.State(s) = 1
s = .SplitCell(s)
.Value(s) = "Drive E"
.HasRadioButton(s) = .T.
.RadioGroup(s) = 1238
endwith
.Expanded = .T.
endwith
.Expanded = .T.
endwith
endwith
.EnsureVisibleItem(0)
endwith
endwith
.EnsureVisibleFaceMargin = 0
.EnsureVisibleFace(4)
.AlwaysEnsureVisibleFace = 1
.EndUpdate
endwith
|
|
91
|
How can I use the BackgroundExt/BackgroundExtValue properties
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
with .BottomFace
.RelativeMargins = "0,32,0,0"
.Title(0) = "<c><font ;18>Battery Saver"
.Title(11) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
with .CreateTree
.HasLines = 0
.DrawGridLines = 0
.ItemPadding = 24
.HeaderVisible = .F.
.ShowSelection = .F.
.Columns.Add("Default").Alignment = 0
with .Items
with .Add("Overview")
.Divider = 0
.Bold = .T.
endwith
with .Add("Batter level (charging):")
.SingleLine(0) = .F.
with .Items.Add("")
.BackgroundExt(0) = "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)]))"
.BackgroundExtValue(0,4,2) = "65%"
.BackgroundExtValue(0,2,4) = .BackgroundExtValue(0,4,2)
endwith
.Expanded = .T.
endwith
with .Add("Estimated time to full charge:")
with .Items.Add(0.15125)
var_s = "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ?"
var_s = var_s + " =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
.FormatCell(0) = var_s
.Height = 24
endwith
.Expanded = .T.
endwith
with .Add("Battery Saver")
.Divider = 0
.Bold = .T.
endwith
with .Add("Extends battery life by limiting background activity and push notifications. ")
.SingleLine(0) = .F.
endwith
with .Add("Batter saver is currently:")
.Enabled = .F.
.SingleLine(0) = .F.
with .Items.Add("")
.Height = 24
.HasCheckBox(0) = .T.
.State(0) = 2
.FormatCell(0) = "state = 1 ? `On` : `Off`"
.Enabled = .F.
endwith
.Expanded = .T.
endwith
.Add("Battery Saver is off while charging. Choose, when battery saver turns on automatically and how it affects your system.").SingleLine(0) = .F.
with .Add("<c>Battery Saver Settings")
.SingleLine(0) = .F.
.HasButton(0) = .T.
endwith
endwith
endwith
endwith
.EnsureVisibleFaceMargin = 0
.EnsureVisibleFace(1)
.AlwaysEnsureVisibleFace = 1
.EndUpdate
endwith
|
|
90
|
How can I change the visual appearance for check and radio buttons
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.CheckBoxWidth = 44
.CheckBoxHeight = 20
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAADhABJACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSDI"
var_s = var_s + "UBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3OyaN5EbbgZz9P7AMBwLA8EwXBqHYIUG"
var_s = var_s + "JGbhlbTnR7HMhvDIsPDnFqIZhmOZZXjlfh7T7KNByO6LcI3AiDagtWpNTpjf5dV7YNh2LY9UzXNq3bI1W5aUqyAZ9QQpeB0LILYDbRp/FzyO5NNrHG6dZ7oOh1doOUIt"
var_s = var_s + "laP5lgcPA7hEJ47H8SD0l4LwfhOSJ9nOIh9DefBREMKYMDaX59nsVhvlKdBpCGfgIl+L43lGG5lH+YAGlWZw/EYOAVH8ZQXncdBJDwIJGkiGYDlmUh2BKABhEgVJpgWX"
var_s = var_s + "4BA4BxcAeWB1H8KJiAaSJJgiWZWAmVA0CEWIln8JYikWfZpCIXARE0fw3GMRpJnaCRYBGWg6gqI5HgoJxfkYCQFlkX5PhkFYyBAJIImGABpGOWQ1k8OxlAWfZ6BGJA1n"
var_s = var_s + "oRQ+GQeQmEoX4kkkOheG2JQDjYUh+iMGJODUbBjHkbAzg6BxpH4bhsmOdZ6EEGAbmIAR/gSCZWkmfYShwYJYlOH5mnoBYvCSaBFnyDYhlcKAll2AwPAaSggCiWZaD6Ao"
var_s = var_s + "giEc4mBmBpYnePZxGMHw3lUeoGGUN5aH8NJpDoBgDgERg6GGFICh2d4GiWK5cngDgvHqWInG0cIfFyBwpjqLArkcTZVHWV5nGaNhxA6VoVicahajaNo9gUHI2nIdRwBw"
var_s = var_s + "JoOkSMJlFmKpWjWWY2HwPYwm2SxJHIe5sGsYpiGcXpHj6XYxA6NBFAkQBAIC"
.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAADhABB4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSDI"
var_s1 = var_s1 + "UBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3Oy3KKiQy5cABPq/b6wDA8CwXAaHYRiG"
var_s1 = var_s1 + "DYThmF4dRQAG6RcTLWrPFqVZheGYua4CLBxRrINA0LD9DyHJKnaZkDgpUQGN5dTS4GwPQCN3xRWzUyBaQzJfAZV7Lbw3PadX4XRLHcLwfAXFqWaaNZLneh5DouDz3P5Y"
var_s1 = var_s1 + "MuaRBicQ4nl6bpuBwKYRnuUY2jsfg9B0b43hOH5KjucQPnwOpMi+A4pnab5qB0a4znuf57n4f5gAeeJqC4R42mEcg5AoIRBnUfggkgLJiCaRA4AYEoEl+Y4AhcDpaFOG"
var_s1 = var_s1 + "IrBgDYyBwHICmIB5djge4hEilY8g0MotiUZICkMYB6AEIgYDYIh0g+Q5cm+CYjgOfJ6DuDZ2hSWggkESI6DCDJjCkFZDg0Yx4mYJYOmOVoiD8BQhlgfhEgwZRGBoJISy"
var_s1 = var_s1 + "0IgqGoIpDhCJAVCUWQaFMY5fAkYgBD+D5TmyYAlENPBnCsRhFkoYYcmYMAAmkLRHDmGZ9h2Rw4BkeBnFmeZWHSGIYHeQZuHoHonjGboamaVwYmIJwEEYbZNiCaRKAmdx"
var_s1 = var_s1 + "1hyNZChWIQpjcKZYHAKQ6FqHIoh0Vp6hkcBqgoAodikKgmi2LYnmsCohkAXoXkqMojgMIpKh2Gw6lEFAlAEgIA=="
.Add(2,var_s1)
endwith
.Object.Background(70) = 0x1000000
.Object.Background(71) = 0x2000000
.Object.Background(72) = 0x1f0f0f0
.RadioButtonWidth = 23
.RadioButtonHeight = 23
with .VisualAppearance
var_s2 = "gBFLBCJwBAEHhEJAADhABNoCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFI"
var_s2 = var_s2 + "ADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1BKmHZDQRAApqXIjVDAYIQSSBUlkHScRijDICXSIIQmbajIZoJCiVZ3VaGETnRQlJQuEgOHZwDAsBwPBqBPziL"
var_s2 = var_s2 + "p4WzmGqhR5ichYHI8RYVTKXYy3DxZW7OO4PQjQM7hHL8fwlfTuagyGpZOxjP5cdrYHw2J7NUzJeDxbhrTb6Zh7ILVX7TNIwXAdD4PIKmNryORsC4XG5pZ7oOh6Lo3G4r"
var_s2 = var_s2 + "hWZI2nOL4eBON4LkeRJvHWDxvB6G5Lmac56D0OY3hMU5bm6bRoiAeA9DMX5riydJ+D8P4vEeO4xkEcQfCYBZrHKXgzlme4BmCB4eAUZRbAaAZeGsDg4EYCYEmERoaBEO"
var_s2 = var_s2 + "JaiMIY2EIXo2FYFYHmIBp1j8OoQhcYZNDiIgIiYE4Jl2BAlj0agOmiKgyH6Xo2jECYGE8WJmDODpehgFgZEIXI3DyfoQmQSQWEaEZkgkJhKhKZA2hmSxCEyGREnSFJkk"
var_s2 = var_s2 + "kVhWwCCAthFKRjiIXhpiXOhihGYwJESSRCFuIxqGoPomkmDhuhWT45kSXYcl8UxdAkbgPBaMhTD0JApj4foRBoaJ5iqAxdmadhzDcWxpgIf4bhsY4Gg6GYYDcegNGUYg"
var_s2 = var_s2 + "6VMIsBBmNg8CmRwuCOJBgBaAgXh6JQzl6JocE+OQQn+KpqkqNouivgQiiaLJPHaMZYHwQAHHIdRrA6ep2jMbYqx2RxzmqBpajOLxOnacYPHcHZnHGOlynmbo0jSbRLFa"
var_s2 = var_s2 + "JoJlyNpplyKArhcGZcgMWpGjCXo4liM4ukiHpngkeJojiTZphmLIDG2Nwak2N4vEaAJsj2bpLgWFxlGGExOn4dgvHOMpxGgbwkAyaxEFCFAEICA="
.Add(3,var_s2)
var_s3 = "gBFLBCJwBAEHhEJAADhABCEMACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFI"
var_s3 = var_s3 + "ADRfFoWmxTdAcYSCGSZZrGOiQADINI0R7UAABPBIMSjAamHZDQRAApqXIjVaAhySQKksg6TiMUYZAbaRBCEzbUZDNBIopUQLVU5ABbUEqBIipIrEQLHNwPBaEYZiOIYW"
var_s3 = var_s3 + "5re4cfzIMhyLI8Ob3CqHZhleTwTjWGYvSp1dBbTQ2QyVRanMDqOjsKxmW5Gbh5NhfHY8dxnDKcZ5jGSudrjEZ9VpmG74JzeEbjRj8chxT4PDxnBK/YDSWgdLo8VzXBpc"
var_s3 = var_s3 + "G2MY4maXxzFKQRxHgOQeC8H4TkuZhzHoNR9kaXpNnONZsGGMo9B4A5bmuFZ7n4Pw/i+XpFmSVB/mAB41hsQJfBYOJXgGXAHm4CoCmCtYAHqXRWBGWB/F2Z5UnaAxZFOa"
var_s3 = var_s3 + "J2DuTpzHCOQ5gwcg8veDBjlCaA0mGBg6BYapcEONZiHYHADg4MoKE+U4QkEIINAISAig4Y44moPIPA4EpoHSBoOngNgyDiW5jCGShCF+VouA2EQNhKHBMg+Y5pFYPYVm"
var_s3 = var_s3 + "OQxYiAD4kEgNZRHSTokCWax4A4KA2DaDglGkUhYhoZRph4DYZB6NAllEbwOmgKhEhqJ4JjIa4ek8c48mGAoflcAQJhITxaBYCoHEuGZmHuIooioIgKgWJIUCWXh4hkNh"
var_s3 = var_s3 + "ImkM4JloMh6iaJRzhySAkCkVhFhUd4QhMJomD0KtvBCCJMGocouh6KIKiifoKlodAmAAOgrgYVoVD7Y5AlMJhDAqPoLh6D4DkCYosicSoYkkQhcmMapOD6LQKkqHgkCw"
var_s3 = var_s3 + "KhwmILpHFqSJ7jaTZbHYBw1lCFwwnEcAqgOUoUGSa5DxkLQGHsVhWhQRJKkmFYkBuaI1lgdBtlMdZKi6LoKnSZQwggOp+kGJpjiufIDiyGQXCiYZCmyJxeAQYQi0YYI+"
var_s3 = var_s3 + "lieoqmmKwpHIdoskIGQGFWSg8DIBx6GCQ4AAYXhHjlo5fCqNpPjYRJ/kucwMkcMpM9GMwqk2Tx3AGa4AnIVpkm2N5cAgcJvk2XIsjGeYlF53hKk2dAnEGJR7nCdxlgYc"
var_s3 = var_s3 + "4ajmEplk4NYNGcWpKiYRx5k4dYhC0RxggsTpXAGQA3jaBoEmuUIuFuCo4DoNoDHqShwCKXYPCSXYzmOMx6lwOwZoawrgkE0HwBY1xegdE2MMWQhBOhoEUBIQAgCAgA=="
.Add(4,var_s3)
endwith
.Object.Background(73) = 0x3000000
.Object.Background(74) = 0x4000000
with .RightFace
.RelativeMargins = "0,32,0,0"
.Title(0) = "<c><font ;18>Table mode"
.Title(11) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
with .CreateTree
.HasLines = 0
.DrawGridLines = 0
.ItemPadding = 24
.HeaderVisible = .F.
.ShowSelection = .F.
.Columns.Add("Default").Alignment = 0
with .Items
with .Add("Make windows more touch-friendly when using your device as a table")
.SingleLine(0) = .F.
with .Items.Add("")
.Height = 24
.HasCheckBox(0) = .T.
.State(0) = 0
.FormatCell(0) = "state = 0 ? `Off` : `On`"
endwith
.Expanded = .T.
endwith
with .Add("When I sign in")
.SingleLine(0) = .F.
with .Items.Add("Automatically swicth to table mode")
.Height = 24
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1234
endwith
with .Items.Add("Go to the desktop")
.Height = 24
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1234
endwith
with .Items.Add("Remember what I used last")
.Height = 24
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1234
.State(0) = 1
endwith
.Expanded = .T.
endwith
with .Add("When this device automatically switches table mode on or off")
.SingleLine(0) = .F.
with .Items.Add("Don't ask me and dont' switch")
.Height = 24
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1235
endwith
with .Items.Add("Always ask me before switching")
.Height = 24
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1235
.State(0) = 1
endwith
with .Items.Add("Don't ask me and always' switch")
.Height = 24
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1235
endwith
.Expanded = .T.
endwith
with .Add("Hide app icons on the taskbar in table mode")
.SingleLine(0) = .F.
with .Items.Add("")
.Height = 24
.HasCheckBox(0) = .T.
.State(0) = 0
.FormatCell(0) = "state = 0 ? `Off` : `On`"
endwith
.Expanded = .T.
endwith
endwith
endwith
endwith
.EnsureVisibleFaceMargin = 0
.EnsureVisibleFace(2)
.AlwaysEnsureVisibleFace = 1
.EndUpdate
endwith
|
|
89
|
How can I display more group of radio-buttons
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
with .LeftFace
.RelativeMargins = "0,32,0,0"
.Title(0) = "<c><font ;18>Multitasking"
.Title(11) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
with .CreateTree
.HasLines = 0
.DrawGridLines = 0
.ItemPadding = 24
.HeaderVisible = .F.
.ShowSelection = .F.
.Columns.Add("Default").Alignment = 0
with .Items
with .Add("Snap")
.Divider = 0
.Bold = .T.
endwith
with .Add("Arrange windows automatically by dragging them to the sides of corners of the scree")
.SingleLine(0) = .F.
with .Items.Add("")
.Height = 24
.HasCheckBox(0) = .T.
.State(0) = 1
.FormatCell(0) = "state = 0 ? `Off` : `On`"
endwith
.Expanded = .T.
endwith
with .Add("When I snap more than one window, automatically adjust the size of the windows")
.SingleLine(0) = .F.
with .Items.Add("")
.Height = 24
.HasCheckBox(0) = .T.
.State(0) = 1
.FormatCell(0) = "state = 0 ? `Off` : `On`"
endwith
.Expanded = .T.
endwith
with .Add("When I snap a window, show what I can snap next to it")
.SingleLine(0) = .F.
with .Items.Add("")
.Height = 24
.HasCheckBox(0) = .T.
.FormatCell(0) = "state = 0 ? `Off` : `On`"
endwith
.Expanded = .T.
endwith
with .Add("Virtual desktops")
.Divider = 0
.Bold = .T.
endwith
with .Add("On the taskbar, show windows that are open on:")
.SingleLine(0) = .F.
with .Items.Add("Only the desktop I'm using")
.Height = 24
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1234
.State(0) = 1
endwith
with .Items.Add("All desktops")
.Height = 24
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1234
endwith
.Expanded = .T.
endwith
with .Add("Pressing ALT+TAB, show windows that are open on:")
.SingleLine(0) = .F.
with .Items.Add("Only the desktop I'm using")
.Height = 24
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1235
.State(0) = 1
endwith
with .Items.Add("All desktops")
.Height = 24
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1235
endwith
.Expanded = .T.
endwith
endwith
endwith
endwith
.EnsureVisibleFaceMargin = 0
.EnsureVisibleFace(3)
.AlwaysEnsureVisibleFace = 1
.EndUpdate
endwith
|
|
88
|
How can I use images with the control
*** FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked. ***
LPARAMETERS Tree,Item,Column
with thisform.TreeCube1
DEBUGOUT( "FaceTreeButtonClick" )
endwith
*** FaceTreeStateChanged event - Notifies that a cell changes its state into a face of tree type. ***
LPARAMETERS Tree,Item,Column
with thisform.TreeCube1
DEBUGOUT( "FaceTreeStateChanged" )
endwith
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.Object.HTMLPicture("P1") = "c:\exontrol\images\zipdisk.gif"
.Object.HTMLPicture("P2") = "c:\exontrol\images\auction.gif"
.Object.HTMLPicture("P3") = "c:\exontrol\images\colorize.gif"
.Object.HTMLPicture("P4") = "c:\exontrol\images\auction.gif"
with .FrontFace
.RelativeMargins = "0,32,0,0"
.Title(0) = "<c><font ;18>Notifications"
.Title(11) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
with .CreateTree
.HasLines = 0
.DrawGridLines = 0
.ItemPadding = 24
.HeaderVisible = .F.
.ShowSelection = .F.
.Columns.Add("Default").Alignment = 0
with .Items
with .Add("Choose your quick actions")
.SingleLine(0) = .F.
with .Items.Add("")
.Height = 48
s = 0
.Value(s) = "<c><img>P1</img>"
.CellWidth(s) = 48
.HasButton(s) = .T.
s = .SplitCell(s)
.Value(s) = "<c><img>P2</img>"
.CellWidth(s) = 48
.HasButton(s) = .T.
s = .SplitCell(s)
.Value(s) = "<c><img>P3</img>"
.CellWidth(s) = 48
.HasButton(s) = .T.
s = .SplitCell(s)
.Value(s) = "<c><img>P4</img>"
.CellWidth(s) = 48
.HasButton(s) = .T.
s = .SplitCell(s)
endwith
.Expanded = .T.
endwith
with .Add("Show me tips about Windows")
.SingleLine(0) = .F.
with .Items.Add("")
.Height = 24
.HasCheckBox(0) = .T.
.State(0) = 1
.FormatCell(0) = "state = 0 ? `Off` : `On`"
endwith
.Expanded = .T.
endwith
with .Add("Show app notifications ")
.SingleLine(0) = .F.
with .Items.Add("")
.Height = 24
.HasCheckBox(0) = .T.
.State(0) = 1
.FormatCell(0) = "state = 0 ? `Off` : `On`"
endwith
.Expanded = .T.
endwith
with .Add("Show notifications on lock screen")
.SingleLine(0) = .F.
with .Items.Add("")
.Height = 24
.HasCheckBox(0) = .T.
.FormatCell(0) = "state = 0 ? `Off` : `On`"
endwith
.Expanded = .T.
endwith
with .Add("Show alarms, reminders and incomming VOIP calls on the lock screen")
.SingleLine(0) = .F.
with .Items.Add("")
.Height = 24
.HasCheckBox(0) = .T.
.State(0) = 1
.FormatCell(0) = "state = 0 ? `Off` : `On`"
endwith
.Expanded = .T.
endwith
with .Add("Hide notications while presentation")
.SingleLine(0) = .F.
with .Items.Add("")
.Height = 24
.HasCheckBox(0) = .T.
.State(0) = 0
.FormatCell(0) = "state = 0 ? `Off` : `On`"
endwith
.Expanded = .T.
endwith
endwith
endwith
endwith
.EnsureVisibleFaceMargin = 0
.EnsureVisibleFace(0)
.AlwaysEnsureVisibleFace = 1
.EndUpdate
endwith
|
|
87
|
How do I display a progress bar
with thisform.TreeCube1
.TexturePicturePath = ""
with .FrontFace.CreateTree
.ItemPadding = 16
with .Columns.Add("Pos")
.FormatColumn = "1 pos ``"
.Width = 8
endwith
.Columns.Add("Progress").Alignment = 0
with .Items
with .Add("")
.BackgroundExt(1) = "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)]))"
.BackgroundExtValue(1,4,2) = "25%"
.BackgroundExtValue(1,2,4) = .BackgroundExtValue(1,4,2)
endwith
with .Add("")
.BackgroundExt(1) = "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)]))"
.BackgroundExtValue(1,4,2) = "15%"
.BackgroundExtValue(1,2,4) = .BackgroundExtValue(1,4,2)
.BackgroundExtValue(1,4,1) = 65280
endwith
with .Add("")
.BackgroundExt(1) = "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)]))"
.BackgroundExtValue(1,4,2) = "75%"
.BackgroundExtValue(1,2,4) = .BackgroundExtValue(1,4,2)
endwith
with .Add("")
.BackgroundExt(1) = "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)]))"
.BackgroundExtValue(1,4,2) = "85%"
.BackgroundExtValue(1,2,4) = .BackgroundExtValue(1,4,2)
endwith
with .Add("")
.BackgroundExt(1) = "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)]))"
.BackgroundExtValue(1,4,2) = "5%"
.BackgroundExtValue(1,2,4) = .BackgroundExtValue(1,4,2)
.BackgroundExtValue(1,4,1) = 255
endwith
endwith
endwith
endwith
|
|
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
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.CheckBoxWidth = 32
.CheckBoxHeight = 29
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
var_s = var_s + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
var_s = var_s + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
var_s = var_s + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQI"
var_s = var_s + "AID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQSC"
var_s = var_s + "mFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIXo"
var_s = var_s + "DGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIBw"
var_s = var_s + "U4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRwS"
var_s = var_s + "kSYhDi0ERCFAECAg"
.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
var_s1 = var_s1 + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
var_s1 = var_s1 + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
var_s1 = var_s1 + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDaC"
var_s1 = var_s1 + "hgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAuE"
var_s1 = var_s1 + "cXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiAw"
var_s1 = var_s1 + "Zn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkkC"
var_s1 = var_s1 + "axA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhpr"
var_s1 = var_s1 + "BQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDGK"
var_s1 = var_s1 + "4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfGA"
var_s1 = var_s1 + "DYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+Bv"
var_s1 = var_s1 + "BPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4FwA"
var_s1 = var_s1 + "IRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg=="
.Add(2,var_s1)
var_s2 = "gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
var_s2 = var_s2 + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
var_s2 = var_s2 + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
var_s2 = var_s2 + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmGA"
var_s2 = var_s2 + "YOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhyF"
var_s2 = var_s2 + "YdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkENg"
var_s2 = var_s2 + "KDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMhG"
var_s2 = var_s2 + "egNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg/"
var_s2 = var_s2 + "iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8T"
var_s2 = var_s2 + "gxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB+"
var_s2 = var_s2 + "BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovBI"
var_s2 = var_s2 + "hODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8Z"
var_s2 = var_s2 + "I1hEChBQAggI"
.Add(3,var_s2)
endwith
.Object.Background(70) = 0x1000000
.Object.Background(71) = 0x2000000
.Object.Background(72) = 0x3000000
with .FrontFace.CreateTree
.HasLines = 2
.ShowSelection = .F.
.DrawGridLines = -2
.ItemPadding = 16
with .Columns.Add("<c><b>Partial Check")
.Alignment = 0
.Def(0) = .T.
.FormatColumn = "`Check <b>` + 1 rpos `` + '</b> ' + (state=0 ? `<off 4>(off)` : (state=1 ? `<off 4>(on)` : ``))"
.PartialCheck = .T.
endwith
.Items.Count = thisform.TreeCube1.FrontFace.FaceTree.VisibleItemsCount
with .ItemByIndex(1)
.Items.Count = 3
.Expanded = .T.
.State(0) = 1
endwith
with .ItemByIndex(2)
.Items.Count = 3
.Expanded = .T.
.Items.Item(1).State(0) = 1
endwith
endwith
.EndUpdate
endwith
|
|
85
|
How do I print the control
with thisform.TreeCube1
with .FrontFace.CreateCalendar
.AutoSize = 1
.MaxMonthX = 1
.MaxMonthY = 1
endwith
with CreateObject("Exontrol.Print")
.PrintExt = thisform.TreeCube1.Object
.Preview
endwith
endwith
|
|
84
|
How can I get the caption from the point
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
with thisform.TreeCube1
DEBUGOUT( .FrontFace.FaceTree.CaptionFromPoint(-1,-1) )
endwith
with thisform.TreeCube1
.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
with .FrontFace.CreateTree
.ItemPadding = 16
.HeaderVisible = .F.
.ForeColor = RGB(255,255,255)
var_s = "<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 <"
var_s = var_s + "b>D,<sha \;\;0><font \;18>Place <b>E"
.Items.ToString = var_s
endwith
endwith
|
|
83
|
How can I get the value from the point
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
with thisform.TreeCube1
DEBUGOUT( .FrontFace.FaceTree.ValueFromPoint(-1,-1) )
endwith
with thisform.TreeCube1
.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
with .FrontFace.CreateTree
.ItemPadding = 16
.HeaderVisible = .F.
.ForeColor = RGB(255,255,255)
var_s = "<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 <"
var_s = var_s + "b>D,<sha \;\;0><font \;18>Place <b>E"
.Items.ToString = var_s
endwith
endwith
|
|
82
|
How can I get the column from the point
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
with thisform.TreeCube1
DEBUGOUT( .FrontFace.FaceTree.ColumnFromPoint(-1,-1) )
endwith
with thisform.TreeCube1
with .FrontFace.CreateTree
.FullRowSelect = .T.
.DrawGridLines = -2
.Columns.Add("A").FormatColumn = "0 pos `A-Z`"
.Columns.Add("B").FormatColumn = "0 pos `B-Z`"
.Columns.Add("C").FormatColumn = "0 pos `C-Z`"
.Columns.Add("D").FormatColumn = "0 pos `D-Z`"
.Items.Count = 4
endwith
endwith
|
|
81
|
How can I get the item from the point
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
with thisform.TreeCube1
DEBUGOUT( .FrontFace.FaceTree.ItemFromPoint(-1,-1) )
endwith
with thisform.TreeCube1
with .FrontFace.CreateTree
.FullRowSelect = .T.
.DrawGridLines = -2
.Columns.Add("A").FormatColumn = "0 pos `A-Z`"
.Columns.Add("B").FormatColumn = "0 pos `B-Z`"
.Columns.Add("C").FormatColumn = "0 pos `C-Z`"
.Columns.Add("D").FormatColumn = "0 pos `D-Z`"
.Items.Count = 4
endwith
endwith
|
|
80
|
How can I get the value from the point (calendar's date)
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
with thisform.TreeCube1
DEBUGOUT( "Date:" )
DEBUGOUT( .FrontFace.FaceCalendar.ValueFromPoint(-1,-1) )
endwith
with thisform.TreeCube1
with .FrontFace.CreateCalendar
.AutoSize = 1
.MaxMonthX = 1
.MaxMonthY = 1
endwith
endwith
|
|
79
|
How can I get the date from the point (calendar's date)
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
with thisform.TreeCube1
DEBUGOUT( "Date:" )
DEBUGOUT( .FrontFace.FaceCalendar.DateFromPoint(-1,-1) )
endwith
with thisform.TreeCube1
with .FrontFace.CreateCalendar
.AutoSize = 1
.MaxMonthX = 1
.MaxMonthY = 1
endwith
endwith
|
|
78
|
How can I get the face from the point
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
with thisform.TreeCube1
DEBUGOUT( "Face:" )
DEBUGOUT( .FaceFromPoint(-1,-1) )
endwith
with thisform.TreeCube1
.IdentifyFace = 1
endwith
|
|
77
|
Does your control support partial-check feature
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.CheckBoxWidth = 32
.CheckBoxHeight = 29
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
var_s = var_s + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
var_s = var_s + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
var_s = var_s + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQI"
var_s = var_s + "AID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQSC"
var_s = var_s + "mFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIXo"
var_s = var_s + "DGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIBw"
var_s = var_s + "U4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRwS"
var_s = var_s + "kSYhDi0ERCFAECAg"
.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
var_s1 = var_s1 + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
var_s1 = var_s1 + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
var_s1 = var_s1 + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDaC"
var_s1 = var_s1 + "hgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAuE"
var_s1 = var_s1 + "cXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiAw"
var_s1 = var_s1 + "Zn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkkC"
var_s1 = var_s1 + "axA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhpr"
var_s1 = var_s1 + "BQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDGK"
var_s1 = var_s1 + "4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfGA"
var_s1 = var_s1 + "DYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+Bv"
var_s1 = var_s1 + "BPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4FwA"
var_s1 = var_s1 + "IRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg=="
.Add(2,var_s1)
var_s2 = "gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
var_s2 = var_s2 + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
var_s2 = var_s2 + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
var_s2 = var_s2 + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmGA"
var_s2 = var_s2 + "YOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhyF"
var_s2 = var_s2 + "YdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkENg"
var_s2 = var_s2 + "KDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMhG"
var_s2 = var_s2 + "egNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg/"
var_s2 = var_s2 + "iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8T"
var_s2 = var_s2 + "gxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB+"
var_s2 = var_s2 + "BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovBI"
var_s2 = var_s2 + "hODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8Z"
var_s2 = var_s2 + "I1hEChBQAggI"
.Add(3,var_s2)
endwith
.Object.Background(70) = 0x1000000
.Object.Background(71) = 0x2000000
.Object.Background(72) = 0x3000000
with .FrontFace.CreateTree
.HasLines = 2
.ShowSelection = .F.
.DrawGridLines = -2
.ItemPadding = 16
with .Columns.Add("<c><b>Partial Check")
.Alignment = 0
.Def(0) = .T.
.FormatColumn = "`Check <b>` + 1 rpos ``"
.PartialCheck = .T.
endwith
.Items.Count = thisform.TreeCube1.FrontFace.FaceTree.VisibleItemsCount
with .ItemByIndex(1)
.Items.Count = 3
.Expanded = .T.
.State(0) = 1
endwith
with .ItemByIndex(2)
.Items.Count = 3
.Expanded = .T.
.Items.Item(1).State(0) = 1
endwith
endwith
.EndUpdate
endwith
|
|
76
|
I am using the Items.ToString, just wondering if I can use it for multiple columns
with thisform.TreeCube1
.TexturePicturePath = ""
with .FrontFace.CreateTree
.DrawGridLines = 0
.HeaderVisible = .F.
.Columns.Count = 4
.Items.ToString = "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"
endwith
endwith
|
|
75
|
How can I show the item on multiple-lines
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
with .FrontFace.CreateTree
.DrawGridLines = -2
.ItemPadding = 12
with .Columns.Add("<c><b>Items")
.Alignment = 0
.Def(16) = .F.
endwith
with .Items
.Add("Short")
var_s = "The eXTreeCube library provides fish-eye representation / cube map texturing of different components such as calendar, multiple "
var_s = var_s + "- columns tree view and so on. Cube map texturing is a form of environment texture mapping that uses a viewing direction (3D vec"
var_s = var_s + "tor) to map into a view plane the six 2D textures arranged like the faces of a cube. "
.Add(var_s)
.Add("Short")
endwith
endwith
.EndUpdate
endwith
|
|
74
|
How can I change the visual appearance for the control's radio buttons
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.RadioButtonWidth = 23
.RadioButtonHeight = 23
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAADhABNoCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFI"
var_s = var_s + "ADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1BKmHZDQRAApqXIjVDAYIQSSBUlkHScRijDICXSIIQmbajIZoJCiVZ3VaGETnRQlJQuEgOHZwDAsBwPBqBPziL"
var_s = var_s + "p4WzmGqhR5ichYHI8RYVTKXYy3DxZW7OO4PQjQM7hHL8fwlfTuagyGpZOxjP5cdrYHw2J7NUzJeDxbhrTb6Zh7ILVX7TNIwXAdD4PIKmNryORsC4XG5pZ7oOh6Lo3G4r"
var_s = var_s + "hWZI2nOL4eBON4LkeRJvHWDxvB6G5Lmac56D0OY3hMU5bm6bRoiAeA9DMX5riydJ+D8P4vEeO4xkEcQfCYBZrHKXgzlme4BmCB4eAUZRbAaAZeGsDg4EYCYEmERoaBEO"
var_s = var_s + "JaiMIY2EIXo2FYFYHmIBp1j8OoQhcYZNDiIgIiYE4Jl2BAlj0agOmiKgyH6Xo2jECYGE8WJmDODpehgFgZEIXI3DyfoQmQSQWEaEZkgkJhKhKZA2hmSxCEyGREnSFJkk"
var_s = var_s + "kVhWwCCAthFKRjiIXhpiXOhihGYwJESSRCFuIxqGoPomkmDhuhWT45kSXYcl8UxdAkbgPBaMhTD0JApj4foRBoaJ5iqAxdmadhzDcWxpgIf4bhsY4Gg6GYYDcegNGUYg"
var_s = var_s + "6VMIsBBmNg8CmRwuCOJBgBaAgXh6JQzl6JocE+OQQn+KpqkqNouivgQiiaLJPHaMZYHwQAHHIdRrA6ep2jMbYqx2RxzmqBpajOLxOnacYPHcHZnHGOlynmbo0jSbRLFa"
var_s = var_s + "JoJlyNpplyKArhcGZcgMWpGjCXo4liM4ukiHpngkeJojiTZphmLIDG2Nwak2N4vEaAJsj2bpLgWFxlGGExOn4dgvHOMpxGgbwkAyaxEFCFAEICA="
.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAADhABCEMACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFI"
var_s1 = var_s1 + "ADRfFoWmxTdAcYSCGSZZrGOiQADINI0R7UAABPBIMSjAamHZDQRAApqXIjVaAhySQKksg6TiMUYZAbaRBCEzbUZDNBIopUQLVU5ABbUEqBIipIrEQLHNwPBaEYZiOIYW"
var_s1 = var_s1 + "5re4cfzIMhyLI8Ob3CqHZhleTwTjWGYvSp1dBbTQ2QyVRanMDqOjsKxmW5Gbh5NhfHY8dxnDKcZ5jGSudrjEZ9VpmG74JzeEbjRj8chxT4PDxnBK/YDSWgdLo8VzXBpc"
var_s1 = var_s1 + "G2MY4maXxzFKQRxHgOQeC8H4TkuZhzHoNR9kaXpNnONZsGGMo9B4A5bmuFZ7n4Pw/i+XpFmSVB/mAB41hsQJfBYOJXgGXAHm4CoCmCtYAHqXRWBGWB/F2Z5UnaAxZFOa"
var_s1 = var_s1 + "J2DuTpzHCOQ5gwcg8veDBjlCaA0mGBg6BYapcEONZiHYHADg4MoKE+U4QkEIINAISAig4Y44moPIPA4EpoHSBoOngNgyDiW5jCGShCF+VouA2EQNhKHBMg+Y5pFYPYVm"
var_s1 = var_s1 + "OQxYiAD4kEgNZRHSTokCWax4A4KA2DaDglGkUhYhoZRph4DYZB6NAllEbwOmgKhEhqJ4JjIa4ek8c48mGAoflcAQJhITxaBYCoHEuGZmHuIooioIgKgWJIUCWXh4hkNh"
var_s1 = var_s1 + "ImkM4JloMh6iaJRzhySAkCkVhFhUd4QhMJomD0KtvBCCJMGocouh6KIKiifoKlodAmAAOgrgYVoVD7Y5AlMJhDAqPoLh6D4DkCYosicSoYkkQhcmMapOD6LQKkqHgkCw"
var_s1 = var_s1 + "KhwmILpHFqSJ7jaTZbHYBw1lCFwwnEcAqgOUoUGSa5DxkLQGHsVhWhQRJKkmFYkBuaI1lgdBtlMdZKi6LoKnSZQwggOp+kGJpjiufIDiyGQXCiYZCmyJxeAQYQi0YYI+"
var_s1 = var_s1 + "lieoqmmKwpHIdoskIGQGFWSg8DIBx6GCQ4AAYXhHjlo5fCqNpPjYRJ/kucwMkcMpM9GMwqk2Tx3AGa4AnIVpkm2N5cAgcJvk2XIsjGeYlF53hKk2dAnEGJR7nCdxlgYc"
var_s1 = var_s1 + "4ajmEplk4NYNGcWpKiYRx5k4dYhC0RxggsTpXAGQA3jaBoEmuUIuFuCo4DoNoDHqShwCKXYPCSXYzmOMx6lwOwZoawrgkE0HwBY1xegdE2MMWQhBOhoEUBIQAgCAgA=="
.Add(2,var_s1)
endwith
.Object.Background(73) = 0x1000000
.Object.Background(74) = 0x2000000
with .FrontFace.CreateTree
.ShowSelection = .F.
.DrawGridLines = -2
.ItemPadding = 12
with .Columns.Add("<c><b>Radio")
.Alignment = 0
.Def(1) = .T.
endwith
.Items.ToString = "Radio 1,Radio 2,Radio 3,Radio 4"
.ItemByIndex(1).State(0) = 1
endwith
.EndUpdate
endwith
|
|
73
|
How can I change the visual appearance for the control's check boxes (6)
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.CheckBoxWidth = 16
.CheckBoxHeight = 16
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAADhABKMGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFI"
var_s = var_s + "ACxfFoWRrnaA5QoGM4EDTRYADCKsaQ/J0LcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7Cc"
var_s = var_s + "DKDATbr9MZ9ZBCNZoPimEYtS7MMLyRB8QpyAytaBhRaaGwmSr3U7Oc50d69FYTIxcYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNped6NSDVcKxLgaa4fTrOZZzHL9Hpv"
var_s = var_s + "iMWYBnWOr+kwJ4zlqY53CAZQ/B4GZzmab5qHyT4cDeDInkwPp8DCTI/h+Iw7nMZZhj4B5eGKL57gYGAgAadZoG8soBgYfxKjcSRYCCYJGGYDoDmCQgNh0ZIZAaSB2gWY"
var_s = var_s + "J2F4FwdhsJpuBQfRiAWdQJDqUQUCUASAgA=="
.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAADhABV0GACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFI"
var_s1 = var_s1 + "ACxfFoWRrnaA5QoGM4EDTRYADCKsaQ/J0LcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7Cc"
var_s1 = var_s1 + "DKDATbr9MZ9ZBCNZoPimEYtS7MMLQXK8QpyAytaBhRaaGwmSr3U7Oc50d69FYQXqvYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNpedy2YbkFC5LStHwbCrBVpxWotDxQ"
var_s1 = var_s1 + "jWVgrHYGI9iybhbiGUo+jafA6DKZxjkoVgxHoHR+iqXx2jMA52l8XJ/CMJ5TkaCp7nmOwHk+XovmECR8BWMYyAIHAgEOBgGFaSo4CWeQVgoSA0lOA5fEGEZQBSYRGBie"
var_s1 = var_s1 + "YFlWMhiBoPZhkabI3geYIzDYIoHA8dxAH2CZYGMLgqHeW4zAYLgWCMB4gGIeoOjcQgJCqWBhgIOhvGKRhAn2D5blcWBaB+JBGi2EhWAgOQlhmEpYgiHB9DwJQCloUgWm"
var_s1 = var_s1 + "UQoOFaEZXlaSB2haZJGF4WwdhsJRslmGJGDmFhYg8ZoHBiZYalCE4tBEQhQBAgI="
.Add(2,var_s1)
endwith
.Object.Background(70) = 0x1000000
.Object.Background(71) = 0x2000000
with .FrontFace.CreateTree
.ShowSelection = .F.
.DrawGridLines = -2
.ItemPadding = 16
with .Columns.Add("<c><b>Check")
.Alignment = 0
.Def(0) = .T.
endwith
.Items.ToString = "Check A,Check B,Check C,Check D"
.ItemByIndex(1).State(0) = 1
endwith
.EndUpdate
endwith
|
|
72
|
How can I change the visual appearance for the control's check boxes (5)
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.CheckBoxWidth = 24
.CheckBoxHeight = 24
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAADhABO8GACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFI"
var_s = var_s + "ADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1DZ+KxAB76cheIIgAhCJQGSYZaDqOQyRhkBTqEIITZsRoNUIiRStayuDCLTwoSooXayfjHYAwOBYHgmC4NQ7EM"
var_s = var_s + "RxLAmOw1ZKPQjgDDvDilM4tS7MMxzLK8cx3FjqaAyWhQTgePZNU7UNLwPRMCb3LqvbBsOxbHqma5tWjVYDwPZ9cz3Pq9biAG57fwnC59YLheK5Li9Q4jLbMdByXLMDxH"
var_s = var_s + "iuRJpnWOw7k6RxrjuM5pj+PA+C8H4TkuZpznoPQ+H8B4rlubp3nsfYfA+H5Tl2cp6n4Pw+C+P5rnucx/B+aAFmqAAgCgFZlHSVZICYCoCmCSA2A6A5hAgPZTGWIQYFYF"
var_s = var_s + "oFmCVsjj2YZIHYHoHmICIGCKCJiEiCZBGMTJjiIKoJGKSI2C6CBOjiRYSEITp4lWIgyhiOJmDqDpYHiIYgDqEITi0ERCFAECAg=="
.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAADhABA4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFI"
var_s1 = var_s1 + "ADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1DZ+KxAB76cheIIgAhCJQGSYZaDqOQyRhkBTqEIITZsRoNUIiRStayuDCLTwoSooXayfjHYAwOBYHgmC4NQ7EM"
var_s1 = var_s1 + "RxLAmOw1ZKPQjgDDvDilM4tS7MMxzLK8cx3FjqaAyWhQTgePZNU7UNLwPRMCb3LqvbBsOxbHqma5tWjVYDwPZ9cz3Pq9biAG57fq7ZLEYziOR4Hg+JzFbDVKq0aYjA5R"
var_s1 = var_s1 + "lCU5mm8OR6l6Q53pqaAkgQXgBBMeRmGabhtjsTAeGuaZsm+aQMDwfwvAuJYch2dBsj0XJWkqHIZnMCIOEMBICHiXwHFWVx+A+V5pj4eRGGefJvDcC4WjyXArEWF4OAyA"
var_s1 = var_s1 + "gghYCYsDAT5oHYHoHmGU5sncPANGKAA+HiXJyi4IA/g8U4klQfAeDeVIdgqYxIlWaoNGMQ5gnAOIOHMIIQg4IZonSEIBB0OIInCEAjGgaY6GCJIJDYQIRiEOBVmEN5LE"
var_s1 = var_s1 + "GHhOggIx5F4WoKmKWI9lOCgdAkahZhaZhIH4QoRAMCQaE2GJmFmFhQgUJQZgoShwiSSY2HaBxllmFZqFcJ5JnYfofmgCgGgKIJoCeKYWiEKIKCaCogBqd4oneI5pAoRo"
var_s1 = var_s1 + "SiSaRKFaFolmkVwFg0M4OgodoYieagKgaFA6moRhJAkO5qgaCJKGKapKjaLhhmmNoAmoQhOjQRQJEAQCAg=="
.Add(2,var_s1)
endwith
.Object.Background(70) = 0x1000000
.Object.Background(71) = 0x2000000
with .FrontFace.CreateTree
.ShowSelection = .F.
.DrawGridLines = -2
.ItemPadding = 16
with .Columns.Add("<c><b>Check")
.Alignment = 0
.Def(0) = .T.
endwith
.Items.ToString = "Check A,Check B,Check C,Check D"
.ItemByIndex(1).State(0) = 1
endwith
.EndUpdate
endwith
|
|
71
|
How can I change the visual appearance for the control's check boxes (4)
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.CheckBoxWidth = 32
.CheckBoxHeight = 32
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAADhABfICg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
var_s = var_s + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
var_s = var_s + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxR"
var_s = var_s + "DWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYF"
var_s = var_s + "oFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4Uk"
var_s = var_s + "mCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAo"
var_s = var_s + "chqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0"
var_s = var_s + "ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8"
var_s = var_s + "CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2U"
var_s = var_s + "gJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAADhABcoFg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
var_s1 = var_s1 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
var_s1 = var_s1 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n"
var_s1 = var_s1 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnSc"
var_s1 = var_s1 + "g1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpA"
var_s1 = var_s1 + "oPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDR"
var_s1 = var_s1 + "DFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lG"
var_s1 = var_s1 + "NAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBg"
var_s1 = var_s1 + "k0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuX"
var_s1 = var_s1 + "pMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2Cy"
var_s1 = var_s1 + "A4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8Rp"
var_s1 = var_s1 + "BzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8T"
var_s1 = var_s1 + "I7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeH"
var_s1 = var_s1 + "GFgLIwQrC2D0JoSQ+QvhrHoHERggR4A2GKMQH4FwBD0CgAgAAkAFhAEwEYAoYAiBeEUBEAYEBRI8EUCIcAVAEDQG0PcZYIBVgSHEAEGojB4j1AeFkHQ+wsBDBQGQTwyB"
var_s1 = var_s1 + "dDREMAwNAjQhh+BoMYZA1wNhjEIG8QwwROAmEGCgBQCBgBQHKBoUYDQqiNEGNgGgowQjZA0MMHAZwWBgGsD4I4QBqAfDGJAMgrhAiRBGKQQgPRJAyB8EkJIWQUglGOBg"
var_s1 = var_s1 + "ZYFgGBYAIDsACmRgjgH0B4EYnQljIBiJwOwRh8DZA2CIGAOwDhRGEDQQwLAulGACJwZYOQ2gtDKMQWglwpDeC6AoUIJgPBiGAAACgggoBDAUPEHgJwShIGwDsEYtBnAJ"
var_s1 = var_s1 + "HiBoEQxRgCqAoCkeAbBUAhE2C8EwxBcibBkO0TgjxQjIBkIMIATwDCuGAB0QQEAJAtEKDgUQHgBi0DsJ0SI9AygkAwM0KQ4wIBcAUOEfQPRDgSB8BoZIrg1jNFSP0G4K"
var_s1 = var_s1 + "ACCzA4GMHgWqnjwHYAMDATgDhDHYMATokhpA9AaEAYoFwhDkHmAcHIogUBHAANsDIpR+B0EoEEbIRxUgAH+KMegihIDSB0E2X44BNgRFmAEZINhYhYBQIQYoDgUCFHsI"
var_s1 = var_s1 + "gG1hQZhmDgIwCIoRwA7CQGMdYTxniVCAD4OQGhOiHDAJ4BowQSAFAIIAGAcxHBBGGEwRYVB3gfBmDAOoURIi0BsAYQA0KlA0DMA0IImQrhqH6F4VgFRHCxCtLYKwxgyh"
var_s1 = var_s1 + "YYGFgNYjQQidCCICllpJUjVAUOwLwxQ2gwEwDUcwmBrh6H4F4BY6A02kAaNjMYYADBrH6IkF4FVPiDGgEgAYWwkUIGAGIYoWQpDuDkMUVARwCjgDMMMAIoRBAuAKIkNg"
var_s1 = var_s1 + "HQyBEEIJACBAQA=="
.Add(2,var_s1)
var_s2 = "gBFLBCJwBAEHhEJAADhABQ4Fg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
var_s2 = var_s2 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
var_s2 = var_s2 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n"
var_s2 = var_s2 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSe"
var_s2 = var_s2 + "Q7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjn"
var_s2 = var_s2 + "OIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ"
var_s2 = var_s2 + "9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGS"
var_s2 = var_s2 + "UwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4y"
var_s2 = var_s2 + "mkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkX"
var_s2 = var_s2 + "I/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6"
var_s2 = var_s2 + "BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRA"
var_s2 = var_s2 + "jDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEB"
var_s2 = var_s2 + "wpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQH"
var_s2 = var_s2 + "oFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRh"
var_s2 = var_s2 + "cDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQ"
var_s2 = var_s2 + "uFFBaDOASPcAALgChUDyB4cYtgiiOEyCcEopRCCvEsFIKomQEjnB4L8YgQBfgWEEMgPADhojaDsEcaIlBFiDBqEcRgQQ4ArEOPAfYQhUjmCsMsHIYwShmDmAoDYsRqjx"
var_s2 = var_s2 + "AUAkHwPwDjYH2DsEopA9AaECIoFwhRkjmAcHIUAUBHABFsDMJY+B0goEGLIOozhoj/B2CcPg7hPATGdduAALgiiEBsBkd4Fg2iUCEPsG4RxKDDEoMIGARhDiAHaBcZ4r"
var_s2 = var_s2 + "beBUBQPkYo+gFAdE+AwKAEQhjGEUE8aQ1QYBQFCJwTgww1BDEaAEVQMwjBgGoBkSghhIjSBUEkJI6QagpFIHQPgZgojaBsDgIw8BvBgHYAG3QeAUhFFSMQfonwxg2D6E"
var_s2 = var_s2 + "8ZQcwnjLG6DYCgjoAitB0IEKIyxigUA8DQZoq5tgiBICoIoUQXDjDgG4BouhFZdBQJEDYQw0BsEsMEawRAkBJACQEA=="
.Add(3,var_s2)
endwith
.Object.Background(70) = 0x1000000
.Object.Background(71) = 0x2000000
.Object.Background(72) = 0x3000000
with .FrontFace.CreateTree
.ShowSelection = .F.
.DrawGridLines = -2
.ItemPadding = 16
with .Columns.Add("<c><b>Check")
.Alignment = 0
.Def(0) = .T.
endwith
.Items.ToString = "Check A,Check B,Check C,Check D"
.ItemByIndex(1).State(0) = 1
endwith
.EndUpdate
endwith
|
|
70
|
How can I change the visual appearance for the control's check boxes (3)
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.CheckBoxWidth = 32
.CheckBoxHeight = 29
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
var_s = var_s + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
var_s = var_s + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
var_s = var_s + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQI"
var_s = var_s + "AID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQSC"
var_s = var_s + "mFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIXo"
var_s = var_s + "DGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIBw"
var_s = var_s + "U4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRwS"
var_s = var_s + "kSYhDi0ERCFAECAg"
.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
var_s1 = var_s1 + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
var_s1 = var_s1 + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
var_s1 = var_s1 + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDaC"
var_s1 = var_s1 + "hgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAuE"
var_s1 = var_s1 + "cXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiAw"
var_s1 = var_s1 + "Zn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkkC"
var_s1 = var_s1 + "axA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhpr"
var_s1 = var_s1 + "BQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDGK"
var_s1 = var_s1 + "4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfGA"
var_s1 = var_s1 + "DYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+Bv"
var_s1 = var_s1 + "BPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4FwA"
var_s1 = var_s1 + "IRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg=="
.Add(2,var_s1)
var_s2 = "gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
var_s2 = var_s2 + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
var_s2 = var_s2 + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
var_s2 = var_s2 + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmGA"
var_s2 = var_s2 + "YOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhyF"
var_s2 = var_s2 + "YdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkENg"
var_s2 = var_s2 + "KDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMhG"
var_s2 = var_s2 + "egNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg/"
var_s2 = var_s2 + "iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8T"
var_s2 = var_s2 + "gxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB+"
var_s2 = var_s2 + "BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovBI"
var_s2 = var_s2 + "hODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8Z"
var_s2 = var_s2 + "I1hEChBQAggI"
.Add(3,var_s2)
endwith
.Object.Background(70) = 0x1000000
.Object.Background(71) = 0x2000000
.Object.Background(72) = 0x3000000
with .FrontFace.CreateTree
.ShowSelection = .F.
.DrawGridLines = -2
.ItemPadding = 16
with .Columns.Add("<c><b>Check")
.Alignment = 0
.Def(0) = .T.
endwith
.Items.ToString = "Check A,Check B,Check C,Check D"
.ItemByIndex(1).State(0) = 1
endwith
.EndUpdate
endwith
|
|
69
|
How can I change the visual appearance for the control's check boxes (2)
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.CheckBoxWidth = 44
.CheckBoxHeight = 20
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAADhABJACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSDI"
var_s = var_s + "UBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3OyaN5EbbgZz9P7AMBwLA8EwXBqHYIUG"
var_s = var_s + "JGbhlbTnR7HMhvDIsPDnFqIZhmOZZXjlfh7T7KNByO6LcI3AiDagtWpNTpjf5dV7YNh2LY9UzXNq3bI1W5aUqyAZ9QQpeB0LILYDbRp/FzyO5NNrHG6dZ7oOh1doOUIt"
var_s = var_s + "laP5lgcPA7hEJ47H8SD0l4LwfhOSJ9nOIh9DefBREMKYMDaX59nsVhvlKdBpCGfgIl+L43lGG5lH+YAGlWZw/EYOAVH8ZQXncdBJDwIJGkiGYDlmUh2BKABhEgVJpgWX"
var_s = var_s + "4BA4BxcAeWB1H8KJiAaSJJgiWZWAmVA0CEWIln8JYikWfZpCIXARE0fw3GMRpJnaCRYBGWg6gqI5HgoJxfkYCQFlkX5PhkFYyBAJIImGABpGOWQ1k8OxlAWfZ6BGJA1n"
var_s = var_s + "oRQ+GQeQmEoX4kkkOheG2JQDjYUh+iMGJODUbBjHkbAzg6BxpH4bhsmOdZ6EEGAbmIAR/gSCZWkmfYShwYJYlOH5mnoBYvCSaBFnyDYhlcKAll2AwPAaSggCiWZaD6Ao"
var_s = var_s + "giEc4mBmBpYnePZxGMHw3lUeoGGUN5aH8NJpDoBgDgERg6GGFICh2d4GiWK5cngDgvHqWInG0cIfFyBwpjqLArkcTZVHWV5nGaNhxA6VoVicahajaNo9gUHI2nIdRwBw"
var_s = var_s + "JoOkSMJlFmKpWjWWY2HwPYwm2SxJHIe5sGsYpiGcXpHj6XYxA6NBFAkQBAIC"
.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAADhABB4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSDI"
var_s1 = var_s1 + "UBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3Oy3KKiQy5cABPq/b6wDA8CwXAaHYRiG"
var_s1 = var_s1 + "DYThmF4dRQAG6RcTLWrPFqVZheGYua4CLBxRrINA0LD9DyHJKnaZkDgpUQGN5dTS4GwPQCN3xRWzUyBaQzJfAZV7Lbw3PadX4XRLHcLwfAXFqWaaNZLneh5DouDz3P5Y"
var_s1 = var_s1 + "MuaRBicQ4nl6bpuBwKYRnuUY2jsfg9B0b43hOH5KjucQPnwOpMi+A4pnab5qB0a4znuf57n4f5gAeeJqC4R42mEcg5AoIRBnUfggkgLJiCaRA4AYEoEl+Y4AhcDpaFOG"
var_s1 = var_s1 + "IrBgDYyBwHICmIB5djge4hEilY8g0MotiUZICkMYB6AEIgYDYIh0g+Q5cm+CYjgOfJ6DuDZ2hSWggkESI6DCDJjCkFZDg0Yx4mYJYOmOVoiD8BQhlgfhEgwZRGBoJISy"
var_s1 = var_s1 + "0IgqGoIpDhCJAVCUWQaFMY5fAkYgBD+D5TmyYAlENPBnCsRhFkoYYcmYMAAmkLRHDmGZ9h2Rw4BkeBnFmeZWHSGIYHeQZuHoHonjGboamaVwYmIJwEEYbZNiCaRKAmdx"
var_s1 = var_s1 + "1hyNZChWIQpjcKZYHAKQ6FqHIoh0Vp6hkcBqgoAodikKgmi2LYnmsCohkAXoXkqMojgMIpKh2Gw6lEFAlAEgIA=="
.Add(2,var_s1)
endwith
.Object.Background(70) = 0x1000000
.Object.Background(71) = 0x2000000
with .FrontFace.CreateTree
.ShowSelection = .F.
.DrawGridLines = -2
.ItemPadding = 16
with .Columns.Add("<c><b>Check")
.Alignment = 0
.Def(0) = .T.
endwith
.Items.ToString = "Check A,Check B,Check C,Check D"
.ItemByIndex(1).State(0) = 1
endwith
.EndUpdate
endwith
|
|
68
|
How can I change the visual appearance for the control's check boxes (1)
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.CheckBoxWidth = 37
.CheckBoxHeight = 15
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAADhABOkGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjQAsTRQFocAChEYxXjKBA1SJNUgyj6"
var_s = var_s + "WCQPR7CM5OaDgSABIijJDoGAwIgkUBpGKdBynEYoYxAYySQAIIjaYhoNoJChCM7QHQEBwQDCLUgrGbIbCQHDtW5cFr3DaLEzsXi8FwvK67cr2fp/YBgOBYHbdcJ5Oxkb"
var_s = var_s + "ouPC7Sa0AKKYywGRNFijV4se7MHzzLKHXxZa6UNJhGhaHomCYkYDILhxfDMGx7GqvbBsOxPXj2DZLW7cNIyDS3NyfLqzcBwOZZdrPC6NPzTdSuHQOC43Tqgcb0PDaVgh"
var_s = var_s + "mOVpnHYOAcE6FxzEuCAAGGOw+C2HhzjuZpRGGAAXj8H4zGWZ53mEPAXgyZ43kWZZ4H4L4ehwRp/muTh2l+F5ll8cpZEeeZYHQIEZEoW5MBgNZ9gGGpzioEoCF+GA0kGA"
var_s = var_s + "pYlYnY6iAaBtjaBQfAabYpgMIJWgIGx9BmNhiBsNBikiAZwgWIg2DoMRkAyKJWB+C4fAYGg1DKIw2DAAA6lEFAlAEgI="
.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAADhABC4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjQAsTRQFocAChEYxXjKBA1SJNUgyj6"
var_s1 = var_s1 + "WCQPR7CM5OaDgSABIijJDoGAwIgkUBpGKdBynEYoYxAYySQAIIjaYhoNoJChCM7QHQEBwQDCLUgrGbIbCQHDtW5cFr3DaLKI0J5kUBENhjaBafJ+XzfeBYDgmAYNQbDc"
var_s1 = var_s1 + "JxDC8KwWeQjXYTdyXHilZLaADJcqZVChSwzCafZ5oOK6Bodfq0VY2HabNgnYbNbT7bBrLq6UwWTjZTYZMxuHKMVyLJK/b5wOi3axKBBJWjYOR5Li+MbvNLFCRmO6Obpj"
var_s1 = var_s1 + "gWHxsCiS5vleW5dkCOBBHWPA4F4Rw3kuZpYG0NwbjuD4LAyWhUho9BnmueZ4nof5+BwS40E+Nx9jYeaKAWNhulkF41m8fBfDOVJoDWDJCCALw7g0cphngP5OEMBISH8W"
var_s1 = var_s1 + "g3hI05ckaUYRAAGL8H4PpPgOVJnDUTIiBAKRfkwcZ0BuBAhCeYgVgWXA3AEfRsiGSJlkobIYnAAgYAWDJyEQPgyAgAIFh6CxBjOMJUCyrQckcJxjniahSHMF54gGRoPl"
var_s1 = var_s1 + "4EZsBgOpNAKMhNDGSZnjYOIUmGRo0mwdAAAgFg1hYGIpGiagzgqE5onMOoelgahkgAIZll2U4bCMaZ2AYagnHgbgDFuXQ2GwM4fCiCYtmMapoBgdJaDAaBni2PYiifSR"
var_s1 = var_s1 + "8HQDpqD6AYmEwFxBlIboWnoGoJiUahGHmNonCYZwmGaJwNiKKBriQWRaEmFooA6UxQhsFAdAqDo6iViJYFCLQdCOLQREIUAQICA="
.Add(2,var_s1)
endwith
.Object.Background(70) = 0x1000000
.Object.Background(71) = 0x2000000
with .FrontFace.CreateTree
.ShowSelection = .F.
.DrawGridLines = -2
.ItemPadding = 12
with .Columns.Add("<c><b>Check")
.Alignment = 0
.Def(0) = .T.
endwith
.Items.ToString = "Check A,Check B,Check C,Check D"
.ItemByIndex(1).State(0) = 1
endwith
.EndUpdate
endwith
|
|
67
|
How can I display an item to fit the control's width
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
with .FrontFace.CreateTree
.HasLines = 2
.ItemPadding = 10
.DrawGridLines = -2
.Columns.Add("<c>Default").Alignment = 0
with .Columns.Add("Pos")
.Position = 0
.Alignment = 0
.FormatColumn = "1 rpos ``"
.Width = 24
endwith
with .Columns.Add("Pos")
.Alignment = 0
.FormatColumn = "1 rpos ``"
.Width = 24
endwith
with .Items
with .Add("<r>Root 1")
.Bold = .T.
.Divider = 0
.BackColor = RGB(240,240,240)
.Selectable = .F.
with .Items
.Add("Child 1")
.Add("Child 2")
.Add("Child 3")
endwith
endwith
with .Add("<r>Root 2")
.Bold = .T.
.Divider = 0
.BackColor = RGB(240,240,240)
.Selectable = .F.
with .Items
.Add("Child 1")
.Add("Child 2")
.Add("Child 3")
endwith
endwith
.ExpandAll
endwith
endwith
.EndUpdate
endwith
|
|
66
|
Is it possible to prevent showing the selecting item ( hide )
with thisform.TreeCube1
.BeginUpdate
.CheckBoxWidth = 32
.TexturePicturePath = ""
with .FrontFace.CreateTree
.ShowSelection = .F.
.DrawGridLines = -2
.ItemPadding = 10
with .Columns.Add("<c><b>Check")
.Alignment = 0
.Def(0) = .T.
endwith
.Items.ToString = "Item A,Item B,Item C,Item D"
.ItemByIndex(1).State(0) = 1
endwith
.EndUpdate
endwith
|
|
65
|
Is it possible to provide a few radio-buttons only, not for entire column
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
with .FrontFace.CreateTree
.ShowSelection = .F.
.DrawGridLines = -2
.ItemPadding = 10
with .Columns.Add("<c><b>Def")
.Alignment = 0
.Def(48) = 4
endwith
with .Items
.Add("Item 1")
with .Add("Radio 1")
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1234
endwith
with .Add("Radio 2")
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1234
.State(0) = .T.
endwith
with .Add("Radio 3")
.HasRadioButton(0) = .T.
.RadioGroup(0) = 1234
endwith
.Add("Item 1")
endwith
endwith
.EndUpdate
endwith
|
|
64
|
Is it possible to provide a few check box only, not for entire column
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
with .FrontFace.CreateTree
.ShowSelection = .F.
.DrawGridLines = -2
.ItemPadding = 10
with .Columns.Add("<c><b>Def")
.Alignment = 0
.Def(48) = 4
endwith
with .Items
.Add("Item 1")
.Add("Check 1").HasCheckBox(0) = .T.
with .Add("Check 2")
.HasCheckBox(0) = .T.
.State(0) = 1
endwith
.Add("Item 1")
endwith
endwith
.EndUpdate
endwith
|
|
63
|
How can I show radio-buttons for the entire column
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
with .FrontFace.CreateTree
.ShowSelection = .F.
.DrawGridLines = -2
.ItemPadding = 10
with .Columns.Add("<c><b>Radio")
.Alignment = 0
.Def(1) = .T.
endwith
.Items.ToString = "Item A,Item B,Item C,Item D"
.ItemByIndex(1).State(0) = 1
endwith
.EndUpdate
endwith
|
|
62
|
How can I show check-boxes for the entire column
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
with .FrontFace.CreateTree
.ShowSelection = .F.
.DrawGridLines = -2
.ItemPadding = 10
with .Columns.Add("<c><b>Check")
.Alignment = 0
.Def(0) = .T.
endwith
.Items.ToString = "Item A,Item B,Item C,Item D"
.ItemByIndex(1).State(0) = 1
endwith
.EndUpdate
endwith
|
|
61
|
How do I select programmatically a value in the calendar
with thisform.TreeCube1
.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
.Object.Background(21) = RGB(1,0,0)
with .FrontFace.CreateCalendar
.ForeColor = RGB(255,255,255)
.NonworkingDays = 0
.Value = {^2016-12-31}
endwith
endwith
|
|
60
|
How do I select programmatically a caption in the list
with thisform.TreeCube1
.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\JapanGarden"
with .FrontFace.CreateTree
.ItemPadding = 40
.HeaderVisible = .F.
.ForeColor = RGB(255,255,255)
.Items.ToString = ",<sha \;\;0><font \;18>Garden <b>A,<sha \;\;0><font \;18>Garden <b>B,<sha \;\;0><font \;18>Garden <b>C,"
.Caption = "Garden B"
endwith
endwith
|
|
59
|
How do I select programmatically a value in the list
with thisform.TreeCube1
.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\JapanGarden"
with .FrontFace.CreateTree
.ItemPadding = 40
.HeaderVisible = .F.
.ForeColor = RGB(255,255,255)
.Items.ToString = ",<sha \;\;0><font \;18>Garden <b>A,<sha \;\;0><font \;18>Garden <b>B,<sha \;\;0><font \;18>Garden <b>C,"
.Value = "<sha ;;0><font ;18>Garden <b>B"
endwith
endwith
|
|
58
|
How can I show solid lines instead
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.HasButtons = 1
with .FrontFace.CreateTree
.ItemPadding = 10
.HeaderVisible = .F.
.HasLines = 1
.LinesAtRoot = 2
.GridLineStyle = 48
.DrawGridLines = -1
.Columns.Add("").Alignment = 0
with .Columns.Add("")
.Alignment = 2
.FormatColumn = "lower(%0) right 1"
endwith
with .Items
with .Add("Root <b>1")
with .Items
.Add("Child 1")
.Add("Child 2")
.Add("Child 3")
endwith
.Expanded = .T.
endwith
with .Add("Root <b>2").Items
.Add("Child 1")
.Add("Child 2")
.Add("Child 3")
endwith
endwith
endwith
.EndUpdate
endwith
|
|
57
|
How can I select the entire item rather than the column only
with thisform.TreeCube1
.BeginUpdate
with .FrontFace.CreateTree
.FullRowSelect = .T.
.Columns.Count = 3
with .Columns.Item(0)
.Caption = "<b><c>Pos"
.Alignment = 0
.FormatColumn = "0 pos ``"
.Width = 64
endwith
.Items.Count = thisform.TreeCube1.FrontFace.FaceTree.VisibleItemsCount
.SelectItem = 1
endwith
.EnsureVisibleFace(0)
.EndUpdate
endwith
|
|
56
|
How can I change the visual appearance of the control's header bar
with thisform.TreeCube1
.BeginUpdate
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
with .FrontFace.CreateTree
.BackColorHeader = 0x1000000
.Columns.Count = 5
endwith
.EnsureVisibleFace(0)
.EndUpdate
endwith
|
|
55
|
How can I add multiple-columns, so the horizontal scroll bar is displayed
with thisform.TreeCube1
.BeginUpdate
with .FrontFace.CreateTree
.ColumnAutoResize = .F.
.Columns.Count = 20
endwith
.EnsureVisibleFace(0)
.EndUpdate
endwith
|
|
54
|
How can I add multiple-columns
with thisform.TreeCube1
.BeginUpdate
with .FrontFace.CreateTree
.ItemPadding = 10
.LinesAtRoot = 2
.DrawGridLines = -2
.Columns.Add("Default").Alignment = 0
with .Columns.Add("Pos")
.Position = 0
.Alignment = 0
.FormatColumn = "1 rpos ``"
.Width = 24
endwith
with .Items
with .Add("Root 1").Items
.Add("Child 1")
.Add("Child 2")
.Add("Child 3")
endwith
with .Add("Root 2").Items
.Add("Child 1")
.Add("Child 2")
.Add("Child 3")
endwith
.ExpandAll
endwith
endwith
.EndUpdate
endwith
|
|
53
|
How do I add a hierarchy
*** FaceTreeExpandItem event - Notifies that an item has been expanded/collapsed into a face of tree type. ***
LPARAMETERS Tree,Item
with thisform.TreeCube1
DEBUGOUT( Item )
endwith
with thisform.TreeCube1
.BeginUpdate
with .FrontFace.CreateTree
.ExpandOnDblClick = .T.
.ItemPadding = 10
.HeaderVisible = .F.
.LinesAtRoot = 2
.DrawGridLines = -2
.Columns.Add("").Alignment = 0
with .Items
with .Add("Root 1").Items
.Add("Child 1")
.Add("Child 2")
.Add("Child 3")
endwith
with .Add("Root 2").Items
.Add("Child 1")
.Add("Child 2")
.Add("Child 3")
endwith
.ExpandAll
endwith
endwith
.EndUpdate
endwith
|
|
52
|
How can I display a calendar control
*** FaceCalendarValueChanged event - Notifies that the user selects a new date/value into a face of the calendar type. ***
LPARAMETERS Calendar
with thisform.TreeCube1
DEBUGOUT( Calendar )
endwith
with thisform.TreeCube1
with .FrontFace.CreateCalendar
.Value = {^2001-1-2}
.MonthNames = .LocMonthNames()
.WeekDays = .LocWeekDays(2)
.FirstWeekDay = .LocFirstWeekDay && .LocFirstWeekDay
.AutoSize = 1
endwith
endwith
|
|
51
|
How can I change the picture/texture on the faces
with thisform.TreeCube1
.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Earth"
endwith
|
|
50
|
How can I get ride of the default texture
with thisform.TreeCube1
.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
.TexturePicturePath = ""
endwith
|
|
49
|
How do I get ride of grid lines, and the top border it shows on the tree face
with thisform.TreeCube1
with .FrontFace.CreateTree
.ItemPadding = 20
.HeaderVisible = .F.
.DrawGridLines = 0
with .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
endwith
endwith
endwith
|
|
48
|
How can I add a list of items (method 2)
with thisform.TreeCube1
with .FrontFace.CreateTree.Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
endwith
endwith
|
|
47
|
How can I add a list of items (method 1)
with thisform.TreeCube1
with .FrontFace.CreateTree
.Items.ToString = "Item A,Item B,Item C"
endwith
endwith
|
|
46
|
Fisheye Calendar View - Year
*** FaceTreeValueChanged event - Notifies that the user selects a new item/column/value into a face of the tree type. ***
LPARAMETERS Tree
*** f.FaceCalendar.Year = Tree.Caption
with thisform.TreeCube1
f = .Face(.VisibleFace) && .VisibleFace
f = .FrontFace
with f.Neighbor(1).FaceCalendar
.Date = f.FaceCalendar.Date
.Move(1)
endwith
with f.Neighbor(2).FaceCalendar
.Date = f.FaceCalendar.Date
.Move(2)
endwith
with f.Neighbor(2).Neighbor(2).FaceCalendar
.Date = f.FaceCalendar.Date
.Move(2)
.Move(2)
endwith
endwith
*** Move event - Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction. ***
LPARAMETERS RotateDir,FromFace,ToFace
with thisform.TreeCube1
f = .Face(ToFace) && ToFace
f.FaceCalendar.SelDate = thisform.TreeCube1.Face(FromFace).FaceCalendar.SelDate && FromFace
.Face(FromFace).FaceCalendar.UnselectDate && FromFace
with f.Neighbor(1).FaceCalendar
.Date = f.FaceCalendar.Date
.Move(1)
endwith
with f.Neighbor(2).FaceCalendar
.Date = f.FaceCalendar.Date
.Move(2)
endwith
endwith
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.EnsureVisibleFaceMargin = 32
.EnsureVisibleFaceOnDblClick = .F.
.EnsureVisibleFaces = "0,2,1,3,4"
with .FrontFace.CreateCalendar
.Date = {^2016-1-1}
.AutoSize = 1
.MaxMonthX = 1
.MaxMonthY = 1
.ShowTodayButton = .F.
.FirstWeekDay = 1
.SelBackColor = 0x2000000
.SelForeColor = RGB(0,0,0)
.ShowNonMonthDays = .T.
endwith
d = thisform.TreeCube1.FrontFace.FaceCalendar.Date
with .LeftFace.CreateCalendar
.Date = d
.Move(1)
.AutoSize = 1
.MaxMonthX = 1
.MaxMonthY = 1
.ShowTodayButton = .F.
.FirstWeekDay = 1
.SelBackColor = 0x2000000
.SelForeColor = RGB(0,0,0)
.ShowNonMonthDays = .T.
endwith
with .RightFace.CreateCalendar
.Date = d
.Move(2)
.AutoSize = 1
.MaxMonthX = 1
.MaxMonthY = 1
.ShowTodayButton = .F.
.FirstWeekDay = 1
.SelBackColor = 0x2000000
.SelForeColor = RGB(0,0,0)
.ShowNonMonthDays = .T.
endwith
with .BottomFace.CreateCalendar
.Date = d
.Move(2)
.Move(2)
.AutoSize = 1
.MaxMonthX = 1
.MaxMonthY = 1
.ShowTodayButton = .F.
.FirstWeekDay = 1
.SelBackColor = 0x2000000
.SelForeColor = RGB(0,0,0)
.ShowNonMonthDays = .T.
endwith
with .TopFace
with .CreateTree
.ItemPadding = 20
.SelBackColor = 0x2000000
.SelForeColor = RGB(0,0,0)
.Columns.Count = 5
.HeaderVisible = .F.
.Items.Count = thisform.TreeCube1.TopFace.FaceTree.VisibleItemsCount
.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Caption = thisform.TreeCube1.FrontFace.FaceCalendar.Year
endwith
endwith
var_s = "gBFLBCJwBAEHhEJAADhABXgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDIAkRRdDSOYDmGQYDiCIoRShOMIjHL"
var_s = var_s + "UXxtDaIZZmWCQCglf5HABRb7xPLoARTAaeJKoWboJAiGwLQjQUyABSdEyRJSLYhGIZRFqKZIRDSMFiwTZNVypAaIYqqaA6qzfJymabAAZJEradozTLIE7xVLEVYNKCmZ"
var_s = var_s + "CwMAAcgmEQgSTAda2BYELTzECoYDGCrcKpWCaNQLWEB5BQeJSNL6kIqsazgAqPLJtWhaVwxXIEI5AAC5QA0S7pOxeO6JbRGdZbNrlbz1PTMaazTgYDzmWqiYxxMraXxS"
var_s = var_s + "lmMprGsIpVl2LRnD0A5bnSN49mAARAlIYw6B0ThGFGDIBG0QghBMfZRiGNAkFECZoG6YQBgiOgCmuRRSg6GAElWAJMkgFgGgGYIIAyVQ7GCRhUAAOQhAMBgSDWIRDG4F"
var_s = var_s + "g3CGCBmBmBYNjgUJWDIIgIECZBCEsKIUkqCZhiiJgqgaYRjB4LguiMBAkiqDLenYrBjgiZg6gGIwyioMoNCAWJqEKEJjkiTg/CqIxZA4SoNmQWJ5AODxMlkRJehSZRJF"
var_s = var_s + "YVoVmUEw2D2EZlhkXhehfURuE+DJllkfhmhUJgZBoYwqiWEx+G6G5nAmRhyhoZJgAIUIUGcKZmHqHQlkmYh6h+Zp5nIawzigQ4CgaIZogoJoKiEDJpgodoMmiSgqhKJN"
var_s = var_s + "xDoPQzmmA4GhqJppkodoeiYDJ6FpaQpmqFomigKgiiqJIpiqShuiiGoonqKoZisapaj4dYl3WCo6i6a5KnaPotiQeoCj6MJsEsAhrDQLIDg6SoymySw2k6MgNAqJpQjO"
var_s = var_s + "LRLFaUI0iyGxWlq/p6kIPY0m2Oxul2LZjDMRpmgiLoLiaaoIi4YxGinoY7kaauhnuGJlj2b4Lmaeo+m8Sx6mWOZhAubwCj2bpLhqKYJkyKTnECThYgoVJCCiYpPBIL5x"
var_s = var_s + "EMLwWjsTQsGcGpGi6XBYkuRQLvcIhCE8DIWDCSZLiKdwqC+MpMjcLZKguXIcjiTJyFOQYnD+TYMmSLZOkmHJ3D6T50AybItiGYJji2MwABAECAg="
.VisualAppearance.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAADhABOkGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEYFDSAUIjKKkIhkGIYZBGQBJDjWGgyQjOEByDI"
var_s1 = var_s1 + "MRwjE4YBpkGYYJDSIYHTZIUzTJAdGSVJKNKAoKCaEg2R4qsZCCKwUgmTo9VBJU9CFi6ZIRDSMFiyXZUIxHEKnIqrOjbBjaUpYABLErTBKUSzrEadAAwGbKJj+VJBULMV"
var_s1 = var_s1 + "D2BDWGABOYAKarWa7fhaUqJUTVdI1VBOIYmADPcaqCxrLgMMpnWxpN42bjdPY7V6Bc7yXJsHimK5GUTQA4aFIENydJzINjsKBKBriLIybpeFr7BiME4/YLhAA0vZNUYs"
var_s1 = var_s1 + "g0XguBqaAeEOIYUjqYQgGCCBJECUhjDoHROEYWooAGTRMCEEx9lGIY0CQUZOnuZQDBEdYFkeI5+H+igGAKAJgEgFgGgGUAzn4CoCmCSA2A6A5hAgCgQgSYRIE4EoFGGC"
var_s1 = var_s1 + "BiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAYLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ1n4OpWmQDQBICA=="
.VisualAppearance.Add(2,var_s1)
.Object.Background(8) = 0x1000000
.Object.Background(7) = RGB(250,250,250)
.Object.Background(6) = RGB(250,250,250)
.Object.Background(9) = 0x2000000
.Object.Background(31) = RGB(255,255,255)
.EnsureVisibleFace(0)
.EndUpdate
endwith
|
|
45
|
How can I add a FaceTree object ( method 2 )
with thisform.TreeCube1
with .FrontFace
with .CreateTree
.Items.ToString = "Item <b>1,Item <b>2,Item <b>3"
.SelectItem = 1
endwith
endwith
endwith
|
|
44
|
How can I add a FaceTree object ( method 1 )
with thisform.TreeCube1
with .FrontFace
.Type = 1
with .FaceTree
.Items.ToString = "Item <b>1,Item <b>2,Item <b>3"
.SelectItem = 1
endwith
endwith
endwith
|
|
43
|
How can I add a FaceCalendar object ( method 2 )
with thisform.TreeCube1
with .FrontFace
with .CreateCalendar
.AutoSize = 1
.Value = {^1971-12-31}
endwith
endwith
endwith
|
|
42
|
How can I add a FaceCalendar object ( method 1 )
with thisform.TreeCube1
with .FrontFace
.Type = 2
with .FaceCalendar
.AutoSize = 1
.Value = {^1971-12-31}
endwith
endwith
endwith
|
|
41
|
How can I add a FacePicture object ( method 2 )
with thisform.TreeCube1
.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
with .FrontFace
with .CreatePicture
.Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 48
.Width = "2 * pwidth"
.Height = "2 * pheight"
.Top = "122"
.Left = "46"
endwith
endwith
endwith
|
|
40
|
How can I add a FacePicture object ( method 1 )
with thisform.TreeCube1
.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
with .FrontFace
.Type = 3
with .FacePicture
.Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 48
.Width = "2 * pwidth"
.Height = "2 * pheight"
.Top = "122"
.Left = "46"
endwith
endwith
endwith
|
|
39
|
How can I prevent bringing a specified face into the front
with thisform.TreeCube1
.EnsureVisibleFaces = "0"
endwith
|
|
38
|
Is it possible to show one face opaque, while other semi-transparent
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.DefaultFaceType = 2
.TransparentContent = 75
.FrontFace.TransparentContent = 0
.EndUpdate
endwith
|
|
37
|
How can I add a Calendar control
with thisform.TreeCube1
.BeginUpdate
.Margins = "0,0,0,0"
with .FrontFace
.Type = 2
with .FaceCalendar
.ShowNonMonthDays = .T.
.AutoSize = 1
endwith
endwith
.EndUpdate
endwith
|
|
36
|
Is it possible to init faces at once
*** InitFaceContent event - Notifies your application that a face changes its type, so you can initialize its content. ***
LPARAMETERS Face
*** Face.FaceContent.ShowTodayButton = False
with thisform.TreeCube1
.DefaultFaceType = 2
endwith
|
|
35
|
How can I disable zoom when rolling the mouse wheel
with thisform.TreeCube1
.OnMouseWheel = 0
endwith
|
|
34
|
Fisheye Calendar View - LR
*** Move event - Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction. ***
LPARAMETERS RotateDir,FromFace,ToFace
with thisform.TreeCube1
.FrontFace.FaceCalendar.Move(RotateDir) && RotateDir
with .LeftFace.FaceCalendar
.Date = thisform.TreeCube1.FrontFace.FaceCalendar.Date
.PrevMonth()
endwith
with .RightFace.FaceCalendar
.Date = thisform.TreeCube1.FrontFace.FaceCalendar.Date
.NextMonth()
endwith
endwith
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQ1DBJQwwXBIZhgGIBIRgUBJCjWGodQLOEgwHI"
var_s = var_s + "ERQjEyUJAmCYhRiCB42TrNIJwSBUPwTGKBXZDQRAApKVIWUAMFBVg7GRYcVxIUgAdDYMyZJyBa4qapaTheEQyDSJNr3DCMUTlBK7IhsKCaLhqZIDUzGVpWbZdMRlFCVJ"
var_s = var_s + "YgOTqDgQMIkUhSE5TVIEew3H7DaymKrKeobFoaZ6AAL3ZBNTR5J6EbTwWRcZpuRJGWDGdhwTocB5MADbZAwOpNLgOc53TjdF4DBwAATzJCQL50KCbfziG67WxVeqQJgi"
var_s = var_s + "ggNpOAwbZjDGHoGC2IZAgAORbFiPxDHoAIsmIewdiGHpHEGTIzm2Nocn0TgSluBpgnEbgcF4PAPnkSQAA+c58AAVwcheiRzF4NIJiofYWgUJAIEIRQBiQYwdAcUZIGUV"
var_s = var_s + "5QDKCAHECRAhDYGhGgMZAkCgaRiEaHAYEWRpIG2ERFkIQBwm2CxiniOgwgyYpjmoNg3g2YxwkwwYzCiSwyCOaQCD8MxjkibJLDMDJDCoPgyEyMwskkNpNjMaJ1hSYxIk"
var_s = var_s + "YVoVEACRWFqC4OBOCJgCkShSgiCQiEgQZ8gAHpIAIBB8hoZo5iobIbmaaYqGZWByCCAwnkoAhwlQNQNCkbhXguJYYkqAoVguQpwjsIxIlIJNHksE4kmoOhgSsEokmkSh"
var_s = var_s + "UnCJZLzYOwigiIgYjULYLDmegwiAZ5zjSNwuAsYg8g8IplAMZoRhST1UCMJ5IGIqoiEiIgUgoIpIGqbo9i8JgyBaNQggmUh4hoOBOAOAoRDoLJCFSFQkgsQpQjGH4qEi"
var_s = var_s + "QJJDITB6CCCQ7G2ShEjsLwLhGIBpBiBIhCwRAQEQIJsEIEJDkuLptjsLphAwRI7kOMQkEoEJFnGABaiyCZ6ESeI/kkAhAg2IRLikYgwDoToTiCEQkgiUxElEM5pBIbIc"
var_s = var_s + "CYBQhEwTASASGB0E4EZEmEPBIkccZ8HsIJInILB4E2RpvasSwTAQUgIgMH5pVGYg4GuYx8l8NxqDiQoFC4SYSGiFokEyYw4kwFhF8GSQSkQPITCGUp0i0NwllKcoxBcJ"
var_s = var_s + "wRkqEooiaJBLCKSIvCp54aDYPoAAORJyDwSWUhENANAwQgBB6R4xlqcgPDSbQzE+XB3EweBGBGRABigawZE6GcLoHxCAQFICkAIvhOhgACM4OYnBhjQHsDoT4Zxsj0DY"
var_s = var_s + "JsEwwBhJgMIOsXIcwOC+CCJMRA2BgCFFYJUegiBzA6AaMcDLuAAAdBiMUBQDWyhuC2JYTQiBMAmEQNwaw5xtjzB6MAPAHhDDEHyD4JwUgRiAHEDUTgNggABHEJwAYkBz"
var_s = var_s + "A2GkDMAIRAQAIBCM8No3ERC4D4B8Q4FxygiBwI4IYbxIjjGyB4c4mQACUXaD8dYhh/CfGqNwNIXhfizCyPsPw7xfjkD4FQRo+R7h9D8K8bI3A+jeGoAIfAnxNjhD3JYL"
var_s = var_s + "IvxDj2H8KAIYcQ/ivGCP8X4JxGD9AGIgNgUgRCECgIkaAegHiBFmPkQYTx4jsB+OEf4AAPAzBkBwEI1AdCHAqCIFYBQwCoAQIECgHwag4BuAIMA4AbgUBEIgJ4KQIDlA"
var_s = var_s + "GIcg4HBRkyAOHAdwHBqCIGKBgUYCAVAFCgJwagYQ+AvD0YAKYCgwhGH4F4eYxg3ijFQEEWQ8RqDfEOGgdhUBYA2AMHYdwEARBMAOGkJgpAWiFGAKoGgRhIDQCkCEcAPQ"
var_s = var_s + "DhBGYDkQ4KAABrHaHAKYCwAhgBWKAEAnw5jOGaNoYwKB+DmA0JwFYBxhAsCMAgOoIgYjGBwMUCYAgyBKAeDEdAPBqggGsBoYYVAihICiOgHoRxRCRl6PQHgLhAB3A+CM"
var_s = var_s + "BYmAuhgHZRgaAzhbgHDUJECQYgoBIAYFERgMQMjKEGBUUQtAqgKBiEoFAWREDjA4CsBktw4B/AUMEdARwEgBAMFAHYhhTDnFMAMdADwwjwB2IweIngZhUEUNECwSwKBN"
var_s = var_s + "FePEeILApCyG4B0QQOAkAIGCHIFwxRdCRA+LMRwOwFDQH8B+B4aQ3huGYCIQYoA7AMHALgGwBwwDwA0EwEAggMhDBgGACAAgAA+BMUgHoqABCRCSKMEgRRECxAcLIIw+"
var_s = var_s + "7RhoGCNMBwMQUgrAINATYEh5hZCQI8PQAQHDHBIM4DM9wwiMACIkCA6BwDACOGMFQEQHh6BYKQLQ/B/ARFEDgIoJRojAFqBUCQLgpDjF6J0U4MQnT5BGJADQ8w1BxEeO"
var_s = var_s + "VTgRx6hBE2EMOAbhGihCyC0E42A+AWAEMQK4DhkCzCYEcNQ1RQhqAcKAR44RnA6AODgWoFhRDMCGAgMg1QZgDDQG4BoIRMAzEMBAZwGgBgVDIAwEIqAagGCAPIDwQxMC"
var_s = var_s + "ECYLUFgVhdChHyF0dQghRgdDIDAAgmhBAGAkAIPATgRBAoqB4mYYAWAQBmLAiQmgrj7AHXgFABhYD2B8MULAVAqAABYxMAACAfDHCwJsC4Xw2DtE0DwCwZhlCeA2CcMA"
var_s = var_s + "rBkgBICA"
.Add(1,var_s)
.Add(2,"CP:1 -6 0 6 0")
endwith
.Object.Background(8) = 0x2000000
.Object.Background(21) = RGB(255,255,255)
.Object.Background(7) = RGB(240,240,240)
.Object.Background(6) = RGB(240,240,240)
.Object.Background(9) = 0x2000000
.Object.Background(31) = RGB(255,255,255)
.AllowRotate = 3 && RotateEnum.exRotateRight Or RotateEnum.exRotateLeft
.EnsureVisibleFaceOnDblClick = .F.
.DefaultFaceType = 2
.FrontFace.FaceCalendar.Date = {^2016-1-1}
.TopFace.Type = 0
.DownFace.Type = 0
.AlwaysEnsureVisibleFace = 17 && EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or EnsureVisibleFaceEnum.exFitToEnsureFace
.EndUpdate
endwith
|
|
33
|
Fisheye Calendar View - S
*** FaceCalendarDateChanged event - Notifies that the user browses for a new date into a face of calendar type. ***
LPARAMETERS Calendar
with thisform.TreeCube1
currentDate = .FrontFace.FaceCalendar.Date
with .LeftFace.FaceCalendar
.Date = currentDate
.PrevMonth()
endwith
with .RightFace.FaceCalendar
.Date = currentDate
.NextMonth()
endwith
with .TopFace.FaceCalendar
.Date = currentDate
.PrevYear()
endwith
with .DownFace.FaceCalendar
.Date = currentDate
.NextYear()
endwith
endwith
*** InitFaceCalendar event - Notifies your application that a face changes its type to exFaceCalendar. ***
LPARAMETERS Calendar
with thisform.TreeCube1
with Calendar
endwith
endwith
*** Move event - Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction. ***
LPARAMETERS RotateDir,FromFace,ToFace
with thisform.TreeCube1
.FrontFace.FaceCalendar.Move(RotateDir) && RotateDir
endwith
with thisform.TreeCube1
.BeginUpdate
var_s = "gBFLBCJwBAEHhEJAADhABXgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDIAkRRdDSOYDmGQYDiCIoRShOMIjHL"
var_s = var_s + "UXxtDaIZZmWCQCglf5HABRb7xPLoARTAaeJKoWboJAiGwLQjQUyABSdEyRJSLYhGIZRFqKZIRDSMFiwTZNVypAaIYqqaA6qzfJymabAAZJEradozTLIE7xVLEVYNKCmZ"
var_s = var_s + "CwMAAcgmEQgSTAda2BYELTzECoYDGCrcKpWCaNQLWEB5BQeJSNL6kIqsazgAqPLJtWhaVwxXIEI5AAC5QA0S7pOxeO6JbRGdZbNrlbz1PTMaazTgYDzmWqiYxxMraXxS"
var_s = var_s + "lmMprGsIpVl2LRnD0A5bnSN49mAARAlIYw6B0ThGFGDIBG0QghBMfZRiGNAkFECZoG6YQBgiOgCmuRRSg6GAElWAJMkgFgGgGYIIAyVQ7GCRhUAAOQhAMBgSDWIRDG4F"
var_s = var_s + "g3CGCBmBmBYNjgUJWDIIgIECZBCEsKIUkqCZhiiJgqgaYRjB4LguiMBAkiqDLenYrBjgiZg6gGIwyioMoNCAWJqEKEJjkiTg/CqIxZA4SoNmQWJ5AODxMlkRJehSZRJF"
var_s = var_s + "YVoVmUEw2D2EZlhkXhehfURuE+DJllkfhmhUJgZBoYwqiWEx+G6G5nAmRhyhoZJgAIUIUGcKZmHqHQlkmYh6h+Zp5nIawzigQ4CgaIZogoJoKiEDJpgodoMmiSgqhKJN"
var_s = var_s + "xDoPQzmmA4GhqJppkodoeiYDJ6FpaQpmqFomigKgiiqJIpiqShuiiGoonqKoZisapaj4dYl3WCo6i6a5KnaPotiQeoCj6MJsEsAhrDQLIDg6SoymySw2k6MgNAqJpQjO"
var_s = var_s + "LRLFaUI0iyGxWlq/p6kIPY0m2Oxul2LZjDMRpmgiLoLiaaoIi4YxGinoY7kaauhnuGJlj2b4Lmaeo+m8Sx6mWOZhAubwCj2bpLhqKYJkyKTnECThYgoVJCCiYpPBIL5x"
var_s = var_s + "EMLwWjsTQsGcGpGi6XBYkuRQLvcIhCE8DIWDCSZLiKdwqC+MpMjcLZKguXIcjiTJyFOQYnD+TYMmSLZOkmHJ3D6T50AybItiGYJji2MwABAECAg="
.VisualAppearance.Add(1,var_s)
.Object.Background(8) = 0x1000000
.Object.Background(7) = RGB(250,250,250)
.Object.Background(6) = RGB(250,250,250)
.Object.Background(9) = 0x2000000
.Object.Background(31) = RGB(255,255,255)
.TexturePicturePath = ""
.DefaultFaceType = 2
.AlwaysEnsureVisibleFace = 17 && EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or EnsureVisibleFaceEnum.exFitToEnsureFace
.FrontFace.FaceCalendar.Date = {^2016-1-1}
.EndUpdate
endwith
|
|
32
|
While navigating the Down/Top faces, I am not able to rotate it. Is it possible (ensure always front face)
with thisform.TreeCube1
.EnsureVisibleFace(5,.F.)
.AlwaysEnsureVisibleFace = 17 && EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or EnsureVisibleFaceEnum.exFitToEnsureFace
endwith
|
|
31
|
How can I show a single month only
with thisform.TreeCube1
with .FrontFace
.Type = 2
with .FaceCalendar
.Date = {^2001-1-1}
.SelDate = .Date
.MinDate = {^2001-1-1}
.MaxDate = {^2001-1-31}
.FirstWeekDay = 1
.ShowWeeks = .F.
.ShowNonMonthDays = .F.
.ShowTodayButton = .F.
.MaxMonthX = .MinMonthX
.MaxMonthY = .MinMonthY
endwith
endwith
endwith
|
|
30
|
How can I show date calendar
with thisform.TreeCube1
with .FrontFace
.Type = 2
.FaceCalendar.ShowNonMonthDays = .F.
endwith
endwith
|
|
29
|
How can I prevent dbl click to ensure the clicked face is visible
with thisform.TreeCube1
.EnsureVisibleFaceOnDblClick = .F.
endwith
|
|
28
|
How can I put a picture into the center of the texture but behind the control's face
with thisform.TreeCube1
.BeginUpdate
.Object.HTMLPicture("logo") = "c:\exontrol\images\zipdisk.gif"
with .FrontFace
.Type = 2
.FaceCalendar.ShowTodayButton = .F.
.ExtraTitle("extra",0) = "<img>logo</img>"
.ExtraTitle("extra",3) = 0
.ExtraTitle("extra",4) = 0
.ExtraTitle("extra",4) = 0
.ExtraTitle("extra",5) = "(width-twidth)/2"
.ExtraTitle("extra",6) = "(height-theight)/2"
.ExtraTitle("extra",7) = "twidth"
.ExtraTitle("extra",8) = "theight"
.ExtraTitle("extra",9) = 1
endwith
.FrontFace.FaceCalendar.ForeColor = RGB(255,0,0)
.EndUpdate
endwith
|
|
27
|
How do I put my logo on the right-bottom side of the face (method 2), while I using the face
with thisform.TreeCube1
.BeginUpdate
.Object.HTMLPicture("logo") = "c:\exontrol\images\zipdisk.gif"
with .FrontFace
.Type = 2
.FaceCalendar.ShowTodayButton = .F.
.ExtraTitle("extra",0) = "<r><img>logo</img>"
.ExtraTitle("extra",3) = 2
.ExtraTitle("extra",4) = 0
endwith
.EndUpdate
endwith
|
|
26
|
Is it possible to show two or more titles/extra titles
with thisform.TreeCube1
.BeginUpdate
with .FrontFace
.Type = 2
.FaceCalendar.ShowTodayButton = .F.
.Title(0) = "<font ;18><c><fgcolor=0000FF>This is the title"
.ExtraTitle("extra",0) = "<font ;18><c><fgcolor=FF0000>This is the extra title"
.ExtraTitle("extra",3) = 2
endwith
.EndUpdate
endwith
|
|
25
|
How can I display the title at the left side of the face
with thisform.TreeCube1
.BeginUpdate
with .FrontFace
.Title(0) = "<font ;18><c>This is the title"
.Type = 2
.FaceCalendar.ShowTodayButton = .F.
.Title(3) = 4
endwith
.EndUpdate
endwith
|
|
24
|
How can I display the title at the bottom side of the face
with thisform.TreeCube1
.BeginUpdate
with .FrontFace
.Title(0) = "<font ;18><c>This is the title"
.Type = 2
.FaceCalendar.ShowTodayButton = .F.
.Title(3) = 2
.Title(4) = 0
endwith
.EndUpdate
endwith
|
|
23
|
Can I display the title to a different position
with thisform.TreeCube1
.BeginUpdate
with .FrontFace
.Title(0) = "<font ;18><c><bgcolor=FFFFFF>This is the title"
.Type = 2
.Title(9) = -1
.Title(6) = "(height-theight)/2"
endwith
.EndUpdate
endwith
|
|
22
|
How can I display a title for a face
with thisform.TreeCube1
.BeginUpdate
with .FrontFace
.Title(0) = "<font ;18><c>This is the title"
.Type = 2
endwith
.EndUpdate
endwith
|
|
21
|
Can I put the picture at specified position
with thisform.TreeCube1
.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
with .FrontFace
.Type = 3
with .FacePicture
.Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 48
.Width = "2 * pwidth"
.Height = "2 * pheight"
.Top = "122"
.Left = "46"
endwith
endwith
endwith
|
|
20
|
How do I put my logo on the right-bottom side of the face (method 1)
with thisform.TreeCube1
.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
with .FrontFace
.Type = 3
with .FacePicture
.Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 34
.Width = "width"
.Height = "height"
.Top = "0"
.Left = "0"
endwith
endwith
endwith
|
|
19
|
Can I use any picture on the background's faces
with thisform.TreeCube1
.BeginUpdate
.TexturePicturePath = ""
.Face(0).Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.Face(1).Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
.Face(2).Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
.Face(3).Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
.Face(4).Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
.Face(5).Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.AlwaysEnsureVisibleFace = 0
.EndUpdate
endwith
|
|
18
|
Is it possible to show the cube's texture more transparent, so the faces are more visible
with thisform.TreeCube1
.BeginUpdate
.Transparent = 80
.TexturePicturePath = "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
.AlwaysEnsureVisibleFace = 0
.IdentifyFace = 4
with .TopFace
.Type = 2
with .FaceCalendar
.Date = {^2016-2-1}
.MaxMonthX = 1
.MaxMonthY = 1
endwith
endwith
with .LeftFace
.Type = 2
with .FaceCalendar
.Date = {^2016-3-1}
.MaxMonthX = 1
.MaxMonthY = 1
endwith
endwith
with .FrontFace
.Type = 2
with .FaceCalendar
.Date = {^2016-4-1}
.MaxMonthX = 1
.MaxMonthY = 1
endwith
endwith
with .RightFace
.Type = 2
with .FaceCalendar
.Date = {^2016-5-1}
.MaxMonthX = 1
.MaxMonthY = 1
endwith
endwith
.ShowAs = 0
.AlwaysEnsureVisibleFace = 0
.IdentifyFace = 4
.EndUpdate
endwith
|
|
17
|
How can I load a different texture on the cube
with thisform.TreeCube1
.TexturePicturePath = "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
endwith
|
|
16
|
How can I show no texture/picture on all faces
with thisform.TreeCube1
.TexturePicturePath = ""
.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
.IdentifyFaceCaption = "<sha ;;0><fgcolor=000000>Face <%index%></font> <%name%>"
endwith
|
|
15
|
Fish-Eye Rectangular
with thisform.TreeCube1
.BeginUpdate
.ShowAs = 0
.Internals = "zoommin=1;zoomdefault=1;zoommax=1;zoomdivsmall=256;zoomdivlarge=48;fisheyepersp=4"
.IdentifyFace = 4
.TopFace.Type = 2
.LeftFace.Type = 2
.FrontFace.Type = 2
.RightFace.Type = 2
.EndUpdate
endwith
|
|
14
|
Orthographic
with thisform.TreeCube1
.BeginUpdate
.ShowAs = 1
.AlwaysEnsureVisibleFace = 0
.IdentifyFace = 4
.TopFace.Type = 2
.LeftFace.Type = 2
.FrontFace.Type = 2
.RightFace.Type = 2
.RotX = 0.748933
.RotY = 0.617099
.Zoom = 1
.EndUpdate
endwith
|
|
13
|
Fish-Eye Default
with thisform.TreeCube1
.BeginUpdate
.ShowAs = 0
.AlwaysEnsureVisibleFace = 0
.IdentifyFace = 4
.TopFace.Type = 2
.LeftFace.Type = 2
.FrontFace.Type = 2
.RightFace.Type = 2
.RotX = 0
.RotY = 0.8
.Zoom = 1
.EndUpdate
endwith
|
|
12
|
I know the user can drag the cube to any position. The question is how can I restore the layout
with thisform.TreeCube1
.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
.RotX = 0.25
.RotY = 0.75
.Zoom = 1
endwith
|
|
11
|
How do I put my logo on the right-bottom side of the control
with thisform.TreeCube1
.Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
endwith
|