some interface bugs fixed,

added option to choose between zoom & scale when zooming in MainForm
2006-09-18 15:52:16 +00:00
parent e72eee7dd9
commit eac94ba8a1
10 changed files with 154 additions and 44 deletions
--- a/2.10/Source/Options.dfm
+++ b/2.10/Source/Options.dfm
@ -630,7 +630,7 @@ object OptionsForm: TOptionsForm
        object rgRotationMode: TRadioGroup
          Left = 8
          Top = 60
-          Width = 121
+          Width = 113
          Height = 61
          Caption = 'Rotation Mode'
          Items.Strings = (
@ -638,6 +638,17 @@ object OptionsForm: TOptionsForm
            'Rotate frame')
          TabOrder = 3
        end
+        object rgZoomingMode: TRadioGroup
+          Left = 128
+          Top = 60
+          Width = 117
+          Height = 61
+          Caption = 'Zooming mode'
+          Items.Strings = (
+            'Preserve quality'
+            'Preserve speed')
+          TabOrder = 4
+        end
      end
    end
    object RandomPage: TTabSheet