mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changed sample density editbox to combobox

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
2.10/Source/FormRender.dfm
View File

@ -262,7 +262,7 @@ object RenderForm: TRenderForm
Enabled = False Enabled = False
ParentBiDiMode = False ParentBiDiMode = False
ReadOnly = True ReadOnly = True
TabOrder = 2 TabOrder = 1
Text = '2' Text = '2'
OnChange = txtOversampleChange OnChange = txtOversampleChange
end end
@ -273,18 +273,8 @@ object RenderForm: TRenderForm
Height = 21 Height = 21
BiDiMode = bdRightToLeft BiDiMode = bdRightToLeft
ParentBiDiMode = False ParentBiDiMode = False
TabOrder = 1
OnChange = txtFilterRadiusChange
end
object txtDensity: TEdit
Left = 112
Top = 20
Width = 57
Height = 21
BiDiMode = bdRightToLeft
ParentBiDiMode = False
TabOrder = 0 TabOrder = 0
OnChange = txtDensityChange OnChange = txtFilterRadiusChange
end end
object udOversample: TUpDown object udOversample: TUpDown
Left = 169 Left = 169
@ -295,7 +285,24 @@ object RenderForm: TRenderForm
Min = 1 Min = 1
Max = 4 Max = 4
Position = 2 Position = 2
TabOrder = 2
end
object txtDensity: TComboBox
Left = 112
Top = 20
Width = 57
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 3 TabOrder = 3
Text = '200'
OnChange = txtDensityChange
Items.Strings = (
'200'
'500'
'1000'
'2000'
'4000')
end end
end end
object GroupBox4: TGroupBox object GroupBox4: TGroupBox

3
2.10/Source/FormRender.pas
View File

@ -46,7 +46,6 @@ type
Label4: TLabel; Label4: TLabel;
txtOversample: TEdit; txtOversample: TEdit;
txtFilterRadius: TEdit; txtFilterRadius: TEdit;
txtDensity: TEdit;
GroupBox4: TGroupBox; GroupBox4: TGroupBox;
lblApproxMem: TLabel; lblApproxMem: TLabel;
lblPhysical: TLabel; lblPhysical: TLabel;
@ -69,6 +68,7 @@ type
cbPostProcess: TCheckBox; cbPostProcess: TCheckBox;
edtNrThreads: TEdit; edtNrThreads: TEdit;
Label6: TLabel; Label6: TLabel;
txtDensity: TComboBox;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure btnRenderClick(Sender: TObject); procedure btnRenderClick(Sender: TObject);
@ -378,6 +378,7 @@ begin
cbHeight.Text := IntToStr(MainForm.Image.Height); cbHeight.Text := IntToStr(MainForm.Image.Height);
ImageWidth := StrToInt(cbWidth.Text); ImageWidth := StrToInt(cbWidth.Text);
ImageHeight := StrToInt(cbHeight.Text); ImageHeight := StrToInt(cbHeight.Text);
sample_density:=renderDensity;
txtDensity.Text := FloatToStr(renderDensity); txtDensity.Text := FloatToStr(renderDensity);
ShowMemoryStatus; ShowMemoryStatus;
Ratio := ImageWidth / ImageHeight; Ratio := ImageWidth / ImageHeight;