Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.648 by h677, Sun Sep 2 10:50:22 2007 UTC revision 1.649 by h677, Sun Sep 9 07:11:58 2007 UTC
# Line 1554  var Line 1554  var
1554  begin  begin
1555          // マウスジェスチャー開放          // マウスジェスチャー開放
1556          try          try
1557            MouseGesture.Clear;
1558                  MouseGesture.UnHook;                  MouseGesture.UnHook;
1559          except          except
1560          end;          end;
# Line 1723  begin Line 1724  begin
1724                  if FEvent <> nil then                  if FEvent <> nil then
1725                          FEvent.Free;                          FEvent.Free;
1726    
         // TODO レスポップアップの破棄  
1727          try          try
1728              if FResPopupBrowser <> nil then  begin              if FResPopupBrowser <> nil then  begin
1729                  TOleControl(FResPopupBrowser).Parent := nil;                  TOleControl(FResPopupBrowser).Parent := nil;
# Line 1739  begin Line 1739  begin
1739                  end;                  end;
1740          except          except
1741          end;          end;
1742            try
1743            MouseGesture.Free;
1744            except
1745            end;
1746        try
1747            DeleteObject(MainCoolBar.Font.Handle);
1748        except
1749        end;
1750          LockWindowUpdate(0);          LockWindowUpdate(0);
1751  end;  end;
1752    
# Line 2236  var Line 2244  var
2244          ARect: TRect;          ARect: TRect;
2245  begin  begin
2246          DefaultDraw := True;          DefaultDraw := True;
2247    // なぜか無条件でExitしている
2248          Exit;          Exit;
2249          DefaultDraw := False;          DefaultDraw := False;
2250          if (cdsSelected in State) or (cdsHot in State) then begin          if (cdsSelected in State) or (cdsHot in State) then begin
# Line 4341  begin Line 4350  begin
4350          MenuToolBar.Buttons[0].AutoSize := True;          MenuToolBar.Buttons[0].AutoSize := True;
4351          MainCoolBar.AutoSize := False;          MainCoolBar.AutoSize := False;
4352          MainCoolBar.AutoSize := True;          MainCoolBar.AutoSize := True;
   
4353          GikoSys.MenuFont(ListCoolBar.Font);          GikoSys.MenuFont(ListCoolBar.Font);
4354          GikoSys.MenuFont(BrowserCoolBar.Font);          GikoSys.MenuFont(BrowserCoolBar.Font);
4355  //      MenuToolBar.Font.Color := clMenuText;  //      MenuToolBar.Font.Color := clMenuText;

Legend:
Removed from v.1.648  
changed lines
  Added in v.1.649

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