Working version 0.1

snowie2000 · May 11, 2020 · be581c4 · be581c4
1 parent a3a8c0d
commit be581c4
Show file tree

Hide file tree

Showing 9 changed files with 396 additions and 47 deletions.
diff --git a/Observer/WFObserver.dpr b/Observer/WFObserver.dpr
@@ -1,11 +1,6 @@
 program WFObserver;
 
 uses
-  madExcept,
-  madLinkDisAsm,
-  madListHardware,
-  madListProcesses,
-  madListModules,
   Forms,
   ufmMain in 'ufmMain.pas' {WhichFontFather};
 

diff --git a/Observer/WFObserver.dproj b/Observer/WFObserver.dproj
@@ -31,7 +31,7 @@
 		</PropertyGroup>
 		<PropertyGroup Condition="'$(Cfg_1)'!=''">
 			<DCC_MapFile>3</DCC_MapFile>
-			<DCC_Define>DEBUG;madExcept;$(DCC_Define)</DCC_Define>
+			<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
 			<DCC_Optimize>false</DCC_Optimize>
 			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
 		</PropertyGroup>
@@ -68,11 +68,11 @@
 			<BorlandProject>
 				<Delphi.Personality>
 					<VersionInfo>
-						<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
 						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
-						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MajorVer">0</VersionInfo>
 						<VersionInfo Name="MinorVer">0</VersionInfo>
-						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
 						<VersionInfo Name="Build">0</VersionInfo>
 						<VersionInfo Name="Debug">False</VersionInfo>
 						<VersionInfo Name="PreRelease">False</VersionInfo>
@@ -85,13 +85,13 @@
 					<VersionInfoKeys>
 						<VersionInfoKeys Name="CompanyName"/>
 						<VersionInfoKeys Name="FileDescription"/>
-						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="FileVersion">0.0.1.0</VersionInfoKeys>
 						<VersionInfoKeys Name="InternalName"/>
 						<VersionInfoKeys Name="LegalCopyright"/>
 						<VersionInfoKeys Name="LegalTrademarks"/>
 						<VersionInfoKeys Name="OriginalFilename"/>
-						<VersionInfoKeys Name="ProductName"/>
-						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductName">Which font</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">0.0.1.0</VersionInfoKeys>
 						<VersionInfoKeys Name="Comments"/>
 					</VersionInfoKeys>
 					<Excluded_Packages>

diff --git a/Observer/WFObserver.res b/Observer/WFObserver.res
diff --git a/Observer/ufmMain.dfm b/Observer/ufmMain.dfm
@@ -1,31 +1,44 @@
 object WhichFontFather: TWhichFontFather
   Left = 0
   Top = 0
-  Caption = 'Which Font is it using'
+  Caption = 'Which fonts is it using'
   ClientHeight = 475
   ClientWidth = 328
   Color = clBtnFace
+  DoubleBuffered = True
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
   Font.Height = -11
   Font.Name = 'Tahoma'
   Font.Style = []
   OldCreateOrder = False
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
   DesignSize = (
     328
     475)
   PixelsPerInch = 96
   TextHeight = 13
-  object lstFonts: TListBox
-    Left = 8
-    Top = 8
-    Width = 312
-    Height = 459
-    Anchors = [akLeft, akTop, akRight, akBottom]
-    ItemHeight = 13
+  object lvFonts: TListView
+    Left = 0
+    Top = 0
+    Width = 328
+    Height = 441
+    Align = alClient
+    Columns = <
+      item
+        AutoSize = True
+        Caption = 'FontName'
+      end>
+    ReadOnly = True
+    RowSelect = True
+    ShowColumnHeaders = False
     TabOrder = 0
-    ExplicitWidth = 273
-    ExplicitHeight = 334
+    ViewStyle = vsReport
+    ExplicitLeft = 128
+    ExplicitTop = 176
+    ExplicitWidth = 250
+    ExplicitHeight = 150
   end
   object btn1: TButton
     Left = 72
@@ -37,11 +50,40 @@ object WhichFontFather: TWhichFontFather
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
     Font.Height = -40
-    Font.Name = 'Tahoma'
+    Font.Name = 'Stencil'
     Font.Style = []
     ParentFont = False
     TabOrder = 1
-    ExplicitLeft = 5
-    ExplicitTop = 3
+    OnClick = btn1Click
+  end
+  object pnl1: TPanel
+    Left = 0
+    Top = 441
+    Width = 328
+    Height = 34
+    Align = alBottom
+    BevelOuter = bvNone
+    Caption = 'pnl1'
+    TabOrder = 2
+    Visible = False
+    DesignSize = (
+      328
+      34)
+    object btn2: TButton
+      Left = 72
+      Top = 1
+      Width = 184
+      Height = 30
+      Anchors = []
+      Caption = 'START OVER'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -20
+      Font.Name = 'Stencil'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 0
+      OnClick = btn1Click
+    end
   end
 end