OpenFileDialog subclassing

[venice2]

Irgendwie kommen hier keine Rückmeldungen mehr bei meinen Beiträgen. Nun gut habe es selbst gelöst

Delphi-Quellcode:

var
  bSysList: BOOL;

Delphi-Quellcode:

WM_DESTROY:
  bSysList := True;

Delphi-Quellcode:

CDN_FOLDERCHANGE:
  begin
    if OpenDialog.UseSkin then
    begin
      if bSysList then
      begin
        SysListUnSubClass(hSysList);
        CTRL_HookedScroolBarDestroy;
        sbHookedScroolBar := nil;
        hSysList := 0;

        hDefview := FindWindowEx(DlgHandle, 0, 'SHELLDLL_Defview', nil);
        hSysList := FindWindowEx(hDefview, 0, 'SysListView32', nil);

        if hSysList <> 0 then
        begin
          SysListSubClass(hSysList);

          if not Assigned(sbHookedScroolBar) then
            OpenDialog.HookedScroolBar;

          if hHeader = 0 then
          begin
            hHeader := ListView_GetHeader(hSysList);
            HeaderSubClass(hHeader);
          end;
          bSysList := false;
        end;
      end;
      SetFocus(SKDialogHandle);
    end;
    Result := 1;
    Exit;
  end;

jetzt werden alle tooltips_class32 freigegeben.