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

win32: add TWin32ThemeServices.DrawTextEx

Browse Source 
git-svn-id: trunk@20545 -
This commit is contained in:
paul 2009-06-09 09:06:40 +00:00
parent 69228880ca
commit aa7a14e2ac
3 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/win32/win32proc.pp
View File

@ -1777,7 +1777,6 @@ begin
else else
WindowsVersion := wvLater; WindowsVersion := wvLater;
end; end;
end; end;
else else
WindowsVersion := wvLater; WindowsVersion := wvLater;

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

@ -52,6 +52,9 @@ type
procedure DrawText(ACanvas: TPersistent; Details: TThemedElementDetails; procedure DrawText(ACanvas: TPersistent; Details: TThemedElementDetails;
const S: String; R: TRect; Flags, Flags2: Cardinal); override; const S: String; R: TRect; Flags, Flags2: Cardinal); override;
procedure DrawTextEx(DC: HDC; Details: TThemedElementDetails;
const S: String; R: TRect; Flags: Cardinal; Options: PDTTOpts);
function ContentRect(DC: HDC; Details: TThemedElementDetails; BoundingRect: TRect): TRect; override; function ContentRect(DC: HDC; Details: TThemedElementDetails; BoundingRect: TRect): TRect; override;
function HasTransparentParts(Details: TThemedElementDetails): Boolean; override; function HasTransparentParts(Details: TThemedElementDetails): Boolean; override;
procedure PaintBorder(Control: TObject; EraseLRCorner: Boolean); override; procedure PaintBorder(Control: TObject; EraseLRCorner: Boolean); override;
@ -432,4 +435,26 @@ begin
inherited; inherited;
end; end;
procedure TWin32ThemeServices.DrawTextEx(DC: HDC;
Details: TThemedElementDetails; const S: String; R: TRect; Flags: Cardinal;
Options: PDTTOpts);
{$IFDEF WindowsUnicodeSupport}
var
w: widestring;
{$ENDIF}
begin
if ThemesEnabled and (DrawThemeTextEx <> nil) then
with Details do
{$IFDEF WindowsUnicodeSupport}
begin
w := UTF8ToUTF16(S);
DrawThemeTextEx(Theme[Element], DC, Part, State, PWideChar(w), Length(w), Flags, @R, Options);
end
{$ELSE}
DrawThemeTextEx(Theme[Element], DC, Part, State, PWideChar(WideString(S)), Length(S), Flags, @R, Options)
{$ENDIF}
else
DrawText(DC, Details, S, R, Flags, 0);
end;
end. end.

2
lcl/interfaces/win32/win32uxtheme.pas
View File

@ -1451,7 +1451,7 @@ type
{$EXTERNALSYM DTTOPTS} {$EXTERNALSYM DTTOPTS}
PDTTOPTS = ^_DTTOPTS; PDTTOPTS = ^_DTTOPTS;
{$EXTERNALSYM PDTTOPTS} {$EXTERNALSYM PDTTOPTS}
TDTOpts = DTTOPTS; TDTTOpts = DTTOPTS;
// if (_WIN32_WINNT >= 0x0600) // if (_WIN32_WINNT >= 0x0600)