Kevin Ragsdale KevinRagsdale

## lblHyperlink.Init
PROCEDURE Init
   DODEFAULT()

   ** Use GetSysColor to get the hyperlink color
   DECLARE INTEGER GetSysColor IN "user32" ;
      INTEGER nIndex

   This.nForeColor = GetSysColor(26) && COLOR_HOTLIGHT
   This.nHoverColor = GetSysColor(29) && COLOR_MENUHILIGHT
ENDPROC

## lblLabel.prg
DEFINE CLASS lbllabel AS label

  AutoSize = .T.
  FontName = "Segoe UI Symbol"
  BackStyle = 0
  Caption = "lblLabel"
  Height = 17
  Width = 43
  Name = "lblLabel"

## fontfactor.prg
LOCAL liHDC, liPixelsPerInchX, ;
      liPixelsPerInchY, lnFontFactor

DECLARE INTEGER GetDC IN Win32API ;
   INTEGER iHDC

DECLARE INTEGER GetDeviceCaps IN WIN32API ;
   INTEGER iHDC, INTEGER iIndex

#DEFINE cnLOG_PIXELS_X 88

## lblHyperlink.prg
DEFINE CLASS lblHyperlink AS lblLabel

  MousePointer = 15
  ForeColor = RGB(0,102,204)
  nForeColor = 0
  nHoverColor = 0
  Name = "lblhyperlink"

  PROCEDURE Init
    DODEFAULT()

## FIRSTDEMO.DLL (firstdemo.prg)
** This DLL is a simple PRG file.
** It will create a web page "on the fly"
** and return it as a string to the
** calling program.

DEFINE CLASS Demo As Session OLEPUBLIC
  FUNCTION GetHTML() As String
    LOCAL lcString As String
    TEXT TO m.lcString TEXTMERGE NOSHOW
    <!DOCTYPE html>

## FirstDemo.aspx
<%@ Page Language="VB" %>

<script runat="server">
    Protected Sub Page_Load(sender As Object, e As EventArgs)
        Dim oVFP As New Interop.FirstDemo.Demo
	Dim cRet As String = oVFP.GetHTML()
	oVFP = Nothing
	Response.Write(cRet)
    End Sub
</script>

## SecondDemo.aspx
<%@ Page Language="VB" %>

<script runat="server">
    Protected Sub Page_Load(sender As Object, e As EventArgs)
	Dim lcUserAgent As String = Request.UserAgent.ToString()
        Dim lcIPAddress As String = Request.UserHostAddress.ToString()

	Dim oVFP As New Interop.SecondDemo.Demo
	Dim cRet As String = oVFP.GetHTML(lcUserAgent,lcIPAddress)
	oVFP = Nothing

## SECONDDEMO.DLL (seconddemo.prg)
** This DLL is a simple PRG file.
** It will create a web page "on the fly"
** and return it as a string to the
** calling program.

DEFINE CLASS Demo As Session OLEPUBLIC
  FUNCTION GetHTML(tcUA As String, tcIP As String) As String
    LOCAL lcString As String
    TEXT TO m.lcString TEXTMERGE NOSHOW
    <!DOCTYPE html>

## Demos - Default.aspx
<%@ Page Language="VB" %>

<!DOCTYPE html>

<script runat="server">

</script>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">

## ThirdDemo.aspx
<%@ Page Language="VB" %>

<script runat="server">
    Protected Sub Page_Load(sender As Object, e As EventArgs)
	Dim lcUserAgent As String = Request.UserAgent.ToString()
        Dim lcIPAddress As String = Request.UserHostAddress.ToString()

	If lcUserAgent.Contains("Trident") = True Then
	    Response.Write("Sorry, we don't allow Internet Explorer!<br /><br />" & lcUserAgent)
	    Return
	PROCEDURE Init
	DODEFAULT()

	** Use GetSysColor to get the hyperlink color
	DECLARE INTEGER GetSysColor IN "user32" ;
	INTEGER nIndex

	This.nForeColor = GetSysColor(26) && COLOR_HOTLIGHT
	This.nHoverColor = GetSysColor(29) && COLOR_MENUHILIGHT
	ENDPROC
	DEFINE CLASS lbllabel AS label

	AutoSize = .T.
	FontName = "Segoe UI Symbol"
	BackStyle = 0
	Caption = "lblLabel"
	Height = 17
	Width = 43
	Name = "lblLabel"
	LOCAL liHDC, liPixelsPerInchX, ;
	liPixelsPerInchY, lnFontFactor

	DECLARE INTEGER GetDC IN Win32API ;
	INTEGER iHDC

	DECLARE INTEGER GetDeviceCaps IN WIN32API ;
	INTEGER iHDC, INTEGER iIndex

	#DEFINE cnLOG_PIXELS_X 88
	DEFINE CLASS lblHyperlink AS lblLabel

	MousePointer = 15
	ForeColor = RGB(0,102,204)
	nForeColor = 0
	nHoverColor = 0
	Name = "lblhyperlink"

	PROCEDURE Init
	DODEFAULT()
	** This DLL is a simple PRG file.
	** It will create a web page "on the fly"
	** and return it as a string to the
	** calling program.

	DEFINE CLASS Demo As Session OLEPUBLIC
	FUNCTION GetHTML() As String
	LOCAL lcString As String
	TEXT TO m.lcString TEXTMERGE NOSHOW
	<!DOCTYPE html>
	<%@ Page Language="VB" %>

	<script runat="server">
	Protected Sub Page_Load(sender As Object, e As EventArgs)
	Dim oVFP As New Interop.FirstDemo.Demo
	Dim cRet As String = oVFP.GetHTML()
	oVFP = Nothing
	Response.Write(cRet)
	End Sub
	</script>