maXbox3 3.9.9.195 14/05/2015 08:37:17 AM
maXbox3 3.9.9.80 13.11.2013 11:25:53
maXbox3 3.9.9.80 13.11.2013 11:25:53
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
<strong>maXbox3</strong> <strong>3.9.9.195</strong><br />
<strong>14</strong>/<strong>05</strong>/<strong>2015</strong> <strong>08</strong>:<strong>37</strong>:<strong>17</strong> <strong>AM</strong><br />
20762: property Canvas: TCanvas read FCanvas;<br />
20763: public<br />
20764: constructor Create(AOwner: TComponent); override;<br />
20765: destructor Destroy; override;<br />
20766: end;<br />
20767:<br />
20768: TCustomControl = class(TWinControl)<br />
20769: private<br />
20770: FCanvas: TCanvas;<br />
20771: procedure WMPaint(var Message: TWMPaint); message WM_PAINT;<br />
20772: protected<br />
20773: procedure Paint; virtual;<br />
20774: procedure PaintWindow(DC: HDC); override;<br />
20775: property Canvas: TCanvas read FCanvas;<br />
20776: public<br />
20777: constructor Create(AOwner: TComponent); override;<br />
20778: destructor Destroy; override;<br />
20779: end;<br />
20780: RegisterPublishedProperties;<br />
20781: ('ONCHANGE', 'TNotifyEvent', iptrw);<br />
20782: ('ONCLICK', 'TNotifyEvent', iptrw);<br />
20783: ('ONDBLCLICK', 'TNotifyEvent', iptrw);<br />
20784: ('ONENTER', 'TNotifyEvent', iptrw);<br />
20785: ('ONEXIT', 'TNotifyEvent', iptrw);<br />
20786: ('ONKEYDOWN', 'TKeyEvent', iptrw);<br />
20787: ('ONKEYPRESS', 'TKeyPressEvent', iptrw);<br />
20788: ('ONMOUSEDOWN', 'TMouseEvent', iptrw);<br />
20789: ('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);<br />
20790: ('ONMOUSEUP', 'TMouseEvent', iptrw);<br />
20791: //************************************************************************<br />
20792: // To stop the while loop, click on Options/Show Include (boolean switch)!<br />
20793: Control a loop in a script with a form event:<br />
20794: IncludeON; //control the while loop<br />
20795: while maxform1.ShowInclude1.checked do begin //menu event Options/Show Include<br />
20796: repeat {for it:= 1 to n do} until is keypressed //keypress in output window below (memo2)<br />
20797:<br />
20798: //----------------------------------------------------------------------------<br />
20799: //**************mX4 ini-file Configuration**************************************<br />
2<strong>08</strong>00: //------------------------------------------------------------------------------<br />
2<strong>08</strong>01: using config file maxboxdef.ini menu/Help/Config File<br />
2<strong>08</strong>02:<br />
2<strong>08</strong>03: //*** Definitions for maXbox mX3 ***<br />
2<strong>08</strong>04: [FORM]<br />
2<strong>08</strong><strong>05</strong>: LAST_FILE=E:\maXbox\maxbox3\examples\<strong>14</strong>0_drive_typedemo.txt //history up to 10 files<br />
2<strong>08</strong>06: FONTSIZE=<strong>14</strong><br />
2<strong>08</strong>07: EXTENSION=txt<br />
2<strong>08</strong><strong>08</strong>: SCREENX=1386<br />
2<strong>08</strong>09: SCREENY=1077<br />
2<strong>08</strong>10: MEMHEIGHT=350<br />
2<strong>08</strong>11: PRINTFONT=Courier New //GUI Settings<br />
2<strong>08</strong>12: LINENUMBERS=Y //line numbers at gutter in editor at left side<br />
2<strong>08</strong>13: EXCEPTIONLOG=Y //store excepts + success in 2 log files see below! –menu Debug/Show Last Exceptions<br />
2<strong>08</strong><strong>14</strong>: EXECUTESHELL=Y //prevents execution of ExecuteShell() or ExecuteCommand()<br />
2<strong>08</strong>15: BOOTSCRIPT=Y //enabling load a boot script<br />
2<strong>08</strong>16: MEMORYREPORT=Y //shows memory report on closing maXbox<br />
2<strong>08</strong><strong>17</strong>: MACRO=Y //expand macros (see below) in code e.g. #path:E:\maxbox3\mXGit39988\maxbox3\docs\<br />
2<strong>08</strong>18: NAVIGATOR=N //shows function list at the right side of editor<br />
2<strong>08</strong>19: NAVWIDTH=350 //width of the right side interface list >=200<br />
2<strong>08</strong>20: AUTOBOOKMARK=Y //sets on all functions a bookmark to jump<br />
2<strong>08</strong>21: [WEB]<br />
2<strong>08</strong>22: IPPORT=8<strong>08</strong>0 //for internal webserver – menu /Options/Add Ons/WebServer<br />
2<strong>08</strong>23: IPHOST=192.168.1.53 //run as Administrator!<br />
2<strong>08</strong>24: ROOTCERT=filepathY<br />
2<strong>08</strong>25: SCERT=filepathY<br />
2<strong>08</strong>26: RSAKEY=filepathY<br />
2<strong>08</strong>27: VERSIONCHECK=Y<br />
2<strong>08</strong>28: APP=C:\WINDOWS\System32\calc.exe //set path to an external app<br />
2<strong>08</strong>29: MYSCRIPT=E:\maxbox3\mXGit39991\maxbox3\examples\330_myclock.txt //start script of menu /View/MyScript<br />
2<strong>08</strong>30:<br />
2<strong>08</strong>31: using Logfile: maxboxlog.log , Exceptionlogfile: maxboxerrorlog.txt<br />
2<strong>08</strong>32: Also possible to set report memory in script to override ini setting<br />
2<strong>08</strong>33: procedure Set_ReportMemoryLeaksOnShutdown(abo: boolean)<br />
2<strong>08</strong>34:<br />
2<strong>08</strong>35: After Change the ini file you can reload the file with ../Help/Config Update<br />
2<strong>08</strong>36: //----------------------------------------------------------------------------<br />
2<strong>08</strong><strong>37</strong>: //**************mX4 maildef.ini ini-file Configuration*********************<br />
2<strong>08</strong>38: //------------------------------------------------------------------------------<br />
2<strong>08</strong>39: //*** Definitions for maXMail ***<br />
2<strong>08</strong>40: //sendemail, HOST=mail.hover.com, PORT=465 (SSL)<br />
2<strong>08</strong>41: [MAXMAIL]<br />
2<strong>08</strong>42: HOST=getmail.softwareschule.ch<br />
2<strong>08</strong>43: USER=mailusername<br />
2<strong>08</strong>44: PASS=password<br />
2<strong>08</strong>45: PORT=110<br />
2<strong>08</strong>46: SSL=Y<br />
2<strong>08</strong>47: BODY=Y<br />
2<strong>08</strong>48: LAST=5<br />
2<strong>08</strong>49:<br />
2<strong>08</strong>50: ADO Connection String:<br />
PC<strong>08</strong> E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt<br />
http://www.softwareschule.ch/maxbox.htm T: 297<br />
p: 242