|
198
|
Is it possible to change the header's visual appearance (EBN)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComHeaderVisible to True
Set ComBackColorHeader to |CI$1000000
Set ComHeaderHeight to 22
Send ComEndUpdate
End_Procedure
|
|
197
|
Is it possible to change the header's visual appearance
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderVisible to True
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 22
Send ComEndUpdate
End_Procedure
|
|
196
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComImageSize to 32
Set ComDefaultItemHeight to 36
Set ComHeaderHeight to (ComDefaultItemHeight(Self))
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to 16
Send Destroy to hoStdFont
Variant voStdFont1
Get ComToolTipFont to voStdFont1
Handle hoStdFont1
Get Create (RefClass(cComStdFont)) to hoStdFont1
Set pvComObject of hoStdFont1 to voStdFont1
Variant v
Variant voStdFont2
Get ComFont to voStdFont2
Handle hoStdFont2
Get Create (RefClass(cComStdFont)) to hoStdFont2
Set pvComObject of hoStdFont2 to voStdFont2
Get ComSize of hoStdFont2 to v
Send Destroy to hoStdFont2
Set ComSize of hoStdFont1 to v
Send Destroy to hoStdFont1
Variant voStdFont3
Get ComFilterBarFont to voStdFont3
Handle hoStdFont3
Get Create (RefClass(cComStdFont)) to hoStdFont3
Set pvComObject of hoStdFont3 to voStdFont3
Variant v1
Variant voStdFont4
Get ComFont to voStdFont4
Handle hoStdFont4
Get Create (RefClass(cComStdFont)) to hoStdFont4
Set pvComObject of hoStdFont4 to voStdFont4
Get ComSize of hoStdFont4 to v1
Send Destroy to hoStdFont4
Set ComSize of hoStdFont3 to v1
Send Destroy to hoStdFont3
Set ComIndent to 26
Set ComDescriptionHeight to 96
Set ComDisplayBoolAs to OLEexBoolCheck
Set ComFilterBarPromptVisible to OLEexFilterBarVisible
Set ComHeaderVisible to True
Send ComImages ("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==" to Nothing
Get ComAdd of hoAppearance 2 ("gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" + ;
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==") to Nothing
Get ComAdd of hoAppearance 3 ("gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" + ;
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=") to Nothing
Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
Send Destroy to hoAppearance
Set ComBackColorHeader to |CI$4c6c6c6
Set ComSelBackColor to |CI$4000000
Set ComSelForeColor to (RGB(0,0,1))
Set ComBackground OLEexCursorHoverColumn to -1
Set ComBackground OLEexHeaderFilterBarButton to |CI$4000000
Set ComBackground OLEexFooterFilterBarButton to |CI$40000ff
Set ComBackground OLEexCheckBoxState0 to |CI$1000000
Set ComBackground OLEexCheckBoxState1 to |CI$2000000
Set ComBackground OLEexCheckBoxState2 to |CI$3000000
Send ComSelect (pvComObject(Self))
Send ComSort Nothing Nothing
Send ComEndUpdate
End_Procedure
|
|
195
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComImageSize to 16
Set ComDisplayBoolAs to OLEexBoolCheck
Set ComFilterBarPromptVisible to OLEexFilterBarVisible
Set ComHeaderVisible to True
Send ComImages ("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
Send Destroy to hoAppearance
Set ComBackColorHeader to |CI$4c6c6c6
Set ComSelBackColor to |CI$4000000
Set ComSelForeColor to (RGB(0,0,1))
Set ComBackground OLEexCursorHoverColumn to -1
Set ComBackground OLEexHeaderFilterBarButton to |CI$4000000
Set ComBackground OLEexFooterFilterBarButton to |CI$40000ff
Send ComSelect (pvComObject(Self))
Send ComSort Nothing Nothing
Send ComEndUpdate
End_Procedure
|
|
194
|
How can I add property of button type
// Fired when the properties browser is about to change a property's value using a modal dialog.
Procedure OnComModalPropertyChange Variant llProperty Variant llValue Boolean llCancel
Forward Send OnComModalPropertyChange llProperty llValue llCancel
Showln (ComProperty(Self,Nothing))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComAdd "Button" "the button is always shown" OLEButton Nothing Nothing Nothing to Nothing
Get ComAdd "EditButton" "show on focus only" OLEEditButton Nothing Nothing Nothing to Nothing
Get ComAdd "EditPage" "show on focus only" OLEEditPage Nothing Nothing Nothing to Nothing
Send ComEndUpdate
End_Procedure
|
|
193
|
Is it possible to decode/view the control's Layout property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComSelect (pvComObject(Self))
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Variant vText64
Get ComLayout to vText64
Showln (ComDecode64TextW(hoPrint,vText64))
Send Destroy to hoPrint
Send ComEndUpdate
End_Procedure
|
|
192
|
Does your control supports scrolling by touching the screen
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComSelect (pvComObject(Self))
Set ComAutoDrag to (OLEexAutoDragScrollOnShortTouch + OLEexAutoDragScroll)
Send ComEndUpdate
End_Procedure
|
|
191
|
If I enabled the list filter on runtime, the user can click on [x] and close the filter text. Can I disabled this action
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowMultipleValuesOnEnum to True
Send ComSelect (pvComObject(Self))
Send ComSort True Nothing
Set ComFilterBarPromptVisible to OLEexFilterBarAlwaysVisible
Send ComEndUpdate
End_Procedure
|
|
190
|
Is it possible to specify a different background/foreground color for the property from the cursor, aka hot item
Procedure OnCreate
Forward Send OnCreate
Send ComSelect (pvComObject(Self))
Set ComHotBackColor to (RGB(0,0,255))
Set ComHotForeColor to (RGB(255,255,255))
Set ComSelBackColor to (RGB(0,0,128))
Set ComSelForeColor to (RGB(255,255,255))
End_Procedure
|
|
189
|
My development environment does not have any Object,GetOcx,DefaultDispatch,GetControlUnknown,nativeObject, ... property, is there any alternative I can pass the component to PrintExt so I can get printed
Procedure OnCreate
Forward Send OnCreate
Send ComSelect (pvComObject(Self))
Set ComTemplate to "Dim p;p = CreateObject(`Exontrol.Print`);p.PrintExt = Me;p.AutoRelease = False;p.Preview();"
End_Procedure
|
|
188
|
How can I display checkboxes for flags values only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowMultipleValuesOnEnum to True
Variant voProperty
Get ComAdd "Nextevent" 81 OLEEditEnum Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Send ComAddValue of hoProperty 1 "Option A"
Send ComAddValue of hoProperty 2 "Option B"
Send ComAddValue of hoProperty 3 "Option C"
Send ComAddValue of hoProperty 4 "Option D"
Send ComAddValue of hoProperty 16 "Flag A"
Send ComAddValue of hoProperty 32 "Flag B"
Send ComAddValue of hoProperty 64 "Flag C"
Send ComAddValue of hoProperty 128 "Flag D"
Send Destroy to hoProperty
Send ComRefresh
Send ComEndUpdate
End_Procedure
|
|
187
|
Is is possible to display a checkbox on ENUM types
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowMultipleValuesOnEnum to True
Variant voProperty
Get ComAdd "Nextevent" 5 OLEEditEnum Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Send ComAddValue of hoProperty 1 "Flag A"
Send ComAddValue of hoProperty 2 "Flag B"
Send ComAddValue of hoProperty 4 "Flag C"
Send ComAddValue of hoProperty 8 "Flag D"
Send ComAddValue of hoProperty 16 "Flag E"
Send Destroy to hoProperty
Send ComRefresh
Send ComEndUpdate
End_Procedure
|
|
186
|
Is it possible to display the full path in the EditFolder editor
Procedure OnCreate
Forward Send OnCreate
Variant voProperty
Get ComAdd "Folder" "c:\" OLEEditFolder Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComOption of hoProperty OLEexEditFolderTitle to "Current Folder"
Set ComOption of hoProperty OLEexEditFolderShowEditBox to False
Set ComOption of hoProperty OLEexEditFolderShowPath to True
Send Destroy to hoProperty
End_Procedure
|
|
185
|
How can I include a "New Folder" button so user can create new folders when using the EditFolder form
Procedure OnCreate
Forward Send OnCreate
Variant voProperty
Get ComAdd "Folder" "" OLEEditFolder Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComOption of hoProperty OLEexEditFolderAllowNewFolder to True
Send Destroy to hoProperty
End_Procedure
|
|
184
|
Is it possible to show always the selection in the files/folders list in the EditFolder dialog
Procedure OnCreate
Forward Send OnCreate
Variant voProperty
Get ComAdd "Folder" "" OLEEditFolder Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComOption of hoProperty OLEexEditFolderNewUI to True
Send Destroy to hoProperty
End_Procedure
|
|
183
|
How can I hide the editbox in the EditFolder editor
Procedure OnCreate
Forward Send OnCreate
Variant voProperty
Get ComAdd "Folder" "" OLEEditFolder Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComOption of hoProperty OLEexEditFolderShowEditBox to False
Send Destroy to hoProperty
End_Procedure
|
|
182
|
How can I include the files in the in the EditFolder editor
Procedure OnCreate
Forward Send OnCreate
Variant voProperty
Get ComAdd "Folder" "" OLEEditFolder Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComOption of hoProperty OLEexEditFolderIncludeFiles to True
Send Destroy to hoProperty
End_Procedure
|
|
181
|
Is it possible to change the caption in the EditFolder editor
Procedure OnCreate
Forward Send OnCreate
Variant voProperty
Get ComAdd "Folder" "" OLEEditFolder Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComOption of hoProperty OLEexEditFolderTitle to "Select a directory..."
Send Destroy to hoProperty
End_Procedure
|
|
180
|
Is it possible to filter for properties that contains a specified text
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComSelect (pvComObject(Self))
Send ComSort True Nothing
Set ComFilterBarPromptVisible to True
Set ComFilterBarPrompt to "<font ;7><fgcolor=FF0000><c>Start Filtering..."
Set ComFilterBarPromptPattern to "back"
Set ComIncrementalSearch to OLEexContains
Send ComEndUpdate
End_Procedure
|
|
179
|
How can I filter the properties at runtime
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComSelect (pvComObject(Self))
Send ComSort True Nothing
Set ComFilterBarPromptVisible to True
Set ComFilterBarPrompt to "<font ;7><fgcolor=FF0000><c>Start Filtering..."
Set ComFilterBarPromptPattern to "Back"
Send ComEndUpdate
End_Procedure
|
|
178
|
Is it possible to change the caption being displayed in the filter bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComSelect (pvComObject(Self))
Send ComSort True Nothing
Set ComFilterBarPromptVisible to True
Set ComFilterBarPrompt to "<font ;7><fgcolor=FF0000><c>Start Filtering..."
Send ComEndUpdate
End_Procedure
|
|
177
|
How can I enable the filter-prompt feature
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComSelect (pvComObject(Self))
Send ComSort True Nothing
Set ComFilterBarPromptVisible to True
Send ComEndUpdate
End_Procedure
|
|
176
|
How do I specify the height of the control's header bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderVisible to True
Set ComHeaderHeight to 36
Send ComSelect (pvComObject(Self))
Send ComSort True Nothing
Send ComEndUpdate
End_Procedure
|
|
175
|
Is it possible to display a checkbox for ENUM types that allow BIT combinations
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowMultipleValuesOnEnum to True
Send ComSelect (pvComObject(Self))
Send ComSort True Nothing
Set ComFilterBarPromptVisible to True
Set ComFilterBarPromptPattern to "Inc"
Send ComEndUpdate
End_Procedure
|
|
174
|
Can I add different EditFile entries with different filters
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Text File" "text.txt" OLEEditFile Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComOption of hoProperty OLEexEditFileFilter to "Text Files (*.txt)|*.txt"
Send Destroy to hoProperty
Variant voProperty1
Get ComAdd "INI File" "text.ini" OLEEditFile Nothing Nothing Nothing to voProperty1
Handle hoProperty1
Get Create (RefClass(cComProperty)) to hoProperty1
Set pvComObject of hoProperty1 to voProperty1
Set ComOption of hoProperty1 OLEexEditFileFilter to "INI Files (*.ini)|*.ini"
Send Destroy to hoProperty1
Send ComEndUpdate
End_Procedure
|
|
173
|
Is it possible to expand items/entries when user types for searching properties
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpandOnSearch to True
Send ComSelect (pvComObject(Self))
Send ComEndUpdate
End_Procedure
|
|
172
|
Is it possible to show ticks on the slider control
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Slider" 50 OLEEditSlider Nothing Nothing Nothing to Nothing
Variant voProperty
Get ComAdd "Slider w/h ticks" 50 OLEEditSlider Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComSliderStep of hoProperty to 10
Set ComSliderTickFrequency of hoProperty to 10
Send Destroy to hoProperty
Send ComRefresh
End_Procedure
|
|
171
|
How can I edit a number between a range or interval
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Slider" 50 OLEEditSlider Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComNumeric of hoProperty to True
Set ComSpinStep of hoProperty to 0
Set ComSliderWidth of hoProperty to 0
Set ComSliderStep of hoProperty to 0
Set ComSliderMin of hoProperty to 0
Set ComSliderMax of hoProperty to 100
Send Destroy to hoProperty
End_Procedure
|
|
170
|
How can I edit a number between a range or interval
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Slider" "0.5" OLEEditSlider Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComNumericFloat of hoProperty to True
Set ComSpinStep of hoProperty to 0
Set ComSliderWidth of hoProperty to 0
Set ComSliderStep of hoProperty to 0
Set ComSliderMin of hoProperty to 0
Set ComSliderMax of hoProperty to 1
Send Destroy to hoProperty
End_Procedure
|
|
169
|
How can I add a slider or track bar editor, with a fixed size
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Slider" "0.5" OLEEditSlider Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComSliderWidth of hoProperty to 48
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
168
|
How can I add a slider or track bar editor, so it covers half of the cell
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Slider" "0.5" OLEEditSlider Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComSliderWidth of hoProperty to -50
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
167
|
How can I add a slider or track bar editor, so it covers the full cell
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Slider" "0.5" OLEEditSlider Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComSliderWidth of hoProperty to -100
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
166
|
How can I add a spin editor within a range or interval of float numbers
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowSpin to True
Variant voProperty
Get ComAdd "Slider" "0.5" OLEEditSlider Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComNumericFloat of hoProperty to True
Set ComSpinStep of hoProperty to ".01"
Set ComSliderWidth of hoProperty to 0
Set ComSliderMin of hoProperty to 0
Set ComSliderMax of hoProperty to 1
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
165
|
How can I add a spin editor within a range or interval of numbers
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowSpin to True
Variant voProperty
Get ComAdd "Slider" 10 OLEEditSlider Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComNumeric of hoProperty to True
Set ComSliderWidth of hoProperty to 0
Set ComSliderMin of hoProperty to 5
Set ComSliderMax of hoProperty to 15
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
164
|
Can I use your HTML format to display a property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComSelBackColor to |CI$1000000
Set ComSelForeColor to (RGB(0,0,0))
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComColumnWidth 0 to 304
Variant voProperty
Get ComAdd "I1" "link1" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComHTMLName of hoProperty to "<br>text<off 4>subscript</off><off -4>sup<off -4>ers</off>cript</off> icons <img>1</img>, <img>2</img>, ... pictures <img>p1</img>, <img>p2</img> <br><br>text <b>bold</b>, <i>italic</i>, <u>underline</u>, <s>strikeout</s>, ...<br><dotline>and so on...<br> <a>anchor</a> or <a2>hyperlink</a><br><fgcolor=FF0000>fgcolor</fgcolor> or <bgcolor=00FF00>bgcolor</bgcolor>"
Set ComHeight of hoProperty to 128
Send Destroy to hoProperty
Variant voProperty1
Get ComAdd "I2" "link1" OLEEdit Nothing Nothing Nothing to voProperty1
Handle hoProperty1
Get Create (RefClass(cComProperty)) to hoProperty1
Set pvComObject of hoProperty1 to voProperty1
Set ComHTMLName of hoProperty1 to "<sha ;;0>antialiasing</sha> format"
Send Destroy to hoProperty1
Send ComEndUpdate
End_Procedure
|
|
163
|
How can I display I picture to a property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
Variant voProperty
Get ComAdd "Picture 1" "link1" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComHTMLName of hoProperty to "<img>pic1</img> <b>1</b>"
Set ComHeight of hoProperty to 48
Send Destroy to hoProperty
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to Nothing
Variant voProperty1
Get ComAdd "Picture 2" "link2" OLEEdit Nothing Nothing Nothing to voProperty1
Handle hoProperty1
Get Create (RefClass(cComProperty)) to hoProperty1
Set pvComObject of hoProperty1 to voProperty1
Set ComHTMLName of hoProperty1 to "<img>pic2</img> <b>2</b>"
Set ComHeight of hoProperty1 to 32
Send Destroy to hoProperty1
Send ComEndUpdate
End_Procedure
|
|
162
|
How do I display an icon to a property
Procedure OnCreate
Forward Send OnCreate
Set ComDefaultItemHeight to 18
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voProperty
Get ComAdd "I1" "link1" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComHTMLName of hoProperty to "<img>1</img> <b>1</b>"
Send Destroy to hoProperty
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to Nothing
Variant voProperty1
Get ComAdd "I2" "link1" OLEEdit Nothing Nothing Nothing to voProperty1
Handle hoProperty1
Get Create (RefClass(cComProperty)) to hoProperty1
Set pvComObject of hoProperty1 to voProperty1
Set ComHTMLName of hoProperty1 to "<img>2</img> <b>2</b>"
Send Destroy to hoProperty1
Send ComEndUpdate
End_Procedure
|
|
161
|
How do I specify the height of a property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
Variant voProperty
Get ComAdd "Picture 1" "link1" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComHTMLName of hoProperty to "<img>pic1</img> <b>1</b>"
Set ComHeight of hoProperty to 48
Send Destroy to hoProperty
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to Nothing
Variant voProperty1
Get ComAdd "Picture 2" "link2" OLEEdit Nothing Nothing Nothing to voProperty1
Handle hoProperty1
Get Create (RefClass(cComProperty)) to hoProperty1
Set pvComObject of hoProperty1 to voProperty1
Set ComHTMLName of hoProperty1 to "<img>pic2</img> <b>2</b>"
Set ComHeight of hoProperty1 to 48
Send Destroy to hoProperty1
Send ComEndUpdate
End_Procedure
|
|
160
|
How do I edit a float number
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowSpin to True
Variant voProperty
Get ComAdd "Edit" "0.5" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComNumericFloat of hoProperty to True
Set ComSpinStep of hoProperty to "0.1"
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
159
|
How do I change the step for a spin
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowSpin to True
Variant voProperty
Get ComAdd "Edit" 10 OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComSpinStep of hoProperty to 10
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
158
|
How do I sort the items in a drop down editor
Procedure OnCreate
Forward Send OnCreate
Variant voProperty
Get ComAdd "Enum" 1 OLEEditEnum Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComDropDownItems of hoProperty to 1
Send ComAddValue of hoProperty 1 "First choice"
Send ComAddValue of hoProperty 2 "Second choice"
Send ComAddValue of hoProperty 3 "Third choice"
Send ComSortItems of hoProperty Nothing Nothing
Send Destroy to hoProperty
Send ComRefresh
End_Procedure
|
|
157
|
How do I specify the number of visible items in a drop down editor
Procedure OnCreate
Forward Send OnCreate
Variant voProperty
Get ComAdd "Enum" 1 OLEEditEnum Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComDropDownItems of hoProperty to 1
Send ComAddValue of hoProperty 1 "First choice"
Send ComAddValue of hoProperty 2 "Second choice"
Send ComAddValue of hoProperty 3 "Third choice"
Send Destroy to hoProperty
Send ComRefresh
End_Procedure
|
|
156
|
How do I bold a property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComBold of hoProperty to True
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
155
|
How do I disable or enable a property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComEnabled of hoProperty to False
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
154
|
How do I specify a tooltip for a property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowTooltip to True
Variant voProperty
Get ComAdd "ToolTip" "" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComToolTip of hoProperty to "This is a bit of text that shows up when the user hovers the cursor"
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
153
|
How do I specify the masking character
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Edit" 12 OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComMask of hoProperty to "##"
Set ComMaskChar of hoProperty to 48
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
152
|
How do I specify a mask
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Edit" 12 OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComMask of hoProperty to "##"
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
151
|
How do I edit a number
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowSpin to True
Variant voProperty
Get ComAdd "Edit" 15 OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComNumeric of hoProperty to True
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
150
|
How do I change the foreground color for a cell
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComCellForeColor of hoProperty 0 to (RGB(255,0,0))
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
149
|
How do I change the foreground color for a cell
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComCellForeColor of hoProperty 1 to (RGB(255,0,0))
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
148
|
How do I change the background color for a cell
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComCellBackColor of hoProperty 0 to (RGB(255,0,0))
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
147
|
How do I change the background color for a cell
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComCellBackColor of hoProperty 1 to (RGB(255,0,0))
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
146
|
How do I change the background color for a property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComBackColor of hoProperty to (RGB(255,0,0))
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
145
|
How do I change the foreground color for a property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComForeColor of hoProperty to (RGB(255,0,0))
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
144
|
How do I associate an extra data to a property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Color" 255 OLEEditColor Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComUserData of hoProperty to "your data"
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
143
|
How do I get the caption of the property, as it is displayed in the browser
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Color" 255 OLEEditColor Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComID of hoProperty to 12345
Send Destroy to hoProperty
Variant vProperty
Variant voProperty2
Get ComProperty "Color" to voProperty2
Handle hoProperty1
Get Create (RefClass(cComProperty)) to hoProperty1
Set pvComObject of hoProperty1 to voProperty2
Get ComDisplayValue of hoProperty1 to vProperty
Send Destroy to hoProperty1
Variant voProperty1
Get ComAdd vProperty "" OLELabel Nothing Nothing Nothing to voProperty1
Handle hoProperty2
Get Create (RefClass(cComProperty)) to hoProperty2
Set pvComObject of hoProperty2 to voProperty1
Set ComBold of hoProperty2 to True
Send Destroy to hoProperty2
Send ComEndUpdate
End_Procedure
|
|
142
|
How do I get the value of the property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComID of hoProperty to 12345
Send Destroy to hoProperty
Variant vProperty
Variant voProperty2
Get ComProperty "Edit" to voProperty2
Handle hoProperty1
Get Create (RefClass(cComProperty)) to hoProperty1
Set pvComObject of hoProperty1 to voProperty2
Get ComValue of hoProperty1 to vProperty
Send Destroy to hoProperty1
Variant voProperty1
Get ComAdd vProperty "" OLELabel Nothing Nothing Nothing to voProperty1
Handle hoProperty2
Get Create (RefClass(cComProperty)) to hoProperty2
Set pvComObject of hoProperty2 to voProperty1
Set ComBold of hoProperty2 to True
Send Destroy to hoProperty2
Send ComEndUpdate
End_Procedure
|
|
141
|
How do I make a property read only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComLocked of hoProperty to True
Send Destroy to hoProperty
Send ComEndUpdate
End_Procedure
|
|
140
|
How do I specify a description for a property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voProperty
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComDescription of hoProperty to "This is just a description"
Send Destroy to hoProperty
Set ComSelectedProperty to (ComProperty(Self,"Edit"))
Send ComEndUpdate
End_Procedure
|
|
139
|
How do I get the identifer of the property
Procedure OnCreate
Forward Send OnCreate
Variant voProperty
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComID of hoProperty to 12345
Send Destroy to hoProperty
Variant vProperty
Variant voProperty2
Get ComProperty "Edit" to voProperty2
Handle hoProperty1
Get Create (RefClass(cComProperty)) to hoProperty1
Set pvComObject of hoProperty1 to voProperty2
Get ComID of hoProperty1 to vProperty
Send Destroy to hoProperty1
Variant voProperty1
Get ComAdd vProperty "" OLELabel Nothing Nothing Nothing to voProperty1
Handle hoProperty2
Get Create (RefClass(cComProperty)) to hoProperty2
Set pvComObject of hoProperty2 to voProperty1
Set ComBold of hoProperty2 to True
Send Destroy to hoProperty2
Send ComRefresh
End_Procedure
|
|
138
|
How do I get the type of the property
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to Nothing
Variant vProperty
Variant voProperty1
Get ComProperty "Edit" to voProperty1
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty1
Get ComType of hoProperty to vProperty
Send Destroy to hoProperty
Variant voProperty
Get ComAdd vProperty "" OLELabel Nothing Nothing Nothing to voProperty
Handle hoProperty1
Get Create (RefClass(cComProperty)) to hoProperty1
Set pvComObject of hoProperty1 to voProperty
Set ComBold of hoProperty1 to True
Send Destroy to hoProperty1
Send ComRefresh
End_Procedure
|
|
137
|
How do I get the name of the property
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to Nothing
Variant vProperty
Variant voProperty1
Get ComProperty "Edit" to voProperty1
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty1
Get ComName of hoProperty to vProperty
Send Destroy to hoProperty
Variant voProperty
Get ComAdd vProperty "" OLELabel Nothing Nothing Nothing to voProperty
Handle hoProperty1
Get Create (RefClass(cComProperty)) to hoProperty1
Set pvComObject of hoProperty1 to voProperty
Set ComBold of hoProperty1 to True
Send Destroy to hoProperty1
Send ComRefresh
End_Procedure
|
|
136
|
How do I select a folder
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Folder" "" OLEEditFolder Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
135
|
How do I select a file
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "File" "" OLEEditFile Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
134
|
How do I slider or trackbar editor
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Slider" 50 OLEEditSlider Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
133
|
How do I add a button
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Button" "Aaa" OLEEditButton Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
132
|
How do I add a check box editor
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Check" True OLEEditCheck Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
131
|
How do I add a color editor
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Color" 255 OLEEditColorPage Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
130
|
How do I add a new object properties inside the control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComAdd "MySelf 1" (pvComObject(Self)) OLEEditObject Nothing Nothing Nothing to Nothing
Get ComAdd "MySelf 2" (pvComObject(Self)) OLEEditObject Nothing Nothing Nothing to Nothing
Send ComEndUpdate
End_Procedure
|
|
129
|
How do I add a new objects inside the control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComAdd "MySelf" (pvComObject(Self)) OLEEditObject Nothing Nothing Nothing to Nothing
Send ComEndUpdate
End_Procedure
|
|
128
|
How do I add a drop down editor with some predefined values
Procedure OnCreate
Forward Send OnCreate
Variant voProperty
Get ComAdd "DropDown" "Aaa" OLEEditDropDown Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Send ComAddValue of hoProperty 1 "First choice"
Send ComAddValue of hoProperty 2 "Second choice"
Send ComAddValue of hoProperty 3 "Third choice"
Send Destroy to hoProperty
Send ComRefresh
End_Procedure
|
|
127
|
How do I add a password editor
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Password" "pass" OLEEditPassword Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
126
|
How do I add a date picker editor
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Date" "1/1/2001" OLEEditDate Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
125
|
How do I add a drop down editor with some predefined values
Procedure OnCreate
Forward Send OnCreate
Variant voProperty
Get ComAdd "Enum" 1 OLEEditEnum Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Send ComAddValue of hoProperty 1 "First choice"
Send ComAddValue of hoProperty 2 "Second choice"
Send ComAddValue of hoProperty 3 "Third choice"
Send Destroy to hoProperty
Send ComRefresh
End_Procedure
|
|
124
|
How do I add a boolean editor
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Boolean" True OLEEditBoolean Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
123
|
How do I add a button or a page editor
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Page" "" OLEEditPage Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
122
|
How do I add a picture editor
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Picture" OLEEditPicture Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
121
|
How do I add a font editor
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Font" "Arial" OLEEditFontName Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
120
|
How do I add a font editor
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Font" "Arial" OLEEditFont Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
119
|
How do I add a color editor
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Color" 255 OLEEditColor Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
118
|
How do I add an edit
Procedure OnCreate
Forward Send OnCreate
Get ComAdd "Edit" "text" OLEEdit Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
117
|
How do I specify the character sets being included in the font editor
Procedure OnCreate
Forward Send OnCreate
Set ComOption OLEexFontCharSet to "0"
Get ComAdd "Font" "Arial" OLEEditFontName Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
116
|
How do I show or hide the bottom scroll bar in the drop down date picker calendar editor
Procedure OnCreate
Forward Send OnCreate
Set ComOption OLEexDateShowScroll to False
Get ComAdd "Date" "1/1/2001" OLEEditDate Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
115
|
How do highlight the "Today" date is the drop down date picker calendar editor
Procedure OnCreate
Forward Send OnCreate
Set ComOption OLEexDateMarkToday to True
Get ComAdd "Date" "1/1/2001" OLEEditDate Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
114
|
How do I show or hide the "Today" button is the drop down date picker calendar editor
Procedure OnCreate
Forward Send OnCreate
Set ComOption OLEexDateShowTodayButton to False
Get ComAdd "Date" "1/1/2001" OLEEditDate Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
113
|
How to specify the first day of the week in the drop down date picker calendar editor
Procedure OnCreate
Forward Send OnCreate
Set ComOption OLEexDateFirstWeekDay to 1
Get ComAdd "Date" "1/1/2001" OLEEditDate Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
112
|
How to specifies the shortcut for the weekdays to be displayed in the drop down date picker calendar editor
Procedure OnCreate
Forward Send OnCreate
Set ComOption OLEexDateWeekDays to "Du Lu Ma Mi Jo Vi Si"
Get ComAdd "Date" "1/1/2001" OLEEditDate Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
111
|
How can I change the name of the months in the drop down date picker calendar editor
Procedure OnCreate
Forward Send OnCreate
Set ComOption OLEexDateMonths to "Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre"
Get ComAdd "Date" "1/1/2001" OLEEditDate Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
110
|
Can I change the "Today" caption being displayed in the drop down date picker calendar editor
Procedure OnCreate
Forward Send OnCreate
Set ComOption OLEexDateTodayCaption to "Azi"
Get ComAdd "Date" "1/1/2001" OLEEditDate Nothing Nothing Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
109
|
How can I open the drop down editors, using a different than F4 key
Procedure OnCreate
Forward Send OnCreate
Set ComEditOnSelect to False
Set ComEditOnKey to 113
Send ComSelect (pvComObject(Self))
End_Procedure
|
|
108
|
How do I display the color properties as RGB
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDisplayColorAs to OLEexRGB
Get ComAdd "Red" 255 OLEEditColor Nothing Nothing Nothing to Nothing
Get ComAdd "Blue" 16711680 OLEEditColor Nothing Nothing Nothing to Nothing
Send ComEndUpdate
End_Procedure
|
|
107
|
How do I get the list of properties being listed as a string
Procedure OnCreate
Forward Send OnCreate
Send ComSelect (pvComObject(Self))
Variant voProperty
Get ComAdd " _ toString _ " (ComToString(Self,OLEexLiterals)) OLEEditButton Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComBold of hoProperty to True
Send Destroy to hoProperty
Send ComSort True Nothing
End_Procedure
|
|
106
|
How can I display a picture to a property
Procedure OnCreate
Forward Send OnCreate
Set ComDefaultItemHeight to 48
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
Variant voProperty
Get ComAdd "Picture 1" "link1" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComHTMLName of hoProperty to "Pic <img>pic1</img> or <img>pic2</img>"
Send Destroy to hoProperty
Send ComRefresh
End_Procedure
|
|
105
|
How do I show or hide the properties with multiple parameters
Procedure OnCreate
Forward Send OnCreate
Set ComShowMultipleParams to False
Send ComSelect (pvComObject(Self))
End_Procedure
|
|
104
|
How can I add a hyperlink or anchor element
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(255,255,255))
Set ComSelBackColor to (ComBackColor(Self))
Set ComSelForeColor to (ComForeColor(Self))
Variant voProperty
Get ComAdd "Link 1" "link1" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComHTMLName of hoProperty to "Link <a1>one</s>"
Send Destroy to hoProperty
Send ComRefresh
End_Procedure
|
|
103
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
Procedure OnCreate
Forward Send OnCreate
Set ComSelBackColor to (RGB(255,128,255))
Set ComFormatAnchor False to "<b><u><fgcolor=880000> </fgcolor></u></b>"
Variant voProperty
Get ComAdd "Link 1" "link1" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComHTMLName of hoProperty to "Link <a1>one</s>"
Send Destroy to hoProperty
Send ComRefresh
End_Procedure
|
|
102
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
Procedure OnCreate
Forward Send OnCreate
Set ComSelBackColor to (RGB(255,128,255))
Set ComFormatAnchor True to "<b><u> </u></b>"
Variant voProperty
Get ComAdd "Link 1" "link1" OLEEdit Nothing Nothing Nothing to voProperty
Handle hoProperty
Get Create (RefClass(cComProperty)) to hoProperty
Set pvComObject of hoProperty to voProperty
Set ComHTMLName of hoProperty to "Link <a1>one</s>"
Send Destroy to hoProperty
Send ComRefresh
End_Procedure
|
|
101
|
How do I specify the indentation of the child items relative to their parents
Procedure OnCreate
Forward Send OnCreate
Set ComAutoIndent to False
Set ComIndent to 8
Send ComSelect (pvComObject(Self))
Send ComExpandAll
End_Procedure
|