KevinRagsdale

<%@ Page Language="VB" %>

<script runat="server">
    Protected Sub Page_Load(sender As Object, e As EventArgs)
        Dim lcHeader As String = ""
        
        If Not Request.Headers("X-MyHeader") Is Nothing Then
            lcHeader = Request.Headers("X-MyHeader").ToString()
            Response.Write("Hey, thanks for sending X-MyHeader: " & lcHeader)
        Else

KevinRagsdale

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

KevinRagsdale

DEFINE CLASS lbllabel AS label

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

KevinRagsdale

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

KevinRagsdale

DEFINE CLASS lblHyperlink AS lblLabel

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

  PROCEDURE Init
    DODEFAULT()