From f4a6ab8f7a8eb3ab60730ca0b5a00f287de2d654 Mon Sep 17 00:00:00 2001
From: zueuk <zueuk>
Date: Sat, 31 Dec 2005 08:19:46 +0000
Subject: [PATCH] there was a bug when flame was rendered with
 previously-selected sample density value...

---
 2.10/Source/FormRender.dfm |  3 +--
 2.10/Source/FormRender.pas | 10 +++++-----
 2 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/2.10/Source/FormRender.dfm b/2.10/Source/FormRender.dfm
index b7af46a..53badb6 100644
--- a/2.10/Source/FormRender.dfm
+++ b/2.10/Source/FormRender.dfm
@@ -290,10 +290,9 @@ object RenderForm: TRenderForm
       Height = 21
       AutoComplete = False
       ItemHeight = 13
-      ItemIndex = 0
       TabOrder = 3
-      Text = '200'
       OnChange = txtDensityChange
+      OnCloseUp = txtDensityChange
       Items.Strings = (
         '200'
         '500'
diff --git a/2.10/Source/FormRender.pas b/2.10/Source/FormRender.pas
index 33beace..1815a67 100644
--- a/2.10/Source/FormRender.pas
+++ b/2.10/Source/FormRender.pas
@@ -25,9 +25,9 @@ uses
   ExtCtrls,
   Render; // 'use'd only for SizeOf()
 
-const
-  WM_THREAD_COMPLETE = WM_APP + 5437;
-  WM_THREAD_TERMINATE = WM_APP + 5438;
+//const
+//  WM_THREAD_COMPLETE = WM_APP + 5437;
+//  WM_THREAD_TERMINATE = WM_APP + 5438;
 
 type
   TRenderForm = class(TForm)
@@ -401,8 +401,8 @@ begin
   cbHeight.Text := IntToStr(MainForm.Image.Height);
   ImageWidth := StrToInt(cbWidth.Text);
   ImageHeight := StrToInt(cbHeight.Text);
-  sample_density:=renderDensity;
-  txtDensity.Text := FloatToStr(renderDensity);
+  sample_density := renderDensity;
+  txtDensity.Text := FloatToStr(sample_density);
   ShowMemoryStatus;
   Ratio := ImageWidth / ImageHeight;
 end;