[JVCL-Checkins] dev/JVCL3/run JvBaseEdits.pas,1.47,1.48 JvCalc.pas,1.35,1.36 - Fixed Mantis #2048

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13455/run

Modified Files:
	JvBaseEdits.pas JvCalc.pas 
Log Message:
Fixed Mantis #2048


Index: JvBaseEdits.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvBaseEdits.pas,v
retrieving revision 1.47
retrieving revision 1.48
diff -C2 -d -r1.47 -r1.48
*** JvBaseEdits.pas	23 Aug 2004 14:27:03 -0000	1.47
--- JvBaseEdits.pas	25 Aug 2004 11:21:01 -0000	1.48
***************
*** 220,228 ****
      procedure PopupChange; override;
      property EnablePopupChange: Boolean read FEnablePopupChange write FEnablePopupChange default False;
- 
- 
    public
      constructor Create(AOwner: TComponent); override;
- 
    end;
  
--- 220,225 ----

Index: JvCalc.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvCalc.pas,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** JvCalc.pas	12 Aug 2004 17:29:35 -0000	1.35
--- JvCalc.pas	25 Aug 2004 11:21:01 -0000	1.36
***************
*** 949,952 ****
--- 949,954 ----
    Result := TJvPopupCalculator.Create(AOwner);
    {$IFDEF VCL}
+   // ahuser: reported as a bug (Mantis #2048)
+   (*
    if (AOwner <> nil) and not (csDesigning in AOwner.ComponentState) and
      (Screen.PixelsPerInch <> 96) then
***************
*** 957,962 ****
      TJvPopupCalculator(Result).FCalcPanel.ParentFont := True;
      SetDefaultFont(TJvPopupCalculator(Result).Font, clPopup);
-     Result.BiDiMode := ABiDiMode;
    end;
    {$ENDIF VCL}
  end;
--- 959,965 ----
      TJvPopupCalculator(Result).FCalcPanel.ParentFont := True;
      SetDefaultFont(TJvPopupCalculator(Result).Font, clPopup);
    end;
+   *)
+   Result.BiDiMode := ABiDiMode;
    {$ENDIF VCL}
  end;