From c49ee01dbe975cf2bdf9ff7d1bd5889c6ff96f0f Mon Sep 17 00:00:00 2001 From: ondrej Date: Sun, 13 May 2018 21:37:52 +0000 Subject: [PATCH] win32: fix compilation after r57929 #e58e0a48d1 git-svn-id: trunk@57932 - --- lcl/interfaces/win32/win32themes.pas | 17 ----------------- 1 file changed, 17 deletions(-) diff --git a/lcl/interfaces/win32/win32themes.pas b/lcl/interfaces/win32/win32themes.pas index 692e58ce6b..13e70805ca 100644 --- a/lcl/interfaces/win32/win32themes.pas +++ b/lcl/interfaces/win32/win32themes.pas @@ -45,8 +45,6 @@ type AContentRect: PRect = nil); override; procedure DrawIcon(DC: HDC; Details: TThemedElementDetails; const R: TRect; himl: HIMAGELIST; Index: Integer); override; - procedure DrawIcon(ACanvas: TPersistent; Details: TThemedElementDetails; - const P: TPoint; AImageList: TPersistent; Index: Integer); override; procedure DrawText(DC: HDC; Details: TThemedElementDetails; const S: String; R: TRect; Flags, Flags2: Cardinal); override; @@ -400,21 +398,6 @@ begin inherited; end; -procedure TWin32ThemeServices.DrawIcon(ACanvas: TPersistent; - Details: TThemedElementDetails; const P: TPoint; AImageList: TPersistent; - Index: Integer); -{var - ImageList: TCustomImageList absolute AImageList; -} -begin -{ if ThemesEnabled then - DrawIcon(TCanvas(ACanvas).Handle, Details, - Rect(P.X, P.Y, P.X + ImageList.Width, P.Y + ImageList.Width), - ImageList.Handle, Index) - else} - inherited; -end; - function TWin32ThemeServices.HasTransparentParts(Details: TThemedElementDetails): Boolean; begin if ThemesEnabled then