Klicki-Bunti Programmierung bei altem Windows Style

[seim]

Hi,

hab' grad ein kleines Problem..

Schaut euch mal bitte die beiden Dateien an (wenn ihr einen neuen Windows Style != alter Grauer Style an habt). Genau wenn man den alten Style an hat sind Sachen wie TPanels nämlich nicht mehr so cool Transparent und es sieht einfach sch.. aus.
Also ich bräuchte quasi eine Möglichkeit trotz altem Style gewährleisten zu können, dass es nicht so aussieht wie es aussieht..

Mir würde schon sowas reichen wie:

Delphi-Quellcode:

if AlterStyle = true then
 Hintergrundgrafik := false;

lg
Seim

[Sherlock]

http://lmgtfy.com/?q=delphi+xp+theme

Das zweite Ergebnis (das mit dem weiteren möglichen Stichwort "active" bietet dann die komplette Lösung.

Sherlock

[Mikescher]

Zitat von Sherlock:

http://lmgtfy.com/?q=delphi+xp+theme

http://www.gindf.de/

[seim]

Delphi-Quellcode:

function _IsThemeActive: Boolean;
// Returns True if the user uses XP style
const
  themelib = 'uxtheme.dll';
type
  TIsThemeActive = function: BOOL; stdcall;
var
  IsThemeActive: TIsThemeActive;
  huxtheme: HINST;
begin
  Result := False;
  // Check if XP or later Version
  if (Win32Platform  = VER_PLATFORM_WIN32_NT) and
     (((Win32MajorVersion = 5) and (Win32MinorVersion >= 1)) or
      (Win32MajorVersion > 5)) then
  begin
    huxtheme := LoadLibrary(themelib);
    if huxtheme <> 0 then
    begin
      try
        IsThemeActive := GetProcAddress(huxtheme, 'IsThemeActive');
        Result := IsThemeActive;
      finally
       if huxtheme > 0 then
          FreeLibrary(huxtheme);
      end;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if _IsThemeActive then
   ShowMessage('Windows XP Themes are activated.');
end;

[Andreas L.]

Für Delphi 7 und aufwärts:

Delphi-Quellcode:

uses  ..., Themes;

...
...

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ThemeServices.ThemesAvailable then
    ShowMessage('Themes verfügbar');

  if ThemeServices.ThemesEnabled then
    ShowMessage('Ein Theme ist derzeit aktiviert');
end;

[seim]

Danke!

Sag mal die Transparenz für so Dinge wie TLabel und TPanel gehen aber wirklich >gar< nicht wenn gerade keines der modernen Themes aktiviert ist? Oder gibt es noch irgendein Trick dagegen?

[Andreas L.]

Zitat von seim:

Sag mal die Transparenz für so Dinge wie TLabel und TPanel gehen aber wirklich >gar< nicht wenn gerade keines der modernen Themes aktiviert ist? Oder gibt es noch irgendein Trick dagegen?

TLabel hat die Eigenschaft Transparent die unabhängig vom Windows-Theme funktioniert. Wie man ein TPanel transparent macht kannst du mit der Forensuche herausfinden, oder falls du die Jedi VCL installiert hast, das TJvPanel verwenden welches ebenfalls eine Transparent-Eigenschaft hat.