Subversion Repositories delphiutils

Compare Revisions

Regard whitespace Rev 34 → Rev 35

/trunk/Dreisatz/Dreisatz.exe
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/Dreisatz/Main.pas
198,7 → 198,8
Edit3.Enabled := true;
Edit5.Enabled := true;
{$ENDIF}
Edit3.Text := FloatToStr(A / B * StrToFloat(Edit4.Text));
SetText(Edit3, FloatToStr(A / B * StrToFloat(Edit4.Text)));
Edit5.Text := IntToStr(Round(StrToFloat(Edit3.Text)));
{$IFDEF ALLOW_A_IS_ZERO}
end;
{$ENDIF}
222,7 → 223,8
Edit4.Enabled := true;
Edit6.Enabled := true;
{$ENDIF}
Edit4.Text := FloatToStr(B / A * StrToFloat(Edit3.Text));
SetText(Edit4, FloatToStr(B / A * StrToFloat(Edit3.Text)));
Edit6.Text := IntToStr(Round(StrToFloat(Edit4.Text)));
{$IFDEF ALLOW_B_IS_ZERO}
end;
{$ENDIF}