1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function TSkinManage.OnBeforeSkin(ahwnd:Thandle;aname:string):boolean;
var b:boolean;
    i:integer;
    sd:Tskindata;
    s:string;
    dwstyle:Dword;
begin
   b:=true;
   if maindata<>nil then begin
     s:= lowercase(aname);
     if not (xoPreview in TSkindata(maindata).Options) then begin //meldung kommt hier
        if (pos('preview',s)>0) then b:=false;
     end;
     dwstyle := GetWindowLong( ahwnd, GWL_STYLE );
     //file download dialog
     if (aname='#32770') and ((dwstyle and DS_SETFOREGROUND)>0) then b:=false;
     if (s='tpopupdbtreeview') then b:=false;
     TSkindata(maindata).DoFormSkin(ahwnd,aname,b);
   end;
{   for i:= 0 to dlist.count-1 do begin
       sd:=Tskindata(dlist.items[i]);
       if (sd.skinformtype=sfMainform) then begin
            sd.DoFormSkin(aname,b);
            break;
       end;
   end;}
   result:=b;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

function TSkinManage.AddMenu(aHwnd:THandle):boolean;
var amenu:TWinSkinPopMenu;
    s:string;
    adata:Tskindata;
    aptr:pointer;
    isskin:integer;
begin
   result:=false;
   if not active then exit;
   isskin:=sendmessage(ahwnd,CN_IsSkined,0,0);
   if isskin=1 then exit;

   if findskinMenu(ahwnd) then exit;

   FindSkindata(aptr,ahwnd);
   if aptr=nil then exit;

   adata:=Tskindata(aptr);
//   if (adata.empty) or (not(xcMainmenu in adata.SkinControls)) then exit;
   if (adata.empty) then exit;
   case menutype of
     m_popup : if (not(xcPopupmenu in adata.SkinControls)) then exit;
     m_menuitem : if (not(xcMainmenu in adata.SkinControls)  //meldung kommt hier
          and not(xcMenuitem in adata.SkinControls)) then exit;
     m_systemmenu: if (not(xcSystemmenu in adata.SkinControls)) then exit;
   end;

   amenu:=TWinSkinPopMenu.create;
   amenu.InitSkin(ahwnd,adata,0);
   Mlist.add(amenu);
   if menuactive then amenu.ownerdraw:=true;
end;