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

jvcllaz: Undo r7206 as proposed by Michal Gawrycki due to side-effects, issue #36894

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7400 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-04-24 20:47:11 +00:00
parent ce8d2e3dba
commit a9b903fb75
2 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/jvcllaz/run/JvCtrls/jvruler.pas
View File

@ -30,7 +30,7 @@ unit JvRuler;
interface
uses lazlogger,
uses
LCLIntf, LCLType, LCLVersion, Types,
Classes, SysUtils, Graphics, Controls,
JvComponent;

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

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