Minot changes on project so that it can be used to test issue #677 (s…

…caling problems)
JAM-Software · Jan 9, 2017 · a381b33 · a381b33
1 parent 438bc9f
commit a381b33
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 12 deletions.
diff --git a/Demos/Minimal/Main.dfm b/Demos/Minimal/Main.dfm
@@ -20,18 +20,23 @@ object MainForm: TMainForm
   PixelsPerInch = 96
   TextHeight = 13
   object Label1: TLabel
-    Left = 12
-    Top = 12
-    Width = 111
+    Left = 10
+    Top = 280
+    Width = 116
     Height = 13
     Caption = 'Last operation duration:'
   end
   object VST: TVirtualStringTree
+    AlignWithMargins = True
     Left = 8
-    Top = 36
-    Width = 397
-    Height = 301
-    Anchors = [akLeft, akTop, akRight, akBottom]
+    Top = 8
+    Width = 393
+    Height = 262
+    Margins.Left = 8
+    Margins.Top = 8
+    Margins.Right = 8
+    Margins.Bottom = 8
+    Align = alTop
     BiDiMode = bdLeftToRight
     Colors.BorderColor = clWindowText
     Colors.HotColor = clBlack
@@ -43,20 +48,24 @@ object MainForm: TMainForm
     Header.Font.Height = -11
     Header.Font.Name = 'Tahoma'
     Header.Font.Style = []
-    Header.MainColumn = -1
-    Header.Options = [hoColumnResize, hoDrag]
+    Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
     HintAnimation = hatNone
     IncrementalSearch = isAll
     ParentBiDiMode = False
     TabOrder = 0
     TreeOptions.AnimationOptions = [toAnimatedToggle]
-    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking]
     TreeOptions.MiscOptions = [toEditable, toInitOnSave, toToggleOnDblClick, toWheelPanning]
     TreeOptions.PaintOptions = [toShowButtons, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages]
     TreeOptions.SelectionOptions = [toMultiSelect, toCenterScrollIntoView]
     OnFreeNode = VSTFreeNode
     OnInitNode = VSTInitNode
-    Columns = <>
+    ExplicitWidth = 381
+    Columns = <
+      item
+        Position = 0
+        Width = 300
+        WideText = 'Name'
+      end>
   end
   object ClearButton: TButton
     Left = 97

diff --git a/Demos/Minimal/Minimal.dproj b/Demos/Minimal/Minimal.dproj
@@ -34,6 +34,7 @@
         <Base>true</Base>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
+        <SanitizedProjectName>Minimal</SanitizedProjectName>
         <DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
         <DCC_F>false</DCC_F>
         <VerInfo_Locale>1031</VerInfo_Locale>
@@ -49,11 +50,12 @@
         <DCC_N>true</DCC_N>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <AppEnableHighDPI>true</AppEnableHighDPI>
+        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
         <VerInfo_Locale>1033</VerInfo_Locale>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
         <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
-        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win64)'!=''">
         <Icon_MainIcon>Minimal_Icon.ico</Icon_MainIcon>