changed sample density editbox to combobox

This commit is contained in:
zueuk 2005-09-11 13:19:51 +00:00
parent c38e73d2c2
commit 3e29c70519
2 changed files with 21 additions and 13 deletions

View File

@ -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

View File

@ -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;