10.11.2015 Views

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

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

<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 />

11<strong>37</strong>3: Function KgToQrUs( const Kg : double) : double<br />

11<strong>37</strong>4: Function KgToQrUk( const Kg : double) : double<br />

11<strong>37</strong>5: Function PascalToBar( const Pa : double) : double<br />

11<strong>37</strong>6: Function PascalToAt( const Pa : double) : double<br />

11<strong>37</strong>7: Function PascalToTorr( const Pa : double) : double<br />

11<strong>37</strong>8: Function BarToPascal( const Bar : double) : double<br />

11<strong>37</strong>9: Function AtToPascal( const At : double) : double<br />

11380: Function TorrToPascal( const Torr : double) : double<br />

11381: Function KnotToMs( const Knot : double) : double<br />

11382: Function HpElectricToWatt( const HpE : double) : double<br />

11383: Function HpMetricToWatt( const HpM : double) : double<br />

11384: Function MsToKnot( const ms : double) : double<br />

11385: Function WattToHpElectric( const W : double) : double<br />

11386: Function WattToHpMetric( const W : double) : double<br />

11387: function getBigPI: string; //PI of 1000 numbers<br />

11388:<br />

11389: procedure SIRegister_devcutils(CL: TPSPascalCompiler);<br />

11390: begin<br />

11391: Function CDExecuteFile( const FileName, Params, DefaultDir : string; ShowCmd : Integer) : THandle<br />

11392: Procedure CDCopyFile( const FileName, DestName : string)<br />

11393: Procedure CDMoveFile( const FileName, DestName : string)<br />

11394: Function MakeCommaTextToColor( Text : string; Index : Integer; DefaultColor : TColor) : TColor<br />

11395: Procedure CDDeleteFiles( Sender : TObject; s : string)<br />

11396: Function CDGetTempDir : string<br />

11397: Function CDGetFileSize( FileName : string) : longint<br />

11398: Function GetFileTime( FileName : string) : longint<br />

11399: Function GetShortName( FileName : string) : string<br />

1<strong>14</strong>00: Function GetFullName( FileName : string) : string<br />

1<strong>14</strong>01: Function WinReboot : boolean<br />

1<strong>14</strong>02: Function WinDir : String<br />

1<strong>14</strong>03: Function RunFile( FileToRun : string; Params : string; Dir : string; Wait : boolean) : cardinal<br />

1<strong>14</strong>04: Function RunFile_( Cmd, WorkDir : string; Wait : boolean) : Boolean<br />

1<strong>14</strong><strong>05</strong>: Function devExecutor : TdevExecutor<br />

1<strong>14</strong>06: end;<br />

1<strong>14</strong>07:<br />

1<strong>14</strong><strong>08</strong>: procedure SIRegister_FileAssocs(CL: TPSPascalCompiler);<br />

1<strong>14</strong>09: begin<br />

1<strong>14</strong>10: Procedure CheckAssociations // AssociationsCount','LongInt'( 7);<br />

1<strong>14</strong>11: Procedure Associate( Index : integer)<br />

1<strong>14</strong>12: Procedure UnAssociate( Index : integer)<br />

1<strong>14</strong>13: Function IsAssociated( Index : integer) : boolean<br />

1<strong>14</strong><strong>14</strong>: Function CheckFiletype( const extension, filetype, description, verb, serverapp : string) : boolean<br />

1<strong>14</strong>15: Procedure RegisterFiletype( const extension, filetype, description, verb, serverapp,IcoNum: string)<br />

1<strong>14</strong>16: Procedure RegisterDDEServer( const filetype, verb, topic, servername, macro : string)<br />

1<strong>14</strong><strong>17</strong>: procedure RefreshIcons;<br />

1<strong>14</strong>18: function GetShadeColor(ACanvas: TCanvas; clr: TColor; Value: integer): TColor;<br />

1<strong>14</strong>19: function MergColor(Colors: Array of TColor): TColor;<br />

1<strong>14</strong>20: function NewColor(ACanvas: TCanvas; clr: TColor; Value: integer): TColor;<br />

1<strong>14</strong>21: procedure DimBitmap(ABitmap: TBitmap; Value: integer);<br />

1<strong>14</strong>22: function GrayColor(ACanvas: TCanvas; clr: TColor; Value: integer): TColor;<br />

1<strong>14</strong>23: function GetInverseColor(AColor: TColor): TColor;<br />

1<strong>14</strong>24: procedure GrayBitmap(ABitmap: TBitmap; Value: integer);<br />

1<strong>14</strong>25: procedure DrawBitmapShadow(B: TBitmap; ACanvas: TCanvas;X,Y: integer;ShadowColor: TColor);<br />

1<strong>14</strong>26: procedure DrawCheckMark(ACanvas: TCanvas; X, Y: integer);<br />

1<strong>14</strong>27: Procedure GetSystemMenuFont(Font: TFont);<br />

1<strong>14</strong>28: end;<br />

1<strong>14</strong>29:<br />

1<strong>14</strong>30: //***************************unit uPSI_JvHLParser;*******************************<br />

1<strong>14</strong>31: function IsStringConstant(const St: string): Boolean;<br />

1<strong>14</strong>32: function IsIntConstant(const St: string): Boolean;<br />

1<strong>14</strong>33: function IsRealConstant(const St: string): Boolean;<br />

1<strong>14</strong>34: function IsIdentifier(const ID: string): Boolean;<br />

1<strong>14</strong>35: function GetStringValue(const St: string): string;<br />

1<strong>14</strong>36: procedure ParseString(const S: string; Ss: TStrings);<br />

1<strong>14</strong><strong>37</strong>: function IsStringConstantW(const St: WideString): Boolean;<br />

1<strong>14</strong>38: function IsIntConstantW(const St: WideString): Boolean;<br />

1<strong>14</strong>39: function IsRealConstantW(const St: WideString): Boolean;<br />

1<strong>14</strong>40: function IsIdentifierW(const ID: WideString): Boolean;<br />

1<strong>14</strong>41: function GetStringValueW(const St: WideString): WideString;<br />

1<strong>14</strong>42: procedure ParseStringW(const S: WideString; Ss: TStrings);<br />

1<strong>14</strong>43:<br />

1<strong>14</strong>44:<br />

1<strong>14</strong>45: //***************************unit uPSI_JclMapi;*******************************<br />

1<strong>14</strong>46:<br />

1<strong>14</strong>47: Function JclSimpleSendMail( const ARecipient,AName,ASubject, ABody : string; const AAttachment :<br />

TFileName; ShowDialog : Boolean; AParentWND : HWND) : Boolean<br />

1<strong>14</strong>48: Function JclSimpleSendFax( const ARecipient, AName,ASubject, ABody : string; const AAttachment :<br />

TFileName; ShowDialog : Boolean; AParentWND : HWND) : Boolean<br />

1<strong>14</strong>49: Function JclSimpleBringUpSendMailDialog(const ASubject,ABody:string;const<br />

AAttach:TFileName;AParentWND:HWND):Bool<br />

1<strong>14</strong>50: Function MapiCheck( const Res : DWORD; IgnoreUserAbort : Boolean) : DWORD<br />

1<strong>14</strong>51: Function MapiErrorMessage( const ErrorCode : DWORD) : string<br />

1<strong>14</strong>52:<br />

1<strong>14</strong>53: procedure SIRegister_IdNTLM(CL: TPSPascalCompiler);<br />

1<strong>14</strong>54: begin<br />

1<strong>14</strong>55: //'Pdes_key_schedule', '^des_key_schedule // will not work<br />

1<strong>14</strong>56: Function BuildType1Message( ADomain, AHost : String) : String<br />

1<strong>14</strong>57: Function BuildType3Message(ADomain,AHost,AUsername:WideString;APassword,ANonce:String):String<br />

1<strong>14</strong>58: Procedure RegisterAuthenticationMethod( MethodName : String; AuthClass : TIdAuthenticationClass)<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: 132

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!