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

Transform symmetry value range changed.

Browse Source
This commit is contained in:
utak3r 2005-10-19 04:51:50 +00:00
parent 4aa9fdaf52
commit 4cb9c04f1e
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
2.10/Source/Editor.dfm
View File

@ -54,7 +54,7 @@ object EditForm: TEditForm
TextHeight = 13 TextHeight = 13
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Top = 543 Top = 544
Width = 578 Width = 578
Height = 15 Height = 15
Panels = < Panels = <
@ -343,14 +343,14 @@ object EditForm: TEditForm
Left = 0 Left = 0
Top = 24 Top = 24
Width = 578 Width = 578
Height = 519 Height = 520
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 396 Left = 396
Top = 1 Top = 1
Width = 9 Width = 9
Height = 517 Height = 518
Align = alRight Align = alRight
AutoSnap = False AutoSnap = False
Beveled = True Beveled = True
@ -361,7 +361,7 @@ object EditForm: TEditForm
Left = 1 Left = 1
Top = 1 Top = 1
Width = 395 Width = 395
Height = 517 Height = 518
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
Color = clAppWorkSpace Color = clAppWorkSpace
@ -371,7 +371,7 @@ object EditForm: TEditForm
Left = 405 Left = 405
Top = 1 Top = 1
Width = 172 Width = 172
Height = 517 Height = 518
Align = alRight Align = alRight
Alignment = taLeftJustify Alignment = taLeftJustify
BevelOuter = bvNone BevelOuter = bvNone
@ -411,7 +411,7 @@ object EditForm: TEditForm
Left = 0 Left = 0
Top = 136 Top = 136
Width = 172 Width = 172
Height = 381 Height = 382
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object lblTransform: TLabel object lblTransform: TLabel
@ -442,10 +442,10 @@ object EditForm: TEditForm
end end
object PageControl: TPageControl object PageControl: TPageControl
Left = 1 Left = 1
Top = 26 Top = 27
Width = 170 Width = 170
Height = 354 Height = 354
ActivePage = TriangleTab ActivePage = tabXForm
Align = alBottom Align = alBottom
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
MultiLine = True MultiLine = True

4
2.10/Source/Editor.pas
View File

@ -2543,7 +2543,7 @@ begin
end; end;
end; end;
NewVal := Round6(StrToFloat(TEdit(Sender).Text)); NewVal := Round6(StrToFloat(TEdit(Sender).Text));
if NewVal < 0 then NewVal := 0; if NewVal < -1 then NewVal := -1;
if NewVal > 1 then NewVal := 1; if NewVal > 1 then NewVal := 1;
{ If it's not the same as the old value and it was valid } { If it's not the same as the old value and it was valid }
TEdit(Sender).Text := Format('%.6g', [NewVal]); TEdit(Sender).Text := Format('%.6g', [NewVal]);
@ -2577,7 +2577,7 @@ begin
end; end;
end; end;
NewVal := Round6(StrToFloat(TEdit(Sender).Text)); NewVal := Round6(StrToFloat(TEdit(Sender).Text));
if NewVal < 0 then NewVal := 0; if NewVal < -1 then NewVal := -1;
if NewVal > 1 then NewVal := 1; if NewVal > 1 then NewVal := 1;
{ If it's not the same as the old value and it was valid } { If it's not the same as the old value and it was valid }
TEdit(Sender).Text := Format('%.6g', [NewVal]); TEdit(Sender).Text := Format('%.6g', [NewVal]);