|
16
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oMsgBox
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oMsgBox := XbpActiveXControl():new( oForm:drawingArea )
oMsgBox:CLSID := "Exontrol.MsgBox.1" /*{6BBB0912-B723-4B47-A806-B529336D81B9}*/
oMsgBox:create(,, {10,60},{610,370} )
oMsgBox:ImageSize := 32
oMsgBox:Font():Size := 16
oMsgBox:Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +;
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +;
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +;
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
oMsgBox:Out("<img>1</img> First Line of the message<br><img>2</img> Second Line of the message<br><img>3</img> Third Line of the message")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
15
|
ImageSize property on 16 (default) (specifies the size of control' icons)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oMsgBox
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oMsgBox := XbpActiveXControl():new( oForm:drawingArea )
oMsgBox:CLSID := "Exontrol.MsgBox.1" /*{6BBB0912-B723-4B47-A806-B529336D81B9}*/
oMsgBox:create(,, {10,60},{610,370} )
oMsgBox:ImageSize := 16
oMsgBox:Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +;
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
oMsgBox:Out("<img>1</img> First Line of the message<br><img>2</img> Second Line of the message<br><img>3</img> Third Line of the message")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
14
|
Can I instruct the control to use a larger area of the screen
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oMsgBox
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oMsgBox := XbpActiveXControl():new( oForm:drawingArea )
oMsgBox:CLSID := "Exontrol.MsgBox.1" /*{6BBB0912-B723-4B47-A806-B529336D81B9}*/
oMsgBox:create(,, {10,60},{610,370} )
oMsgBox:MinWidth := 512
oMsgBox:Out("This is just a message to show on the message-box.")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
13
|
How can I change the skin(6) for the message box
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oMsgBox
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oMsgBox := XbpActiveXControl():new( oForm:drawingArea )
oMsgBox:CLSID := "Exontrol.MsgBox.1" /*{6BBB0912-B723-4B47-A806-B529336D81B9}*/
oMsgBox:create(,, {10,60},{610,370} )
oMsgBox:Load("gBFLBTJYCAEHhEJAABhABYwQg6AABACAxWgKBADQKAAyDQKkEQGGQbRjhEAIGglg4JYjjKKxSgmHYDRTFMZwGA0EwcAAZBpEWR5JiuCQ1DAJMSjIAkRxtGyPZQhGQZXgOJ4sSpQExQTBsXxjESEQZnObZag+S5MSLQVBTHI8YBKASRQapcAGNiNf4eVrUER1FD1AyNFyBaqkeIwMpuNYcQiCVg2FL1SzRFCzLRoeCRWAWdI3TjOM6TbL9bSnIiqbzjMILTgMOJgQKRGK2FYkHxVCobMRqeQwRptS4JY7Ab6wSZWJyhSq8LrtKx7LgkD5bAhoEIrHBJB5NJjUJZzDKqIgOco9STAdrgAK2bw3LC6cqueTca4gAAxDhwcSoBxQAGP4KEieBzh4LICn8Y5DHgLxaimDo3H2EwMEIcYUm6bx7hOKZDkGbJ8miGAuEcXZ3FeYBxC8ZYLh2OReEABRZk4dAdCQaQXESURWH2QhCFoNAMB4cYTHefZjgSXkAHU" +;
"fwgiAAZoGiEIQj4EBNiEJw1AmAQSDeTRMGAYZ0hoKhyhQKANEUeIbwAThFFwEABkMaBcEiJZ8EUQwInIAwMiAN5tBuBRTgYQZYHsQAEhwMQMFAVI+AMDgRFCZgmEaURSmUCRwk6NZyDqEZlkCXg+giQw5AUNgFBeeIhnwd4iBaMhqHGZhZBoMYICKN49mEAADDeEZyhIEYphoXBUB+ZAkC0DZDEYYoCEIQ4YkYMxCFGGAtAMCQQhAWhbHeYpJk2Kx4hIdQhBeIZQDAbhXEIWQkA6DoZledIcC0DQoBUEZOAyKhUA6BYeBEOZqG8VBnBCNQpTyOgOiqIYVjoJg2EIRBZGqIBdCEJpuHeKApHUbBJiaUAxgUCQIiieZFkyJInGoUglFaaYqCgAASW8ZpNHuLJ6EaUo3lGKhgAAFAsoObIvieNQxgMAAjlQJAwHCQwQkEMYLhMaAdGKK4ngmJpgiSZZDH6foXBEVpFAOBpAAKVREjacAECQBxCEaUYEGMC4" +;
"GiGQBnEURJiGEAwQgSXBVBsdyFiECQ0FCEJ5EuQQwDwWZtAAcoEhgAxJkAfI2FSSgzAyRwykycxMlcNpNnODJnDqTpzkydw+k+dANAcQpQnQTQXb2dINCcSpSnSTQ3E6T5AC0RwvG8cwEnSU5VkmLRkh+VpJm0dxZCaChdgcXZYnYTYXGaWZ2g2JxqlqdpNjcbpbncDZHHKXJ3E2Vx2l2O8DYzh6i9HeJsdw/RfjwA4A4cwTg4CEHeA0YYlB+BOGME0eIhQTgcCgHICARgoB9DkIYR4LA0BzAMHcGgag5iaFyKYMw9AODHCKNEegnQXhNGmPUDoTwqjVHqJ0N4XRrj2A6I8Mo2R7CdFeG0bY9wOjPDqN0e4nR3h9G+PgDoeRSjhE0L4FInxxiYH8E8HAag6BGCeJ0WIqxjj5H+MsDQJgvitHKPQAwaRGjtHoF4H8BB+AfAeMUeI/BPgvGaPMfoHwnxAH6J8N8VB/AfEeOUfI/hPivHaPsf4Hxnj1H6P8" +;
"T4XxZAyQAJoDIwwtACB6OcWQ9QOCAFACQMY+gDA5HOLwGQIBBjSEEFAJwCgghYBaAUcAxAMiDCgG4BwQRsA9AOOEAgIRCBQEcBIIQWAmgJHCEQFIhQoCuAsEIbAXQFjhEIDEDw8BnAJB0CETIDRtgIFKCwNgrA+jDGuIYGgnhQCiEQEoWQIgiBYEaBEcQRAkiJCiC4EwRBsCdAmOIQgURFBRCcCogQqBqEUAkIsIAagXBDGiPaIwAxDhyCAAYAwDx0AFAAKICAogQgjEUDYBQ6BugbHGIQOIjgojOB0EcLA7QOjjGIHkR4UR3A+CONiRY5ACCBEgFIBwQgkBZAaCEcgRBEiRCkC4IwSBsD8BUKQQAtRJBCFsEoIooASgEFCLgZgcxmhsCeL0CI/wHjeHoGkAAkhHAJAaNkJgOAShEFSJUKQrgrBKGyF0FY5RCCxEsFIZwWglhZDaC0coxBciXCkO4LwSxsh9BeOYAgwRMBTAcGIJgWRGgxHKKgcgmQhh" +;
"qDMAsFInAAhmEGJQD7OQyg9CSDkE4nB6ACEYeUGQyhIi9BuOcAg4ROBTEcHIJwWRmy4CIOkToUxXB2CcNkboOxziEHiJ4KYzg9BPCyO2VoxB8ifCmO4PwTzSg7BGGAcQGwaAMCsFAKwYQCCeFGKIOIgg2CREeNoDg6BQAQFCKIJgwrnhhF0L8VAxQMtFDdUAbQPQjjpAKCEUgVBHCSCkFoJoSR0hFBSKUKgrrLjaC6EsdIhQYimCoM4TQUwtBtCUCgWArzUAmA0LkRIQwIDJG2CgRgsAMjQCiCEIYFgQCQHCKkKg3sfDavCOoQoURVBVCdmcLQrQqjqGKB4VIQxDCAGYOEMoTwPGkD2CIRwsgjWIAeOACY0AQBxD0H8aw2huhbHWIUOIrgqjOF0FcLQ7QujrGKHkTuAS8i6H6BsdYAxphyGeGYWoERVAcB+GEfY1BWCCEcIMXoKgBhWDYIUSIsjlDKCyFsFoZR2DFEkBwawbhWiLAWD0MAXhRjUFQMQJ" +;
"waAABYJUKQZgCQQgxEsHALImwuhrHaIUWItgrDOG0FsLQVQiisHgLAWALhLDCEiDoCA5RQAVFUCAOAShthcC2I0OI7gijJFyFcFwkxnALDmGAL4DBrgjDsPwNA3ALgjDgN4SozBdhXDcO4Lo2xeh3HUG0Zwsx7hgD+N0CwtwTieFKNYQIVxJING2N0PY7xCjxtCIobtpRmgnDcJsaQvQXBqHCAABYiQ+CwAMAEYAWAHgCCoPsdIdAPgFGkCMK4Uh6hYA4AsQY8E9DCCwE4RgYA9jtEEG8Ho+RYBXCsP4Loex+h2DgKYEIxAsCPAkFwRgLRDjvBcBgX4GAXD9C4AwHYeh4hGBKMYLAzwNBjC0LERI4BKj3F6BgXAZwvjbH+I0WQBggjICyA4Sg4xDilEcLAaqRxcB7A+OQJgnRJjyEMEIZA2BSjvHAKsPoiw4DmCWMYDINwUDlG4L0S/YgpjJAwLMBo4BtjZEwDMIwaRmhXFuDEMQrA7iWDiPYEAzQ8jP" +;
"B0GcLYaxNhyFcBkZgmTtCPH4O0T8eBAlBHCO8MoawghHgZh3BBBogtAXgjAvAMhfg5h4BfA8tMgvgZBxB+AOhRg6BjBMmbhRghAeA+gGg8gZhzAmLMg3gpA1AugmAbh6B0Bnhph8BRgoByhegjhUh6hDBYmvBTgqhwBmgWhMjKBchrgshXgtAzhWgUhVg6BfBdhsAtgHgUA1hugThQh5hDBRBnhtgJgzA2BuA2hYhZg/AzBjAdgdg1A2guAhhaAZAnBEBsgtgtg3A2huAEhbAZhvBtBqhtgXg3g3Auhmg8AbgDBfhuAtgDg5h3Buhug5A7glgVgAAxhxg9JcBUBwh7hKhDwkBbBFgtBtAagcAVNFhXhhg3g7h4AuhVgVA4BWBxBRgBg5hDA4BtgPBfhVhwBbhxAogxAMhHg8AEAahQAJhCAJhJA8h2hGAzgigbB4giBpBDAXgkA/A5AvAmhkB8gjgUhyguBXhLA5BvAuhlh8lqBzAoBVAZPIAbgwhwBW" +;
"BmANgrB2hmAkhMBpuWhYBlg5hhBNhRAihDAqBIgRAhgZgkA2BXGKBvBOhph9BDgoh1AugnhVA6gvBWBVgdAZB1AzAih/AZBeBwhJgHh2h2hShYB3g8h1AEg3BmBsB1AaBONLBXhbA7BrBbBwhwAlgzBYg4hShYh7B3B2hukjg8h3guh3hfA7hvB+hvh+ADhAkGgHhhA8AvgGhwh+AjhEh4gvAXhjA8BvBtgNAyBygjBUBuA0hhhqA0AJhuAQAlhIBGgeAvAPhhh9h9BGBNBGAJBNBHgXBoBcg0A/hoAvhNhqA5hnBFhQPmAiB6gPB5hgh7AvBnhtA9gvg2h2h+hjhch7gvB3hvAdhrhZgTAvB5hPBWgIhOAzg7AjgXB0gQALgghJgZgpBohwhVB8B5AjAegxOrAAh9BkhMgZB0gyBmABBKAHh7ncBvheh7h/poh+AvhHh5A/AvhmB/B2AmhBh9Avg2Azh+gghPhrhPAthSg8g5AyA2A/gvAagshPBIBi" +;
"h/gvhnANhgATgiA8g3hEgAAYKYAVB8BNBEACA8BQhVA9hnhaA8AzhZB+B4AOgAh4AQgBAYASgBA4AUgBBYAVB9AHAXTAhBA9BHhDAMhjgeB8hzhJA/h0AAA6BXBBBrBWBHA8B3gvA5BkAVByB0AmBNAjhLB1hkA/B9BkA3gDAUA3B7hYA2gDB4A4gDgYA6gDg4A8gDhYA9BDhwh5gEAUASBF0YByAjhSD+gbB7AGgeBrhnA8A6AwnEhwAmgFAQAigFAwAggFBQAjgFN2koBaACB4BcACAYBegFgIBVACAIBTACAmA5UWAtA6ADhLBNBABwgGgwBygGhYBrgGh4BwgHAYBygHA4B0gHBYB2gHB4B4gHgYB6gHg4B81NhtAHAgBugIAQBsgIAwB0gIBXhXBzhYA1BThoAWgIgzhjBkgjhZAHEpVXhsAGh4gUAHBYgWgJAoB9gJgYgagJg4gcgJhYgegJ1JgJBABvAHAYjuB0hUgAgDgiB6AzgcAIhIgsgG" +;
"A4BhABh4gwACBIgygFhog0U8BYgLBIU7h4BhgFgHAmgAhThHB8hRADAyhQAHByBkAQAMgIAIAIgIhIABhIhKBDh4BPAJAAgOgMh4hNAIgYhSgMhQgRgNBQgLgNB3BmAJV6BaBzgaBDh0A2EGArByBXAzgOA4hkgEBEAUgIBwhQBkgogMgOgzhmA6AkASgChAh/BGBYhwgOBIh0gPGqBYB0gZgDBAhMB7ATgYA9gYgsAIhAArgQT4AJApAEAIhZAGgQB4hXAIg5AEAJAohPAIhggKnKANgLAgAkBBAjgeBJgYhABpBEA/BNBAgVr+gpgRhUACBUBAhNBKgQhlgSAwhrgSBQh0gSB0ASgNAggJgGMZqUBDgKgghUA9hgBrgTA4B/gKAJA2gTB5A42th1gJAgB3gThYgBAGhpAzAGg3gsA9BjheA8g4hsgUBwhPBAVfhAAoBvgKBABxAGhZBQgIBQB0gVAABtgTgpBWgVB5BYgVgYB0gHh5BO1JAKA5mph0" +;
"AUA/gRgwgVABBZBmgPhAhQBAAlAYAOgZBsAOgJBuAPApBwBBApAN09hlAMh0A/ByAHggAAAoBBAPgTheBXhIhIAIgJASB/gghFAMApgEsThRBzgkhggWhAhpAPAZgMgPh5ASBWB5AvBAAIhoBBAnA4gPBpgWBzAIBGAPh4AIBJgZAVBDVvgUgIhsA6BUAbBzBpgXgaBZgmBBBEBlBYB5BLA5gpAggVlOAQhwgK00AmA6AghBgbBXBeA9hlAWBRgAhtxzhugbhZXPUqBx3FhYg0geA9hk4UBYBjA8gwg8gcgwg+gchUhUA9BJBuAOgEhggdATgHgLAAAfBFhkhUBxBzhdA8B5J4g4gigVgphggeAZhggUAYgQAHBpA/AGgphogWAThWA5hpBGgaAJBHgAAZA/3xhBAHA5h0gTh5higfB5h4gfgYB2gUhph8gKBGBKgZhQhMA9BIhVAJAZgyABhaAGgGAYg5gdBphWjYA1gFhgAtggh4BhWqBZA5glg9Az" +;
"AJB7ZKBeAIh6AagFgDhZBVhgg/ghh5g1AMATkhhVAYBMvSgIBaAogGA0XMgUACgBgjtXhZgkgaB6AyBChZB7BBApxAAzhDA9hpgfgehogLB6MKhzB1AOgjA6BC4bApBQhnh+gIgjhfA6AjhZgQB4BaABhjhUBTgggvgYAphNAL0PA9gUgpBRBggHglgYBYBGZBhXhFg9BvAkBlgMBThLgQhaAGABhTheglAEgSALBQg6gmgwg5gmhaA+BQAZgwgLgUBlgAAThZgihghL5eB0Zch6gng6B8gHg6B5gTh4gSgnjFAgATgWgjhJghA5gTgaA9gaB5gKApA/gJBgB1gfBqB9gpAagS3uhOqXAHB6ZB0oAUgpgwAbgphZASgph4gyk/AcgRAoBY09hjgFgAAogqkRg5hEgZBQg0BjSQh8AMhIhNACBag0A6AlBGBJBAgtALBKg6gYBAhCghhwg/UnhZgMtxhWATgg1wheB0AZgUBQhqAxgkA6hMJ0hzA9Aoho" +;
"gihTBXgRh6gGgBXFg9BEASgjBThSBYB6hPgshaheByhouxB4AIvogGYfgNgGAYAIBxgqg4grggg0ALhahuAMAKhwA+AQgTgvA0BcABglA9HeBBgRB4BNgkg5AGgdBoAIA1h0AJguhEgQAKgqAhgrhnAX7TgPgtAKA4ANApguWu5NhagTgxAbARgUhogS70h5A8A3hQB/AYA+gxgzgnB8BmPpB6B4gfBIgigdh7ASgyBbAmgHhYgigHh7AegOgDgigMhaBNBxhzgGgrB0gUgwA6AhgvAAhABAAqADgdBpB1B0AXgfBvAkgYBDBzhLgvAwgTgqgQKGgAhyZKBUB9AEAOgdhDgaB/ADgcgdBmh0APgJgGgsADggBBBYhmgth7BYBCA5BiA8V6h/BQhYBNBLAcg2ATgkXhhFgOh4hiA9ApgZg1gbBqBygJ2rAIAMA6AKBVA6ALA4gNBaAqA9AqA7AMhzgigjB4h7A8B7AXANAog0MpgIBNBJhEARg6BzgahD" +;
"hHgPh5hWgRhQApgdBrBE8+gS18BYgRAqgdABg7BEgjBjhFB1hohFg148Awh4gkgyA7geg5h7ggg6Abgig6A7gkg6Bbgmg6B7gog6gbgngTh5A/gygYBtgahrAZA5hKhVgBBZhZBABEhUgngZBO+YhUgGh7gqg7hbg+g7h7hAw/hCg8TSgohgBp9tgWB/hTgagZhDBXgyhYBPgvBbgMgqgb7ThYg5oPBX98h1gsAwh/B9AFB8gXgFBIgwgghMBAAqgbAJBIh/g0YB21hNgMhZAIgNBzBfgQ60ANhwhMB5hbBcA5gqhaAPh7h1g2g7h4gagEAMgvB4hFA9gVAWBxhbgzgBBLB6g1B3Am7ch/hABrh5hAgUAlg/BXgrA5gHhCgxgDhJZCgHAJB8AU21h/gQB7hjghgggPg+gwgLAJgMAehBgpAJZKBLBxhVg9BYelAjgYAoB8gDgag7BQhWgihDgagAgHAdA6AnQ9BU7cgTgkgShghSB9AsA6hDg8A8hDhc" +;
"A+hDh8BAhEAcBChEA8BEhEBVBigAg8A5g3AKhThCg0BAACYysxTYVQOa2qLmWLz8hnwjUU+FiixwtUWeFyixofRgV3CLQmDHW2DNDzYGgSMwCEGcGVqBxIB1mInSRgAknsGnw6D0jl6Wks8Dolm4GicLyWqgOjneiD2OHQGnqjj0yD+f1OQ0S+QodlYlH6z0EanswSiEAOkjyKUkuRaknyMUmORqkkwGjoby6kiOw0ieSI9yifD2+R0/RColEEmAcmcvG8xxY6Bg0kAEB2AQm1HQIUs4nePlqbjUH2oYT+aBeanQJEYtlEgzyhj0VEUH1QJTaOAqfwwETaBxSmTmS0A1DGmVwDyQOVCmnQRSMOVMoWu6y2sxksHqlnIjiUHmyyEGCVIe2ERjUoho3iGTnSgkwtFUghEqFgiwy1BEbiyOo+TwOk2TqCMeDjJ4uT3J8OgAC4gANKAbiWDwuTvKAOgRKEOTrI4JinJ0ghAGUOTeJoAhuIsGgGEYriOCcogC" +;
"QEA==")
oMsgBox:Out("This is just a message box with a different appearance.",,"Information")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
12
|
How can I change the skin(5) for the message box
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oMsgBox
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oMsgBox := XbpActiveXControl():new( oForm:drawingArea )
oMsgBox:CLSID := "Exontrol.MsgBox.1" /*{6BBB0912-B723-4B47-A806-B529336D81B9}*/
oMsgBox:create(,, {10,60},{610,370} )
oMsgBox:Load("gBFLBTJYCAEHhEJAABhABBALg6AABACAxWgKBADQKAAyDQKkEQGGQbRjhGIwABOFIXRKMUIxVAcDABDyMg7QTBwABkGoSZJkeSYJDUMAlR4NYCSDKkLw5EyEY6kCKJFiqKI+TBCIzyLJ1AwuBqcZpAADoJAuSYDAJCL71FLkNx/KyjAAGahJPpGF5MRzCJYRQZUEghJ4AK6ACo4DqyFJAXBLMr1n5cDJoAbGBTQTbMLw9Ny3J5hEYRRDiHgyWoMIyRdhcMTvMKBQQjAJoJhbEJpVRbNSwGKgahvDwYMRxXLLKhPD4fQiScYFXDdUTVQDNZKqeD9TACRZ0STpVoBDDAYZbS7XcxteqLRgORYeDSBNJcXK8bx1JTBNouXYqZBrHSHZAmyeR4hiPx+AAMJrjgVpoh8F4pkiOhpGEO5MjkZgTl2AYimEPgOAeCxjCucptm4XQ+FyB4bGgdgcDQDZlEqWgnF0GADleB45AkDhfCeBYagOYAXFEQIBF+J4lAO" +;
"AgZHaKQDHuQABnYDR9CEB4NCQcQiEcGRzH6G4UCYGBqBAN4sACBwEDgfgsGYIgXlmNRKl4d5qAAAofkQPZeHOUxXEYEoJFsZR1BsDITDQXg8HaUIWEoPhAkKSA5GscIeEkEZ3gUWAwlGSoTAgAACEuDJRDCAZeBSJQmkEF4AlsV5mCYfpQhkfgAgqQQkCQH4ZGUSINlIUAjhmLgWAAFJonWfhlmACRWAKFYmhkGQPhIEYJnYMx7FANZ0AAHhQhmCgghSYQKAoQ4dmWBANgqFpREoKQeiMhYFAkfBQDETh0iUZxqF6KoaiQWYxAOJ4QhqAZaAAKiJCSKZpEgRhXiYJo2mEaA/mwCJNB6JwBlQJBUEIQpYnUNIaB0NQVGoDIogQXh7H8Y57CkI4gmuRxRx6HoEGAFBaAQVAmlcAAHLMOBaCyIACkyNptlsSRoicLgwl6Zo6BSKSDgwGgJCQAAMEMBI+nqPwSnSBAJFoAobgkCQOlCGoKEyDxujYDpciYUR" +;
"FiqQ5BhAMBqnOQpTEuWp4EIQwLn6fQJHGbAFBiRIQhuQQJGVwhynQTRxiuZYDkecgQhUIYTiMMBfBQAAlBQDr2ByNIUDEDIaDaWQqAyQx2CQMYKFAOR1heOJuDAZoRkqX5MngMQOFGZAVAkDQ0GoBgJECdOSB6VAcjWKYelUbY9GcIxaDMS4MDqRZmAuVRokaUA8HcL4/jcPJJjER40kQE4OwAA3DbDYHsPYNBxhYHUDcBwYxQDeBmAwYIcBiA2EcAgeIzQDAAAEBATYxxRDhFkBICgIQRD2FcKQQYCBQhhGQF0FYaAijRHoJ0F4TRpj1A6E8Ko1R6idDeF0a49gOiPDKNkewnRXtSHuBAP4cRtjBHWGcPo3h8AUFOH8cIeAfAfEaOIfIHgTiVHGPkPwTxMjnHyN4R4mx0j6A8BcO42AQB+F+GUaA+xPDvF6O8fgHwHjFHiKYTw1wxjsH4N8J8Ph+ifDeN0e4/gOgfGiPgfwnxXjtH2P8D4zwoj5HqLY" +;
"A4/B/jgAIAEQAUAHACCAFgBoARwBEASIEKALgDBAGwB0AY4BCARD2QsbAQQMAtAKOAYgGRBhQDcA4II2ANgEHAKwDwhAoCOAkEILATQEyxBAHUeAogLBCGwF0BY4RCAEEKjYDAwwsBtAaOEYgEg6jvHiNYIYmA+gPHEAQHwhg3j2BAMQLAjQIjhA4EMQ4sQRAmCINgToAwRBTFKHQJwjgTjFCwK0Co1gBiqEUGARQHkPAmB+N0EgWBGBREcCIXQcgUgYA+JQCgdBoieBgMYJA3QNjhEYGYRY7hJAuGMMgVIHARjEDyIQWNRAjhIGqBQUYnA7iPCkA4IQQRED5AsOMVggQCBSAsEYJA2AfgaHIFQRIjxZAKCOEkLILSdvgEeNIMwNAkC5BeCccg/BOCTDkEIJIyR0rnHIGwUQjQZCqCmEoRIXQPClDIJIRYchfBaCOJkMYHxxj0FKAIWQ7gvBLGyH0F45gCDBEwFMBwYgmBZEaDEcwRBkiZCmC4MwTBsi" +;
"dBmKUXgrAMDCFQFYZoORVg1BMLQbImwJhuDWM0bItQbimHIN8TgUxDByCcAkZoOBzg8HKJ0CYrg6hOGyNMHY5wyDwE6NMYwegng5HaDcMwjBSCLDGBgK4Cwsj5B+Kcdg/xQBUAMIIKACgGhAHQD0AooQKAuEKFAbQEwhjoDKBAUI1AjCKCiDoFoRBUDFAqKMGgXhGhRG0DkI46AaD5EgBISgZwFghDWEkNIPQTClAoK4SoUhtEEHSGUGApRqDGE0FMHQbQmCpGKDUU4NBvCdCmNoPITx0jdCCKcaoCsAg6xKGoIoLxSBSHMC0kobQkjqD6E4VQFQnCpCqFoUYVR1ClCwKoaoZhXBVF0L0KwqwChdFYDUPwsQrBaGSFkdYHQ0isGqKoWgVhdDdC2GsQoWBUhxFMFIRoYQ6AvDWLUPArh6jmF8FcXQ/QvLSD6LAGo/hghYC0O8G4xhYDXA0NYEwxRsCrAzIcOoihPCzE1q8RYIwxhsGKJAWYNgvDGCeBsB" +;
"oYB2gFE+LIawbhpBZFWE0M4LQiiLFgJUfwuRijqHWGodoDRYCzHsM4bIWwEj+CEGYLA3gNhjD0I8KA+wVg/DaMQZ4lxbDqG8FEPYaQ2BuCKLcEAdwFBkG4EsR4awxiwBEBsYQ+AxhdB2KsOoLhajZF2BcNw6xujbFqHcVw5Rvi8CuFISgWxAA5BcO8HINABC3E4HMRwMZPDpGLy0W4Lh5jeF2NEPozguj2F6LcXwoAvA7GCH8d49R5gAAuNofYPghAnD8K8Oo/hdDXCEEWd4hw6hwD8A4YQGAngJDCFwEYhR4Cmt+NgM4DgwgqHmHkQAqBzjECsAsCAYgQjPDiOwfwGxhj3GkPsb4rAjhsBiC4F4uQMBvA0GEVgbRCDxC8qofAohtCLG4E0RwcQ4DnGMLgJ4BglBRGcDEYwdgjjJByCMEvEBMiTHkF4KIyRshLBQGUHgrRJAGFgL4C4uBAB3HKNwWYXgZDWC4MsbIa7ShctmPMAwPhlAZD/4UBY7RLhH" +;
"D8GYZYeBZg4DOCwcolR5CmDyM8DIswLfvG+JgeYTgvhnh8hgA7hzAQhvhPAZArNvgxhOAyhyBOgNsRA7BIhpANAngjh0gugShShaHEhpgtAhgEgxAAh3AeBjhfBPhqAdBBgBAvA+gihIB6gjAHhpgdA7gLA1AWBuhUhagDBWBjggArgphxg+AShTA6hjBMBrrLAsgvg2g9g+g6hDBRgPB9BLB9h1h+g0hUAahnBIhogpA0hohHB4hPAahbA7BoBsh9gjg1A2gehWhaBbBjBqhtgdwmg2huhPhJBEAkARABhHBHg4h3AWhkhch7gbBEBlBdhWAzg2hWhgB7A7gMJOAxh/g7hggmhlheA7hPBzBuBthlg9A3BmBKhbhbBvpYANhrg6BygGhhheh7gjgEBlA+KRB3gfAAhaA7AuBOhwh9g5hFA4AXAVhiB8BYBrBpAHg/gkAgBugQhdhaA3BwhIAtAzhIgdBbh+hZA8B/gLhyguAzhGhfgehJhkgugfgThp" +;
"BuBKh/g4hGBFB0hjg8BphtAOB1hOB5hfA+hng9ADgeB0AuB/hQh6APBEhoh9ADgVhxgCASFdg4Arhpg9A/gnB1AOghhNB2gfBFhZh9AzgnBAB+gzhUB6hvBVhbAQAHgjB2AugLhZA5h/BYAgB9BDgAM0AlhbABBfBfhaA9Bzgah2GaAfAjgTgwhsB9Ajg5h3guhzhfA7hHB+hvByhwAZgDBQBnhgg8AngDgXpNgfB4AfAHuMhvgMhxh+AbhIh4BYADhjgBgfOWA9hvg8B4gwBnhRg8gvgFhzB+BNBgSmA3hlh7hEBRB1BDg+hFB6gdghhqg9BvtEB+gvhYySBlhsA9t/B2AeBng9g6BAgEJpgXg8o+B3hSh0BfBnhOgfA3uqBvh7hjh8SNBth9gnhOh5g/AVhRh7h+hph0y4BThoB+hvhrB7hfgoAIg+BHhMh2g+g/hTg6gfBSA3ozhmAah/gXh0JSBTh7I7Buh9BfhDh2h/AfhPh4A+B/hgIJA4AZgE" +;
"gggQASg/hHh6B/hHh7AEgnA1B7BnhyB/BXhNgABwhWB/hoC1CdB/hIADB/AoAQB+h4ARBYgoAKT4g0B/hnh2B6g4AYB6hoAVgAI0ABAwheB+AjgoAOh1g7gCBHhlgCBYAogCB4AqgCBoAsgCgYAtgCg4AugDAYArB/A4A0gCAAA4ADhQA4AFAgBVK2B+gDB4A5gDg4A6gDhIAfgCh4ASgEBYA1B+BIA9gDgIBBgEg4A7BzBYAygEBIBPgChnhogDhoIVhoAggBAoBMgEAgh/gFAIUXAnA4gFAYAwgGAYBcgGA4BggGBIBigGAIAMAEgoAvgAAQBjAFhQBjgG1IAGBoRWgHh8gHAIN0hoB3VABOgGB4B81KBsgHgIgAgGh4gBgHgYgEgIA41VA4BcgFhjgmgHA4B9gGBYgOgHhQhfB+KFAOh4gTgJBYlBh4gUgJgIgWgJgYgZgFBYgbgChogbgKAYm7A4BZgKBYBAgDg4gcgIh4gMgJhYgnAFAogmgKho" +;
"gtgKh4gygKgIgTgGAIqZhYgcgKAog5gKA4g7gLhYg6gLh4gXAPBwhfAOB4hCgMBIhDgMBYhIgMB4hKgMBohMgMgYhNgMg4hFgLg4hOgNA4hQgNBYhPgNB4iYh4g+gLhIhA1mBZgNh4hWgOAIhYgMA4hb1mA3A6BIhigOgYhhgOg4hjgOhYhqgOhohs1ghygPAYh0gPAIh2gPA4h3gPBYh4gNgYhnA6BnAoBrg4h/Bpg5AAgQA5ACgQBZABgQB5AEgQgJAGgQgZAMgQg5AOgQgpAQgQhZAKA7A0BdA/gpAWgRB5AYgRgZAaMXh6A9AjhVgRh5AegSAThUgSApAggSA5AmgSBZAogSBDhOA/BpAVA/AGAGgSh5AwgTAZAygTAzhfA/gZAtgRg5A4gTgZA6gTgzg0BIgpA8gTh5BAgUAZA5AghxABCAg")
oMsgBox:Out("This is just a message box with a different appearance.",,"Information")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
11
|
How can I change the skin(4) for the message box
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oMsgBox
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oMsgBox := XbpActiveXControl():new( oForm:drawingArea )
oMsgBox:CLSID := "Exontrol.MsgBox.1" /*{6BBB0912-B723-4B47-A806-B529336D81B9}*/
oMsgBox:create(,, {10,60},{610,370} )
oMsgBox:Load("gBFLBTJYCAEHhEJAABhABNQHg6AABACAxWgKBADQKAAyDQKkEQGGQbRjhGIwABOFIXRKMUIxVAcDABDyMg7QTBwABkGoSZJkeSYJDUMAlR4NYCSDKkLw5EyEY6kCKJFiqKI+TBCIzyLJ1AwuBqcZpAADoJAuSYDAJCL71FLkNx/KyjAAGahJPpGF5MRzCJYRQZUEghJ4AK6ACo4DqyFJAXBLMr1n5cDJoAbGBTQTbMLw9Ny3J5hEYRRDiHgyWoMIyRdhcMTvMKBQQjAJoJhbEIUYBVMBjIKobw8GDEcZzOyoTw+H4JErGBZxXZEJ4zC64YbqeA6FrSJalWgEMYDBpmL5dKjYKw2EAKFh4NQFUpyMzzPLVFYFWS6ZKlDhrUh3AOM5viEIp9mgAJDGiNRrm2fAqkcUpkCWUhCHcWRyk8agSguBJ3jKfgOAeC4hkOWp5jafIYkcLpRlYfRAAcDQrGgXRUGADxeB6VAMDkfAaleURuESYAkiIBB5h6BAOAc" +;
"ZZahQDZbECR5YDGcoDhmJxJlESpbGeZgGG4YIQAAQ4HhodBdmGBAeDcQZlG0Ep3nwCh+lCdxxk0TRcniCZ3FcUYwkkMxFmMdxlhEdwCkcfggHAXxokWRIQBANgpkgdhIAAAhFgsURAgGXAUiCVY1nSDAklmBhPHQX4JBIXQACEcAABIQhBnmHgvEkJJki4M4YmEUABE6DgflYXZ/hgIAZkWM4dCQGQNBSHZlgeMQDF8QABmUCYWiQZYuF+HAmCiEgUGCQxJE6AxaCgYFYnuEIRE4SoXioCAChKGImFmDZ6ECaBEHqGR2AAB49AMCQmmoPQDgQZhFk4Jhlk+epmFgR4pGAdQJBUEIQjYOBNCsRZRGoDIkCQYh1EgZ4ZGGSRImsOZ5mcYJDgsGQYAUFoBBUCY0AAAZdAkDgmHcJo0GIbRaE0FxahGaxylyOAQDuMpOFKI4wAAMBnmgIJEDAS5vFuXAlEgQIViAKY2lCFoum2OBcmsSpkjWLh1iKFo3AGKx" +;
"/AQX4WguTQJAwL4bmGA4+hIFhJhcBZwAQDAoVsTA+kRdAmgmRBKgMMJd8MahwAIVRlm7lIZiKcgkgUJRhAOFB5AUQhDEyLh7gIEA7HMMxAkGbJWkoSxZmQJA2jkM5tB2F5GhJlI6kOKJUgacdJDwUwXkWJQcGIIY6HGUACj4QJvj0VpwFoNQBigYQdgYEI4GIGxHAQeJmgKQABAgTZclEOEWQExHigDEPYPApBBgIFCGEXQWA1CRBwDIRgfAfgTGIHELgbwMjHHiHwR4FAzgTCIOcFIyw5C8F+DUZg8xODHB6M0eY/B3hBGiPQLoLwhjTHoJ0I7Cx6idPKNUOwHQ3hjGuPUHgdwSjIDsN0Z4cRiBUA6NcN43x7jcCuAscI+BPPNHGPkDwTxKjlFAH4B4dxwB5H6PcTY6B9CeEOK0c4eh/CvFiO0fYXh3izHePsT4BxejwH4J8D4zR4h9A8J8aI8h+h/B+Nke4/RviPG2PkfwHxTjlH0P4X4VxYhcH+J8" +;
"d4/B/ukACIAKADgBBACwA0AI4AiAJECFAFwBggDYA6AMb4Cx9B6FgD4BQQQsAtAKOAYgGRBhQDcAUYIEAAD4DAOQEIhAoCOAkEILATZXj0BAIQeArgLBCGwF1yIDAUh7GgMIDQQwsBtAaOAQY3hBBPC0BwIY2A+gPHCOwGQex4gCBEEQLAjQEDiAmPsRA8QXAmCINgCoEgwCcCcIoKITgVAPHwKEB4IhWBZEWFEAQKxcg3BUOJIIYRGBQGiN8HIdxCgHG4IEBIjBnAiBiMYbA3QEhdfUIsdw8gaA5AwOQE4IwCBvEeFEdwCxjgSAOBoYYHAdiOHiOYHwSAsgNAEGMeAABIASAUD8Y4MBjghHIIQSIgApAmCKMcLAzwRCkDoJISYUg3BKCQOkDIJgRjEDYJMOQjghjJGyEMEAZBaB0EoBICQUglDYG+CkUYPBYCUCkLoLQRgchlBUCUXgtRLhREMFsZI+QASXF4MEPw0wHBgCYEkQoMQzBEGOHkeQDgdB" +;
"LEiJ4GYhx+DPE0DMIQaQmhZFSDUcwnBsiaGmGoNgTRci9BuGcAg3BOBTD8HEZwGRkg5HODQdInBZiuDoE4ZI1QdhnEIO8TwUwnBeGUJkKIKhxhkHiJ0aY7g+hPGyOcH4pxyD/FAFQAwggoAKAaEAdAPB6iZGoCIQwUAtAbCCOgOoERRAUCcIcaIWgSg8FQFQNIkRZCeEWNEbQKQjioFqB8UgVF0hSAUB0IwYxakkAoI4SYTxUAdCWCYbgGxTAUBsBeiYUQSjkAKC0UgsxQCEF8McfYTB0jsGUJEd48hMjQA0IMGIogOhEE6DQbwVQpiaEWFMYwdQjiSHIF4KwVAEB3BEEkUoVRTh0AUKkJQpxMgdDSP0JYowpjiC4FYHQnQrDpGoNwVA9RDBpGsLoSoThVDrEiK0SYWhbgrE0KEHYqwugfFSFUawdwqDJHeFkdYTQoCvEqNEeoVwdBJCiOsRohhYB1FEHga4mRXhWFMOQVgVwrAWFuM0fQ/QZgkD6HcV" +;
"Q1RBAYFyAsBoSAVitESK8OwUhdhYGSOUMYrQJj9DuNUWw0grjaGaCcU4tRMCwBsJoawTwzj3DAK0NgzxaguG0M8bIqRX7jFYCAWAlg5DSGcFsF+fRmi0FmG8CQbBgC6DyG4No/QrizGsFYcoTgFiBDgO0Lo1BYh3A0NcZQeQfhvBaPUWYoRqjGHYNwLIvwvggAaOQSwcxEj/G2IoYIZRRCNHMKoG4Qh3BSE2GMNong+jiF4DMfQ9QnhyFKGMNwkx5h/HsPIdUWQFg1E8JQHYrAbhuHwD0fgAw8AuFaPoVYmADDeGcJoX4gQRC1GmL4LAGh70sHaFoWAVRdC+EwDUdgYB9g9D8PARozxHC2FOAkJwWx9hkBYN0FYugSivAqGIBYiQ167HwHcfAtwKBXEWEkRYMR2iTrcjMMAehbiGpuCWtwQwPBiE4CwMwLhjAnF0LgX4DQwgsFSFIGIhBwCLFuOcDw5RtAZD+PIOozBbjVD6GEaAHBbiOHkPYJozQsin" +;
"BsGQdgzQHCyC8FIZoeRdg2HODwdonQ4BGDgKcbI4wdAzhuB3hPhYghh2BiBsgxBQgmBOgEhQh6AbBEkaIcB0AchFB2BaBBhaBpAnBnglA0gOgVhSB6BbBMhpgNA3glh0gmgKB6haA5h5BmBNGMg1AugmhUhvArBPhkgtBVgjA1BmgIhVg6hDBXhrAtBdBWAwhOgzhWA6hTBcBrgtBvgvA1hLg/BUAEAECAg==")
oMsgBox:Out("This is just a message box with a different appearance.",,"Information")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
10
|
How can I change the skin(3) for the message box
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oMsgBox
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oMsgBox := XbpActiveXControl():new( oForm:drawingArea )
oMsgBox:CLSID := "Exontrol.MsgBox.1" /*{6BBB0912-B723-4B47-A806-B529336D81B9}*/
oMsgBox:create(,, {10,60},{610,370} )
oMsgBox:Load("gBFLBTJYCAEHhEJAABhABU4Yg6AABACAxWgKBADQKAAyDQKkEQGGQbRjhEAIGglg4JYjjKKxSgmHYDRTFMZwGA0EwcAAZBpEWR5JiuCQ1DAJMSjMAkRxtGyPZQhGQZXgOJ4sSpQAigFBIYhtE6YJikMDZbj2OoPUzAdCQG78EyrDahKCqMAKGoiMZbRKDVQgARMRj3BIFLDrOpwAqyE5ZR5QMrzDT0XQ2BixQgkMTYJriIJOTZcEL3FAdEwqGgCcAhEC4JIWCQ9QiddhyFIcfyKGIcYpGGqxRDSFQyZRAd5XfDZCQTDKBShtKptMpicZ2ShKWaQbadBxGCKxSShHRoDKOCRParV36sCzHMJJXTJcRgfYYLZ3BIjIRKCw8KhNi+IRhm6OgQAWJh7iMABTCAYx8h0Oo3kWFpdGsYwhhSVg3mGChImSMA9kQDBFkGNpwm2fR/l4FppjUcoWgUOAXgAUAwmGZBPFWNhpFsDJZhQeYcAwGIUG2Xx2kOJAlGI" +;
"QJEkeXRsFuHRmA2MB6B+eIFBsdxfAQbAhoMAJVlQdRAAeHQqHYWxVgGCxIkQCB0AAHISngHQ3EmWYkhwLQMkMNh9moewSDgXglAABRUCWcgATiJgGGkAAFi2eYNiICB5kmCIkHQDQXGMJQJCUAwGlCEYBAkDYijcVguHGVZ1BYEBtlYOR4AADhmK6SIGiUNJ5nwcYehQehEEaYwknUOROF2NJaEsSZDBCRA3EyUw2HAMR2l6dBVm0AAkjAZQJAeJhWCqBIhiiCYOgqHxAAkGQVHAEhECQbRCEGWhVgCGZZkCYZaGUVg4hISwHCoShWBwa4lGaPYcFGYwUgwFBYmMWoFAODggFqGROioFBamGfRtieRYOiWL4AAqhYTmWFQ5DwQJDAQVAwiPaRBDGNgtiCFQ2AIFgwj4Sh0BCF5aFCCwilmXhVgoX5rB4ABUhYN5ShAQhXkQDoUjmbQlg6VRCG0eYqGlmgbEEGhFl0WZ+kITxmHkXpuEiWoJB4JIykABp" +;
"pAMbwuguJhQIge54P4bYYD4DxNiENAlFuNAcmQDBLiyJxQAMGZAC2XBzBiRoymwehqE2LwkFYGYwFAMZ5KKMoHAqNBXAMAJKD4DQDASMAzA4Mo9AEMZLiidBU2uDhJB0FZDlCHBIACRQxFiahcAABoRgwcQbeyUBlAuBghjQcBFEkbIcAAEIEl2JQbhkEAwiECQWGcJQ0BgRoGA2KxZFWO8TI9h9D8DgBsfI/gbCMHGDAbgMhGACHQJwEoCBgioC4CQOI3BDgfGQPITgnwWjJDmBwV4MxljzC4O8HIzx5h9AeD0aIdAOgfCaNIeoHQThVGQIcAImBKjHgoJgLgJQ6iiGgJAEQDQxgAFoDoBoownD9G+PAHwBwCifDwD4F4hhbQPHALQG4jIliqBEAcUYGBSAlAcF0aA/gbiNBIEAeAOQIiDHAOwIwDxRi/GADsSIox4DxHkPwf4Nxoj1H6F8N40x7j9E+Icbo+B/CfE+O0fIfwPivHmPsf4Xx3j4H+N8" +;
"bAeA+BiBqPAXooBzAgCGIANYDgwiIBcD0EAlAKkGBwAgQAzAKiGBgK4CYgxMBtAaG8BQDgeBjC0PEbgEA9gNHCKwG4BRoCuBAOAZAmQIgiAYugYILAXAFCgKUDAYhuBYEYLEPgLgjBwGCBcUYPAwiLHQHiLYgBiCIAiAoEAxAcCNAiGIIgRBEhRA8CUYgmBMgTHEHQKIiRYhOBQEUJApQKhiGIFcRYUQtAhCGMEP4FxDBgneIMDgXQFhhDwCsYoUBXAUBEGwJoiBogQBAKAZAZQFCBBiNoAYMBiS3DgG8BoTh9APCONQG4Bwjj4DkIMII+RhAIHiAADwhQkCbAkKMAAWQFDRE8DAQo6BsAZpMG6gAmAcAGFQNADgYwuBpAcEEWANQDggGyJQCQiA5CNFCKsFIZQeCmEqBIVwVQlDZCmCscoZBYCVGkMYLQSwchtBYKUYgtRLgycEEsbIeQXjlG4KkDQw5hiNDiMoGwxhaCltKIgNYjQYi8BoMYOA1gMh" +;
"jA4GIRYoQ1AqGIPATAgBgiIBQAQVAJgFTYDOJAB4AgfgIBAPgDwBBMCDAeNAWgSwGAhDUCsYwoBjgYCkFQMwDgQisBoGQbA0hPgjEYGwBoOQeg/FIPwUIlAxhSC+EwDQCwgjmAKAgUA1ATCGCgLoDoQhSj0tMKMTAbgGhxGcDcAwxZ4AjDoGwKIQRYg/AMKAbQGRxgsDGEYKISASiEEQHYBgwRAAmAGLAMwGxuBEHGHAB4GAhCHHAPoFAhBQCOAuCIVgUwkDxD1hYQAyxPDTHEE4J4uqNhnHYP8SY1AHCBCiAoDYUxUB9CeKoKoRsyAKE6EQQwvQKCiGoGIRoDg9A5CuIYZoYBRjDEUE8RoQRJAxAKJAUoFJcYhE4A8IIrQYBMCjUcQ4QBwAbEKHAT4EwpAwCsM8CIhAbjmEKEMVA0x1CjGwEkeoUg2BFCYJQSoThVhYGWB0KobA+iNFkBIdy5xVC7CuCofA3RWA2DULAKwARkA2EMLCsoowSBbCGBFX" +;
"Aqw4A7AMK4eQcQjjXAGE4YoKBjAXAEMwNQjBAiHDAAYOoghYC2AcN4LAigAhTBaPUJQuAbgOEAFwLYhQ4iuBKMcXIVwTDmC4IsToch3B9GaLoC4Th0hbHSFkMoaBWiXFGHQNwzRujbB2GYUzDBaBDBIFoBQcQiAeA0OsSU0BaieB4FIbQKhCgQE8BmrgXcJiWBiG0YouhYDWHkN0agixIhwBcI4AIuhMAKHUOAJgDRADwCMAUYIOAPDiC6HkRIVuMhcFmBcOQ7xujrByGYVg+BrCsQ4FQJAoBpAWCEJCnQ4QlByAePEUwMWajZ5sCIfgzw9j5D8O8do+xcB4AGAUcYXAKiNHgGYHIxhsDrpOAwDoRB4CNAyMIPAVwRBhD2LsLIKwYC9yKEAIAhxYClAIEMWAcAqBnHAFU3QQAbApBAN4DQQwbD9DEPwXobh4idAEMcPIjwPcEDyJkeYJg0C6R4OwKovBCh2HkC4CwzgqB4DaI0AImQtBFAAG8BY4QyAz" +;
"EKKAVAcBDU4AwFgVYFgmgMF+IwGgRRei/HyIsGYZhOgOuLhDA1BpArgPgPhwgGBugrg2BnA5BnAcAqA4hGhIhVAZBCh8D4hAh2AUABhqBPAqg1AOhcAOAZAzghh1BuBghRBygLBHhpA9Ajgsg1gug0hAg6BWhLBhAshhgRg0heg9gzBZhTA7ALARBKAnhzhQBZgbhgLkBPhBgngXBxgOg2hWB7BDBnhtAtBvg0BzBchChBh6hrA3hVhsApgvh0hWhdhTgjBUBmAMABB4AkBnAwBXB6AbAmBTBsg9gbgiA2gehVhdh7g7B4htBMAXguByAOgYhbgbB7B8hWANhBg4g3AmuFgbAqB+huhLAHg8qiBzhgh8AbgEhjhshZg2A3g2BDhbg6h7A5BvhNhHg5BDhmhnAyADgkBvgNg6A1A/h0A/AFhjh8AjgQBwgtAjg9B0g/APhfBcBDAjBxA9h9hFg3BHAZhjB0BjgOhjAZhzhIg5gvAhhmh8gPgchrAuAjB4" +;
"hFAQgVARhxhJAMhyh+A5A/B4h3A4hmhchrgjh0gugTgOB5hlgjhnhdACA5gAAOgHhMB6AvAzgTgdQYh0g+g1hTA4AvBOAZA9BDggh1A+A1hRAGgfBGhrg9Bvg0h2gOhXhXg5BIhZhng8h/gxB1BGghhVg0BPBYhtBdBzg8h3gOh3gkg6h/BhhqBdhPgZB3BpA7hfA7hXBshwg+AjADOxBjhgA7NXBshdBfhCB4B/Anhhg8gvgJgfh+AvnjAvAdhdA8gHgDhyheBThLyGAnhmB7gXgchwBYg/hQB6gvBHhqh4BPglhxg8hDjaB/BbhtA9Bng2hvg9g7g4B5guhHhsB9BGhOh2h+hXhQh8Athdhrh8hfg9husxBgB8gvgHhyhzBPhFh3gdgXhZzQAnhzA+guALh5h+AHhkB7h/gtyOgPheg4gfBjhTh9gthbh3B/Avhch8h3AfhwpJA9hyB/BHhmzdg4BppEgjhkB/gHvCh+hfh5h4h9APBkg/htgRB/h1" +;
"gTB/hoABlGgCmqguB/gngyB5AYAGgAA4AMgAg4AOgABIAQgAhYARBKgIAIB7hmgIgAh4ASqfgYgBg4ATsZgagAB3g5B0h3gMB8Bnh0B4A4AcgBh4AogCB4AqgBhoArBLgIAVB+A1orBYAytAg0gCgYA1gBgIAvB+oxADA4A2gDhYA8gDh4A3BQhYA5B/hIBBgDhoBFgEAIBGgEgVAKgEA4Uph4BOgEgoBPgEgIAtgEhIAmgFAYBWgFAIBYgFAoAegFBGAvgFgoBZgFJUAGAUhAB9gAhgANhHAcBKAkh5AIhgBKABhIBqgGhIBrgGhYBwgGh4BygGhoB0gHAYB1gHA4B2gHgYB4gHg4B3gHhYB6rsh8u7gCiK0uAIgGgIA4gH0zAIgIg4gKgHhFBgBSAghLAKBwgZAJBABnAFBxhTSEgngGgEgcAHAgA9CNASAEhgAiAJAYgggJh4ghgKA4gggKAoglgKgYgkgKgIgogKg4gmACAojXgYgvgLAogwgLA4" +;
"g2gLBYg4k3A6gLB4g7gLgYg8gLh4g+khg9gMA4hAgMBIhCgKB4gvgKhIhJgMgIgqgMhInB1uAIh1AjgJAggUBh1egOgYBlgGBwhUBPgQBfMQgVAIBQBKACAggWAFAgAnAJBgBUgOBYhkgOA4hogOx8WXBngOhYhwgOh4hygOhoh0gPAYh1gPA4h2gPgYh4gPg4h3gPhYh6gPhoxyB5ACgQAZAEgQAJAGgQO7AQBYhqgQg4hpxFhvgQhohrgNAogRgJA4gVgJB4gZgNg0gcAGAwA4CNAJVkgnAJgwBZACg5AgACgwgcgSAZAlgSBJAmgSgZAogSg5AngShZAqgShpAsgSh5AygTAZA0gTAJA2gTA5A3gTBZA4gTg5A6gThZA5gTh5A8gUAJA0W9hX3DhFgSA5AwgUBJArgUgpAn3ahOgSgpASgNBIhWAAAIgYB7hYgaANAgBngJhQgQWUArAKAgBdAChpBegWAABdADA5BhgWBZBfgWBpBigWgZBogWg5" +;
"BngWhZBqgWhpBsgWh5BygXAZB0gXAJB2gXOwgXBZB4gXg5B6gXhZB532BkgWA5B1ADAwghgYApgAgVhpgBkZgzgVAYgTgVA4hYgGBnAxl5hrAEAAVlhQW+hggoAGBQA1AKgZganOg4gZgQA1gaAJgigZgpgjgaAZgkgaB5gm4Wglgag5gogahJgqgahZgwgah5gygahpg0gbAZgIgbB5BfALAAB4AFAAg9AIsRAMggjvAAhUALAwgfANgwhBAKhgheAMBgg3ANhghFALBQhXALgggmYrB3AFAJ3jhZgJ4Zg4gYgZg6gbhJg+gcAJhCgcBJhGgcgJhKgchJhOgdAJhSgdBJBjgdBpBhgZhphs4oAegYhIgUgJBnBTgNgZgRgRgAhSAHAABCACBwgci5gvAGkQAfhQA9YrBqggAZh+ALAKAFggB6AEgggaAGgggqAIggoZAghaAQgghKASggh6ATghAaAUghB6AWghgQA9nO4VBZgTALAgB1AEhAg8WRKg" +;
"gQgAAGBQgGAGVZAGBzg0AFBAA4ACBwBjAE1igIBgByZ2g3AKBQgaAOBEgPAMBwgbAHhqAeAEAJgg5lgcgjh6AggiAqAkgiBqAogigqAsADgKAugjAKAygjDngjgKA6AMAqA8gjhpgTgkAaADggAph/gfhqAAgghqADgfAJAVgfA5gQA1LDN8BIXAghYUQiBph4gmhABCALBgBygmh6BxgnAKBygnBaB0gnB6BzgngaB2gngqB4gng6B+gnhagAgnhKgCgnh6gDgoAagE6sBaALAQBtAEAArzggBIAJhgBrZ9h3VksdBABQADgAgDLlg9AIAwBVADhQB0AEhAA1AGAABAACnWsQ2VBAB/K5haAMAwg2DmgfAIAaOGhKgJgog6gNgoh6gRgpA6gVgpB64bA6gdgph6ghgqA6glgqB6gpgqg6gtgqh6gxgnhKBtgmhaB6gmAJhygVBYhaWOh4AEhJz7mtALhAbAgAg9gtBwg9AHBqhY7hBegthahggtgahh" +;
"gth6higuBahkguB6hjgugahmgugqhogug6huguhahwguAAgw1zrFgQgvViBKAKBQBwAEhggtN8BUALhQB/MABIAIBwBfgwAwcMImAKa7bIh6WUA7AFBQA7ZYATAHhABwAOAwhGY5BBgwBKhigvAwBAgvBZpOgKh6gvhKh+10ZahrAIgwgrAMgwhrAQgxArAUgxBrAYgxgqhagt8YgtBqhp6eBTAOBwheANgqhPBJhAZhhAAzAKgga7hAhBcUBOAMArERA7BEg0BgBMg0grBMAHhLBLg0hrBNg0h7BSg1AbBUg1ALBWg1A7BXg1BbBYg1g7Bag1hbBZg1h7BbAKAABma8ArZWhKAMhQgOMXhQAIhwBnYzAXAGhghnAJhwB0AOhAgiAHBwhsAKAwB3g3AQB1ANgQgWFSg0AHhQBaAHhwBZAEAKgaXAg1aHlUgQgyAJgLBKg2ArBkg2BrBoMXqX51gOBgg2aHhuALhAgeAOhwgxAIhLgcdwgZAJhwhkALBg" +;
"gZAMAAgRAHBLgCg4BAA9g4Br1WgrgMg0B7BJg7AbBFg7AABOgshB8rhmBGBQU+7wBSAKa/AEGaddnDBwlEArhEg8BrhFg8B7hKg8gbhM17BOg8g7hPg8hbhQg9A7hSg9BbhRg9B7hUg9gLhWw+dPdebDBGAIgQBjdvApAHhQ9XhwB8AO4Teehxcxh/APAQgrg+h7hxg/AAB/AOi6AHhghdW9h0AKuog8g1AtAIggBuMABcALBAgZ+Mheg+ALhig+BATxgghCAKBAgIAFgQA7hAhwA7APBQhEAKBsAUe9gShBAghnALgQgeg/hLh+ADg8AAhAAsAET9gBg9grhRY9BwAGgmAgCFhqAOAQm3hpBXcLBlcGAeAGBwBCAMAgB/AFVaAIBABVhDg8A9hDhMA+hEAcBAhEA8A/hEBcBChEBsBEhEB8BKhEgcBMhEgMBO+KhPhEhce8hwbphgHfgAgrUFB0ALgAgTe8A/AJhgh3T9gshGekhGBMBmAMgMBlhGAg" +;
"hwfBgXDmgUA9hMLzgjhPYzAuAJAcA+hFBcBXhFgcBbhAEWuF+jBCWUGOBCkAAd0e2GujVw3gimHGjjw60OYFSiHClUOmQ8ClCoAktnAsyiIEiNn0CyIkg4ayCKlalEmgRgDzA0gkYGAB1CfSkwUwEFAq0qOSulSyWUq+S6lhyW0seTClkyZUsuTilnydUs2Tylxye0ueT6llA0gQgCsHkCj0YYUUFHC8g0ITikCynUgOBAHnCmAsIV0FFCBAooHsDAA5gUoEIGxCSAgeSymDyi0w4XemRC7AuoRkHwCmgsQW0GBCT0gQXgznypNU5gswQ+mlyr02OVum1yv0wOTIGmDl1kJAqQR0E8gDFAugAAUoGDCgxi6UQGmalgqwRcESCBMkcAsdCEGSqOU+2T+o10OVG+UCpB0PVIWiCo1ySgEOEvGkFJpykBcQTyBsASJJk+AjJoGhmAcYTwBoARuBwoRiBE4RqBEYDkBIgDgAsISqBMIDlJUmhPKUOhWBoYR3" +;
"KY4RuYMoSZLoaV9JcqShI4FQaHUpyaH0qAaIUqCaEoGxhGwEzqMAvBoFoEjgPAcCAAAkzhKQHRhMQGzOMoGRBHIFgAOgCTAGoEz4GwGB4HMpC6PEpCaPUpB6Pkrw6Pslx1ESABoBMgQWB8QS8BkgT0k0jgfGEsgYIFeThH6iCsBc2wkBcwV5MEeyyEEegfCFqQhNIFwXBiKD8aoBgMGEngRIAvyoMAgIAm0oQYB4wS0BkAT2BwNjWY8iSCFsKyyLkBSyLsPy0DsRy0LsTy1DkZSHNkWAZMEFALKEwiGMwHgaGsbAUMEMASGEMARMEEnUecoRmB0gTIBwATRGcNx0TgIgPAAzyHIB5y3HkoxaP8vD6P0vQ6PcvRbM4DTAIwBTBAADQgLSiDOBsWxmXo9AaOEgKlJ4FhhPIGRhFsvzhFipSVMAfABzEXAeEFdjBKhzAgaQCgMAEjAQCAqSVJs3S+AA1S+Hs6gfIEzIKPgHBhKakC6mXJRhHUxChHKkC0Bg" +;
"oT2k0jdhHcwRct43AhMIXApVwIyVIErLqA4szLEAGTIHo6gBCS8AWCowTcBwwTHIUoS7KE7SWBcgRUBQADWAkABmlYxAIAEek7JwGR5FUyxYHslRBJIEBAKkyz8MMzAcMUzC8MkzD8MczQ8M0zRcNEzBcLkzT8Lczg8Lszh8OEzicOUzi8PEzj8OQFiXHgChAGoBBBEwEihBSkDa1iwzhLKkC+BkmwYBgQT2Bo+wzLMHQfLImwwohtTBIxzzwBVEYCQAh/CkNwXIzxACZGeN0AI0AugJGgN0CI0QugYA2D0Do0gNg1GkHuDY3QYjTC6DkaY3QgiHE4MQDAtxFAYGCAoBaiX2hkG+GkHwGQkBuHUAcRAHxwjIA2OEXYuwAjDF2GEWrjxSASY0A4OoHQWAZEMBgCwiRCCcGmHgS4hgIAdF2NsfouRuA9F6NwLriA+jNG4L0X4zQ+jVGaL0bIzROjdG6H0b4zQMB8AkLUIgCwgCEAMGF7w4QMKIG8BwcI+A" +;
"OihGI1ODIgVhjBFYpAZIxAQjHF+BwI4nQAgCSsM4BAwQsANHAJEQ43BuiHE6OgBAHR2jfA6PUb4nR+jgA8AUcAngGjhA8BUcIgRKjhG8CEcQXgUiHGuI8bYABQAXBqKJbwTAIisBVEAVQGgUBmZWGBdQRRsDhC0BVygHRwjQA4LoagG1yjZDCKJ9odAHhAGAAoAA7wzjBCUA2QAFxQD0AS/sB44BQAYEAPwBI3hajrE8LcdYvhgjrH8MUdY3hkjsB8MsdgfhdjcE8NUbg/hrjdA8Nsdo/hsjbGC6sMAqAMBgH4AoAIJgFjgD2IoYARAHiAGkuEMgFBAg0iAKRMo8EvjCX0Jx9obgKUyAiMAcgCxcDwAmGAZQCAPDsAU7MbYnhzjuF8O8d4Ph7AGD8Psd4/wBjwD+AseA/wJjxD+BseI/wRjyD+CseQ/BiAXEqKICwFQOGkBAA4P4FAMTVMqJ8bAiQNATBCCoCQfRHAqECM4DgQRfjIHCMYco+QfIxEEY" +;
"YKTFhUFuTUEALgExvgqAuAAdgCQgiEAeL4Z47BAiLHaB8Xo+w/PEB+L8fgXxgj8D+8QX40Q8DhEaNweo7gEgXD8AUPoSR3ieHyNRFg6hQBnHsEASI/Q+i/H+F4aY1w/jYAgAMSIIBrBEAqJQQwogRBwGcBMBYgxECMAGNEHI6gKCwECDESABQDA8DEC4KAUwNCICWBQEInRYDCC2DkbYrRMg7DKMwbYaxagZBYFYCQ5Q2AAAAD8cwsw8jEHCDgTYTReAdCcHcNYlRiDoDeDYTgrRLCjEaK4aQYAWAVAMPIXIIBnBCAqKMRYQxChZFoIgXQOxJCYAOKIMYBB7BMDCB524ExyiUHwE5l4LRrDbD6MocYdBcBdFcHcPYrRxD3D0L4bwbx7jMAKPsAYhBgjhFgFcBYTRLDPDGLELIFxTiCCkNgdASAqAaGQEkPAghSgGDUGoGAFhJCtAaBoLA1w0qSDSDQPQPg6g2E0OsOo7x7BDAqIoeIdRdAdEcEcBoFhH" +;
"hJFKLQbI7AC1WG4GIFgjgCDnBkEAXIJAuAcBSOMdYUxIgZDsHYEgLx2A9DkFcM4tg9DtzeJ0d4DxBjHG+PIfAvBvBPB+KsaY7B6B7F6H4f4bxhjnGyF8MgehCCOESBkLQbgRAoCMGEAAkQrAIECGgHoKxEgRHwNsGQzAbCFBQG4bYsxMDcBsAsYQ4QaBs0iF0WAbRHB2GoOgKAlAigYHKDYRoUxIDYBoNQWYSBaApoALQK4EhChAHACIKoAg4j8CgAwZA9QwiZAcMkSgQgeAPDGOkAQPRIH0AcEESIJA8gaCSJEMguQRBMEkKQbIQgniUFIOkKQURKhjGAOxyQwxcDgISEUIA1A8ATAEOEcAUAGhJFiPgNoMRFgil2EoKgZQKDbB0E0eYbB0CdAcEMPGHAJiZHiK4T4YRJj8HWFAB4IxYDpB2I4MYjB0g4AaMgIg1wcgbGwJoFAMBFgyFgIgDoxhYiMCYBADgoA4BMAYMEYgKhQCnHUBoSQoxUiqBUKI" +;
"Uoqg1B6FUK0VYKh9CuFiKv7AwhZ/XC0OIWgqgIDhDoEABYhwQhUCICIY4MRGCrBKEgSYNBehoAkIYRA2hOinAqAsDqA4BNDbBIDdA5BOADB2B7C2CaD6ACDbA/DMCTAYDFChAOCjDADpA5CbCDCCBzA2DoDYCKAkA2AUClAmAlA0DuDbDSAjC9BNBbDeD5C9CvC7DiD8C+CvDcACD/DACvDsATABDBBwA8AbAJDCAwC8AfAFCjBOB4BLAQA2AOBzB4DZBuDufPDUA4CNDzCsDjA4AOCsBsDFAwALD7B7AlDJCnD5DwCcBPAuBjCODjA7DuBlAIDhC1BnBjBrAUBKBxATB3ATDOBSB8DrA9DPAzD8DvBBDPC0AtADBDDRC0BdAjBEDSC0B9AvBJDTA0D9A7BRDTB1A8D3A0DGAtATCIDdDHBND2DgDhCHDODaAgDjA3CNDCBsCZAmAyB8CaDdDaCyCCC8CtArAOCDCQDiA8CODTCsDxA6COCDC8DogIDj" +;
"CcDkixDDCUd9A4AuAHCDDhC4BeAjCEDiC4B+AvCJhgD+A7CRDjB5A+BDCUDkC5BeBjCXDmC5BuBzCDDYAOAqAcDjChDOBNDkDlDeBOBsC8DmA5ANDzB4TVCKCtCjBrCGAyCODHC0BsALCSDgC4T6EIDLAyBuA/WvA6hLAPDCDxA8VyDJDxB8C/AjDMDyC8DfBDDPD0C8DvBTDRD1B9A/BbDZD2A8BjC0DqA6iCA4DKAyAhAjBdAzCFC7BvCjC1AAAQAQEBA==")
oMsgBox:Out("This is just a message box with a different appearance.",,"Information")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
9
|
How can I change the skin(2) for the message box
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oMsgBox
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oMsgBox := XbpActiveXControl():new( oForm:drawingArea )
oMsgBox:CLSID := "Exontrol.MsgBox.1" /*{6BBB0912-B723-4B47-A806-B529336D81B9}*/
oMsgBox:create(,, {10,60},{610,370} )
oMsgBox:Load("gBFLBTJYCAEHhEJAABhABW4Hg6AABACAxWgKBADQKAAyDQKkEQGGQbRjhEAIGglg4JYjjKKxSgmHYDRTFMZwGA0EwcAAZBpEWR5JiuCQ1DAJMSjQAkRgZEacI7lCCZBjiJo/Q7KUqSVCoaxPGCZJDBWbJegMEoJRjIEIgFBLfyrEahZaoGiYDoaL4xVRGYLUZAZaxGQSEQwsQALBACVoDW7GVY3HT9NABJCTYjmeopphZBIHbTpWK7UpuR4xRSNYCyHgNGhtDyETQtOQqYoCKJCR5REIwbauKQGCDBIRxeD4JIWa5tXDcMR4Li9OQVQ4SbZiMIbLLbIoJILCJDaPS9YYrAYYRoGGJRTiwMw3RTnGBwTbYAZGAAeYRHfQaNhPiyFpyHYGZgAYNgpAmRZBCEIRNlcU4WACa5miAfIrj2kRrDibZgGeeBJA+S5LnQXYvBcW5OAKVxPHgUAxhGUh9hgN5hlkZxSDAKZlAIUIYCmJBfB4ZothkXYdgYbYwGy" +;
"totGsWYQDgMQDB+EIQj4BB1GENoxEgWxDCCRQ1EaVpUFWTYHoWNQJAeIg0GkJYEAMCJdmwCRClCRAzS+EJiEADgTgecRNE6E4nG2d4JGEOQOBcSJeDgRhIg0UQ0nUDxFEMCQADSFoTgkRZegAUIYkAchCEEeRRj8axVhkOR1gYIZYEUO4DmWd4aFYSglgkahcEiYwETMGBQhGDhkhmGBJDEW4ahWV41BsAgmmkTgQHKZwwkodRCFwGZegcWpfFmNQDBQJ56C4bh+CgSJuGwWwSDiCoWAABAECQHIgCcFBWg4QhlhoQhbiuE4AFUaxOiMCoVAOGRpigRhDg6FIInQMwBmkAJBDECxDhqNZAhEEg0F4UhkCuF4ZngbAtAWLJMjSaoYGVNljDWcYbhGOZOggQJGHGSBlB4QphggbQcBEU4YFcQJECENpqEaXJwiECQehCFxFFIWoRDKQprjcG5Vj6fgvnADAHAKQJwEwFwGkGcIMCcCpCnCTA3A6Q5xAwRw" +;
"SkScRMFcFpFnCRp5G6RovmQTp/kCbQ8gcIpInITIXCaSZygyJwqkqcpMjcLpLnMDJHDKTJzEyVw2k2cpcBMHJGhcDAQm8OAOAOP08E2fQXEaUZ0g0JxKlKdJNDcTpTnUDRHFKVJ1E0VxWlWdYNGcWpWnWTQXEOV50MEG5YnAHIEn+WZ2g2JxnledpNjcbpbncDZHHKXJ3QedpdneDZnHqL0d4mx3D9F+PADYfhqjBE+PkBwAxGhgB4CcCgfxPAHEOBkY4cReB/BKMgeQnBDgtGSPIfgrwYjNHmFwd4MxnjzE6AcHo0B6CdA+E0aIdQOgvCmNMeoXQ3hZGuPUPojwujZDsB0N4FxahwH2B4IYoR4B5GOH0b4+APAPbuPgTwLxGjiHgHoD4DRAAuA2F4Qo3h8D+Ee8YfQnhXvaHMJ4J4nxZj3ByA4Ro3g4i+GOMUeI/BPgvhQOUDgfhEiiHyGUfQBx3hrG8H8YY9A/CffaPsf4GQ/jVFCGgb4bxvC0G8Ps" +;
"eUVxzACCAFgBoARvDDH2B0d49Q0i9GwAAfgRw9iPECBAJwCgghYBYMwMAVAGAZEgDgMwQAMAiH4OAXgIRCBQEcAkYIlxsgDC8GAAAfgBh9HgEAHASQFjhEIDEPgsBMBvF+OgKoAxwhkAEIYKA7onDXESA0EItAViFFgPoEQRAsCMH8JwNY6xDCwFCPcIYeAdgEBAJQI4igohOBUEQBAmB/jiD4DkQY8BdAqCKNhcI4haAbEKDEBQHQij4GaBkcIDAwiDEgHoFAxhEDdA2OAEgahGBwHECEY4CB2gdG+DwOQiRYiSBaMcRA/QPyfD0IsCIsgIBIATPYbwDBBCJGkBIFwSBEgdBGNkTgihHiRFsEgJIWQWDKFIJQOgjBZBeCcEkawRQTBiGYHUSY0hHBLGUAkDIKQShEEqJQaKDRlCZC6B8coXAtCSEkL4LQRw0hjBQKUVguRGjSG8E0ZYqQ+gXHKOQLYaBgiaDEEwLIjQYjmCIMkTIUwXBmCYNkToMxzC" +;
"EGiJoKYTg1BNCyK0Go5hiDZE2FMNwZQaBpEEOMbQMBYAVHEL4ONcxjg5DOEQc4nQpiaDsE4TI2wdDnDoPETwExnB3GeFkcoPRTikHuJ8KY5g/BPESP0Hw5x+D9FABQBwgQoBaAGEEdAJQECgGoCYOQzR0CSH+CEHgYhHhyDUGEIIBwBhFHQMUDIowqBuEcFEbQPQjjcAKA4DwEQVAgGiEkYIRRUgFBSKUKgrhLBSG0F0JY2xSgiFIJELwRRlDBHANcNIxQcinCoO4TwUxtB9CeOoAoP4BA2wQFoRoUR1BFCSKkKoLRWhUB0G8KYKhChRFUFUJ2aQrWxwQL8VYUB9CZCiAgS4RBSAdBsGgZgYhZBWC0M0LI6wihpFaFUVwttAC7AEOgRgaxWBNAsLYa4Wh2hdHWMUPIrwqjtEONYfANQuClEqm4WgMhCsuAqGEdgJRECwGsCYYwWBdgdDEKwQojRZA2B8MkKACh+hcDGJwUIgApiGGUdsE4Zx2CtE8LQG" +;
"wghohaC2EkNNQRUieEsF4V42AEBbDOC0IophahWGMNoLIIgbhsHOCoNwtwJjRD8C8TYTQ2jnHaMAWA9hZCSGyKoFQNx2jdFqLYK4LhyhPHEBMNwSAOjJYKDIO4XB9ANDqK0UowhdAWH0MgLgSg0gkHYBUZAuhLiOHMNwTYZw7AuGKOYXglgTD0G4BsUbkguijF2NUQQmhsAaE+HgV4LR1i/CuOYOwXhFjeBWO4ao+xehWA8PYbg6x/iAHgA0T4vg7C6GaNcJQ+aNiDAMCEHARwFBEGgAAYYcBOhpByGwLYBRsiZAyFgeArgQiuGIG0bgkQeBFC6O0dwGRWLAECOIYwIxDhoE6MYUg9Q/CtFkMICYHRYhMCwGbvolQxjGC+IwFYDR7CqGyA4UYEBLCNEi9wJAyBMgvBMDUNQsQlApEMFHZITwVBlC4KsSALxWivDQK4MYKwyjWHcOweYAxajMCcNMGQZgODLEwPMGYcxmXGBYF4BQRwACzC8GgZwWRPg6" +;
"DOBwdYnB5i2DyM8DI7wdjnG4PUT4qA+BbFMHcaI3RehbgKhPgZh/BEhogNAXggA0BugKhRhaAzBHhpAtAihkBcBThKg7hrBNheA7B9A3gnA0hur3B6gDBQhqAtBHgpA1AugmhUh6gjBUhqgtBXgoB0g9h0BgAsh8BwBqhNBngtA1gug2hWh6hjBctKh3gqg1gLg5AthsATBeBsAtgHgxA2AuhGhYh7AjBRg2AjBUA/hbAqhTBtANg3BkhtAtgng1A2guhWtEhFgzhDK8g/BYAjBmhah7gDBwhuAtsJgbBThthXhshtB+gxhMAHg7AwAWhug/gbg3B4Buh9hjBtgbAehchbl8CAg==")
oMsgBox:Out("This is just a message box with a different appearance.",,"Information")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
8
|
How can I change the skin(1) for the message box
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oMsgBox
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oMsgBox := XbpActiveXControl():new( oForm:drawingArea )
oMsgBox:CLSID := "Exontrol.MsgBox.1" /*{6BBB0912-B723-4B47-A806-B529336D81B9}*/
oMsgBox:create(,, {10,60},{610,370} )
oMsgBox:Load("gBFLBTJYCAEHhEJAABhABBYpg6AABACAxWgKBADQKAAxjILEEQGGQbRjhGIwABOCYGRREYxQTDcBwxDCMYDAaCYOAAMg1CTJMjyTBIahgEqMBrASQZUjSHYmRbOMygBIsVRRHyYIRGeRZOsiBqdJpBaCQLokAoJP7UEg0BQEMBtIiXabjGi4egkWIhGpCIQUdSUByjDKqI4neTZPpiLIZAxSIDyCS0EznDKMLLAC6pdgkMQxDhGAxVUAAYhpDDDZBuGrZCiEFIJRZjESXVbUJxKGgaRrjAYMEwbCKERLiYARQRcQi3DikYjTRKmOADK6tZZaVryNZcByLNySdBpEIZBDDKKSaprGrcFqMH5rWjZaJjAZQFjvToPb7oeo1HITGUVYWluJAWC6HAPH2UIBhiLIWGsLBSlORojAABo2m0BAnHmEgskIe5AAQXAnkOEpCGUOoeH8N4mlsbBslydJZlER5cmWdZ7GyGZQlGWRIECdQlCUfIDFeVZcHCWpWj2" +;
"ZR1iCBZ6Aof5ekQDgNGSBJHkUCQfiEJwBAmBYhGcFZIH8Gx3n2ORCGGdxJAMZBAAeSBFgkYwkFIKBxB0WAdmccpgjQZAKgAXZ0mGEh2haCJ2CuBgbGUZQcAyEw5AoEwCB0EIyBMfhkhiehLhMQhYCWTYJggAACEOCYQDCAZRBSIQ4m2MIShKOIxn6FwinQDhjg4UQ4kQEhCEGeYlkKChmkcHQrhAIZEgUTYRBMdJeAQTpgGkboKFEWBAkoUIghSF5BAMXZAAGZQJhmJhIFKGoKiaWQxn2FxhikfQUiCY4aEgAAIFCF5RAMFJeCoah8ECX5KHYcILikB49lsQJqiAAAkh6IRYnKMInisKh9jgUhNCMLJ001eQUAWUIQGYRBFBGBgQC0VZRkCTAzEqAwwl6DRzZQUBAROGwhDsSJrnQDR/A2LQlA6VRmhCEJSmETQhlQUIrjIYQ3D0JQLEOAJNDEYWelWHY+hya5GmECOXHqdRzhGDABAOOouGCTA5j+ZI" +;
"EFGBIulAO4Ei+MxwHoIQJAsaJlFmHY6BebApDWQIrHAApOiYbxkCQMwMhiFAMDOR5vnuRQTGEIxLgcFAACeHIiAUX4DHCSQxjYLYsgYcZEhca4BAkBoQhAWwZE0awXB6DITm6dAnDISBoF0LQTjgdJagKZhDGgFBlg8ZIjHYNQDB2UIQmMVhIXAXwtHoUogkGA3ah0DhhGSLiOHWSZAAoMUYoABZhuC2D8XAOR0DFBSLscAuwdAyGEDMHA8h+iQb0I4EQwgRgSFMMQAABwtgvAaKIEAbARhEBkI8AYeBuA6AcEMPA2ALgMCGGgcIaBDhoAwIQEwgAuhKBQBtqjiwXglFSMgGAigMicFaLoWQnxyDgGUDEe43gDh/HAPgTwHxGjhDyB4F4kxxj5C8G8TI5x8h+EeJ0dIegPCfFaOofYHhTi1HWPsPwzxcppG+A8XY7QeBrG0Ccbw/AvgHGOPUPonwnjdHqP0f4bxwj5H8F8V44x9j+E6P8ZY+w+BmDiGw" +;
"FoXx6AAD+PAAwAggA4AaAAUARACiBBgB4AoQBsAZAGOALgERAjQCUAgIIOAWgFDAMQCggwoBeAa3sHA/wPiRAGIQB4QRujCCwE0BI4QiApEKFAVwFghBYCMP4LwRARB/AgL4DQQwcBtAYCEVgOBDDwHMB4IYtx6BrE+BAf4iAogOBEEQLAjQIjiCIEkRIUQXAmCINgToExxCECiIoKITgVECFUPoUMYhFDRDcrwbAvQLjjAIGERgUQlAsCIAgWoGBxhEDSI0KIrgbBGGwJsDIXwqBuEcFEZwOgjhYHaBIMYhAgiOHiO4HwRxsD9AqN8CgWQ9iRH8EIJAWXiAjGYGcSA8gXBGCQNgaIIgyAcEcJIKRuQigZBAPYMgrBMiTCkG4EISQ7i1BOCUAgoRIhyDyOAzQgwUClCIKkR4bwnBTCGPcSgQgyhoDGJUKQzgtBGGSF4IA5RGCCEOOAAQWBlhZD6C8cQ/BbiXEeP0cAyxQDHBYCYEYvxMATBcGYIwRxHg" +;
"yAKKwYojBphKDCM0DIlQZhmGINkRIEwFBcGaDkO4LwzDUHCJwGYcgyDMDyL0HIphWCnE4FMVwZhnBJFaDkU4dB1CdEmM4L4TwMhdBmOUYg5RPCTHcFoJ4aRwg+BOEwa4nzBBQGeOkRoNAPAIAqKEKgLhDBQG0B0IY6BCgRFEFQJ1FAtAtV6MUDIo6d09G0DsIIpwegIDuOMDAVQFDaCSEkVILQTilCoKYSwUhFQ/HSH0FopgKDOEyFMLQYwmjpFKDgUw1BzCeCmLoPoThVAFB6KgGg/sFBaoSOkOoIBPjDAwFcBYWsfiqDaE8VQVQjZlAUK0Kg6hehVFWBUNwrQqjaFmFcdQ5QwCrGqIYWQVgdDNCwKsIoZRWg1E8LUKw2hshbHULUJQoAJDEDOAsFAAQuirFaHcV4VRzC+CuIofoXh1j9D6LACwDhghYC2AMMI7ASiIFgNYEwxgsC7A6GIVghRGiyBsD4ZIWQtgpDLqMOQhgZjmDuMEZYPQDitAIB0W" +;
"gVg/DRG0BsJIaR2g1FSLQWwrhqBaGQCEMwphSCxA0MIdAXhtg7DWG0FotRci3AsO4be9Q6hvFaOUX4uArDSEwA0MIrga8CGQLge4JhzBcF2I8KIqRe77FuDocoXQtibDqK4UoyRUBXAcOALo2xch0HcMUcIuh7iOHYN4LYkQ4BtHKLATY8xLDu3UNHTQfR3C7FqDwQg0RQi8BsMYeobhVj3CUKYb4WgehDBeL0fIrB7jLAEFsZY6AgDvH6BgYANxlD1CcIkMQNxCjwGMMIDASwEDhB4C0QocBjAUGGFgL4Dbpg5EOPARoeRfCgDkIUMQQg1AFDiCAc4HAxieGYFgHgOdYBGBIMUDAlwNAcH4GcRQsQyiRGIBgO4Hgxi8DAAAGIngZiFFIE8DY4heB3EIPANoIgGBjDwGEcILBNiTBkHYKIygMhPBOOULgpRKiyFMFe0IQhthiBgCoHI8wCi/GWNkQAcxwBbF2JYOQ7gYjGEwN8GEhRjibDeIAXoywcjP" +;
"BYGcLgoxNByAMCQZg1w5gyDOIwbHzRTBRGSDYOI4BHA4hHAZhaAbBEBoB9ATgjA0BegOhRBaBDBGhpAdAftrgugHAauxvyhhhfgnA0hFg1hTA6BvBOhpgdA9gpA1AegmhThik3Bphsg9gXgxgegcAdh6gXBNBmgtBfgsB1gOgWhSB6hjBbhqg8hVgsB1B2gihVAaB7BfBqhxhfgoBHB+g3hRA6AOgAvYhOAyh0BGhNhZgbA7NqANgngzh2guhShahbBTBrhtgtghgUAyhwh3AeBjhfBvhuAdhBgQBxAmhinCAjAmt1g7gag3AWgtt4gDB2BngQArg5hzg2BQhbA7hjBsBvgtgjg8wZB9hGBbhDBxkEvJA3h+h0hcAbhnBohsgZBiA7hGB4hWhhg8A/gHBxAOAnhEg4gvARhih8BTgMBxBuAzhHA4KhghAggIAOACAuBDhIqvAkhkh8gLBjhpBOBWAzg4hPAfAgB8gQJnAxh/hLhAAHAoAEBchIB/hzB+" +;
"BzhKg5BvAbhnh8BrggxahrhJA0gXAghkhdAjgSh0gugNhMA5AXA5hjg8BfgFhOBeghhVA6AHBVnqN5BtAIBRg0AigWhQhlhbA3gQByA4gHg2B7AXAjhsh9gjgcBEAuAThXh6hPBYhth9PvByA+AThZg7BPBqhmgbBbgzBEA+gvgyBeBQhvAaB8A/hAB3h/ADhhA8AfgGhwBeAjhCh4gfAPhig8BvgGhthdBcgEpiBOAKh8gfgVhygeBbhLB3g+Alhih4B3gShygRAzhPh5B/BHhmh4g8DegegjhFh6gvALhngIAfgWhqAeBnhMB7AgBXhpB4gHgihvB+gvhBhMApJHA9BPgOh3A/ADhfh8AvB9hxA+ANALBfgrBYAaxuBnBDg+AvgEh4h/ArhkB9Avgjh1A+BfhTAGBxAbhrh7gPgHhwB9h3hQAGPKhrh8gPg/hyA+hfhfh7B+h6BSA9ABhfBxh/BnAPh9g/hDykAvhdh9A/gPh1h+B/hbpKA/g7hwB7" +;
"A4BCADhQBCB/h4ABgAAHhoB4g3h2B4AHB2gAgYAKB3BoACgAAkGxhYAEBEAnh3gBA3h6gBBHgEB/hoAAB4A4AYgAAwBCB4hIAbgAAoAaByA4AOgBAoAVBcB3hqA9HJgNhoApgCgwhXgCgoAtgCizADAYAwgDA4AvgDBYAygDBoAsB/gIA6gBBgAzAC0igEggBIAEgoA9gDh4BBgEAABKB3g3h5gDB4A7gCBYBLANBoBDgEBoBQgEBYBBgEgIA3gFBYA0gFBlhHgEh4BBB/B4BDgBBnhugFpLgFgoBHgCH2UVAnB3hlh4AOh4BpgGg4AqgGhIBqgGhYBwgGh4BygGhoB0gHAYB1gFB4B4gDBgA4T2g4AFAgBVAFUBgHg4B9gHh4B+gIAIBkgHA4BlgHgYBlgIAYB8gIBYgOgHh3B7gHB4gSgHBoBxgChYgC1cgKgJgYA2gIh4gGAPh4gIgIgIBnA8B4gfgJA4gjgJBIglgKB4gkgKgYgUgFAQBK1phGAG" +;
"AwBdAGA4gwV2gogKBo1FB4gvgLAYgzgLg4g617gRnGhAgLBYg5gLAog9gMBIhGgLhIhHgMBYhIgLA4g/gKBYghA8gIg1gNAYg3gNA4BxANh4AqgNBghvjhBagNB4hcgNgYhdgNg4hegNhojQAIBugOAIhmgNh4hogJhIhqgIRzgOAYhU2MhWgOgwBSgPAoh0gOhIhzgPBohjgMAVh4gMhzhB2gBngPhohogQAJACgPh5AEgNhAh3ANhwxGB5AJgQgJAKgQhZAMgQh5ALgRAZAOgRApGqApAAgRA5AYgRBZAagRBJAcgRgQxGA5ABgQBYhegRhpAkgRg5AlgRhZAIgSAIhegPhDg/gSB5CzhpFbAJAygSh5AzgTAZA0gTB5A2gTgZA1gTg5A4gThJA6gThZAegShDhIB2hGh7gUBGhbgUBZBIgUB5BKgUBpBMgUgZBNgUg5BOgVAZBQgVA5BPgVBZBSgUh0AhBOB0A9BDgpBcgVg5BeBDhpBdgWAJBfgW" +;
"ATvuBpBbBahZBoBagpBpBahpBsgWg5BugWgpBwBag5BjB7hJBiThhDgXB5B4gXgZB6gXg2YCg0AkgVgpB1gWBJB+gYApgBgYA5gGgYBZgBA+B51ZhJnQg5gOgYgJgNgZADhcA+BTgbA5hQBuAGAgBhV1BrA6BDgmAYBAgOADBDgqAEhZgfARgTgwAQAzgyFXAyAxgBBdA7BxATAFgJggA7gwh7AMgwhRAPhQhKANAQ4rhAhOgbB5g5gbgJg6gbhZg8gbh5g7gcAZg+gcAphAgcA5hGgcBZhIgcBJhKgcB5hKAPgQhNAMhphOgdAJhPgdAZhUgdA5hWgdAphYgdBZhZgdB5hagdhZhcgdh5hbgeAZhegeAphggeA5hmgeBZhogeBJhqgeB5hrgegZhsgeh5hggchJhygcgZhzgcg5h0gfB5h2gfgZh1gfg5hAAPh2hNgfhghOggAKACgfh6UkgaAFggA6AGgggaAIggg6JphaAKgghqAIAQA5gx4Xg1gf" +;
"hJh6gfgKAWghgaAYghg5hNgehqAegehaAggfAKAhghh6AigiBaAkgiB6AjgigaAmgigphpghgqAXgih6AugjAaAcgjAqAPgjBaAMgjBqAQgjgaVtA6A3gjB6ASgbApg0gbBqAzgkA6AwgkBKA0ghBqArgkgaAogkgqAsgkhaBMgklQjdBOglAqBHiiBWgkBaBYglBaA8gjgqA9glhKBeglg6Bg5ng/ghBKBCgcgwilhQh+AMhQothZg4gmhAhOAPhAhLAMhaBwgnAqBxgnA6BzgmgQpGAKB6gmgqB7gngaB8gnh6B5AMhqBognhKgCgngqgF69gusRB0AMhAhNAPBwhPAMggh/ANAqABW35ABghIaxBzANBAhTAOBghOBogAhGbLhvAMBwhMAPgwhTANBQhwAMgAhKAPbTgNAwh1axBSAOhghGbXB/EkbBszAMssgNApgzYvBQbKBQAMhgml5BAOrp4sBobLhFAPAAhRByhQhRbIhxgs7agNAAhLAOgg" +;
"5BgAh3ANBwhSAPa17bh+gobMbzBQAPgAhIbXGlgwhQAOgqgCgsgg74Aawrhw5Bha7LBAhuYsBHAPAQ7LAQh1YvBLgvBghJBw4uAPAa7thqgMAP8CANA6hsYvBtgwAag/gtgghJZAhRgtgahgb07QAAh6b3BUAPB6g4bKBKbXB7ANAKgYbpBKAO60W3htgohwhybIhIAPhwhYbaBzAMBghDcc7tgwhSAMh6hUbbhqcgbMg5g5gzAw7BhAhJAOgwhCAMAAhzgxhghpgygAhvgpAghzguhw7bAghIbghKgqAK7thwhUYvB3gpArAnbL7IG97ra2Aw7RAQhRAPAKt2AagjAMh6Bvgsgw8lgQhGZAhTAMh7ClgQ72g6hwgshbBDbIh3gzhg7MgagBgqAw5BkgAM8EbuZB4v73BPcIBQbXBnW3hEb4hVANAqghW38bALBU8k8bZmgtAQ8iBq7gAQhHbbhsgxAwh4gpAqgLbXbWhghEa1BWbRpbhQhKgzAghPci" +;
"hFAMAwh4bIhLAPgag/APBQ7ohKhHAMBQhybRotgg9hgbL8hQhJAMBbg6bIh5gsBbA9W3h9grhAh2g4ALgwguhLBugxhrB/gvAKhFg64uAOg7BmgyBRgwghA6BBgchAh6dahSg+A7hlg5BA4rhw78Abhqg+zdg+whg5A5g2g+gr8SgLhug/Bbh3g/ALhvg/Brh0grh7h3g/hrh9gbgbhtgkBJhabdBKAMg56wgZh+grAghHgpAKgrcnBMbI+VAcAIIhBfb4hE+xAUgthw4tB5g1cnBIbzB/AMhcAic1hBhCbz7Yg0ALBwhoAJAggYAOHigJA8AeAMgLeFgAh8diGnBagRAMhrAacph/guBrAtAMAgh+9Mh1gxgwh+g4h6BwhAgghEd8+8h7gHg0hAhug2hWAsbIhsg0h7B5qjBM28hZANBLhR+v7LBJ6wgAh7gyAMBDggAahvbY98B6higrArB6bKd8A8dKggh8cphF6zhKg0gwhGg6A6ABg7g8Bx277Y" +;
"Bg8ehA7M+9gMg7BrAMgcBwgsPFbXB+gtg6gkhDhKgPhAEEFRCY2qLUigUugSqfg+4V0GyC4AwuEKWTyJIctg2IXUGQwmTgGDOlBqlg84UgGEC9g0V2ub1C+gyOAqVyw50SlVukTw+zq2BCgSs8Uk+COgQClUCQUWh2ubA81zsHhyDUFIDiOCOZRyYA+wVAGXC7gyNikGTxHhwhA0GRijAwSIcqA0mDuNhyTrG/ygWSUGFC9SyYX3BV+nGCkUu2AgGjCpRs9hScDqa6eH0IGD6bGyg044UsHyyPIck0WwUybXqiAyYXLhG2Z2C3TY1mKe3ogRsoX2li0LAygRoDyA9gmIHgDy0OAeQRuo10P1IOh70SSpD0RVI2impJcpH0VVGwHoDw0T1MOjOpi0O1EoUypw0dVE+jgHzs+1O1SOliZPhDheBUgTwBYARhZoFAVEEVEOGAFhBP4yS4EEUgBVgAT/KkgT+BUYRmQ4hRlCEfSqMEZyrGEXgWKE/gRCEIgT" +;
"IIBgUGwgAfPkikOHYFw6LkqjWLRDh4BcYT+BYmigBgQSCB4WiKBwAQlIZTSdFcBxbLUIAVAEVgdAEIgSJgmgZME1xaKE3R4HccRACEZAWMGHiBF4HwhH4F4SBg+BOh8VkOnEYTyj4ySLDkzgZi4Fw7DUqT6N0sxVIRYBvKsZz/K4mw1GcAT8Bk9g4BcIRoQ4agWDsYSrHk3AUKESyuPsdkrH8PzYHwFjbHYFj6MhFBPGORwXPg4AVBomgYDg4SaNgEgdOGAzBPwFibrMWQFKs4T0BQ4RTK4mjhHacwVNokgVDsPgYBo7RuFsCEOIMhDhn6LkDF0ggBJoHyhG2Kh0BcGjZI4GygBcmw0BcGw0QMWAfPwDSrDwEpGHu+CXLY+AQqBaDWFKqDyBYejIBcnAfKAuDDKoPAeBYXATLYOiGBY4R8Q4UTBCEiSqNUpEOGctxhF+KiHJAXA9G+eyZASjCOBUWzyLYgT/GU2TPIkWisBUoRfLIuiSBgmB8BUmw/MQ" +;
"VS/UkaSsIEUypLYNgfrkej2NkVSUNQHjzJ8TB0IMpx6HNMT+B0wTjBMwTfMwnDMNMnDPMwvDRM0fDVM0vDTM0/DZM4HDdM0nC9M4ugvXUgRvCEpAdCEGARKA7ihEAzACKI9oEFAEwiAYESiMwrpzBYIRgFUQQUCAYDmKEQT6BIwQ2FUXQMAAAQCCAYTMAwoDUBY4gGBYwgGBwQDA9EzPVEoCBAIExj3BoEwBC4CyiAbqg8BMgSeA8oD4A42jXLULAISniAA2OAewEAADceqPsVwtQOhkBsEcQYwRJAdEAN4B4AQJPVEsHMaw8lFAgGQB0Sz0hPAODAOUWYeQCiNBCLIBwABzAQRoBwEAxAGC7BsBgUA5AQB9Bk9IUwDQQDPEIGEQoUgQiMAyMAcADQwD3GgEEUADggDbF0CEPAEhhAHG0GERgDRQDTEIHoBQDhgDnGqMIeyLQzAaCAOABwAQDPVAw8YfwLBgg0AmHgIBKwsAMDAL8Z44AVEOCABQMI9A" +;
"IBBAYBAJQFEwAGAgCETQCxwC+AkIwQAEn5AQCEAYDwoQSARGwDwwIzgJChBSOUIAKgJgaGsBQYIUAWAgAAAwcQzAKj7HYBYMIYAHC9AKNsboMRqjgGtHIBI0ABDNDaFkTK+BEAaDAMABYvgoA+DEAYB83Fng6AmJ0TwHgwgeAiGAfzsBtAsGqFADQgBqAOC8IkcYIQsIMD8AwYAxAICqAoA9GgFhQCAAQhICw/AAjAECIafYygIPfAkOwQI0QASGC0P+JIlgOAhBMBEUIEHqgejyFoCowB4jSmcMMDoHgAAeA3PYVoVRLB8A8HgWYywpliECJ8Gw4RPjLE0CkU4lnliAHwA8QIIgHiAHsBI0Y9RvhbHq1MewPw0j2A+G0ewfw3j2F+HEe4fw6j2E4O0ZY/xAinF0H8ZgFhdAfDCBwCQHh+PSAONALoFkCBceqFKPIVFuD0AmCEFgFEaBeDEPcSYwRxASACBoCr8gxDiHskwPAHwgg0AkIEKI05dWEBeN" +;
"wcKLQtCuIGOqRMpzjAOHCMYCY4VHDBC7aMfwEACByCKP4ZgYxfjZCYEcfQlQoB9AUIULoKRKDEA6Iof4awaBfHYGYHQjAAAAC8EcCQcRjj6EiEwWAjgkhAAWEEdA9UJiDBgNgRIWQaBxDoAABQvxqiKGoGQOITwOBiEcAerwfASimGOEQY4EwojJGgAEfwsgsgrHGIoRA5BTBWGQGIG4EQ0BmESOgdg9QhChCiHEYghBCgYEiFsKI5AWA1H2JEGAkghhICgEgS4kQyC6E8JAT40AEDoHEDYIQlwlCrBGJEXQWwEiAHqEYUYlQYjFDoIUMAsQeBSDICocoex+geEcEEY4LRqC2AHgkSwTBRjjEOLkBYRRMD/DSDITwagSDSCkDgVYkBTDTFQB0AghQ0C0GcCUB48RhjVFCIgeISQSiZEMNMSYzQLCMGgIACIEgKDiEKFUDjYgFhPHoPoRICQ9CQFINIdQWBxB+CELoLQvQJgJB0EAAIOQQimFACMToSgt" +;
"CtCgMATQqBSAsBKPsd4Rh4hkBiJ8JoBhFj1EsM8P4fwIjDHYMsPwjBTjoGaDMB42ANAIDSA8AYwB/g8DANgHwDhCAhBwEoCsRg8BSAwIUUImA5AbEMOAVAggEiIFAHgRwCgoBMHmP0XwSAAAFECEsFYChBgFA4CwbwUhgD5BIIgeQ3QOArCkBMDAwwfDJFEFwWIRwFgkEIM8GIjhpBgEgHYIABgUhLBUIqCgHARCSAkLwVwPxmCzAyAQIQTBxggH+DEBgJ5bg5AMJEWg/waDiEGCAYXPQpgUDoEcBgoRbBlBmEwS47QKAwAWPgZgAL1CUEII4EgCxqByCEAAEoNQWDJEsEsWQ6BNhHA9M0GIUsKKuCOCMSAAcqDMHmAwf4LxlgqBQAAUoCRKCFEMC4CoJA4CSCQEwIYBB/gzCgGMD2cREhCrkKcJ48hWCxFHvIFgrwUjPHkPQWYqRKCxEoGsRwwABhcBqA31ALBGh2GAAURPMwlAzAyBwFoUgJC0FSG0" +;
"VoMAAC+DIAoe4pRVhSGUIIUA/wRiIGkEUDglAqCzA6AkEQyBdCCGYEMR48wCC7EqMwEYzBMgkFSGkCQLgVgsDSEDAsBLAmBODkC5CSATAoDJCaDQBjAJAUAmCJC5CGD9BSDMBTAaC4ClCiCSBSAtCLBrBCCyCMC+eoDMCsA+BJBiA6CSCTAlBCC1DpBSCPDyC4CrCeDAAJDmBXAyLABADLA9ANATA4DzdeDTDsDMAzDfCzA+AACACPLNM5AMDCBQM1AJBRD0B9AkDHDRD/BLDTB0DNA7BRDUA1A9A/BVDUC1BtBTBXDWC1CdAzBCDXCiBYCNAsAyg0BUCaCsBAAICsD/AqAKCaADAjBSDLBCDUD3AkBvB1BBAhDEAxDyBhBPBKAqBzAAD6AmBJBqDhAeB6CKC4C3BpcMDKCrAGAzgNA2BZBVBOCRCsBwC/BTBjAMTZB4DDAYDKAcCGDWA5BLAvC5BjA8DIA/CLBCDACXBIBFCRCDAbAZDGCTD8BfAXDT" +;
"AQABDpDHAlBlA4CWjKDBB9BRAAAPDRC4BpA8AFDRBmCjAAArCDD8C2AqexDEClC7BPDxB0BgBzAUCxCcBqA/DFBRBnC6DaBLB2DXCNCVDRBCBACVBgBKBkCFALA/YUAiApAjDlDiDZAEAvCMBRSfCyDKBECEB0AdAZAyAwCdBHAuBbB8CgDKDsA/AiDWB4avCOAfDpA9AWCtDiBuAqCHD4CQARClAoCjAwDzA2cnCKDeBQjuBkAZCxCQAvDHDQCcASDLANC2CyJ1CzBgBgD/AVDiDEB/CIDBAWB4CYC5AtAjAOA5CDAJJhBnDRBgAVApBjAQBfAPDhA4AlAMAoCGAfDiBNDuCRDCDyB6CFBTBtB4BPAgBUVJAmc4BsBCAUCiCMeQB4Bij/AACdAYDoDICQCMCBCKA7CGCIDKAdDJCcB3ANABCeA9AGBoDPAeDsDpCfAgA0AKDQDRAyAMAfDxCkB4APAhD+A7DjBsBsCNDRDCA2DGD4DVAdAjCcByCODR" +;
"DmA4DHBYD5AeAjDsB3CPBRC9CvDGfDDQDHD4DHBLClCQDyAAAGDOBTAFCbCCB8AFAsBZXkD0AlAECrDPA9DlAsBkAMCRDuAkDEDCB5AWYjB0CPCxAiAkAlARAdAkAiCkBWDCD4B8CtAFBrAoAVBjB4BLCJAxDSfMCwDUBFACAoBIAIAiA4A/BFCwCyBnApBsBjCOBRA2AlBMCyDOCADjAwBkAODBBEAnRZD/AOCBDhC9AyAhDyDmDFC4A9AHAJCFCOAZAhaBAKBYB0AOBuDBDYAPBwDOAYCHA5AqmEDRDEAKCxBEDpCKBYBrANDyCgDWCUC0DiAyBJBUWnAqDsDTARAxD+C5AWBaC4BXAPpfCRDBDuAuDeA4DTAYCDbBAEBiD+ClBJALBJBcBCAtDYBEDTDUAoDWDCBNB4CiCwB+AJCRAiBJDgDgCqAVBFDsUunDArBXAIlBBCBGAYCwDkC8AvL7B1AAAQAUBiALDxD/AWAHCICOARBFCZA9ASARBEAp" +;
"CWDyDNmACZBrAIDRAaD9CAADAnAYBqCkBnAMDSAODYDECrB/AjCSD0nqCEDXBLDGCjBjASCCA9D8BCAECeAxh7WBDDDwBLAIClDyCjAlCKDNCkB0CYBVAyC1AEBLAGAwDvAaBjAwBxCMDRCQA5BGBgDKAeBRCAB6DGACA4A+BQWPCMDNAIBJCHDgD6AlCaA1CHUBBiDEA0BrAWAfAsBNCOCyAWAyDFBZA7AjBjBsCtCYCxD2BeDNBZBAD5WFD7BhGnCIBJBIfcApAWCBAcCIBCDFAaCJBRAjBDCnCkCIAYDjDIBIAJAFDyClATBaBqAvCkDQS4BCBCApAFtYACCwAUBXCbBRAeAkCDfKAaCiCEBNCPDxCEDlCFCQC5AyDABUBpCIARAABQBGHGAaBDAgB4ALAhBZA2DEAICFCRADAYByCICxAUBeDJCwCGARAjD8AzAGBzACC4CEBIDgBzBsBdBXuMAOAiCdCAD/r4BIByAGDwDUAkCiBxCUEOCcA2Cr" +;
"DzCiAmBHBYCLAQCsCcBHAJqBDkBWBaApASADBYAyCGA1BMBNCEDYCcsJBmBcuMAiAlBVD7DLAVBCCxAmDNABBrABDGEUDAChCMefDhDaASACBUAICrBkBwBHDEDhvkDGBBAcCDCCC4BTAPCKC0DeCgDgCvAWALA1C0CKClB2AjBEBBBKCZASAhBUCJBBAgC3CTDIDrlvA4B/CKAxBCNlDICXBXACD8CQCKCBBdALDEDSDvAVAPAcBGrcBRAMBhAADFAhAjA+CmCMCWDGAiBEB6CdCdDwB2BGA/CMA7SbAGByAVACCqDeCAACBOBTAeA4CeASCqBSAACKBRBMCnBYg2AVB2DuCBDeAhDmA0BGBYDwdDDEBpCNAoC+AzDrDjA9AAAVD8BoDYAZAIA/DHCQDxCNBIA2A1DqA9BLCoC1A+CkDVAaCbBUDqDNBXCrC1BVCgCQC6DJAzANBLDyAmAWD0AFATBCBaCdDbAMCKA8DEAoCBBQBVC4BaALAxDYAfCD" +;
"D1A7BbAQCEBWAPBxAYoOCTCCBFAiBeCRDkChBQDiAFBICrAdCiB0BPANDxBgPcCYDQuoA4BbCEAACQAtBCCABVAgCDAkB6CNASAMA1BGBwC5AlBDBYAlAFAJAQAyCTCABtAPCkCEBVprD2AcMpBhAfCQBkB3AIDhARA2DIAQD+ANBBDCC1AKCBBMA2CDDgB3A3BFAsBKCJB7DqAiDDDxAcAeOZBnvLDbCNAJCwChAUCDDoA1AGD0DCA+DEDwCbAdA0DkDze2AoAlk/KJBDtwAPD6B8BuApAiDvBVDqB3ACCMRZA8AgDJB5AmDCAMBEVMC0AYAVCaDrCZAcBgsGtjAmk/C+AXAjDcBOAJCECXCfCEDICbBhDQicuMR0BWDzBpAWApBYBHAIDCCUCMDACqCdAeB3DQBRAKAlCWD/AEDYChBcDnAYB/CLBxBwBkDECOB0BICkBdA2BTBiAuAoDFBKAtCCBCBsBPCunKIzCQD/AUAiB/ClCyBxAoCQBIDmBy" +;
"DnCjC0BEtXDoC2C5BoCVCkBsBeDjBPBHBsBSDiDoD5AZDDAsB3AMCxCRDpAGtRAZCjA4B8DGA9A1BgAsAADMAZDMDnDZB7ARAeAe0zCPAPBhDoBGD7CvBzDuD9DvC6D3CBDrDfB8AvCJDwA9D/DDD4A/mAD8CvCTDyA+A3DOVcBLDYD9VXD1C9CbAHAfDCBBAbCWBwAAAxCBCoAzBTjrAdCsB1DSDDaOC7CqBmBiCvCAAKB2C5nmCdATAFSGANDQC+AZBDC5A1WEAAAgAPDyBeCZCDBMA+BHDYA9BDBAAzADDoAyCJB0AwDDAgA6ABD4BXCEDUDHACDYA/ADA0BFADBIAyDDC0AeDBDsBnDEDYAuDDjsCbCgCbCEDZCeCZBcAmCBCYBIBCYpDDC9jSDgAAADC8AcDBDgAzCBAwIMDYBsDCDMA3ACBMAjDBC8C7DCDQD6BCBoAnCBDMBNYw6FSFS0AUCBDUBi6sA/DC65ABCtAvCCDAArBDCsAoBCB0Ut" +;
"BUAHADA8AcAPDMAyAJB0AzCDA4Ca5xAyDBC0Q1CoB6BO22CCCMBBi4R5CkAZBBDJC+DJBYAgCCAdDLADChB5BD7ZCBC8AhCEA4DDCLCUBNCCBZDLDMDEA2ACA0AiDQAwDZDDGaABCNC+CAAAeOD0BQADAQAxU2BJDJAsDyDCBYAmAcBJDELx6FDwA2BfBsydDkA4BBC0AbDGCsAFBQAwBuAABUA4BCBdDFBVDhCHBQC4dZBcFwAYAyCVA0AxDMAY5wAYA1CBDIAc8UBSCCD0ARABAhCVACCU7vAkA0DB9aCH3gax8uD4An64BBADAUA7AHCBCFCNvTDBJxCcDcArAADsAPBDDAOEDsCKDFAYDlAE9n8AA+BDAkCXBDBEA0ADD5DsBDD1DsBVD5DrDaBxD1AjC2AXADDIA9ADD8A8DRC2A8DjDKA9AjDeHWDmA9BjDuA+Aj4mCjD2BAAjD+A/DfBWBBAjC5ZKElAVCMAlDMA5BaCDkbBQCEC4BDAcCq/S" +;
"CmBC0OBUDFDnCEAQBp6vAlASBIDuCXA0CqBCD1DdCOCQDKAOAgAwAKCkAuCUC8AwDJCo6CAoA+AMAVAX3sDNCAIMWD8KjAoEQuClBLIQsN+CdRPgZo4UJchICIBweoIwCcoIQ2kJsC5CBw0gJ2C4huwWoJmD9KNAlgQoCtwiAXglUCsDNRWkpUlMhjBAtIoD9hgBNIJ2k0hNQWw4XgJ4D4hLwyIJcghhhxsMJxFNhVAkqxTEMMDEhvAyEN+C4qLwZiU/BcLIgZEZIC5HFgWOVuiIrMYTMMeDxhMCst4pOVNF9SD0EIN6C8qL4moJot1BLAyJ98iIhvVNGYYCsBMBtIksDBCCQWTcYsQoEYoOgTBIYKJHFAZQ4XOYQCxhuhJskvG0hh7lBhLkMOJYzK0EGERCxkARxKQ2jdCDgPgRCDAib4KjQaAMnEZEqwiiY4klGAAXhRqDJjJAZOZ6RZ0F4QwYhEAgohkYhYCEI5ihWYZ+hUZRUEUAxon+JwcJOahe" +;
"EEfAhCGFDfnwGQCAwGpBiwHxQjISphh0HJBh0HRNDgQBPFkHAGHUQQBCYDwRjQDwAnAEggnQDwBCcQhUCMQh0CtJIpEIFAzEMFAvEMdA9EKVA1EQNA7EQVA5EOdA1EEFBTEEVBXEENBbEEAgON+TgRCEFAPkIHQHkKFgYkSMgZgcFIpiSPpqAcvwym4FZGAENZhH4VQhFUNJBF0CQSkCZgMlgYJUhgGZkFELxKGwRQQjcP5nESDAOGCXAhiAGhBnYGRDEgGIBg0CYAAAGxAnAD4uGAYJBhITRIisDdeBoIJ+BCDogCKAYWlwMwCinUgZkGcAZmGGJ0DMaltCSagTm4IphiYGwhnAGBBg4H1it+dxRE4YAinOJhLkSMxKCGiVwhkJgMGadI8BkAZ4GaAZ1E8bhgDSFQvFGRpEXiCwcXSPxqhoGIiAyTYkE4JYEjoGZtkMO4hm4YS3BqAYuCgM4pQYbQ/BIXliBaoQkBqK4aCEM47FbEwfBOABsFENxQBO" +;
"Pp/iUMwbmSLivnUMhhHkL4DCSNBTF8Vgvn8RgJBANIBhQRQGGkEz+CCU47CYIoCGaIUoCMZAmxeOoBhw9JenUQZnDQYYpOeDggkGJw6hSQw9k4YRKFXUhkA0N4CAkJoGGgH4RFEWJUj4NIxkAJY1BhYglFAAYGCKERim+MlxCGaRKGYbwjFGTAZhQCowDQVRFiiVQeC0QBBk0QgeDYTRlBYSxlFYTpTmiWgeFYXRmBYWxmFYXxmHYYxmhYbxmkGZRkBYdxFhYhZhiMUAVnAIIUiQ54kBoIZjACYZ8BoVYvD0jkHMGocwswBjiGKAMIQsBzhEB8OoYgPQTAEB60Iao7QaCBEGO4a4wwfCeCYBYWYChUHpHgDIIYNF4gtHUOsNwlghDOC0EIZQXRvCWBMNkWAlwoCIB4GkFLeQsjMAGEgHoawVA5AGN4HAgxijoEuGRWQ4gwhUGwDUI7/RBjYBirZ/AXF4gwVkM0di7AZhjEsFwUQbAaDDGUH4FwWBsOEF" +;
"kCgcgPQsisB2N4RAPQBg6ACGQbQ2wNjaGyJQbQ5wyjJAwIcewlg0wOBOO4K4qADCACGOIS4AxfCXGGNZBg0gwhDHMOiJw7A1QnHaK4OgqQ7DxHKMoQQAx8MvCsOcgQPQ3CqGqOEOQFhhwnGGCQH4kQ6A8EWKYaQhx1DYFYDoK4oAMAyDeGkoQKnVHoCGNgGYQwVDqDeMIewwxyA0A8K4XwrxJABHUL0Ag5hqFqBIDwdYAAeAtAAD4EYfAehVHADsaIdAdgbG8EIFw6kGD2F5EsfoaxPA5BcDgGIbhSAzAGNkTQ3R7IrF8I4YYxFZGHEGrEBg2BnAtEUOQd4JQpxLCWEMewOQECaL8HIY4qAPDPCYOgHgKgUA9BOOIV4DGchwHOA8GA7wHiSDsEsOAqAZCxAWBEGIBwIixAeBEeIFwJAxBeBIVg8hFiwGcIsNgchggxCcNsFADR1BDBwD0bwqhBAMHIDMeIcwLiMHWBcA4+A/hHHmBcFg7wLCxE6OoeIo" +;
"gghxFOBsD4Yh1hnDoNARIXg7irD4M4eIkhF05AqPEM4FgYjfLSEIQQLhnV1sGC4Z4HhYh/AsB4VIXwZAfA2AweYIwYjbAmPEOwQRRi6B0B8LdsB12hHKOoWQWwNAyC+CYeIowShxFSPUBAGwTgpHmnYL4JBDjzBIN4U4KQZCTA2DICo7A4jKGAOsDQ2wYjqHUHIFYHhZAnBEF4Z4JB4jjBMHIe4KRZDZHUJ8K4LR5AjBeLIOYGwZgbA0PCkAQxoAyG0FcGYcwZDhHMAQQQrA5g1BgL9EoMwahzDGDUeYZwbgzDeDcWYawcAzDODQGYjwZjzEuDMWYnwaAIBWDEWYIhBCzAODsLw0wSAzGCPQeYxwQizGrewL4L7jA+BmN8HYsRbg/BmOsH4c31BxEuB8OgDwPg0A2EIGIbwgj0BWEIOgF4UgzAuPIIYRMEA+HmPsIotArhGBoAcIwtABhHBmOcI4sx/hHHpc4eIrwjBzA+CcWgnwki0FODoeQdwlC0Fm" +;
"EoegtwmA0F/kQFYOQZijByLQa4TgaDfCcLQbYTwaDnCeHQd4TxagHCgDUB4Tx6gXCgLUDYUQagfCkLUE4UwagjCmLUF4Ux6g3CoDUJ4VBahXCoHUL4VQahjCqLUM4VwahvCuLUNYT3dg7GGCwGo9RHhZDqJMLItRThaBqK8LI9RbhaFqLsLYNRfhcFqMcLoNRhhdFqM8LogxgUWDGF4Wo8wvD1HuGAGo/wwC1H2GEGwBwwh2AeGEWwJwxA2BeGEewNwxC2B2GMGwPwvA2CeF0OwUwuj2CuGYGwXwzC2C2GcGwZ2hBvDOLYQ4aAbCPDOPYS6bRNhpBsJ8NQtg0BHAGMgEybAeCCDICcGwuw2A2GWG0Gwxw2D2F+G4Gw0BehCDID0Gwv5whrDgHcB4cAbgXDgLcDYcQbgfDkLcA4bw7DfDcLYbYcx7DnDaHcJYbh7hHDaPcIYdB7hfDqDcMYdQ7hnDqLcP4dxbiHDv6sN4dwTh5FuCMPQNwXh6DuDAEzQQ" +;
"5i3EWHcG4xw7D3GeHYW41w8A3EeHwW42w+A3Gn8cS4eh7j/D0LgA4eRhBrDmHYdYfR7jnECPceYfh7jrD8DgFYgw8AzEEDgCYew8J6BwAMOQRBDD2HSN8QwcAViGGaEeEOCYFwCCGSDsH8DeHOEMDwEsFeHwE+EQBwE2EUDEF2EQFwFuEUHwDUBWFwD2EYDwEGEOBwGeEOHwG+EaFwHOEYBwHeEaDwHmEYFwH2EaBwH+EQHwF2EUFyAuEUByA3BoF2ESBwFGEeDyBuEgFyB+EgDyCOEciUEoHyB2EoFwHWEqFwDeEkESDuEkByDuEiHyBmEsHwF+EsDyDGEoByCuEyDyEmEqHyCmE0ByE2EkDwEOE2FyD2EWHyDyC+EQAwB8AGBgBkHyGuE6HyG2oeHeE8FyHuE8DyG8H2HyHeFADyHWFAH0AECWF0AmFCH0A2FAF0BOE+ByH+FGD0B+E+FkFWFIFkEWFKBkFeFIH0C2FKD0C+FMF0DOFOAGBmFIB0B2" +;
"E+F0D8HMB0BmFCD0EeFEH0E+FEB0FGFQB0FeFQF0COFOD0DeFMB0GOmeGeFWHyGmFQD0G+FWB0EOFSD0HeFSB0HuFUF0E2FcB0FuFcCGBeFaB0GWFaD2A2FkB2AuFgF2BeFUD2BuFEF2B2FgB2B4QMTwGGFYB+H23WH2C25kDeFsF2DuFsD2D4B0GGFOFwB2EQB2AGFgKQFgB0F2E+FyF2uHJQF0D2EuF2F2EfI+D2FuB2GeF6F2GuF8B2GmF8F2G+F8H2HOF+B2H+F+F4APIsEWFsH2EmF0H2F+GCH2FvIMGGF2B4AuGAB2HuGIB4B+GIF4AWGIH4QUB4C+GAH2GWMMBGF4D4nCF2FOGGF4DGGKD4EeGQF4EuGKF4E+GSB4AmGMD4D2GWB4BOGOF2CoCOAIAIICA")
oMsgBox:Out("This is just a message box with a different appearance.",,"Information")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
7
|
How can I change the critical icon
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oMsgBox
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oMsgBox := XbpActiveXControl():new( oForm:drawingArea )
oMsgBox:CLSID := "Exontrol.MsgBox.1" /*{6BBB0912-B723-4B47-A806-B529336D81B9}*/
oMsgBox:create(,, {10,60},{610,370} )
oMsgBox:SetProperty("Image",16/*exCritical*/,oMsgBox:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)"))
oMsgBox:Out("<img>pic1</img> This is a message box with a picture.",16,"Critical")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
6
|
How can I get let user type something inside the message box
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oMsgBox
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oMsgBox := XbpActiveXControl():new( oForm:drawingArea )
oMsgBox:CLSID := "Exontrol.MsgBox.1" /*{6BBB0912-B723-4B47-A806-B529336D81B9}*/
oMsgBox:create(,, {10,60},{610,370} )
DevOut( oMsgBox:Input("This is a message that displays an input box.") )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
5
|
How can I display pictures in buttons
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oMsgBox
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oMsgBox := XbpActiveXControl():new( oForm:drawingArea )
oMsgBox:CLSID := "Exontrol.MsgBox.1" /*{6BBB0912-B723-4B47-A806-B529336D81B9}*/
oMsgBox:create(,, {10,60},{610,370} )
oMsgBox:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
oMsgBox:SetProperty("Button",1/*exOK*/,"<img>pic1</img> OK")
oMsgBox:Out("This is a message that displays OK button with a picture associated.")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
4
|
Can I change the OK caption
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oMsgBox
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oMsgBox := XbpActiveXControl():new( oForm:drawingArea )
oMsgBox:CLSID := "Exontrol.MsgBox.1" /*{6BBB0912-B723-4B47-A806-B529336D81B9}*/
oMsgBox:create(,, {10,60},{610,370} )
oMsgBox:SetProperty("Button",1/*exOK*/,"Just Fine")
oMsgBox:Out("This is a message that displays an OK button, with a different caption.")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
3
|
How can I display a Yes, No, Cancel buttons
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oMsgBox
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oMsgBox := XbpActiveXControl():new( oForm:drawingArea )
oMsgBox:CLSID := "Exontrol.MsgBox.1" /*{6BBB0912-B723-4B47-A806-B529336D81B9}*/
oMsgBox:create(,, {10,60},{610,370} )
oMsgBox:Out("This is a message that displays Yes, No and Cancel.",3,"Information")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
2
|
Is it possible to display a picture
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oMsgBox
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oMsgBox := XbpActiveXControl():new( oForm:drawingArea )
oMsgBox:CLSID := "Exontrol.MsgBox.1" /*{6BBB0912-B723-4B47-A806-B529336D81B9}*/
oMsgBox:create(,, {10,60},{610,370} )
oMsgBox:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
oMsgBox:Out("<img>pic1</img> This is a message box with a picture.",,"Information")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
1
|
How can I display a message box that closes automatically
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oMsgBox
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oMsgBox := XbpActiveXControl():new( oForm:drawingArea )
oMsgBox:CLSID := "Exontrol.MsgBox.1" /*{6BBB0912-B723-4B47-A806-B529336D81B9}*/
oMsgBox:create(,, {10,60},{610,370} )
oMsgBox:AutoClose := 5
oMsgBox:Out("This is a message that's going to close in <b><%sec%></b> seconds.",,"Information")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|