Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ResPopupBrowser.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.8 by eggcake, Sun Apr 13 04:20:24 2008 UTC revision 1.9 by eggcake, Mon Aug 11 10:35:29 2008 UTC
# Line 66  begin Line 66  begin
66      RawDocument := '';      RawDocument := '';
67      FEvent := nil;      FEvent := nil;
68      ShowWindow(Self.Handle, SW_HIDE);      ShowWindow(Self.Handle, SW_HIDE);
69        GikoSys.ShowRefCount('ResPop Create', Self.ControlInterface);
70        GikoSys.ShowRefCount('ResPop.Document Create', Self.ControlInterface.Document);
71  end;  end;
72    
73  destructor TResPopupBrowser.Destroy;  destructor TResPopupBrowser.Destroy;
# Line 84  begin Line 86  begin
86          FEvent := nil;          FEvent := nil;
87      end;      end;
88      FThread := nil;      FThread := nil;
89    
90        GikoSys.ShowRefCount('ResPop Desctroy', Self.ControlInterface);
91        GikoSys.ShowRefCount('ResPop.Document Create', Self.ControlInterface.Document);
92    
93          inherited Destroy;          inherited Destroy;
94  end;  end;
95    
# Line 136  begin Line 142  begin
142  end;  end;
143  procedure TResPopupBrowser.NavigateBlank(Forced: Boolean);  procedure TResPopupBrowser.NavigateBlank(Forced: Boolean);
144  begin  begin
145      if (not Assigned(Self.Document)) or (Forced) then begin      if (not Assigned(Self.ControlInterface.Document)) or (Forced) then begin
146          Self.Navigate('about:blank');          Self.Navigate('about:blank');
147      end;      end;
148      while (Self.ReadyState <> READYSTATE_COMPLETE) and      while (Self.ReadyState <> READYSTATE_COMPLETE) and
# Line 192  begin Line 198  begin
198          ARect := CalcRect(Screen.MonitorFromPoint(p).WorkareaRect,          ARect := CalcRect(Screen.MonitorFromPoint(p).WorkareaRect,
199                          not OnlyTitle);                          not OnlyTitle);
200    
201          FEvent := THTMLDocumentEventSink.Create(Self, Self.Document, HTMLDocumentEvents2);          FEvent := THTMLDocumentEventSink.Create(Self, Self.OleObject.Document, HTMLDocumentEvents2);
202          FEvent.OnClick := ResPopupBrowserClick;          FEvent.OnClick := ResPopupBrowserClick;
203          FEvent.OnDoubleClick := ResPopupBrowserDbClick;          FEvent.OnDoubleClick := ResPopupBrowserDbClick;
204          Self.Visible := True;          Self.Visible := True;
# Line 272  var Line 278  var
278      DIV_X, DIV_Y: Integer;      DIV_X, DIV_Y: Integer;
279  begin  begin
280          GetCursorpos(p);          GetCursorpos(p);
281      ele := ((Self.Document as IHTMLDocument2).body as IHTMLElement2);      ele := ((Self.ControlInterface.Document as IHTMLDocument2).body as IHTMLElement2);
282      if Scroll then begin      if Scroll then begin
283          h := GetWindowHeight + 10;          h := GetWindowHeight + 10;
284          w := ele.scrollWidth + 25          w := ele.scrollWidth + 25

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26