diff --git a/2.10/Source/Editor.dfm b/2.10/Source/Editor.dfm index f6b84c7..14fb540 100644 --- a/2.10/Source/Editor.dfm +++ b/2.10/Source/Editor.dfm @@ -54,7 +54,7 @@ object EditForm: TEditForm TextHeight = 13 object StatusBar: TStatusBar Left = 0 - Top = 543 + Top = 544 Width = 578 Height = 15 Panels = < @@ -343,14 +343,14 @@ object EditForm: TEditForm Left = 0 Top = 24 Width = 578 - Height = 519 + Height = 520 Align = alClient TabOrder = 1 object Splitter1: TSplitter Left = 396 Top = 1 Width = 9 - Height = 517 + Height = 518 Align = alRight AutoSnap = False Beveled = True @@ -361,7 +361,7 @@ object EditForm: TEditForm Left = 1 Top = 1 Width = 395 - Height = 517 + Height = 518 Align = alClient BevelOuter = bvNone Color = clAppWorkSpace @@ -371,7 +371,7 @@ object EditForm: TEditForm Left = 405 Top = 1 Width = 172 - Height = 517 + Height = 518 Align = alRight Alignment = taLeftJustify BevelOuter = bvNone @@ -411,7 +411,7 @@ object EditForm: TEditForm Left = 0 Top = 136 Width = 172 - Height = 381 + Height = 382 Align = alClient TabOrder = 0 object lblTransform: TLabel @@ -442,10 +442,10 @@ object EditForm: TEditForm end object PageControl: TPageControl Left = 1 - Top = 26 + Top = 27 Width = 170 Height = 354 - ActivePage = TriangleTab + ActivePage = tabXForm Align = alBottom Anchors = [akLeft, akTop, akRight, akBottom] MultiLine = True diff --git a/2.10/Source/Editor.pas b/2.10/Source/Editor.pas index ed56318..6f52d01 100644 --- a/2.10/Source/Editor.pas +++ b/2.10/Source/Editor.pas @@ -2543,7 +2543,7 @@ begin end; end; 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 it's not the same as the old value and it was valid } TEdit(Sender).Text := Format('%.6g', [NewVal]); @@ -2577,7 +2577,7 @@ begin end; end; 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 it's not the same as the old value and it was valid } TEdit(Sender).Text := Format('%.6g', [NewVal]);