Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите с THTMLlite, Помогите с THTMLlite 
:(
    Опции темы
Budy
Дата 26.3.2005, 14:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2
:Приветсвую
Кто работал с THTMLLite, прошу вас помочь!
Хочу разобраться с
Код

TForm1.htmlLite1ImageClick();
и
Код

TForm1.htmlLite1ImageOver();

Как получить имя файла картинки при наведении и при клике на нее.


--------------------
Как ты назовешь свой корабль, так на нем и напишут
user posted image
PM MAIL WWW ICQ   Вверх
December
Дата 26.3.2005, 20:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57
Budy
А можешь рассказать пару слов о компоненте?


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
December
Дата 26.3.2005, 21:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57
Я имею в виду есть ли у него преимущества перед TWebBrowser?


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
Budy
Дата 27.3.2005, 16:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2
Просто есть небольшая проблема у TWebBrowser - я не смог убрать его PopupMenu.


--------------------
Как ты назовешь свой корабль, так на нем и напишут
user posted image
PM MAIL WWW ICQ   Вверх
December
Дата 27.3.2005, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57
[Oftop]
Цитата(Budy @ 27.3.2005, 16:48)
Просто есть небольшая проблема у TWebBrowser - я не смог убрать его PopupMenu.

Есть верный способ его убрать (правда, с клавиатуры все равно можно вызвать, но с этим мы ещё поборемся).
[/Oftop]
На у всё-таки, можешь дать в двух словах сравнительный анализ TWebBrowser и THtmlLite (или его Professional собрата)? Кто чем силён и кто чего не может?


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
ДЫМ
Дата 28.3.2005, 01:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 224
Регистрация: 6.1.2004

Репутация: 8
Всего: 8
Цитата
Я имею в виду есть ли у него преимущества перед TWebBrowser?

Дело в том, что TWebBrowser - это ActiveX-компонент, а THTMLLite работает без експлорера, следоательно быстрее да и более легок в освоении. Мне лично очень нравится, правда предназначен в основном для просмотра страниц в offline.
PM MAIL WWW   Вверх
Budy
Дата 28.3.2005, 06:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2
ДЫМ, ну так то я согласен.
Но все же давайте вернемся к моему вопросу: Как получить имя картинки, проведя над ней мышью либо кликнув на нее?


--------------------
Как ты назовешь свой корабль, так на нем и напишут
user posted image
PM MAIL WWW ICQ   Вверх
Budy
Дата 28.3.2005, 10:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2
Не знаю, может я профан в этом деле.....
Код

procedure TForm1.htmlLite1ImageOver(Sender, Obj: TObject;
  Shift: TShiftState; X, Y: Integer);
begin

end;

Может кто знает, что за Obj здесь


--------------------
Как ты назовешь свой корабль, так на нем и напишут
user posted image
PM MAIL WWW ICQ   Вверх
ДЫМ
Дата 29.3.2005, 01:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 224
Регистрация: 6.1.2004

Репутация: 8
Всего: 8
Цитата(Budy @ 28.3.2005, 10:29)
Не знаю, может я профан в этом деле.....
Код

procedure TForm1.htmlLite1ImageOver(Sender, Obj: TObject;
  Shift: TShiftState; X, Y: Integer);
begin

end;

Может кто знает, что за Obj здесь

Я исользовал компонент просто для просмотра страничек, и поэтому не углублялся в методы htmlLite. Но в комплекте с компонетом есть демка, я сейчас бегло просмотрел - так там вполне можно разобраться, в том числе как получить имя файла по клику или передвижении курсора - вот кусок кода из примера, по-моему, понятно:

Код

procedure TForm1.RightClick(Sender: TObject; Parameters: TRightClickParameters);
var
  Pt: TPoint;
  S, Dest: string;
  I: integer;
  HintWindow: THintWindow;
  ARect: TRect;
begin
with Parameters do
  begin
  FoundObject := Image;
  ViewImage.Enabled := (FoundObject <> Nil) and (FoundObject.Bitmap <> Nil);
  CopyImageToClipboard.Enabled := 
(FoundObject <> Nil) and (FoundObject.Bitmap <> Nil);

  if URL <> '' then
    begin
    S := URL;
    I := Pos('#', S);
    if I >= 1 then
      begin
      Dest := System.Copy(S, I, 255);  {local destination}
      S := System.Copy(S, 1, I-1);     {the file name}
      end
    else
      Dest := '';    {no local destination}
    if S = '' then S := Viewer.CurrentFile
      else S := Viewer.HTMLExpandFileName(S);
    NewWindowFile := S+Dest;
    OpenInNewWindow.Enabled := FileExists(S);
    end
  else OpenInNewWindow.Enabled := False;

  GetCursorPos(Pt);
  if Length(CLickWord) > 0 then
    begin
    HintWindow := THintWindow.Create(Self);
    try
      ARect := Rect(0,0,0,0);
      DrawText(HintWindow.Canvas.Handle, @ClickWord[1], Length(ClickWord), ARect, DT_CALCRECT);
      with ARect do
        HintWindow.ActivateHint(Rect(Pt.X+20, Pt.Y-(Bottom-Top)-15, Pt.x+30+Right, Pt.Y-15), ClickWord);
      PopupMenu.Popup(Pt.X, Pt.Y);
    finally
      HintWindow.Free;
      end;
    end
  else PopupMenu.Popup(Pt.X, Pt.Y);
  end;
end;



Также в комплекте есть файл LiteSubs.pas, там как раз и описаны все объекты.
На всякий случай прикрепляю демку smile

Это сообщение отредактировал(а) ДЫМ - 29.3.2005, 01:56

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  DemoSource.zip
PM MAIL WWW   Вверх
Budy
Дата 29.3.2005, 05:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2
Ну ок, я все посмотрел и нашел то, что мне было нужно:
Код

uses .....LiteSubs;
procedure TForm1.htmlLite1ImageOver(Sender, Obj: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  src=TImageObj(Obj).Src;
  alt=TImageObj(Obj).Alt;
end;

И остальные данные о картинке можно получить здесь же.


--------------------
Как ты назовешь свой корабль, так на нем и напишут
user posted image
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0586 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.