You've already forked lazarus-ccr
jvcllaz: Follow-up to r7204 (Patch by Michal Gawrycki, issue #36403)
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7205 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -446,8 +446,6 @@ type
|
|||||||
protected
|
protected
|
||||||
procedure CreateWnd; override;
|
procedure CreateWnd; override;
|
||||||
procedure SetReadOnly(AValue: Boolean); override;
|
procedure SetReadOnly(AValue: Boolean); override;
|
||||||
procedure GetPreferredSize(var PreferredWidth, PreferredHeight: integer;
|
|
||||||
Raw: boolean = false; WithThemeSpace: boolean = true); override;
|
|
||||||
function GetDropDownButtonRect: TRect;
|
function GetDropDownButtonRect: TRect;
|
||||||
procedure InvalidateFrame;
|
procedure InvalidateFrame;
|
||||||
procedure InvalidateDropDownButton;
|
procedure InvalidateDropDownButton;
|
||||||
@ -483,6 +481,8 @@ type
|
|||||||
public
|
public
|
||||||
constructor Create(AOwner: TComponent); override;
|
constructor Create(AOwner: TComponent); override;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
|
procedure GetPreferredSize(var PreferredWidth, PreferredHeight: integer;
|
||||||
|
Raw: boolean = false; WithThemeSpace: boolean = true); override;
|
||||||
procedure CloseUp(Accept: Boolean); dynamic;
|
procedure CloseUp(Accept: Boolean); dynamic;
|
||||||
procedure DropDown; virtual;
|
procedure DropDown; virtual;
|
||||||
procedure ResetField; override;
|
procedure ResetField; override;
|
||||||
@ -2753,6 +2753,10 @@ begin
|
|||||||
FOnDropDown(Self);
|
FOnDropDown(Self);
|
||||||
SelValue := Value; // backup before anything invokes a OnDataChange event
|
SelValue := Value; // backup before anything invokes a OnDataChange event
|
||||||
|
|
||||||
|
{$IFDEF WINDOWS}
|
||||||
|
FDataListForm.PopupParent := GetParentForm(Self);
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
FDataListForm.FList.Color := Color;
|
FDataListForm.FList.Color := Color;
|
||||||
FDataListForm.FList.Font := Font;
|
FDataListForm.FList.Font := Font;
|
||||||
FDataListForm.FList.EmptyItemColor := EmptyItemColor;
|
FDataListForm.FList.EmptyItemColor := EmptyItemColor;
|
||||||
|
Reference in New Issue
Block a user