|
79
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
*** CreateView event - A view has been created. ***
LPARAMETERS View
*** Items.ItemHeight(0) = View.DefaultItemHeight
*** FilterBarFont.Size = Me.Font.Size
*** ToolTipFont.Size = Me.Font.Size
with thisform.CascadeTree1
with .View
.DefaultItemHeight = 36
.HeaderHeight = .DefaultItemHeight
.SortBarHeight = .DefaultItemHeight
.Indent = 26
.CheckImage(0) = 16777216
.CheckImage(1) = 33554432
.CheckImage(2) = 50331648
.EnsureVisibleColumn("Function")
with .Columns.Item("Function")
endwith
.Columns.Item(0).Def(0) = .T.
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.ImageSize = 32
.Font.Size = 16
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)
var_s4 = "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL"
var_s4 = var_s4 + "UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU"
var_s4 = var_s4 + "rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3"
var_s4 = var_s4 + "NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY"
var_s4 = var_s4 + "YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm"
var_s4 = var_s4 + "WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo"
var_s4 = var_s4 + "WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS"
var_s4 = var_s4 + "e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF"
var_s4 = var_s4 + "CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
.Add(4,var_s4)
endwith
.BackColorHeader = 0x4c6c6c6
.SelBackColor = 0x4000000
.SelForeColor = RGB(0,0,1)
.Object.Background(20) = .SelBackColor && 0x14
.Object.Background(21) = .SelForeColor && 0x15
.Object.Background(26) = .BackColor && 0x8 Or BackgroundPartEnum.exSplitBar
.Object.Background(27) = .ForeColor && 0x9 Or BackgroundPartEnum.exSplitBar
.Object.Background(32) = -1 && 0x20
.Object.Background(0) = 0x4000000 && 0x0
.Object.Background(41) = 0x4010101
.Object.Background(1) = 0x40000ff && 0x1
.HeaderAppearance = 4
.BackColorSortBar = .BackColor
.BackColorLevelHeader = .BackColor
.Mode = 3
var_s5 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s5 = var_s5 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s5 = var_s5 + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s5 = var_s5 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s5
.Select = "US\MN"
.EndUpdate
endwith
|
|
78
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
with .View
.EnsureVisibleColumn("Function")
with .Columns.Item("Function")
endwith
.Columns.Item(0).Def(0) = .T.
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.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 .VisualAppearance
var_s1 = "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL"
var_s1 = var_s1 + "UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU"
var_s1 = var_s1 + "rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3"
var_s1 = var_s1 + "NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY"
var_s1 = var_s1 + "YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm"
var_s1 = var_s1 + "WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo"
var_s1 = var_s1 + "WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS"
var_s1 = var_s1 + "e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF"
var_s1 = var_s1 + "CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
.Add(4,var_s1)
endwith
.BackColorHeader = 0x4c6c6c6
.SelBackColor = 0x4000000
.SelForeColor = RGB(0,0,1)
.Object.Background(20) = .SelBackColor && 0x14
.Object.Background(21) = .SelForeColor && 0x15
.Object.Background(26) = .BackColor && 0x8 Or BackgroundPartEnum.exSplitBar
.Object.Background(27) = .ForeColor && 0x9 Or BackgroundPartEnum.exSplitBar
.Object.Background(32) = -1 && 0x20
.Object.Background(0) = 0x4000000 && 0x0
.Object.Background(41) = 0x4010101
.Object.Background(1) = 0x40000ff && 0x1
.HeaderAppearance = 4
.BackColorSortBar = .BackColor
.BackColorLevelHeader = .BackColor
.Mode = 3
var_s2 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s2 = var_s2 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s2 = var_s2 + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s2 = var_s2 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s2
.Select = "US\MN"
.EndUpdate
endwith
|
|
77
|
Is it possible to highlight the column's header once a filter is applied
with thisform.CascadeTree1
.BeginUpdate
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ"
var_s = var_s + "0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YN"
var_s = var_s + "YuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4h"
var_s = var_s + "hKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgb"
var_s = var_s + "hOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWB"
var_s = var_s + "MJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI="
.Add(2,var_s)
.Add(1,"CP:2 -8 -4 2 4")
endwith
.Object.Background(0) = 0x1fefefe && 0x0
.Object.Background(41) = 0x1010101
.Object.Background(32) = -1 && 0x20
.BackColorHeader = RGB(255,255,255)
.Mode = 1
with .DefaultView()
.HeaderHeight = 28
.DrawGridLines = -2
.HeaderVisible = 1
with .Columns
.Add("C1").DisplayFilterButton = .T.
with .Add("C2")
.DisplayFilterButton = .T.
.Filter = "Item 2"
.FilterType = 240
endwith
.Add("C3").DisplayFilterButton = .T.
endwith
with .Items
h = .AddItem("Item 1")
.CellValue(h,1) = "Item 2"
.CellValue(h,2) = "Item 3"
h = .AddItem("Item 4")
.CellValue(h,1) = "Item 5"
.CellValue(h,2) = "Item 6"
endwith
.ApplyFilter
endwith
.EndUpdate
endwith
|
|
76
|
Is it possible to show the filterbar on top of the rows
with thisform.CascadeTree1
.BeginUpdate
.Mode = 1
with .DefaultView()
.ColumnAutoResize = .T.
.FilterBarPromptVisible = 8192
.HeaderHeight = 24
.FilterBarHeight = .HeaderHeight
.HeaderAppearance = 1
.DrawGridLines = -1
.GridLineStyle = 512
with .Columns.Add("Column")
.DisplayFilterButton = .T.
.FilterType = 3
.Filter = "B*"
endwith
with .Columns.Add("Index")
.FormatColumn = "1 index ``"
.Position = 0
.Width = 48
.AllowSizing = .F.
.SortType = 1
.Def(0) = .T.
endwith
with .Items
.AddItem("A.1")
.AddItem("A.2")
.AddItem("B.1")
.AddItem("B.2")
.AddItem("B.3")
.AddItem("C")
endwith
.ApplyFilter
endwith
.EndUpdate
endwith
|
|
75
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
with .View
k = .ParentView.Value()
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Add(k)
with .Items
.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k))
endwith
.EndUpdate
endwith
endwith
with thisform.CascadeTree1
.BeginUpdate
with .View
.BeginUpdate
.ColumnAutoResize = .T.
with .Columns.Add("Default")
.AllowSort = .F.
.AllowDragging = .F.
endwith
.Key = 0
with .Items
.AddItem("Item A")
.SelectItem(.AddItem("Item B")) = .T.
.AddItem("Item C")
endwith
.EndUpdate
endwith
.EndUpdate
endwith
|
|
74
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
with .View
k = .ParentView.Value()
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Add(k)
with .Items
.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k))
endwith
.EndUpdate
endwith
endwith
with thisform.CascadeTree1
.BeginUpdate
.Object.Background(32) = -1 && 0x20
with .View
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Add("Default")
.Key = 0
with .Items
.AddItem("Item A")
.SelectItem(.AddItem("Item B")) = .T.
.AddItem("Item C")
endwith
.EndUpdate
endwith
.EndUpdate
endwith
|
|
73
|
Type of wraps the cell's caption support (Sample 2)
with thisform.CascadeTree1
.Mode = 1
with .DefaultView()
.BeginUpdate
.HeaderSingleLine = .F.
.HeaderHeight = 36
.DrawGridLines = -2
.ColumnAutoResize = .F.
.ScrollBySingleLine = .T.
with .Columns
with .Add("Single-Line (exCaptionSingleLine)")
.Width = 96
.Def(17) = 1
.Def(16) = -1
endwith
with .Add("Word-Wrap (exCaptionWordWrap)")
.Width = 96
.Def(17) = 1
.Def(16) = 0
.FormatColumn = "%0"
endwith
with .Add("Break-Wrap (exCaptionBreakWrap)")
.Width = 96
.Def(17) = 1
.Def(16) = 1
.FormatColumn = "%0"
endwith
endwith
with .Items
.AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.AddItem("This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.")
endwith
.EndUpdate
endwith
endwith
|
|
72
|
Type of wraps the cell's caption support (Sample 1)
with thisform.CascadeTree1
.Mode = 1
with .DefaultView()
.BeginUpdate
.HeaderSingleLine = .F.
.HeaderHeight = 36
.DrawGridLines = -2
.ColumnAutoResize = .F.
.ScrollBySingleLine = .T.
.Columns.Add("Default").Width = 128
with .Items
h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.CellValueFormat(h,0) = 1
h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.CellSingleLine(h,0) = 0
h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.CellValueFormat(h,0) = 1
.CellSingleLine(h,0) = 0
h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.CellSingleLine(h,0) = 1
h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.CellValueFormat(h,0) = 1
.CellSingleLine(h,0) = 1
endwith
.EndUpdate
endwith
endwith
|
|
71
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)
with thisform.CascadeTree1
.Mode = 1
with .DefaultView()
.BeginUpdate
.DrawGridLines = -2
.ColumnAutoResize = .F.
.ScrollBySingleLine = .T.
.Columns.Add("Default").Width = 128
with .Items
.CellSingleLine(.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = 1
.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
endwith
.EndUpdate
endwith
endwith
|
|
70
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)
with thisform.CascadeTree1
.Mode = 1
with .DefaultView()
.BeginUpdate
.DrawGridLines = -2
.ColumnAutoResize = .F.
.ScrollBySingleLine = .T.
with .Columns.Add("Default")
.Width = 128
.Def(16) = 1
endwith
with .Items
.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
endwith
.EndUpdate
endwith
endwith
|
|
69
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
with thisform.CascadeTree1
.BeginUpdate
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVI"
var_s = var_s + "UcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4a"
var_s = var_s + "DhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBe"
var_s = var_s + "EMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIB"
var_s = var_s + "ICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokG"
var_s = var_s + "KHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI="
.Add(1,var_s)
.Add(2,"CP:1 0 -36 0 0")
endwith
.Object.Background(182) = 0x2000000
.Mode = 1
with .DefaultView()
.BeginUpdate
.HeaderAppearance = 4
with .Columns
.Add("Column 1")
.Add("Column 2")
.Add("Column 3")
endwith
.EndUpdate
endwith
.EndUpdate
endwith
|
|
68
|
DataSource (control, ADODB, ACCDB, x64)
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index)
bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag)
with .View
.ColumnAutoResize = bColumnAutoResize
.SingleSel = bSingle
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC"
var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam"
var_s = var_s + "e=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe"
var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam"
var_s = var_s + "e=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
67
|
DataSource (view, ADODB, ACCDB, x64)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
ado = CreateObject("ADODB.Recordset")
with ado
.Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,1,-1)
endwith
with .DefaultView()
.DataSource = ado
.ColumnAutoResize = .T.
endwith
.EndUpdate
endwith
|
|
66
|
Simple sample
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index)
bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag)
with .View
.ColumnAutoResize = bColumnAutoResize
.SingleSel = bSingle
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.EndUpdate
endwith
|
|
65
|
FilterBar sample
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
with .View
.HeaderHeight = 20
.HeaderAppearance = 4
.DrawGridLines = -1
.GridLineStyle = 12
endwith
with .DefaultView()
with .View("Country")
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Item(0).Visible = .F.
with .Columns.Item(1)
.HTMLCaption = "Country"
.DisplayFilterButton = .T.
.FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
endwith
.EndUpdate
endwith
with .View("State")
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Item(0).Visible = .F.
.Columns.Item(1).Visible = .F.
with .Columns.Item(2)
.HTMLCaption = "State"
.DisplayFilterButton = .T.
.FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
endwith
.EndUpdate
endwith
with .View("City")
.BeginUpdate
.Columns.Item("CountryCode").Visible = .F.
.Columns.Item("StateCode").Visible = .F.
with .Columns.Item("Name")
.HTMLCaption = "City"
.Width = 128
.DisplayFilterButton = .T.
.FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
endwith
.SearchColumnIndex = .Columns.Item("Name").Index
with .Columns.Item("Status")
.DisplayFilterButton = .T.
.FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
endwith
with .Columns.Item("Function")
.Def(17) = 1
var_s = "value replace 1 with `<img>1</img>` replace 2 with `<img>2</img>` replace 3 with `<img>3</img>` replace 4 with `<img>4</img>` re"
var_s = var_s + "place 5 with `<img>5</img>` replace 6 with `<img>6</img>` replace 7 with `<img>7</img>` replace 8 with `<img>8</img>` replace 9 "
var_s = var_s + "with `<img>9</img>` replace `-` with `` "
.FormatColumn = var_s
endwith
with .Columns.Add("Pos")
.AllowSizing = .F.
.Width = 32
.Def(4) = 15790320
.Position = 0
.FormatColumn = "1 pos ``"
.Alignment = 1
.HeaderAlignment = .Alignment && .Alignment
endwith
.CountLockedColumns = 1
.Width = .WidthToFit
.EndUpdate
endwith
endwith
with .View
.FilterBarHeight = 36
var_s1 = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `"
var_s1 = var_s1 + "[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( match"
var_s1 = var_s1 + "itemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcoun"
var_s1 = var_s1 + "t + ` item(s)`) )))"
.FilterBarCaption = var_s1
.FilterBarPromptVisible = 515 && FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-01.ico")
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-02.ico")
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-03.ico")
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-04.ico")
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-05.ico")
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-06.ico")
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-07.ico")
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-08.ico")
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-09.ico")
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Count"
var_s = var_s + "ry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;T"
var_s = var_s + "ag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FR"
var_s = var_s + "OM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "RO\CJ"
with .DefaultView().View("City")
.FilterBarPromptPattern = "Tu"
endwith
with .VisualAppearance
var_s1 = "gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVI"
var_s1 = var_s1 + "UcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4a"
var_s1 = var_s1 + "DhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBe"
var_s1 = var_s1 + "EMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIB"
var_s1 = var_s1 + "ICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokG"
var_s1 = var_s1 + "KHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI="
.Add(1,var_s1)
var_s2 = "gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJj"
var_s2 = var_s2 + "yI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmS"
var_s2 = var_s2 + "ZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8ORO"
var_s2 = var_s2 + "icbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2D"
var_s2 = var_s2 + "YxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXA"
var_s2 = var_s2 + "iAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJ"
var_s2 = var_s2 + "DCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0"
var_s2 = var_s2 + "TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAk"
var_s2 = var_s2 + "jIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSM"
var_s2 = var_s2 + "RsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQ"
var_s2 = var_s2 + "HkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ"
.Add(2,var_s2)
endwith
.BackColorSortBar = .BackColor
.Object.ScrollPartVisible(0,65536) = .T.
.Object.ScrollPartVisible(1,65536) = .T.
.Object.ScrollPartVisible(2,65536) = .T.
.ScrollWidth = 4
.Object.Background(276) = RGB(240,240,240)
.Object.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Object.Background(404) = .Background(276)
.Object.Background(388) = .Background(260)
.Object.Background(511) = .Background(276)
.Object.Background(18) = RGB(196,196,196)
.Object.Background(142) = .Background(18)
.Object.Background(141) = .Background(18)
.Object.Background(170) = RGB(4,0,0)
.Object.Background(0) = 0x1000000 && 0x0
.Object.Background(1) = 0x2000000 && 0x1
.Object.Background(32) = -1 && 0x20
.EndUpdate
endwith
|
|
64
|
GroupBy sample
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
.View.HeaderHeight = 24
with .DefaultView()
with .View("State")
.BeginUpdate
.SingleSel = .F.
.ColumnAutoResize = .T.
.Columns.Item(0).Visible = .F.
.Columns.Item(1).Visible = .F.
with .Columns.Item(2)
.HTMLCaption = "State <off 4><fgcolor=808080>Name"
.SortOrder = 1
endwith
.EndUpdate
endwith
with .View("City")
nSelected = .ParentView.Items.SelectCount
bGroupBy = thisform.CascadeTree1.FormatABC("value > 1 ? -1 : 0",nSelected)
.BeginUpdate
.SingleSel = .F.
.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
.HasLines = 1
.ColumnAutoResize = .F.
.DrawGridLines = 2
.GridLineStyle = 32
.Columns.Item("CountryCode").Visible = .F.
with .Columns.Item("Name")
.HTMLCaption = "City <off 4><fgcolor=808080>Name"
.Width = 128
.SortOrder = 1
endwith
.SearchColumnIndex = 2
.TreeColumnIndex = .SearchColumnIndex
.SingleSort = .F.
.AllowGroupBy = bGroupBy
.SortBarVisible = bGroupBy
with .Columns.Item("StateCode")
.Visible = bGroupBy
.SortOrder = 1
endwith
.Width = .WidthToFit
.EndUpdate
endwith
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
with .VisualAppearance
.Add(1,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\Assorted\vistaselDark.ebn")
.Add(2,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\Assorted\bhframe.ebn")
endwith
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Count"
var_s = var_s + "ry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;T"
var_s = var_s + "ag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FR"
var_s = var_s + "OM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "RO\CJ|BV|GL|IL"
with .DefaultView().View("Country")
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Item(0).Visible = .F.
with .Columns.Item(1)
.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.SortOrder = 1
endwith
.EndUpdate
endwith
.SelBackColor = 0x1000000
.SelForeColor = RGB(255,255,255)
.BackColorHeader = 0x2000000
.BackColorSortBar = .BackColor
.BackColorSortBarCaption = .BackColor
.Object.ScrollPartVisible(0,65536) = .T.
.Object.ScrollPartVisible(1,65536) = .T.
.Object.ScrollPartVisible(2,65536) = .T.
.ScrollWidth = 4
.Object.Background(276) = RGB(240,240,240)
.Object.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Object.Background(404) = .Background(276)
.Object.Background(388) = .Background(260)
.Object.Background(511) = .Background(276)
.Object.Background(18) = RGB(196,196,196)
.Object.Background(142) = .Background(18)
.Object.Background(141) = .Background(18)
.Object.Background(170) = RGB(4,0,0)
.BackColorSortBar = .BackColor
.EndUpdate
endwith
|
|
63
|
Manual sample
*** CreateView event - A view has been created. ***
LPARAMETERS V
with thisform.CascadeTree1
with .View
.BeginUpdate
k = .ParentView.Value()
.HeaderVisible = .F.
.ColumnAutoResize = .T.
.ScrollBySingleLine = .T.
.Columns.Add("Default").Def(16) = .F.
.Key = 0
with .Items
.AddItem(thisform.CascadeTree1.FormatABC("A + `.Child 1`",k))
.AddItem(thisform.CascadeTree1.FormatABC("A + `.Child 2`",k))
.AddItem(thisform.CascadeTree1.FormatABC("A + `.Child 3`",k))
endwith
.EndUpdate
endwith
endwith
with thisform.CascadeTree1
.BeginUpdate
.BackColorAlternate = 0x7ff0f0f0
.Object.Background(18) = RGB(240,240,240)
with .DefaultView()
.BeginUpdate
.HeaderVisible = .F.
.ColumnAutoResize = .T.
.ScrollBySingleLine = .T.
.Columns.Add("Default").Def(16) = .F.
.Key = 0
with .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
endwith
.EndUpdate
endwith
.Select = "Item A\Item*A*2\Item*A*2*3\"
.EndUpdate
endwith
|
|
62
|
Appearance sample
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
.View.HeaderHeight = 24
with .DefaultView()
with .View("State")
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Item(0).Visible = .F.
.Columns.Item(1).Visible = .F.
with .Columns.Item(2)
.HTMLCaption = "State <off 4><fgcolor=808080>Name"
.SortOrder = 1
endwith
with .Items
.LockedItemCount(0) = 1
h = .LockedItem(0,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
.CellValue(h,0) = "count(all,all,1)"
.FormatCell(h,0) = "`<r>States: <b>`+ (value format `0`)"
endwith
.EndUpdate
endwith
with .View("City")
.BeginUpdate
.SingleSel = .F.
.ColumnAutoResize = .F.
.DrawGridLines = 2
.GridLineStyle = 32
.Columns.Item(0).Visible = .F.
.Columns.Item(1).Visible = .F.
with .Columns.Item(2)
.HTMLCaption = "City <off 4><fgcolor=808080>Name"
.Width = 128
.Def(0) = .T.
.SortOrder = 1
endwith
.SearchColumnIndex = 2
.ConditionalFormats.Add("%CS2 = 1").Bold = .T.
with .Items
.LockedItemCount(0) = 1
h = .LockedItem(0,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
.CellValue(h,0) = "count(all,all,1)"
.FormatCell(h,0) = "`<r>Cities: <b>`+ (value format `0`)"
endwith
.Width = .WidthToFit
.EndUpdate
endwith
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
with .VisualAppearance
.Add(1,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\MSOffice-Ribbon\msor_select.ebn")
.Add(2,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\MSOffice-Ribbon\msor_background.ebn")
endwith
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Count"
var_s = var_s + "ry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;T"
var_s = var_s + "ag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FR"
var_s = var_s + "OM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
with .DefaultView().View("Country")
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Item(0).Visible = .F.
with .Columns.Item(1)
.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.SortOrder = 1
endwith
with .Items
.LockedItemCount(0) = 1
h = .LockedItem(0,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
.CellValue(h,0) = "count(all,all,1)"
.FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)"
endwith
.EndUpdate
endwith
.SelBackColor = 0x1000000
.SelForeColor = RGB(0,0,0)
.BackColorHeader = 0x2000000
.Object.ScrollPartVisible(0,65536) = .T.
.Object.ScrollPartVisible(1,65536) = .T.
.Object.ScrollPartVisible(2,65536) = .T.
.ScrollWidth = 4
.Object.Background(276) = RGB(240,240,240)
.Object.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Object.Background(404) = .Background(276)
.Object.Background(388) = .Background(260)
.Object.Background(511) = .Background(276)
.Object.Background(18) = RGB(196,196,196)
.Object.Background(142) = .Background(18)
.Object.Background(141) = .Background(18)
.Object.Background(170) = RGB(4,0,0)
.BackColorSortBar = .BackColor
.EndUpdate
endwith
|
|
61
|
How can I get the selected items (sample 2)
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
with .View
k = .ParentView.Value()
.BeginUpdate
.ColumnAutoResize = .T.
.Key = -1
.Columns.Add(k)
with .Items
.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k))
endwith
.EndUpdate
endwith
endwith
*** ViewItemStateEndChanging event - Indicates that the state of the item has been changed. ***
LPARAMETERS Operation,Item,ColIndex
with thisform.CascadeTree1
DEBUGOUT( "End" )
DEBUGOUT( Operation )
with .View.Items
DEBUGOUT( "FocusItem" )
DEBUGOUT( .CellCaption(.FocusItem,0) )
DEBUGOUT( "SelectedItem" )
DEBUGOUT( .CellCaption(.SelectedItem(0),0) )
endwith
endwith
*** ViewItemStateStartChanging event - Indicates that the state of the item is about to be changed. ***
LPARAMETERS Operation,Item,ColIndex,Cancel
with thisform.CascadeTree1
DEBUGOUT( "Start" )
DEBUGOUT( Operation )
endwith
with thisform.CascadeTree1
.BeginUpdate
with .View
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Add("Default")
.Key = 0
.LinesAtRoot = -1
with .Items
.AddItem("Item A")
.SelectItem(.AddItem("Item B")) = .T.
.AddItem("Item C")
endwith
.EndUpdate
endwith
.EndUpdate
endwith
|
|
60
|
How do I specify a foreground color for a particular view
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.DefaultView().ConditionalFormats.Add("1").ForeColor = RGB(128,128,128)
.EndUpdate
endwith
|
|
59
|
How do display result/items in the view's filter bar
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
with .View
.HeaderAppearance = 4
.HeaderHeight = 24
.DrawGridLines = -1
.GridLineStyle = 12
endwith
with .DefaultView()
with .View("Country")
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Item(0).Visible = .F.
with .Columns.Item(1)
.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.DisplayFilterButton = .T.
.FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
endwith
.EndUpdate
endwith
with .View("State")
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Item(0).Visible = .F.
.Columns.Item(1).Visible = .F.
with .Columns.Item(2)
.HTMLCaption = "State <off 4><fgcolor=808080>Name"
.DisplayFilterButton = .T.
.FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
endwith
.EndUpdate
endwith
with .View("City")
.BeginUpdate
.Columns.Item(0).Visible = .F.
.Columns.Item(1).Visible = .F.
with .Columns.Item(2)
.HTMLCaption = "City <off 4><fgcolor=808080>Name"
.Width = 128
.Def(0) = .T.
.DisplayFilterButton = .T.
.FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
endwith
with .Columns.Add("Pos")
.AllowSizing = .F.
.Width = 32
.Def(4) = 15790320
.Position = 0
.FormatColumn = "1 pos ``"
endwith
.CountLockedColumns = 1
.EndUpdate
endwith
endwith
with .View
.FilterBarHeight = 36
var_s = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `"
var_s = var_s + "[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( match"
var_s = var_s + "itemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcoun"
var_s = var_s + "t + ` item(s)`) )))"
.FilterBarCaption = var_s
.FilterBarPromptType = 3
.FilterBarPromptVisible = 515 && FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Object.ScrollPartVisible(0,65536) = .T.
.Object.ScrollPartVisible(1,65536) = .T.
.Object.ScrollPartVisible(2,65536) = .T.
.ScrollWidth = 4
.Object.Background(276) = RGB(240,240,240)
.Object.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Object.Background(404) = .Background(276)
.Object.Background(388) = .Background(260)
.Object.Background(511) = .Background(276)
.Object.Background(18) = RGB(196,196,196)
.Object.Background(142) = .Background(18)
.Object.Background(141) = .Background(18)
.Object.Background(170) = RGB(2,0,0)
.EndUpdate
.BeginUpdate
.MinColumnWidth = 348
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
with .DefaultView().View("City")
.FilterBarPromptPattern = "An"
endwith
.EndUpdate
endwith
|
|
58
|
I am using the filter prompt feature, the question is how can I filter for items that starts with typed characters rather than contains
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
with .View
.FilterBarPromptType = 3
.FilterBarPromptVisible = 1
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
with .DefaultView().View("City")
.FilterBarPromptPattern = "An"
with .Columns.Item("Name")
.Width = 128
.Def(17) = 1
.FormatColumn = "value replace `An` with `<bgcolor=000000><fgcolor=FFFFFF>An</fgcolor></bgcolor>` "
endwith
endwith
.EndUpdate
endwith
|
|
57
|
FilterBarCaption Predefined Keywords
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.BackColorAlternate = RGB(240,240,240)
.Mode = 1
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US"
with .DefaultView().View("Country")
with .Columns.Add("Pos")
.Position = 0
.Width = 32
.AllowSizing = .F.
.FormatColumn = "1pos ``"
endwith
with .Columns.Item("CountryCode")
.Width = 32
.AllowSizing = .F.
.DisplayFilterButton = .T.
endwith
with .Columns.Item("CountryName")
.DisplayFilterButton = .T.
.FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
.FilterType = 240
.Filter = "Italy|Romania|Germany"
endwith
.FilterBarPromptPattern = "a"
.ColumnAutoResize = .T.
.SearchColumnIndex = .Columns.Item("CountryName").Index
.FilterInclude = 1
var_s1 = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i"
var_s1 = var_s1 + "></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>:"
var_s1 = var_s1 + " ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><"
var_s1 = var_s1 + "i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i"
var_s1 = var_s1 + "></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=80"
var_s1 = var_s1 + "8080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount + "
var_s1 = var_s1 + "`</fgcolor>`"
.FilterBarCaption = var_s1
.FilterBarPromptVisible = 7 && FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
.ApplyFilter
endwith
.EndUpdate
endwith
|
|
56
|
How can I enable the column's filter bar (view)
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
.View.FilterBarPromptVisible = 1
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
with .DefaultView().View("Country")
.ColumnAutoResize = .T.
.Columns.Item("CountryCode").Visible = .F.
with .Columns.Item("CountryName")
.DisplayFilterButton = .T.
.FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
.FilterType = 240
.Filter = "Romania|Germany"
endwith
.ApplyFilter
endwith
.EndUpdate
endwith
|
|
55
|
How can I enable the column's filter bar
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
with .View
.FilterBarPromptVisible = 1
with .Columns.Item(0)
.DisplayFilterButton = .T.
.FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
endwith
endwith
with .DefaultView().View("Country")
with .Columns.Item(0)
.FilterType = 240
.Filter = "US|RO|GE"
endwith
.ApplyFilter
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
54
|
How can I enable the control's filter bar (view)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.DefaultView().FilterBarPromptVisible = 1
.EndUpdate
endwith
|
|
53
|
How can I enable the control's filter bar
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
.View.FilterBarPromptVisible = 1
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
52
|
Aggregate sum, min, max, count, avg, divider, total (view)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 2
.Object.Background(18) = RGB(196,196,196)
.Object.Background(170) = RGB(4,0,0)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "RO"
with .DefaultView().View("Country")
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Item(0).Visible = .F.
with .Items
.LockedItemCount(0) = 1
h = .LockedItem(0,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
.CellValue(h,0) = "count(all,all,1)"
.FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)"
endwith
.EndUpdate
endwith
.EndUpdate
endwith
|
|
51
|
Aggregate sum, min, max, count, avg, divider, total
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
.View.HeaderVisible = .F.
with .DefaultView()
with .View("Country")
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Item(0).Visible = .F.
with .Items
.LockedItemCount(0) = 1
h = .LockedItem(0,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
.CellValue(h,0) = "count(all,all,1)"
.FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)"
endwith
.EndUpdate
endwith
with .View("State")
.BeginUpdate
.SingleSel = .F.
.ColumnAutoResize = .T.
.Columns.Item(0).Visible = .F.
.Columns.Item(1).Visible = .F.
with .Items
.LockedItemCount(0) = 1
h = .LockedItem(0,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
.CellValue(h,0) = "count(all,all,1)"
.FormatCell(h,0) = "`<r>States: <b>`+ (value format `0`)"
endwith
.EndUpdate
endwith
with .View("City")
.BeginUpdate
.Columns.Item(0).Visible = .F.
.Columns.Item(1).Visible = .F.
with .Columns.Item(2)
.Width = 128
.HTMLCaption = "CityName"
endwith
with .Items
.LockedItemCount(0) = 1
h = .LockedItem(0,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
.CellValue(h,0) = "count(all,all,1)"
.FormatCell(h,0) = "`<r>Cities: <b>`+ (value format `0`)"
endwith
.EndUpdate
endwith
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
.Object.Background(170) = RGB(4,0,0)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
50
|
How can I add a check-box column (view)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key"
.Object.Background(168) = .BackColor
var_s = "gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoDi"
var_s = var_s + "KIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSiI"
var_s = var_s + "ZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVxP"
var_s = var_s + "FkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBSB"
var_s = var_s + "JhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI"
.VisualAppearance.Add(1,var_s)
.SelBackColor = 0x1000000
.SelForeColor = .ForeColor
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
var_s1 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s1 = var_s1 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s1 = var_s1 + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s1 = var_s1 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s1
.Select = "US\AK"
with .DefaultView().View("City")
.BeginUpdate
.ShowFocusRect = .F.
.SingleSel = .F.
.Columns.Item(0).Visible = .F.
.Columns.Item(1).Visible = .F.
with .Columns.Item(2)
.HTMLCaption = "City <off 4><fgcolor=808080>Name"
.Width = 128
.Def(0) = .T.
endwith
.SearchColumnIndex = .Columns.Item("Name").Index
with .Columns.Add("Pos")
.Position = 0
.Width = 32
.FormatColumn = "1 pos ``"
endwith
with .ConditionalFormats
.Add("%CS2 = 1").BackColor = RGB(190,190,190)
with .Add("%CS2 = 1")
.Bold = .T.
.ApplyTo = 8 && 0x8
endwith
endwith
with .Items
.CellState(.ItemByIndex(1),2) = 1
.CellState(.ItemByIndex(3),2) = 1
.CellState(.ItemByIndex(5),2) = 1
endwith
.EndUpdate
endwith
.EndUpdate
endwith
|
|
49
|
How can I add a check-box column
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
with .View
.HeaderAppearance = 4
.HeaderHeight = 24
.DrawGridLines = 2
.GridLineStyle = 12
endwith
with .DefaultView()
with .View("Country")
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Item(0).Visible = .F.
.Columns.Item(1).HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.EndUpdate
endwith
with .View("State")
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Item(0).Visible = .F.
.Columns.Item(1).Visible = .F.
.Columns.Item(2).HTMLCaption = "State <off 4><fgcolor=808080>Name"
.EndUpdate
endwith
with .View("City")
.BeginUpdate
.ShowFocusRect = .F.
.SingleSel = .F.
.Columns.Item(0).Visible = .F.
.Columns.Item(1).Visible = .F.
with .Columns.Item(2)
.HTMLCaption = "City <off 4><fgcolor=808080>Name"
.Width = 128
.Def(0) = .T.
endwith
.SearchColumnIndex = .Columns.Item("Name").Index
with .Columns.Add("Pos")
.Position = 0
.Width = 32
.FormatColumn = "1 pos ``"
endwith
with .ConditionalFormats
.Add("%CS2 = 1").BackColor = RGB(190,190,190)
with .Add("%CS2 = 1")
.Bold = .T.
.ApplyTo = 8 && 0x8
endwith
endwith
with .Items
.CellState(.ItemByIndex(1),2) = 1
.CellState(.ItemByIndex(3),2) = 1
.CellState(.ItemByIndex(5),2) = 1
endwith
.EndUpdate
endwith
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key"
.Object.Background(168) = .BackColor
var_s = "gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoDi"
var_s = var_s + "KIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSiI"
var_s = var_s + "ZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVxP"
var_s = var_s + "FkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBSB"
var_s = var_s + "JhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI"
.VisualAppearance.Add(1,var_s)
.SelBackColor = 0x1000000
.SelForeColor = .ForeColor
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
var_s1 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s1 = var_s1 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s1 = var_s1 + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s1 = var_s1 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s1
.Select = "US\AK"
.EndUpdate
endwith
|
|
48
|
How can I access a view
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
with .View
.HeaderAppearance = 4
.HeaderHeight = 24
.DrawGridLines = -1
.GridLineStyle = 12
endwith
with .DefaultView()
with .View("Country")
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Item(0).Visible = .F.
.Columns.Item(1).HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.EndUpdate
endwith
with .View("State")
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Item(0).Visible = .F.
.Columns.Item(1).Visible = .F.
.Columns.Item(2).HTMLCaption = "State <off 4><fgcolor=808080>Name"
.EndUpdate
endwith
with .View("City")
.BeginUpdate
.Columns.Item(0).Visible = .F.
.Columns.Item(1).Visible = .F.
with .Columns.Item(2)
.HTMLCaption = "City <off 4><fgcolor=808080>Name"
.Width = 128
.Def(4) = 15790320
endwith
.CountLockedColumns = 1
.EndUpdate
endwith
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
47
|
Conditional Format (check)
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
with .View
with .ConditionalFormats.Add("%CS0 = 1")
.Bold = .T.
endwith
.Columns.Item(0).Def(0) = .T.
with .Items
.CellState(.FocusItem,0) = 1
endwith
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
46
|
Conditional Format (view)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
with .DefaultView().View("City")
with .ConditionalFormats.Add("(%0 = `US`) and (%2 like `Al*`)")
.Bold = .T.
.BackColor = RGB(240,240,240)
endwith
endwith
.EndUpdate
endwith
|
|
45
|
Conditional Format
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
with .View
with .ConditionalFormats.Add("%0 = `US`")
.Bold = .T.
endwith
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
44
|
I've seen the AllowSplitView property, the question is how can I load data to
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.AllowSplitView = 1
.SplitViewHeight = 256
with .DefaultView(1)
endwith
.EndUpdate
endwith
|
|
43
|
How can I group the items (view)
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
.View.SingleSel = .F.
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAAEhABa0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjJBkRxtDCPIDnGQoDi"
var_s = var_s + "GI4vSrCQ4yDA8GxCGSfIrjKiYbiGNY8RgZCiOMAFJSpC6gZRoSq4doGGJLQiDMaAdBNHyZKqpbQqeCZPDINQlWzbcrjKKFYQTOi7I4sCbYcqKA5PTbNdYyVBMWxfGIba"
var_s = var_s + "IkXAcBjuO4hWbFdASRQdDYtHTIbzjCxLcgMD4gRwWCYNSAGRZJLDKK4gSh6eorHQAX4AGabFBOP5fC7TNJ0OKLRrkAJub5eFx3LJ97ohbLsOzYZK2ByDFqiMLGQZMZxv"
var_s = var_s + "GWUBAnYfJImcOwLEiBp0gaGpekSBxjE+WZ2jse5Im2S5ZkGYhdn4EY6A4Q4vAOWJ6H0V4oEgIgSFAGhGDGUB1ByBhVBUAwyhKMQIE2AgRjCWQJAoEIWk2SxCAGBBghQe"
var_s = var_s + "JYkMZIYBYIYoHIG4HGICB+CKB4iEiBglgaUAzhiJAZA+Q4Qk2CxiniOgwgyYwolYMYNmMQw2CoGQihiLg5g+YxpAIOINiOOJ2CyEBkgkDhKhCJBQAI2IlAkJhMgqZBpE"
var_s = var_s + "YS4UiSGQ2E+FglHkdg5haI5pHIVoViYCQeF6vZJhYY4aCWWYqGyGpkimOhnhyZQ4nIToYGcSY+ESFQnHmGhwh+YpphYO4gmKOlEiGKIKBaCohmeQ4tkUQJQBAgI="
.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjDBkRxtDCPIDnGQoDi"
var_s1 = var_s1 + "GI4vSrCQ4zHQkOx9C6NKLjOQaMhwcJPABTZwRRQMUyLAiQRioGKKJgkC4cAxIFhRXSVIyhC6XRiGURbJquLw1DBbEI3BaUOS7HqOK7vCZ7cACVYqQjLMrzCK8ZxLPqbZ"
var_s1 = var_s1 + "znOjZXoCKJDQzVYADFRVd4rMK9QABWw4YqWZYXX7kUDxbTdEYzPQAMw1GCcbxmF6eWbCNq3LidXTnOK3dwkO55cyuA6oazi8T6Bi2M6DDQNGSzZiuGZ9YSOOIwHJIN4Q"
var_s1 = var_s1 + "DSUpYmQOoJA6KxVlCDBsnwOx9iWUhfiCThzjUHZun2WgSAiBIUA0JgziGVJkGWUZAkEUoyBEN51BsDYQhCIQJGqHAUCAGBGA0RwtDcVIgkgNgOgOYQIDiXYEmESBWBaB"
var_s1 = var_s1 + "ZhggTgSgYYZIHYGoDGGaIGBiBpiCiFJdgkIksiiChhliLgsgYYpoj4F4MGMKBWDSDRhngMg4gcIQYnYPoEE6N4ZAMQBAICA="
.Add(2,var_s1)
endwith
.SelBackColor = 0x1000000
.SelForeColor = RGB(0,0,0)
.BackColorHeader = 0x2000000
.Object.ScrollPartVisible(0,65536) = .T.
.Object.ScrollPartVisible(1,65536) = .T.
.Object.ScrollPartVisible(2,65536) = .T.
.ScrollWidth = 4
.Object.Background(276) = RGB(240,240,240)
.Object.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Object.Background(404) = .Background(276)
.Object.Background(388) = .Background(260)
.Object.Background(511) = .Background(276)
.Object.Background(18) = RGB(196,196,196)
.Object.Background(142) = .Background(18)
.Object.Background(141) = .Background(18)
.Object.Background(170) = RGB(2,0,0)
.BackColorSortBar = .BackColor
.EndUpdate
.BeginUpdate
.Mode = 3
var_s2 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s2 = var_s2 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s2 = var_s2 + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s2 = var_s2 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s2
.Select = "RO\CJ|BV|CS"
with .DefaultView().View("City")
.BeginUpdate
with .Columns
.Item("CountryCode").Visible = .F.
with .Item("Name")
.SortOrder = 1
.Width = 128
endwith
endwith
.SortBarVisible = .T.
.AllowGroupBy = .T.
.SingleSort = .F.
.Columns.Item("StateCode").SortOrder = 1
.TreeColumnIndex = .Columns.Item("Name").Index
.EndUpdate
endwith
.EndUpdate
endwith
|
|
42
|
How can I group the items
*** CreateView event - A view has been created. ***
LPARAMETERS View
*** Columns("StateCode").Visible = False
*** Columns("StateName").SortOrder = 1
*** Columns("StateCode").SortOrder = nGroupByIfCity
with thisform.CascadeTree1
nGroupByIfCity = .FormatABC("( A = `City`) ? 1 : 0",.View.Tag)
bColumnAutoResize = .FormatABC(" (A = `City`) ? 0 : -1",.View.Tag)
with .View
.BeginUpdate
.SingleSel = .F.
.Columns.Item("CountryCode").Visible = .F.
.Columns.Item("CountryName").SortOrder = 1
with .Columns.Item(2)
endwith
.TreeColumnIndex = 2
.AllowGroupBy = .T.
.SingleSort = .F.
.SortBarVisible = nGroupByIfCity
.ColumnAutoResize = bColumnAutoResize
.EndUpdate
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAAEhABa0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjJBkRxtDCPIDnGQoDi"
var_s = var_s + "GI4vSrCQ4yDA8GxCGSfIrjKiYbiGNY8RgZCiOMAFJSpC6gZRoSq4doGGJLQiDMaAdBNHyZKqpbQqeCZPDINQlWzbcrjKKFYQTOi7I4sCbYcqKA5PTbNdYyVBMWxfGIba"
var_s = var_s + "IkXAcBjuO4hWbFdASRQdDYtHTIbzjCxLcgMD4gRwWCYNSAGRZJLDKK4gSh6eorHQAX4AGabFBOP5fC7TNJ0OKLRrkAJub5eFx3LJ97ohbLsOzYZK2ByDFqiMLGQZMZxv"
var_s = var_s + "GWUBAnYfJImcOwLEiBp0gaGpekSBxjE+WZ2jse5Im2S5ZkGYhdn4EY6A4Q4vAOWJ6H0V4oEgIgSFAGhGDGUB1ByBhVBUAwyhKMQIE2AgRjCWQJAoEIWk2SxCAGBBghQe"
var_s = var_s + "JYkMZIYBYIYoHIG4HGICB+CKB4iEiBglgaUAzhiJAZA+Q4Qk2CxiniOgwgyYwolYMYNmMQw2CoGQihiLg5g+YxpAIOINiOOJ2CyEBkgkDhKhCJBQAI2IlAkJhMgqZBpE"
var_s = var_s + "YS4UiSGQ2E+FglHkdg5haI5pHIVoViYCQeF6vZJhYY4aCWWYqGyGpkimOhnhyZQ4nIToYGcSY+ESFQnHmGhwh+YpphYO4gmKOlEiGKIKBaCohmeQ4tkUQJQBAgI="
.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjDBkRxtDCPIDnGQoDi"
var_s1 = var_s1 + "GI4vSrCQ4zHQkOx9C6NKLjOQaMhwcJPABTZwRRQMUyLAiQRioGKKJgkC4cAxIFhRXSVIyhC6XRiGURbJquLw1DBbEI3BaUOS7HqOK7vCZ7cACVYqQjLMrzCK8ZxLPqbZ"
var_s1 = var_s1 + "znOjZXoCKJDQzVYADFRVd4rMK9QABWw4YqWZYXX7kUDxbTdEYzPQAMw1GCcbxmF6eWbCNq3LidXTnOK3dwkO55cyuA6oazi8T6Bi2M6DDQNGSzZiuGZ9YSOOIwHJIN4Q"
var_s1 = var_s1 + "DSUpYmQOoJA6KxVlCDBsnwOx9iWUhfiCThzjUHZun2WgSAiBIUA0JgziGVJkGWUZAkEUoyBEN51BsDYQhCIQJGqHAUCAGBGA0RwtDcVIgkgNgOgOYQIDiXYEmESBWBaB"
var_s1 = var_s1 + "ZhggTgSgYYZIHYGoDGGaIGBiBpiCiFJdgkIksiiChhliLgsgYYpoj4F4MGMKBWDSDRhngMg4gcIQYnYPoEE6N4ZAMQBAICA="
.Add(2,var_s1)
endwith
.SelBackColor = 0x1000000
.SelForeColor = RGB(0,0,0)
.BackColorHeader = 0x2000000
.Object.ScrollPartVisible(0,65536) = .T.
.Object.ScrollPartVisible(1,65536) = .T.
.Object.ScrollPartVisible(2,65536) = .T.
.ScrollWidth = 4
.Object.Background(276) = RGB(240,240,240)
.Object.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Object.Background(404) = .Background(276)
.Object.Background(388) = .Background(260)
.Object.Background(511) = .Background(276)
.Object.Background(18) = RGB(196,196,196)
.Object.Background(142) = .Background(18)
.Object.Background(141) = .Background(18)
.Object.Background(170) = RGB(2,0,0)
.BackColorSortBar = .BackColor
.EndUpdate
.BeginUpdate
.Mode = 3
var_s2 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s2 = var_s2 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s2 = var_s2 + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s2 = var_s2 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s2
.Select = "RO\CJ|BV|CS"
.EndUpdate
endwith
|
|
41
|
How can I change the visual appearance of the selection/header
*** CreateView event - A view has been created. ***
LPARAMETERS View
*** Columns("StateCode").Visible = False
*** Columns("StateName").SortOrder = 1
with thisform.CascadeTree1
with .View
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Item("CountryCode").Visible = .F.
.Columns.Item("CountryName").SortOrder = 1
with .Columns.Item("Name")
endwith
.EndUpdate
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAAEhABWYDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCNAwgFBIcBhE4ZIKkEYoMiONoYR5Ac4yFA"
var_s = var_s + "cQxHE6TZRgeDZToWN48TZLEB0VRFGL1J4AKbfKKKBiqIZDTpMdKSHIIFQ4BiEaYkGjqQpKVIdDSJMwWTI4ahhNSEbauCZ7DhyXpLUbeNSyXJsXw7GSOZJvGZ5bjuIY+R"
var_s = var_s + "xQEK1NQkOyNOiOAosGCQWiDE4DWZZUT3XS+HgAGStY4rWCcSgOYIDZTPOT1DYtIY3NC5c7tS4bPq3NZHXTAeigBa4AZTQafcTvSA5OjOQQ2VhNWIXRxgAZ3YCNbzpTgs"
var_s = var_s + "HeD5DmUQh3jSTQ/DuIZBh0bJ8BsG4WlsYwXjEapphuXh/HsRQJAQQhKAaEwZlCahyDKchJlEIgRDedQbA2EIQiECR3BudAgBgRgBgSHZQFSCwzECV4DGCeA6BCBJhCgV"
var_s = var_s + "gRgWs4YkgNJKCOMJ2C0T4Dn4IIIiIGIOCaCRiy0HQ9iGIxMhgMAMmKZJ2D+SQThININgiM4In+DhPnIDJhD+RxzgCfwaE2c58F0N4PniSJ/guTJiCiOAygwCJODyDwIF"
var_s = var_s + "ifhVD+R5JBQcIREYOQgFgNwPnkRJ/qOIgIjEMYMFOVg9hESA5BQfYSCbQx1DcZA5lAXQ2vURh4hoT55hiRgfEqYwMkUPQPnGahgiGJwpmAdYeAaWZgGINoPnEWoQBKaQ"
var_s = var_s + "KAyf4gAwMZoisMIMGOTJ/B0KQK0EG5NhqDolBmKhRG6JQUX8GJYD+aZaBaGweAqEwEkYPNpDaL4u2kIJXi8a5xgKPwViucQuj8EBrnqXJ/i0DARlyJwwCyIYglaLxtDG"
var_s = var_s + "DpVjSRY7EwUY0kQexMD+MhrgsOJAB2LJzCKOAZG0O4gn8GANFuLptBaLpREKUwRG0MJylOOYPnuEpjjOTIamAYo7G/QxfDUMAsBAWI7ESe40ZuQ5bjafY+GycZcigMBO"
var_s = var_s + "DOZJ/CoTo8F8GZGDGI58iaRhKEwZIhkYSZ8GcFYQVeZIqDCThsFiMQ7g+fI8n8LAOlyTw1CuMxSjMNQqHMUojDWSxPnyKJDB8CpjBSag+iSE4/EmUpLh0KI2lKCxNCiM"
var_s = var_s + "vkg0KxHhYNBSACMQyA6c5wn8MJrg2Axflga4DAaOAviuApyjgLorg0dJ/laDICAyNQyg8LR47INxznzfI3jOPkS4NQMDzCoPgMQUBNqzFyJAco0ROLRFOPkVIEB4v7FW"
var_s = var_s + "BAeT/xTB7E+OYR4MAzjzAMG8GIxgPj8CSJwIolxjCJTeB8cw7hIjVDqD0LwkA3BpAMNYFgbAxDGF8C0aYxw+gpA8GEeI/QgjJFeHcc4/xBjggePEYgfRPjnAOJAN4+QD"
var_s = var_s + "jHCiN0TQhBMiODWOkA4+RqjGH0P4W4sRjCdB4GkaIxhOD6HiM0V4ehfCRFcEsDIZhkjcD4J8PwQR/j3D8Acf43x8h+B+Jkf49RPh/CCLIVIEwTBxFsP8L4+x/CAAgA4A"
var_s = var_s + "IQAsADACMoSA6wghEAYIAQBAQA=="
.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAAEhABEwFg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDaMUjwlDiEgADCNAySCKkGRHG6MI6gOapCg"
var_s1 = var_s1 + "OIYjS7KYASTIMDw7EIZJ7jSioboKNo9ABQT71GAFJr/DChKIhWiKIoKI4hAZHAIQTR8QylKirIwlcYhVCWa5tS82CzoJrKdI4WZHFgwHR8cRxLKVJQlaDZSoIMQ2STfV"
var_s1 = var_s1 + "7TZLkQyZNSTJQpGq6HxWeIcETkMBlLIGNSrNCqIrwChach2XpLQjeYAZTAdR43TqBbLqeyYXq+dwAWxtdzXDacXy/TzWAA1LLMKr/EpZDhSxARVDbD4XY7TdBcDwsOYA"
var_s1 = var_s1 + "mQcohjyXQ8G6QRkgSa41H0WY+luSx1l6eZ2noLYFEePwDlUdQ8HufRsCSIBpDGHQOicIwtBoBguGuBAhDWfxGkMZAkCgeAQhcEQiAYEYDmABx8hANRYmQMhKHMTItB+I"
var_s1 = var_s1 + "RoGIF4GGEMoeBKBQhGGfRWgiYhIgYHYIE+c5Ym8P5OlMWgsguIpYj4KQ7mIExMi6CIVGOKJTD/OxyDuDxVDiWB/g2CAIgyZwzk+eQeEmEgkikBIuCADRJD4Iw5AyU5+F"
var_s1 = var_s1 + "SFYlFkXRThQZQJEkVg4gyM5+GCGImBmDhbhOTRCj4RRVg4Ewkn+GxmnmOhwhaZopiYaxUk4Awgn+Hhnjmah8h0JQJioI4fCgSZ6HqIAnGoDoGh8aJKCCMAgGiKgygUVY"
var_s1 = var_s1 + "NEoPoViQFRqE6E4WmkYpAgKJBpioHJ/iUSAqhKIIimeeoOh4NQLBIDoniSKgqjCA4szqYJoDcKxqmKN4uGkSo2oGKxam6Qoug2Sp0gRggiBaQYxCuGpyFuMhsgsKRTjM"
var_s1 = var_s1 + "bA7DqI40AsIgakuNQsEoUpZYIOxqlONRsDoUphjgCB7G6ZIxGWMpMgeOgsBMbo2jyDoLlCW45i6cpSmmOJvGuTpziUL4jFCNAiC8G56nWP5ljwDJVC0CIcBcB5Dm8dRP"
var_s1 = var_s1 + "ZyTRSlcDY/DAa5ZFaRRxEKVIKkOL5blcG5Hg0UpYgsVYPhuVwpDaco87eSYyFyHRTkscoslcEQ/nMExYjYIwygyWw0k2c4iDCVgtkiXJ3CyT4yCUTxDCMdI9BsP5LjSL"
var_s1 = var_s1 + "QTEMI40m0IxAd4YxYjgI51NsXhVjWIg8leVp1lzLJYnYIpkhCWRzG2HxqDWS4SEcbJXlUPZAhGXAJC2TxQD+O8AwuQ6i8HMGcIItRKDwD4BcBIsx3j7HiCcTw8BeBvAe"
var_s1 = var_s1 + "LoS4RBMiwC6JITgZwEjLHgEoW4JglBzD4LcBozxNotBSM4eAPA7hBGiHMQo2QVjPDoWcU4yRJCmGCHgJYdRODHC4H8ewRGWhLHsL0H4XgvASHMMkPY3g6C9FuB4P4+Av"
var_s1 = var_s1 + "AJD0EwO4vA1CtHCBMDwEQZjmHwP4SIsgvh6D8C8II6h9geFyDUdQcwVCfF4G0C4xBvjBG2PwQg2RaBfH4MoTI9Rgh9HMNccY+BVDfC+NQL4kxFC3HOPgP4nwjjwBsIYA"
var_s1 = var_s1 + "AnQ/hPHqP0XwiABgABABMdwgBHj1H0MACItgYAEHoAMPwUAWjbGAPEHgNhjAIE+IIKAFR9AVBwDAE44B+AbEEIULQDxgiBCAP4Q4Sx5CFBGOoCowhMBIBgEUAA2wMBCE"
var_s1 = var_s1 + "MBQIQqA2gLBAKwGYhgoDRHuEIbAbwFigHoDMDYgwEBRCGFgOIERxAAH+IgMQiA3AMBwIsB4RhuAsEUCMUwKRZh4E2BMAwGBRiFAiFYFIRQRCtAmEUDgTQKCRDcC4YoSB"
var_s1 = var_s1 + "eBUHGBAbgGBIiMFSI8XAqQNiGG4HARwEQ/A1GMKEJQVRDjYHUBsSI5gejHFQPkDoBQWB2BUMMeAeAHCJASCEUgLBDiQAGHQMQig0gGB4AcHghBJAyCEEkCoaQMApFILw"
var_s1 = var_s1 + "R4kg5BuCUJUHILwRgQHiFMSQUhHBKCSAkFgMQig8EYBUCQPA5hICSFpKgeBzCUHEKANwjAwhTBAMcPgrRLgjHkF0ZYmQWgtFKKwW4lApDCCuEwLIYQXjFCYLUCochwBy"
var_s1 = var_s1 + "GWMkTQOxzB4HKJccQrgyhMGSJ0Go5hCDTA2MMDwZRKgxH2DQEw+ByicBmIQVYTRYhXBsMUMIVhNjjEkHUZw0RvA5BOCgY4FRJiiDqE4BI7QcCmGSFMToExogVCcOkbIO"
var_s1 = var_s1 + "xzhaBmJ0AYnA1AMdoCsKIJQEgfHoB4QQDAJCtCGGgHoEQMDiFtPIKQrAdDNHiAMEAICAgA=="
.Add(2,var_s1)
endwith
.SelBackColor = 0x1000000
.SelForeColor = RGB(0,0,0)
.BackColorHeader = 0x2000000
.Object.ScrollPartVisible(0,65536) = .T.
.Object.ScrollPartVisible(1,65536) = .T.
.Object.ScrollPartVisible(2,65536) = .T.
.ScrollWidth = 4
.Object.Background(276) = RGB(240,240,240)
.Object.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Object.Background(404) = .Background(276)
.Object.Background(388) = .Background(260)
.Object.Background(511) = .Background(276)
.Object.Background(18) = RGB(196,196,196)
.Object.Background(142) = .Background(18)
.Object.Background(141) = .Background(18)
.Object.Background(170) = RGB(2,0,0)
.BackColorSortBar = .BackColor
.EndUpdate
.BeginUpdate
.Mode = 3
var_s2 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s2 = var_s2 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s2 = var_s2 + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s2 = var_s2 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s2
.Select = "RO\CJ"
.EndUpdate
endwith
|
|
40
|
How can I format a column so it display its content in a different way
*** CreateView event - A view has been created. ***
LPARAMETERS View
*** Columns("StateCode").Visible = False
with thisform.CascadeTree1
with .View
.BeginUpdate
.ContinueColumnScroll = .F.
.ScrollBySingleLine = .T.
.DrawGridLines = -1
.EnsureVisibleColumn("Date")
.Columns.Item("CountryCode").Visible = .F.
with .Columns.Item("Date")
endwith
with .Columns.Item("Function")
endwith
with .Columns.Item("Coordinates")
endwith
with .Columns.Item("Status")
endwith
.EndUpdate
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.FitCascadeColumns = 7
.Mode = 3
.ScrollWidth = 4
.ScrollHeight = 4
var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Images(var_s)
var_s1 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s1 = var_s1 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s1 = var_s1 + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s1 = var_s1 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s1
.Select = "US\OR"
.EndUpdate
endwith
|
|
39
|
How can I add a position column
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
with .View
with .Columns.Add("Pos")
.Width = 32
.AllowSizing = .F.
.Position = 0
.FormatColumn = "1 pos ``"
.Def(4) = 15790320
.Alignment = 2
.HeaderAlignment = .Alignment && .Alignment
.Def(49) = 2
.Def(48) = 2
.Def(52) = 2
.Def(53) = 2
endwith
.CountLockedColumns = 1
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\IA"
.EndUpdate
endwith
|
|
38
|
How can I display icons or images
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
with .View
.EnsureVisibleColumn("Function")
with .Columns.Item("Function")
endwith
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Images(var_s)
.Mode = 3
var_s1 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s1 = var_s1 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s1 = var_s1 + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s1 = var_s1 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s1
.Select = "US\MN"
.EndUpdate
endwith
|
|
37
|
How can I turn-on the control's status bar
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
*** ViewEndChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeTree1
.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarHeight = 24
.Mode = 3
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Name = "Romania\Cluj\Baciu*"
.EndUpdate
endwith
|
|
36
|
How can I disable incremental searching
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
.View.AutoSearch = .F.
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
35
|
ScrollBar extension
*** CreateView event - A view has been created. ***
LPARAMETERS View
*** Columns("StateCode").Visible = False
with thisform.CascadeTree1
with .View
.ColumnAutoResize = .T.
.Columns.Item("CountryCode").Visible = .F.
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Object.ScrollPartVisible(0,65536) = .T.
.Object.ScrollPartVisible(1,65536) = .T.
.Object.ScrollPartVisible(2,65536) = .T.
.ScrollWidth = 4
.Object.Background(276) = RGB(240,240,240)
.Object.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Object.Background(404) = .Background(276)
.Object.Background(388) = .Background(260)
.Object.Background(511) = .Background(276)
.Object.Background(18) = RGB(196,196,196)
.Object.Background(142) = .Background(18)
.Object.Background(141) = .Background(18)
.Object.Background(170) = RGB(2,0,0)
.EndUpdate
.BeginUpdate
.Mode = 3
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.DefaultView().Columns.Item("CountryName").SortOrder = 1
.DefaultView().NextView.Columns.Item("StateName").SortOrder = 1
with .DefaultView().NextView.NextView
.ColumnAutoResize = .F.
with .Columns.Item("Name")
.SortOrder = 1
.Width = 128
endwith
with .Items
.SelectItem(.FindItem("Anchorage","Name")) = .T.
endwith
endwith
.EndUpdate
endwith
|
|
34
|
How can I access the next/prev/parent/child view
*** CreateView event - A view has been created. ***
LPARAMETERS View
*** Columns("StateCode").Visible = False
with thisform.CascadeTree1
with .View
.ColumnAutoResize = .T.
.Columns.Item("CountryCode").Visible = .F.
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 2
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "RO\CJ"
.DefaultView().Columns.Item("CountryName").SortOrder = 1
.DefaultView().NextView.Columns.Item("StateName").SortOrder = 1
with .DefaultView().NextView.NextView
.BeginUpdate
.ColumnAutoResize = .F.
with .Columns.Item("Name")
.Width = 128
.SortOrder = 1
endwith
.SingleSort = .F.
.AllowGroupBy = .T.
.Columns.Item("Status").SortOrder = 2
.TreeColumnIndex = .Columns.Item("Name").Index
.EndUpdate
endwith
.EndUpdate
endwith
|
|
33
|
Predefined Keywords of ShowContextMenu property
*** CreateView event - A view has been created. ***
LPARAMETERS View
*** Columns("StateCode").Visible = False
with thisform.CascadeTree1
with .View
.ColumnAutoResize = .T.
.Columns.Item("CountryCode").Visible = .F.
endwith
.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
*** ViewEndChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeTree1
.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
.ExecuteContextMenu = 0
endwith
with thisform.CascadeTree1
.BeginUpdate
.AllowSplitView = 1
.FitCascadeColumns = 3
.Mode = 2
.StatusBarVisible = 2
.StatusBarHeight = 24
.Object.ScrollPartVisible(0,65536) = .T.
.Object.ScrollPartVisible(1,65536) = .T.
.Object.ScrollPartVisible(2,65536) = .T.
.ScrollWidth = 4
.Object.Background(276) = RGB(240,240,240)
.Object.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Object.Background(404) = .Background(276)
.Object.Background(388) = .Background(260)
.Object.Background(511) = .Background(276)
.Object.Background(18) = RGB(196,196,196)
.Object.Background(142) = .Background(18)
.Object.Background(141) = .Background(18)
.Object.Background(170) = RGB(2,0,0)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.ShowContextMenu = "`vlevels=` + vlevels + `,vlevel=` + vlevel + `,hlevels=` + hlevels + `,hlevel=` + hlevel + `,view=` + view "
.SplitViewHeight = "256"
.EndUpdate
endwith
|
|
32
|
How can I display the identifiers of the control's context menu (debug)
*** CreateView event - A view has been created. ***
LPARAMETERS View
*** Columns("StateCode").Visible = False
with thisform.CascadeTree1
with .View
.ColumnAutoResize = .T.
.Columns.Item("CountryCode").Visible = .F.
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
*** ViewEndChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeTree1
DEBUGOUT( .ExecuteContextMenu )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.ShowContextMenu = "[debug]Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
.EndUpdate
endwith
|
|
31
|
ShowContextMenu usage
*** CreateView event - A view has been created. ***
LPARAMETERS View
*** Columns("StateCode").Visible = False
with thisform.CascadeTree1
with .View
.ColumnAutoResize = .T.
.Columns.Item("CountryCode").Visible = .F.
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
*** ViewEndChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeTree1
DEBUGOUT( .ExecuteContextMenu )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.ShowContextMenu = "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
.EndUpdate
endwith
|
|
30
|
How can I resize automatically all views, when the control is resized
*** CreateView event - A view has been created. ***
LPARAMETERS View
*** Columns("StateCode").Visible = False
with thisform.CascadeTree1
with .View
.ColumnAutoResize = .T.
.Columns.Item("CountryCode").Visible = .F.
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
29
|
How can I hide some columns
*** CreateView event - A view has been created. ***
LPARAMETERS View
*** Columns("StateCode").Visible = False
with thisform.CascadeTree1
with .View
.ColumnAutoResize = .T.
.Columns.Item("CountryCode").Visible = .F.
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
28
|
Is it possible to disable resizing the cascade columns
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
.View.ColumnAutoResize = .T.
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Object.Background(18) = RGB(196,196,196)
.Mode = 771 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exDisableResizeCascadeColumns Or CascadeModeEnum.exSplitFixCascadeMode
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
27
|
SplitFixCascadeMode Mode
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Object.Background(18) = RGB(196,196,196)
.Mode = 3
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
26
|
FixCascadeMode Mode
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Object.Background(18) = RGB(196,196,196)
.DefColumnWidth = 96
.Mode = 0
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
25
|
SplitEqualCascadeMode Mode
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Object.Background(18) = RGB(196,196,196)
.Mode = 2
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
24
|
Default Mode
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Object.Background(18) = RGB(196,196,196)
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
23
|
SingleCascadeMode ( single-view )
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 1
with .DefaultView()
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Cities Where CountryCode = 'RO' "
.DataSource = var_s
.AllowGroupBy = .T.
.SortBarVisible = .T.
.Columns.Item("StateCode").SortOrder = 1
.Name = "Name"
endwith
.Name = "Isaccea"
.EndUpdate
endwith
|
|
22
|
How can I display the current selection, as a path
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
.StatusBarLabel = .Name
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
*** ViewEndChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeTree1
.StatusBarLabel = .Name
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.Mode = 3
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
21
|
How can I add multiple-views to the control
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 3
var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou"
var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName"
var_s = var_s + ";Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * "
var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.DataSource = var_s
.Select = "US\AK"
.EndUpdate
endwith
|
|
20
|
I wish I select items based on names, rather than keys. Is that possible
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
.View.ColumnAutoResize = thisform.CascadeTree1.FormatABC("not(A = `City`)",.View.Tag)
label = .FormatABC("`<b>Select = </b>` + value",.Select)
label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,.Name)
.StatusBarLabel = label
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
*** ViewEndChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeTree1
label = .FormatABC("`<b>Select = </b>` + value",.Select)
label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,.Name)
.StatusBarLabel = label
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 2
.StatusBarVisible = 18 && StatusBarAnchorEnum.exStatusBarWordWrap Or StatusBarAnchorEnum.exStatusBarAnchorTop
ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName"
ds = .FormatABC("A + `;` + B",ds,dm1)
var_s = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Sele"
var_s = var_s + "ct * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name"
dm2 = var_s
ds = .FormatABC("A + ` >>> ` + B",ds,dm2)
var_s1 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Cit"
var_s1 = var_s1 + "y;Name=Name"
dm3 = var_s1
ds = .FormatABC("A + ` >>> ` + B",ds,dm3)
.DataSource = ds
.Name = "Romania\Cluj\Baciu*"
.EndUpdate
endwith
|
|
19
|
I've noticed that I can't select multiple items. How can I do that
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag)
with .View
.SingleSel = .F.
.ColumnAutoResize = bColumnAutoResize
endwith
label = .FormatABC("`<b>Select = </b>` + value",.Select)
label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,.Name)
.StatusBarLabel = label
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
*** ViewEndChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeTree1
label = .FormatABC("`<b>Select = </b>` + value",.Select)
label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,.Name)
.StatusBarLabel = label
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 2
.StatusBarVisible = 18 && StatusBarAnchorEnum.exStatusBarWordWrap Or StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarHeight = 48
ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName"
ds = .FormatABC("A + `;` + B",ds,dm1)
var_s = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Sele"
var_s = var_s + "ct * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name"
dm2 = var_s
ds = .FormatABC("A + ` >>> ` + B",ds,dm2)
var_s1 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Cit"
var_s1 = var_s1 + "y;Name=Name"
dm3 = var_s1
ds = .FormatABC("A + ` >>> ` + B",ds,dm3)
.DataSource = ds
.Select = "RO\CJ|D*"
.EndUpdate
endwith
|
|
18
|
How do I programmatically selects a path/item
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag)
.View.ColumnAutoResize = bColumnAutoResize
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
*** ViewEndChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeTree1
.StatusBarLabel = thisform.CascadeTree1.Select
endwith
with thisform.CascadeTree1
.BeginUpdate
.Mode = 2
.StatusBarVisible = 1
ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country"
ds = .FormatABC("A + `;` + B",ds,dm1)
var_s = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Tag=State ||| Member=Select * FROM Citie"
var_s = var_s + "s WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City"
dm2 = var_s
ds = .FormatABC("A + ` >>> ` + B",ds,dm2)
var_s1 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Cit"
var_s1 = var_s1 + "y"
dm3 = var_s1
ds = .FormatABC("A + ` >>> ` + B",ds,dm3)
.DataSource = ds
.Select = "RO\CJ"
.EndUpdate
endwith
|
|
17
|
DataSource/DataMember/Key/Tag
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
var_s = "value replace `data source` with `<b><fgcolor=808080>Source</fgcolor></b>` replace `Source` with `<b><fgcolor=808080>Source</fgc"
var_s = var_s + "olor></b>` replace `Member` with `<b><fgcolor=808080>Member</fgcolor></b>` replace `Key` with `<b><fgcolor=808080>Key</fgcolor><"
var_s = var_s + "/b>` replace `Tag` with `<b><fgcolor=808080>Tag</fgcolor></b>` replace `;` with `;<br>`"
.StatusBarLabel = .FormatABC(var_s,.View.DataSource)
bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag)
nWidth = .FormatABC("A = `City` ? B : C",.View.Tag,.View.WidthToFit,.View.Width)
with .View
.ColumnAutoResize = bColumnAutoResize
.Width = nWidth
endwith
endwith
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarHeight = 58
.StatusBarVisible = 18 && StatusBarAnchorEnum.exStatusBarWordWrap Or StatusBarAnchorEnum.exStatusBarAnchorTop
ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country"
ds = .FormatABC("A + `;` + B",ds,dm1)
var_s = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Tag=State ||| Member=Select * FROM Citie"
var_s = var_s + "s WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City"
dm2 = var_s
ds = .FormatABC("A + ` >>> ` + B",ds,dm2)
var_s1 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Cit"
var_s1 = var_s1 + "y"
dm3 = var_s1
ds = .FormatABC("A + ` >>> ` + B",ds,dm3)
.DataSource = ds
.EndUpdate
endwith
|
|
16
|
DataSource (view, data source, data member, ACCDB)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could "+chr(34)+"Data Source=...;Data Member=..."+chr(34)+" or "+chr(34)+"Source=...;Member=..."+chr(34)+" "
.DefColumnWidth = 336
ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm = "Data Member=Select * FROM Countries"
with .DefaultView()
.DataSource = thisform.CascadeTree1.FormatABC("A + `;` + B",ds,dm)
.ColumnAutoResize = .T.
endwith
.EndUpdate
endwith
|
|
15
|
DataSource (view, data source, data member, MDB)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could "+chr(34)+"Data Source=...;Data Member=..."+chr(34)+" or "+chr(34)+"Source=...;Member=..."+chr(34)+" "
.DefColumnWidth = 336
ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb"
dm = "Data Member=Select * FROM Countries"
with .DefaultView()
.DataSource = thisform.CascadeTree1.FormatABC("A + `;` + B",ds,dm)
.ColumnAutoResize = .T.
endwith
.EndUpdate
endwith
|
|
14
|
DataSource (view, ADODB, ACCDB)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
ado = CreateObject("ADODB.Recordset")
with ado
.Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,3)
endwith
with .DefaultView()
.DataSource = ado
.ColumnAutoResize = .T.
endwith
.EndUpdate
endwith
|
|
13
|
DataSource (view, ADODB, MDB)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
ado = CreateObject("ADODB.Recordset")
with ado
.Open("Countries","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb",3,3)
endwith
with .DefaultView()
.DataSource = ado
.ColumnAutoResize = .T.
endwith
.EndUpdate
endwith
|
|
12
|
DataSource (control, data source, data member, ACCDB)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could "+chr(34)+"Data Source=...;Data Member=..."+chr(34)+" or "+chr(34)+"Source=...;Member=..."+chr(34)+" "
.DefColumnWidth = 336
ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm = "Data Member=Select * FROM Countries"
.DataSource = .FormatABC("A + `;` + B",ds,dm)
.View.ColumnAutoResize = .T.
.EndUpdate
endwith
|
|
11
|
DataSource (control, data source, data member, MDB)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could "+chr(34)+"Data Source=...;Data Member=..."+chr(34)+" or "+chr(34)+"Source=...;Member=..."+chr(34)+" "
.DefColumnWidth = 336
ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb"
dm = "Data Member=Select * FROM Countries"
.DataSource = .FormatABC("A + `;` + B",ds,dm)
.View.ColumnAutoResize = .T.
.EndUpdate
endwith
|
|
10
|
DataSource (control, ADODB, ACCDB)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
ado = CreateObject("ADODB.Recordset")
with ado
.Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,3)
endwith
.DataSource = ado
.View.ColumnAutoResize = .T.
.EndUpdate
endwith
|
|
9
|
DataSource (control, ADODB, MDB)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
ado = CreateObject("ADODB.Recordset")
with ado
.Open("Countries","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb",3,3)
endwith
.DataSource = ado
.View.ColumnAutoResize = .T.
.EndUpdate
endwith
|
|
8
|
DataSource (view, XMLDOMDocument)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
.DefColumnWidth = 336
with .DefaultView()
xml = CreateObject("MSXML.DOMDocument")
with xml
.load("C:\Program Files\Exontrol\ExCascadeTree\Sample\Testing.xml")
endwith
.DataSource = xml
.ColumnAutoResize = .T.
endwith
.EndUpdate
endwith
|
|
7
|
DataSource (view, XML, file)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
.DefColumnWidth = 336
with .DefaultView()
.DataSource = "http://www.exontrol.net/testing.xml"
.ColumnAutoResize = .T.
endwith
.EndUpdate
endwith
|
|
6
|
DataSource (control, XMLDOMDocument)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
.DefColumnWidth = 336
xml = CreateObject("MSXML.DOMDocument")
with xml
.load("C:\Program Files\Exontrol\ExCascadeTree\Sample\Testing.xml")
endwith
.DataSource = xml
.View.ColumnAutoResize = .T.
.EndUpdate
endwith
|
|
5
|
DataSource (control, XML, file)
*** Error event - An internal error occurs. ***
LPARAMETERS Error,Description
with thisform.CascadeTree1
DEBUGOUT( "Error" )
DEBUGOUT( Description )
endwith
with thisform.CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
.DefColumnWidth = 336
.DataSource = "http://www.exontrol.net/testing.xml"
.View.ColumnAutoResize = .T.
.EndUpdate
endwith
|
|
4
|
How can I get the selected items (sample 1)
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
with .View
k = .ParentView.Value()
.BeginUpdate
.ColumnAutoResize = .T.
.Key = -1
.Columns.Add(k)
with .Items
.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k))
endwith
.EndUpdate
endwith
endwith
*** ViewEndChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeTree1
DEBUGOUT( "End" )
DEBUGOUT( Operation )
with .View.Items
DEBUGOUT( "FocusItem" )
DEBUGOUT( .CellCaption(.FocusItem,0) )
DEBUGOUT( "SelectedItem" )
DEBUGOUT( .CellCaption(.SelectedItem(0),0) )
endwith
endwith
*** ViewStartChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeTree1
DEBUGOUT( "Start" )
DEBUGOUT( Operation )
endwith
with thisform.CascadeTree1
.BeginUpdate
with .View
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Add("Default")
.Key = 0
.LinesAtRoot = -1
with .Items
.AddItem("Item A")
.SelectItem(.AddItem("Item B")) = .T.
.AddItem("Item C")
endwith
.EndUpdate
endwith
.EndUpdate
endwith
|
|
3
|
Can I use this control as a simple tree
with thisform.CascadeTree1
.BeginUpdate
.Mode = 1
with .View
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Add("Default")
.Key = -1
.LinesAtRoot = -1
with .Items
.AddItem("Item A")
.InsertItem(.AddItem("Item B"),Null,"Child")
.AddItem("Item C")
endwith
.EndUpdate
endwith
.EndUpdate
endwith
|
|
2
|
How can I use this control
*** CreateView event - A view has been created. ***
LPARAMETERS View
with thisform.CascadeTree1
with .View
k = .ParentView.Value()
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Add(k)
with .Items
.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k))
endwith
.EndUpdate
endwith
endwith
with thisform.CascadeTree1
.BeginUpdate
with .View
.BeginUpdate
.ColumnAutoResize = .T.
.Columns.Add("Default")
.Key = 0
with .Items
.AddItem("Item A")
.SelectItem(.AddItem("Item B")) = .T.
.AddItem("Item C")
endwith
.EndUpdate
endwith
.EndUpdate
endwith
|
|
1
|
How do I change the control's background color
with thisform.CascadeTree1
.BackColor = RGB(240,240,240)
endwith
|