Strech screenshot got from Owon

Author: h-elsner

src/owon_oszi.lpi

@@ -3,18 +3,21 @@
   <ProjectOptions>
     <Version Value="12"/>
     <General>
+      <Flags>
+        <CompatibilityMode Value="True"/>
+      </Flags>
       <SessionStorage Value="InProjectDir"/>
       <Title Value="owon_oszi"/>
       <Scaled Value="True"/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
       <XPManifest>
-        <DpiAware Value="True"/>
+        <DpiAware Value="True/PM"/>
       </XPManifest>
       <Icon Value="0"/>
     </General>
-    <BuildModes>
-      <Item Name="Default" Default="True"/>
+    <BuildModes Count="1">
+      <Item1 Name="Default" Default="True"/>
     </BuildModes>
     <PublishOptions>
       <Version Value="2"/>
@@ -23,26 +26,26 @@
     <RunParams>
       <FormatVersion Value="2"/>
     </RunParams>
-    <RequiredPackages>
-      <Item>
+    <RequiredPackages Count="2">
+      <Item1>
         <PackageName Value="TAChartLazarusPkg"/>
-      </Item>
-      <Item>
+      </Item1>
+      <Item2>
         <PackageName Value="LCL"/>
-      </Item>
+      </Item2>
     </RequiredPackages>
-    <Units>
-      <Unit>
+    <Units Count="2">
+      <Unit0>
         <Filename Value="owon_oszi.lpr"/>
         <IsPartOfProject Value="True"/>
-      </Unit>
-      <Unit>
+      </Unit0>
+      <Unit1>
         <Filename Value="owon_oszi_main.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="main"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-      </Unit>
+      </Unit1>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
@@ -56,6 +59,11 @@
     </SearchPaths>
     <CodeGeneration>
       <SmartLinkUnit Value="True"/>
+      <Checks>
+        <IOChecks Value="True"/>
+        <RangeChecks Value="True"/>
+        <OverflowChecks Value="True"/>
+      </Checks>
       <Optimizations>
         <OptimizationLevel Value="2"/>
       </Optimizations>
@@ -76,16 +84,16 @@
     </Linking>
   </CompilerOptions>
   <Debugging>
-    <Exceptions>
-      <Item>
+    <Exceptions Count="3">
+      <Item1>
         <Name Value="EAbort"/>
-      </Item>
-      <Item>
+      </Item1>
+      <Item2>
         <Name Value="ECodetoolError"/>
-      </Item>
-      <Item>
+      </Item2>
+      <Item3>
         <Name Value="EFOpenError"/>
-      </Item>
+      </Item3>
     </Exceptions>
   </Debugging>
 </CONFIG>

src/owon_oszi.lpr

@@ -6,9 +6,6 @@
   {$IFDEF UNIX}
   cthreads,
   {$ENDIF}
-  {$IFDEF HASAMIGA}
-  athreads,
-  {$ENDIF}
   Interfaces, // this includes the LCL widgetset
   Forms, tachartlazaruspkg, owon_oszi_main
   { you can add units after this };

src/owon_oszi_main.lfm

@@ -1,13 +1,13 @@
 object main: Tmain
-  Left = 1258
-  Height = 440
-  Top = 137
+  Left = 1853
+  Height = 460
+  Top = 189
   Width = 640
   AllowDropFiles = True
   Caption = 'main'
-  ClientHeight = 416
+  ClientHeight = 436
   ClientWidth = 640
-  Constraints.MinHeight = 440
+  Constraints.MinHeight = 460
   Constraints.MinWidth = 640
   KeyPreview = True
   Menu = MainMenu
@@ -72,18 +72,18 @@ object main: Tmain
   end
   object Pic: TPanel
     Left = 200
-    Height = 358
+    Height = 378
     Top = 58
     Width = 440
     Align = alClient
-    ClientHeight = 358
+    ClientHeight = 378
     ClientWidth = 440
     Color = clWhite
     ParentColor = False
     TabOrder = 2
     object Image: TImage
       Left = 1
-      Height = 356
+      Height = 376
       Top = 1
       Width = 438
       Align = alClient
@@ -3676,7 +3676,7 @@ object main: Tmain
     end
     object Chart: TChart
       Left = 1
-      Height = 356
+      Height = 376
       Top = 1
       Width = 438
       AxisList = <      
@@ -3757,16 +3757,16 @@ object main: Tmain
   end
   object LeftGUI: TPanel
     Left = 0
-    Height = 358
+    Height = 378
     Top = 58
     Width = 200
     Align = alLeft
-    ClientHeight = 358
+    ClientHeight = 378
     ClientWidth = 200
     TabOrder = 1
     object rgTeiler: TRadioGroup
       Left = 10
-      Height = 56
+      Height = 72
       Top = 192
       Width = 182
       AutoFill = True
@@ -3778,7 +3778,7 @@ object main: Tmain
       ChildSizing.ShrinkVertical = crsScaleChilds
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 1
-      ClientHeight = 39
+      ClientHeight = 55
       ClientWidth = 180
       Enabled = False
       ItemIndex = 0
@@ -3787,8 +3787,6 @@ object main: Tmain
         '1:10'
       )
       OnClick = rgTeilerClick
-      ParentBackground = False
-      ParentColor = False
       TabOrder = 0
     end
     object lblFreq: TLabel
@@ -3843,7 +3841,7 @@ object main: Tmain
     object gbKursor: TGroupBox
       Left = 10
       Height = 80
-      Top = 264
+      Top = 280
       Width = 182
       Caption = 'gbKursor'
       ClientHeight = 63

src/owon_oszi_main.pas

@@ -203,8 +203,8 @@ implementation
 
 {$R *.lfm}
 
-{.$I owon_dt.inc}                                       {German GUI}
-{$I owon_en.inc}                                      {English GUI}
+{$I owon_dt.inc}                                       {German GUI}
+{.$I owon_en.inc}                                      {English GUI}
 
 { Tmain }
 
@@ -359,6 +359,9 @@ procedure Tmain.SetCSVenv;                             {Setup for CSV mode}
 begin
   rgTeiler.Enabled:=false;
   Image.Visible:=false;
+  Image.Stretch:=false;
+  Image.Proportional:=false;
+//  Image.Tag:=0;                                        {Disable image zoom}
   Chart.Visible:=true;
   actSaveScreen.Enabled:=true;
 end;
@@ -367,6 +370,9 @@ procedure Tmain.SetBMPenv;                             {Setup for BMP mode}
 begin
   rgTeiler.Enabled:=false;
   Image.Visible:=true;
+  Image.Stretch:=true;
+  Image.Proportional:=true;
+//  Image.Tag:=1;                                        {Enable image zoom}
   Chart.Visible:=false;
   actSaveScreen.Enabled:=false;
   ClearMetaData;