From 79aa922282edd795d55bf06cf622ddf33884dff5 Mon Sep 17 00:00:00 2001
From: Stef Walter <stef@thewalter.net>
Date: Wed, 17 Sep 2003 19:41:13 +0000
Subject: Initial Import

---
 TtfInfo Client/FontView.frm | 78 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 78 insertions(+)
 create mode 100644 TtfInfo Client/FontView.frm

(limited to 'TtfInfo Client/FontView.frm')

diff --git a/TtfInfo Client/FontView.frm b/TtfInfo Client/FontView.frm
new file mode 100644
index 0000000..f62c912
--- /dev/null
+++ b/TtfInfo Client/FontView.frm	
@@ -0,0 +1,78 @@
+VERSION 5.00
+Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.1#0"; "RICHTX32.OCX"
+Begin VB.Form frmFontView 
+   BorderStyle     =   1  'Fixed Single
+   Caption         =   "FontView"
+   ClientHeight    =   4410
+   ClientLeft      =   45
+   ClientTop       =   330
+   ClientWidth     =   7500
+   LinkTopic       =   "Form1"
+   MaxButton       =   0   'False
+   ScaleHeight     =   4410
+   ScaleWidth      =   7500
+   StartUpPosition =   3  'Windows Default
+   Begin RichTextLib.RichTextBox rtbFontView 
+      Height          =   4095
+      Left            =   120
+      TabIndex        =   0
+      Top             =   120
+      Width           =   7215
+      _ExtentX        =   12726
+      _ExtentY        =   7223
+      _Version        =   327680
+      ReadOnly        =   -1  'True
+      OLEDragMode     =   0
+      OLEDropMode     =   0
+      TextRTF         =   $"FontView.frx":0000
+   End
+End
+Attribute VB_Name = "frmFontView"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+Public DisplayFont As TtfInfoLib.FontInfo
+
+Private Sub Form_Load()
+On Error GoTo err_Unexpected
+    ' Temporarily install the font
+    DisplayFont.Install False
+    Caption = "FontView - " & DisplayFont.filename
+    
+    With rtbFontView
+        .Text = ""
+        
+        .SelFontName = "Times"
+        .SelFontSize = 20
+        .SelText = DisplayFont.Name & vbCrLf
+        
+        .SelFontSize = 10
+        .SelText = "Version: " & DisplayFont.Version & vbCrLf
+        
+        .SelFontName = DisplayFont.Name
+        .SelFontSize = 24
+        .SelText = "abcdefghijklmnopqrstuvwxyz" & vbCrLf
+        .SelText = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & vbCrLf
+        .SelText = "1234567890 !'£$%^&*();':.,"
+        
+        .SelStart = 0
+    End With
+    Exit Sub
+    
+err_Unexpected:
+    MsgBox Err.Description
+End Sub
+
+Private Sub Form_Unload(Cancel As Integer)
+On Error GoTo err_Unexpected
+    ' Uninstall the font
+    ' (This has no effect if the font is permanently installed)
+    DisplayFont.Uninstall False
+    Exit Sub
+    
+err_Unexpected:
+    MsgBox Err.Description
+End Sub
+
-- 
cgit v1.2.3