Визуальное отображение в соответствии с установленной Windows

[Niklan]

Например делаю кнопку, в редакторе Delphi выглядит нормально, красиво, как и должно на vista. А когда компилирую, оформление как у Windows 98, просто серая кнопка

[Пепел Феникса]

компонент XPManifest киньте на форму(вкладка System)
правда если Делфи >=7

[raxp]

попробуйте рядом с проектом положить манифест файл с именем вашего проекта.

никаких компонентов не нужно, вы можете прямо из программы создавать файл такого вида:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1"
manifestVersion="1.0">
<assemblyIdentity
name="имя вашего exe"
processorArchitecture="x86"
version="1.0.0.0"
type="win32"/>
<description>имя вашего exe</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="x86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>

[Niklan]

Сообщение от raxp

попробуйте рядом с проектом положить манифест файл с именем вашего проекта.

никаких компонентов не нужно, вы можете прямо из программы создавать файл такого вида:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1"
manifestVersion="1.0">
<assemblyIdentity
name="имя вашего exe"
processorArchitecture="x86"
version="1.0.0.0"
type="win32"/>
<description>имя вашего exe</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="x86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>

Выше написали понятнее, и причем работает

[raxp]

если-бы вы удосужились выяснить что такое манифест, то у вас-бы заработало

unit manifest;

interface

uses classes,sysutils;

 procedure SaveManifest(AppName, Description: string);

implementation

procedure SaveManifest(AppName, Description: string);
var RL: TStringList;
begin
 RL := TStringList.Create;
 RL.Add('<?xml version="1.0" encoding="UTF-8" standalone="yes"?>');
 RL.Add('<assembly xmlns="urn:schemas-microsoft-com:asm.v1"');
 RL.Add('manifestVersion="1.0">');
 RL.Add('<assemblyIdentity');
 RL.Add('name="' + AppName + '"');
 RL.Add('processorArchitecture="x86"');
 RL.Add('version="1.0.0.0"');
 RL.Add('type="win32"/>');
 RL.Add('<description>' + Description + '</description>');
 RL.Add('<dependency>');
 RL.Add('<dependentAssembly>');
 RL.Add('<assemblyIdentity');
 RL.Add('type="win32"');
 RL.Add('name="Microsoft.Windows.Common-Controls"');
 RL.Add('version="6.0.0.0"');
 RL.Add('processorArchitecture="x86"');
 RL.Add('publicKeyToken="6595b64144ccf1df"');
 RL.Add('language="*"');
 RL.Add('/>');
 RL.Add('</dependentAssembly>');
 RL.Add('</dependency>');
 RL.Add('</assembly>');
 //
 RL.SaveToFile(ExtractFilePath(paramstr(0)) + ExtractFilename(paramstr(0)) + '.manifest');
 RL.Free
end;

end.

//использование
//в файле проекта *.dpr
program project1;

uses
  Forms,
  Windows,
  manifest in 'manifest.pas',
  unit1 in 'unit1.pas' {form};

{$R *.RES}
begin
  //стиль-
  SaveManifest('project1', 'бла-бла-бла');