OverRange

Frames/ZJJLFme.pas

@@ -92,9 +92,10 @@ constructor TZJJLFrame.Create(AParent: TFrame; AZJJLData: TZJJLData);
 begin
   inherited Create(AParent);
   ResetFrameLink(AZJJLData);
-  with TPhaseData(FZJJLData.PhaseData).PhaseProperty do
+  if TPhaseData(FZJJLData.PhaseData).Active then
   begin
-    lePreText.Text := ZJJLPreText;
+    with TPhaseData(FZJJLData.PhaseData).PhaseProperty do
+      lePreText.Text := ZJJLPreText;
   end;
   RefreshTitle;
 end;

Units/UtilMethods.pas

@@ -163,8 +163,8 @@ end;
 
 function GetCompareDigitValue(ADigit: Integer): Double;
 begin
-  if ADigit < 0 then
-    Result := IntPower(10, ADigit - 1)
+  if ADigit > 0 then
+    Result := IntPower(10, - ADigit - 1)
   else
     Result := 0.1;
 end;