paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-23 21:21:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix header

Browse Source 
git-svn-id: trunk@18002 -
This commit is contained in:
paul 2008-12-31 03:07:17 +00:00
parent 82598cc634
commit d9491a4528
79 changed files with 79 additions and 79 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtthemes.pas
View File

@ -52,13 +52,13 @@ type
procedure InternalDrawParentBackground(Window: HWND; Target: HDC; Bounds: PRect); override;
function GetControlState(Details: TThemedElementDetails): QStyleState;
function GetDetailSize(Details: TThemedElementDetails): Integer; override;
function GetDrawElement(Details: TThemedElementDetails): TQtDrawElement;
property Style: QStyleH read GetStyle;
public
procedure DrawElement(DC: HDC; Details: TThemedElementDetails; const R: TRect; ClipRect: PRect); override;
procedure DrawEdge(DC: HDC; Details: TThemedElementDetails; const R: TRect; Edge, Flags: Cardinal; AContentRect: PRect); override;
procedure DrawIcon(DC: HDC; Details: TThemedElementDetails; const R: TRect; himl: HIMAGELIST; Index: Integer); override;
function GetDetailSize(Details: TThemedElementDetails): Integer; override;
function ContentRect(DC: HDC; Details: TThemedElementDetails; BoundingRect: TRect): TRect; override;
function HasTransparentParts(Details: TThemedElementDetails): Boolean; override;