jvcllaz: Fix Linux issues (CommCtrl)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5448 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-07 17:41:09 +00:00
parent 36baccb321
commit 46ff69fe2d
5 changed files with 10 additions and 13 deletions

View File

@ -207,6 +207,9 @@ const
DT_PATH_ELLIPSIS = $4000;
COLORONCOLOR = 3;
STRETCH_DELETESCANS = COLORONCOLOR;
const
KeyboardShiftStates = [ssShift, ssAlt, ssCtrl];

View File

@ -855,11 +855,11 @@ function ReplaceImageListReference(This: TComponent; NewReference: TCustomImageL
implementation
uses
sysutils, LCLIntf,
sysutils, LCLIntf, GraphType, Math, Forms,
{$IFDEF MSWINDOWS}
CommCtrl,
{$ENDIF}
math, JvConsts, JvJCLUtils;
JvConsts, JvJCLUtils;
(********************
SysConst,
Consts,
@ -2057,7 +2057,7 @@ begin
{$IFDEF MSWINDOWS}
ImageList_Draw(Images.Handle, Index, Handle, 0, 0, ILD_MASK);
{$ELSE}
ImageList_Draw ????
Images.GetBitmap(Index, Bmp, gdeDisabled); // to do: test this
{$ENDIF}
end;
Bmp.Monochrome := True;