From 3e29c7051988fc8040238fa79efb38c332866f58 Mon Sep 17 00:00:00 2001
From: zueuk <zueuk>
Date: Sun, 11 Sep 2005 13:19:51 +0000
Subject: [PATCH] changed sample density editbox to combobox

---
 2.10/Source/FormRender.dfm | 31 +++++++++++++++++++------------
 2.10/Source/FormRender.pas |  3 ++-
 2 files changed, 21 insertions(+), 13 deletions(-)

diff --git a/2.10/Source/FormRender.dfm b/2.10/Source/FormRender.dfm
index 8de0381..935b7dd 100644
--- a/2.10/Source/FormRender.dfm
+++ b/2.10/Source/FormRender.dfm
@@ -262,7 +262,7 @@ object RenderForm: TRenderForm
       Enabled = False
       ParentBiDiMode = False
       ReadOnly = True
-      TabOrder = 2
+      TabOrder = 1
       Text = '2'
       OnChange = txtOversampleChange
     end
@@ -273,18 +273,8 @@ object RenderForm: TRenderForm
       Height = 21
       BiDiMode = bdRightToLeft
       ParentBiDiMode = False
-      TabOrder = 1
-      OnChange = txtFilterRadiusChange
-    end
-    object txtDensity: TEdit
-      Left = 112
-      Top = 20
-      Width = 57
-      Height = 21
-      BiDiMode = bdRightToLeft
-      ParentBiDiMode = False
       TabOrder = 0
-      OnChange = txtDensityChange
+      OnChange = txtFilterRadiusChange
     end
     object udOversample: TUpDown
       Left = 169
@@ -295,7 +285,24 @@ object RenderForm: TRenderForm
       Min = 1
       Max = 4
       Position = 2
+      TabOrder = 2
+    end
+    object txtDensity: TComboBox
+      Left = 112
+      Top = 20
+      Width = 57
+      Height = 21
+      ItemHeight = 13
+      ItemIndex = 0
       TabOrder = 3
+      Text = '200'
+      OnChange = txtDensityChange
+      Items.Strings = (
+        '200'
+        '500'
+        '1000'
+        '2000'
+        '4000')
     end
   end
   object GroupBox4: TGroupBox
diff --git a/2.10/Source/FormRender.pas b/2.10/Source/FormRender.pas
index 57cd325..3db5fe2 100644
--- a/2.10/Source/FormRender.pas
+++ b/2.10/Source/FormRender.pas
@@ -46,7 +46,6 @@ type
     Label4: TLabel;
     txtOversample: TEdit;
     txtFilterRadius: TEdit;
-    txtDensity: TEdit;
     GroupBox4: TGroupBox;
     lblApproxMem: TLabel;
     lblPhysical: TLabel;
@@ -69,6 +68,7 @@ type
     cbPostProcess: TCheckBox;
     edtNrThreads: TEdit;
     Label6: TLabel;
+    txtDensity: TComboBox;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure btnRenderClick(Sender: TObject);
@@ -378,6 +378,7 @@ begin
   cbHeight.Text := IntToStr(MainForm.Image.Height);
   ImageWidth := StrToInt(cbWidth.Text);
   ImageHeight := StrToInt(cbHeight.Text);
+  sample_density:=renderDensity;
   txtDensity.Text := FloatToStr(renderDensity);
   ShowMemoryStatus;
   Ratio := ImageWidth / ImageHeight;