paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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 interface
uses lazlogger, uses
LCLIntf, LCLType, LCLVersion, Types, LCLIntf, LCLType, LCLVersion, Types,
Classes, SysUtils, Graphics, Controls, Classes, SysUtils, Graphics, Controls,
JvComponent; JvComponent;

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

@ -39,7 +39,7 @@ unit JvDBLookup;
interface interface
uses uses
{$IFDEF WINDOWS}Windows,{$ENDIF} //{$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;
@ -387,7 +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 CreateWnd; override;
procedure WMActivate(var Message: TLMActivate); message LM_ACTIVATE; procedure WMActivate(var Message: TLMActivate); message LM_ACTIVATE;
{$ENDIF} {$ENDIF}
public public
@ -2517,12 +2517,12 @@ begin
end; end;
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
procedure TJvPopupDataListForm.CreateWnd; //procedure TJvPopupDataListForm.CreateWnd;
begin //begin
inherited CreateWnd; // inherited CreateWnd;
SetClassLong(WindowHandle, GCL_STYLE, // SetClassLong(WindowHandle, GCL_STYLE,
GetClassLong(WindowHandle, GCL_STYLE) or CS_DROPSHADOW); // GetClassLong(WindowHandle, GCL_STYLE) or CS_DROPSHADOW);
end; //end;
procedure TJvPopupDataListForm.WMActivate(var Message: TLMActivate); procedure TJvPopupDataListForm.WMActivate(var Message: TLMActivate);
begin begin