fix autoszie if RxLoockup

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1196 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rx/rxlookup.pas

@@ -230,9 +230,10 @@ type
     procedure UpdateData;
     procedure NeedUpdateData;
   protected
+    procedure CalculatePreferredSize(var PreferredWidth, PreferredHeight: integer;
+                                     WithThemeSpace: Boolean); override;
     procedure ShowList; virtual;
     procedure OnClosePopup(AResult:boolean);virtual;
-    procedure DoAutoSize; override;
     procedure SetEnabled(Value: Boolean); override;
     procedure KeyDown(var Key: Word; Shift: TShiftState); override;
     procedure KeyPress(var Key: char); override;
@@ -1118,6 +1119,24 @@ begin
   end;
 end;
 
+procedure TRxCustomDBLookupCombo.CalculatePreferredSize(var PreferredWidth,
+  PreferredHeight: integer; WithThemeSpace: Boolean);
+var
+  tmpCanvas: TCanvas;
+begin
+  inherited CalculatePreferredSize(PreferredWidth, PreferredHeight,
+    WithThemeSpace);
+  // ignore width
+  PreferredWidth:=0;
+  tmpCanvas := GetWorkingCanvas(Canvas);
+  try
+    PreferredHeight:=Canvas.TextHeight('Wg')+12;
+  finally
+    if TmpCanvas<>Canvas then
+      FreeWorkingCanvas(tmpCanvas);
+  end;
+end;
+
 procedure TRxCustomDBLookupCombo.OnClosePopup(AResult: boolean);
 begin
   if Assigned(FRxPopUpForm) and AResult and (pfgColumnResize in FPopUpFormOptions.Options) then
@@ -1151,11 +1170,6 @@ begin
     FOnSelect(Self);
 end;
 
-procedure TRxCustomDBLookupCombo.DoAutoSize;
-begin
-  Height:=Canvas.TextHeight('Wg')+12;
-end;
-
 procedure TRxCustomDBLookupCombo.SetEnabled(Value: Boolean);
 begin
   inherited SetEnabled(Value);

components/rx/tooledit.pas

@@ -787,6 +787,7 @@ begin
     FPopup := CreatePopupCalendar(Self {$IFDEF USED_BiDi}, BiDiMode {$ENDIF});
     FPopup.OnCloseUp := @PopupCloseUp;
     FPopup.Color := FPopupColor;
+    FPopup.Visible:=false;
 {$ELSE}
     FPopup:=nil;
 {$ENDIF DEFAULT_POPUP_CALENDAR}