paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 13:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: fix compilation after r57929 #e58e0a48d1

Browse Source 
git-svn-id: trunk@57932 -
This commit is contained in:
ondrej 2018-05-13 21:37:52 +00:00
parent 83cb5d2560
commit c49ee01dbe
1 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/interfaces/win32/win32themes.pas
View File

@ -45,8 +45,6 @@ type
AContentRect: PRect = nil); override; AContentRect: PRect = nil); override;
procedure DrawIcon(DC: HDC; Details: TThemedElementDetails; const R: TRect; procedure DrawIcon(DC: HDC; Details: TThemedElementDetails; const R: TRect;
himl: HIMAGELIST; Index: Integer); override; 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; procedure DrawText(DC: HDC; Details: TThemedElementDetails;
const S: String; R: TRect; Flags, Flags2: Cardinal); override; const S: String; R: TRect; Flags, Flags2: Cardinal); override;
@ -400,21 +398,6 @@ begin
inherited; inherited;
end; 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; function TWin32ThemeServices.HasTransparentParts(Details: TThemedElementDetails): Boolean;
begin begin
if ThemesEnabled then if ThemesEnabled then