pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Follow-up to r7204 (Patch by Michal Gawrycki, issue #36403)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7205 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-12-06 20:54:08 +00:00
parent a7bc63964a
commit c0628ff3b4
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/jvcllaz/run/JvDB/jvdblookup.pas
View File

@ -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;