Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Miniaturansicht immer versuchen


Sy- - Di 11.12.07 02:25
Titel: Miniaturansicht immer versuchen
Hi all,

mein Problem ist folgendes:
Ich zeige Dateien mit dem TWebBrowser an und möchte IMMER Miniatur-Ansicht haben
Hat da jemand eine Ahnung wie man die Ansicht steuern kann?

Ich finde praktisch nichts zu dem Thema.


Grüße


Sy- - So 03.02.08 15:38
Also im Code von Browser finde ich Interfaces für die Ansteuerung der Ansicht.
Leider blick ich da nicht durch wie ich den Spaß nutzen kann...

Keiner von euch eine Ahnung?


toms - So 03.02.08 20:07
So kannst du immer die Miniatur-Ansicht anzeigen:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
 
procedure TForm1.Webbrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
const
  LVS_THUMBNAIL  = $702D;
var
  wnd: HWND;
begin
  wnd := FindWindowEx(Self.Handle, 0, 'Shell Embedding', nil);
  if wnd <> 0 then
  begin
    wnd := FindWindowEx(wnd, 0, 'SHELLDLL_DefView', nil);
    if wnd <> 0 then
      SendMessage(wnd, WM_COMMAND, LVS_THUMBNAIL, 0 );
  end;
end;


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!