Okay, das war jetzt spaßig, aber wir nähern uns der Lösung. Ich habe das besagte Sample aus den Tutorials aufhellen können. Es ist noch nicht perfekt.
Delphi-Quellcode:
function EnableThemeDialogTexture(wnd: HWND; dwFlags: dword):
HRESULT; stdcall; external 'uxtheme.dll';
// in WM_INITDIALOG:
for i := 0 to length(hTabDlgs) - 1 do
begin
hTabDlgs[i] := CreateDialog(hInstance, MAKEINTRESOURCE((i + 2) * 100),
hDlg, @tabdlgfunc);
EnableThemeDialogTexture(hTabDlgs[i], 6);
end;
Die 6 steht für
Code:
#define ETDT_DISABLE 0x00000001
#define ETDT_ENABLE 0x00000002
#define ETDT_USETABTEXTURE 0x00000004
#define ETDT_USEAEROWIZARDTABTEXTURE 0x00000008
#define ETDT_ENABLETAB (ETDT_ENABLE | \
ETDT_USETABTEXTURE)
Seht es mir bitte nach. Mit nur einer Hand ist das blöd.
Jetzt ist das Innere des Tabs etwas zu hell, aber immerhin.