Skip to content

Instantly share code, notes, and snippets.

View KevinRagsdale's full-sized avatar

Kevin Ragsdale KevinRagsdale

0 followers · 1 following
View GitHub Profile
@KevinRagsdale
KevinRagsdale / FIRSTDEMO.DLL (firstdemo.prg)
Last active August 29, 2015 14:07
** 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>
@KevinRagsdale
KevinRagsdale / lblHyperlink.prg
Last active April 25, 2019 01:09
https://kevinragsdale.github.io/a-hyperlink-class-subclassing-the-label-control/ lblHyperlink subclass of lblLabel, requires the lblLabel source, available at https://gist.github.com/KevinRagsdale/7976364
@KevinRagsdale
KevinRagsdale / fontfactor.prg
Created December 16, 2013 15:56
Code to determine the current DPI setting. Displays the percentage I should bump up my visual controls by in order to match the users settings.
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
KevinRagsdale / lblLabel.prg
Last active December 31, 2015 10:59
Subclassed Label control, used as my base label
DEFINE CLASS lbllabel AS label
AutoSize = .T.
FontName = "Segoe UI Symbol"
BackStyle = 0
Caption = "lblLabel"
Height = 17
Width = 43
Name = "lblLabel"
@KevinRagsdale
KevinRagsdale / lblHyperlink.Init
Created December 15, 2013 18:04
Init() method for the lblHyperlink class