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.1.2.11 by h677, Fri May 18 22:43:35 2007 UTC revision 1.1.2.12 by h677, Sat May 19 05:06:06 2007 UTC
# Line 70  end; Line 70  end;
70    
71  destructor TResPopupBrowser.Destroy;  destructor TResPopupBrowser.Destroy;
72  begin  begin
73        Self.Blur;
74      Self.OnEnter := nil;      Self.OnEnter := nil;
75      Self.OnBeforeNavigate2 := nil;      Self.OnBeforeNavigate2 := nil;
76      Self.OnStatusTextChange := nil;      Self.OnStatusTextChange := nil;
# Line 102  begin Line 103  begin
103                  Result := FChild;                  Result := FChild;
104              end;              end;
105          end else begin          end else begin
106              FChild := TResPopupBrowser.Create(Self);              FChild := TResPopupBrowser.Create(Self.Owner);
107              FChild.ParentBrowser := Self;              FChild.ParentBrowser := Self;
108              FChild.NavigateBlank(False);              FChild.NavigateBlank(False);
109              FChild.OnEnter := GikoForm.BrowserEnter;              FChild.OnEnter := GikoForm.BrowserEnter;
# Line 175  begin Line 176  begin
176          doc.Write('<html><head>'#13#10 +          doc.Write('<html><head>'#13#10 +
177                  '<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">'#13#10 +                  '<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">'#13#10 +
178                  '<meta http-equiv="Pragma" content="no-cache">'#13#10 +                  '<meta http-equiv="Pragma" content="no-cache">'#13#10 +
179                  '<meta http-equiv="Cache-Control" content="no-cache">'#13#10                  '<meta http-equiv="Cache-Control" content="no-cache">'#13#10 +
180                  + GetBodyStyle(OnlyTitle) + '</head><body>'                  GetBodyStyle(OnlyTitle) + '</head><body>'
181                  + GetTitle(OnlyTitle)                  + GetTitle(OnlyTitle)
182                  + ADocument + '<a name="bottom"></a></body></html>');                  + ADocument + '<a name="bottom"></a></body></html>');
183    
# Line 237  begin Line 238  begin
238  end;  end;
239    
240  procedure TResPopupBrowser.Clear;  procedure TResPopupBrowser.Clear;
 var  
     rect: TRect;  
241  begin  begin
242      ChildClear;      ChildClear;
243      if (Self.Visible) then begin      if (Self.Visible) then begin
# Line 358  begin Line 357  begin
357  end;  end;
358  procedure TResPopupBrowser.Blur;  procedure TResPopupBrowser.Blur;
359  var  var
360      rect: TRect;      FOleInPlaceActiveObject: IOleInPlaceActiveObject;
361  begin  begin
362      if ((Self.Document as IHTMLDocument2).activeElement <> nil) then begin      FOleInPlaceActiveObject := Self.ControlInterface as IOleInPlaceActiveObject;
363          // フォーカス外し      FOleInPlaceActiveObject.OnFrameWindowActivate(False);
         Windows.GetClientRect(Self.Handle, rect);  
         if (Self.ParentBrowser <> nil) then begin  
             (Self.Application as IOleObject).DoVerb(OLEIVERB_DISCARDUNDOSTATE, (* iVerb *)  
                                            nil,                 (* lpMsg *)  
                                            Self,             (* pActiveSite *)  
                                            0,                   (* lindex - reserved *)  
                                            Self.ParentBrowser.Handle,      (* hwndParent *)  
                                            rect);               (* display rectangle *)  
             Self.ParentBrowser.Blur;  
         end else begin  
             (Self.Application as IOleObject).DoVerb(OLEIVERB_DISCARDUNDOSTATE, (* iVerb *)  
                                            nil,                 (* lpMsg *)  
                                            Self,             (* pActiveSite *)  
                                            0,                   (* lindex - reserved *)  
                                            GikoForm.ActiveContent.Browser.Handle,      (* hwndParent *)  
                                            rect);               (* display rectangle *)  
         end;  
     end;  
364  end;  end;
365    
366  initialization  initialization

Legend:
Removed from v.1.1.2.11  
changed lines
  Added in v.1.1.2.12

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