1//****************************************************************************// 2// // 3// $File name : Html_mx.PKG // 4// $File title : HTML conversion functions // 5// $Author : John Tuohy // 6// // 7// Confidential Trade Secret. // 8// Copyright 1998-1999 Data Access Corporation, Miami FL, USA // 9// All Rights reserved // 10// DataFlex is a registered trademark of Data Access Corporation. // 11// $Rev History // 12// // 13// // 14// $Rev History // 15// 8/13/98 jjt - created // 16// // 17//****************************************************************************// 18use VDFBase.pkg 19 20// Helper functions for HTML 21// 22{ ClassLibrary=Common } 23Class HtmlFormat_mixin is a Mixin 24 25 function HtmlAnchor string sDat returns String 26 function_return ("" + sDat + "") 27 End_function 28 29 function HtmlBig string sDat returns String 30 function_return ("" + sDat + "") 31 End_function 32 33 function HtmlBlink string sDat returns String 34 function_return ("" + sDat + "") 35 End_function 36 37 function HtmlBold string sDat returns String 38 function_return ("" + sDat + "") 39 End_function 40 41 function HtmlFixed string sDat returns String 42 function_return ("" + sDat + "") 43 End_function 44 45 Function HtmlFontColor String sFontClr Returns String 46 function_return ('+ sFontClr + '">') 47 End_function 48 49 function HtmlFontSize integer iSize returns String 50 function_return ('+ string(iSize)+ '">') 51 End_function 52 53 function HtmlItalics string sDat returns String 54 function_return ("" + sDat + "") 55 End_function 56 57 function HtmlLink string sURL string sDat returns String 58 function_return ('+ sURL + '">' + sDat + '') 59 End_function 60 61 function HtmlSmall string sDat returns String 62 function_return ("" + sDat + "") 63 End_function 64 65 function HtmlStrike string sDat returns String 66 function_return ("" + sDat + "") 67 End_function 68 69 function HtmlSub string sDat returns String 70 function_return ("" + sDat + "") 71 End_function 72 73 function HtmlSup string sDat returns String 74 function_return ("" + sDat + "") 75 End_function 76 77 function HtmlStrong string sDat returns String 78 function_return ("" + sDat + "") 79 End_function 80 81 function HtmlEmph string sDat returns String 82 function_return ("" + sDat + "") 83 End_function 84 85 function HtmlHeader integer iHeader string sDat returns String 86 string sHdr 87 Move (String(iHeader)) to sHdr 88 function_return (" + sHdr + ">" + sDat + " + sHdr + ">") 89 End_function 90 91 92end_class