diff --git a/components/jvcllaz/run/JvDB/jvdblookup.pas b/components/jvcllaz/run/JvDB/jvdblookup.pas index 3e2adc931..c6a3ea4a8 100644 --- a/components/jvcllaz/run/JvDB/jvdblookup.pas +++ b/components/jvcllaz/run/JvDB/jvdblookup.pas @@ -446,8 +446,6 @@ type protected procedure CreateWnd; override; procedure SetReadOnly(AValue: Boolean); override; - procedure GetPreferredSize(var PreferredWidth, PreferredHeight: integer; - Raw: boolean = false; WithThemeSpace: boolean = true); override; function GetDropDownButtonRect: TRect; procedure InvalidateFrame; procedure InvalidateDropDownButton; @@ -483,6 +481,8 @@ type public constructor Create(AOwner: TComponent); override; destructor Destroy; override; + procedure GetPreferredSize(var PreferredWidth, PreferredHeight: integer; + Raw: boolean = false; WithThemeSpace: boolean = true); override; procedure CloseUp(Accept: Boolean); dynamic; procedure DropDown; virtual; procedure ResetField; override; @@ -2753,6 +2753,10 @@ begin FOnDropDown(Self); SelValue := Value; // backup before anything invokes a OnDataChange event + {$IFDEF WINDOWS} + FDataListForm.PopupParent := GetParentForm(Self); + {$ENDIF} + FDataListForm.FList.Color := Color; FDataListForm.FList.Font := Font; FDataListForm.FList.EmptyItemColor := EmptyItemColor;