Как Опера делает превью сайта?

[Вавел из ГМТУ]

Сабж. Всеже наверное видели Экспесс-панель Оперы.
Так вот я делаю программу LinkMaster в которой нужно заюзать такуюже Экспресс-панель(конечно я её доработаю и расширю).

Возник вопрос: как сделать, средствами Delphi, вот такое превью?
Опера делает эти картинки и сохраняет их в своей папке в формате .png с разрешением 256 х 192

PS: Я запостил сюда, потомучто неочень пока понятно к чему этот вопрос относиться )

[Пепел Феникса]

насколько я понял она загружает страинцу отображает её не на экран а в буфер и из него уже делает снимок

[W0LF]

А можно по-подробней, как такое зделать? Очень нужно получить Привью сайта такого типа...

[Ivan_32]

Скорее всего после последнего посещения сайта пользователем, делается снимок экрана и подгоняется под размер.

[W0LF]

Это понятно, а как это зделать в Delphi?

[Alter]

Сообщение от Ivan_32

Скорее всего после последнего посещения сайта пользователем, делается снимок экрана и подгоняется под размер.

Никак нет. Перейдите на "Экспресс-панель", правой кнопкой по любому эскизу, затем "Обновить эскиз". И в результате имеете актуальный эскиз страницы.

[5naip]

пришла мысль о масштабировании в TWebbrowser.
Покапался в инэте, нашел такой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //75% от оригинального размера
  WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.75;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //оригинальный размер
  WebBrowser1.OleObject.Document.Body.Style.Zoom := 1;
end;

{Страница должна уже быт загружена в TWebbrowser}

//.zoom:=0.25; //25%
//.zoom:=0.5; //50%
//.zoom:=1.5; //100%
//.zoom:=2.0; //200%
//.zoom:=5.0; //500%
//.zoom:=10.0; //1000%

{----------}

uses
  OleCtrls, SHDocVw;

{
Предположим, что вы хотите использовать кнопки,
чтобы делать масштабирование, тогда:
Button1 - маааааленький,
Button2  - маленький,
Button3  - средний,
Button4  - большой,
Button5  - боооольшой,
Вы должны установить значение Tag для каждой кнопки, как следующие:
 0: маааааленький,
 1: маленький,
 2: средний,
 3: большой,
 4: боооольшой.
}

procedure TForm1.Button1Click(Sender: TObject);
var
  ZoomFac: OLEVariant;
begin
  ZoomFac := TButton(Sender).Tag;
  WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_PROMPTUSER, ZoomFac);
end;

сделать новую форму. Уменьшить ее до размера превьюшки. В ней поместить Webbrowser (до этого опытным путем вычилить, до каких размеров масштабировать). Форму показывать только в нужных случаях.