david
f410727ca1
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.TMSSoftware@8 ccf39c52-e665-a648-be6a-52d81bcb5567
63 lines
2.2 KiB
ObjectPascal
63 lines
2.2 KiB
ObjectPascal
{***************************************************************************}
|
|
{ TAdvStyleIF interface }
|
|
{ for Delphi & C++Builder }
|
|
{ }
|
|
{ written by TMS Software }
|
|
{ copyright © 2006 - 2007 }
|
|
{ Email : info@tmssoftware.com }
|
|
{ Web : http://www.tmssoftware.com }
|
|
{ }
|
|
{ The source code is given as is. The author is not responsible }
|
|
{ for any possible damage done due to the use of this code. }
|
|
{ The component can be freely used in any application. The complete }
|
|
{ source code remains property of the author and may not be distributed, }
|
|
{ published, given or sold in any form as such. No parts of the source }
|
|
{ code can be included in any other component or application without }
|
|
{ written authorization of the author. }
|
|
{***************************************************************************}
|
|
|
|
unit AdvStyleIF;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes;
|
|
|
|
type
|
|
TTMSStyle = (tsOffice2003Blue, tsOffice2003Silver, tsOffice2003Olive, tsOffice2003Classic,
|
|
tsOffice2007Luna, tsOffice2007Obsidian, tsWindowsXP, tsWhidbey, tsCustom, tsOffice2007Silver);
|
|
|
|
//
|
|
// ['{E1199D64-5AF9-4DB7-B363-FABE5D1EEE0F}']
|
|
// function GetComponentStyle: TTMSStyle;
|
|
|
|
ITMSStyle = interface
|
|
['{11AC2DDC-C087-4298-AB6E-EA1B5017511B}']
|
|
procedure SetComponentStyle(AStyle: TTMSStyle);
|
|
end;
|
|
|
|
function IsVista: boolean;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Windows;
|
|
|
|
//------------------------------------------------------------------------------
|
|
|
|
function IsVista: boolean;
|
|
var
|
|
hKernel32: HMODULE;
|
|
begin
|
|
hKernel32 := GetModuleHandle('kernel32');
|
|
if (hKernel32 > 0) then
|
|
begin
|
|
Result := GetProcAddress(hKernel32, 'GetLocaleInfoEx') <> nil;
|
|
end
|
|
else
|
|
Result := false;
|
|
end;
|
|
|
|
|
|
end.
|