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;