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

jvcllaz: Add dropdown shadow TJvDBLookupCombo for Windows. Patch by Michal Gawrycki, issue #36421.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7206 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-12-10 23:25:40 +00:00
parent c0628ff3b4
commit 7ee6c517b0
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -39,6 +39,7 @@ unit JvDBLookup;
interface interface
uses uses
{$IFDEF WINDOWS}Windows,{$ENDIF}
Variants, Classes, Graphics, Controls, Forms, DB, DBCtrls, Variants, Classes, Graphics, Controls, Forms, DB, DBCtrls,
LMessages, LCLType, LCLIntf, LCLProc, EditBtn, Themes, LMessages, LCLType, LCLIntf, LCLProc, EditBtn, Themes,
JvThemes, JvDBUtils; JvThemes, JvDBUtils;
@ -386,6 +387,7 @@ type
procedure DoShow; override; procedure DoShow; override;
procedure DoClose(var CloseAction: TCloseAction); override; procedure DoClose(var CloseAction: TCloseAction); override;
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
procedure CreateWnd; override;
procedure WMActivate(var Message: TLMActivate); message LM_ACTIVATE; procedure WMActivate(var Message: TLMActivate); message LM_ACTIVATE;
{$ENDIF} {$ENDIF}
public public
@ -2515,6 +2517,13 @@ begin
end; end;
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
procedure TJvPopupDataListForm.CreateWnd;
begin
inherited CreateWnd;
SetClassLong(WindowHandle, GCL_STYLE,
GetClassLong(WindowHandle, GCL_STYLE) or CS_DROPSHADOW);
end;
procedure TJvPopupDataListForm.WMActivate(var Message: TLMActivate); procedure TJvPopupDataListForm.WMActivate(var Message: TLMActivate);
begin begin
if (Message.Active <> WA_INACTIVE) and Assigned(Self.GetRealPopupParent) then if (Message.Active <> WA_INACTIVE) and Assigned(Self.GetRealPopupParent) then