Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 1554 |
begin |
begin |
| 1555 |
// マウスジェスチャー開放 |
// マウスジェスチャー開放 |
| 1556 |
try |
try |
| 1557 |
|
MouseGesture.Clear; |
| 1558 |
MouseGesture.UnHook; |
MouseGesture.UnHook; |
| 1559 |
except |
except |
| 1560 |
end; |
end; |
| 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; |
| 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 |
|
|
| 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 |
| 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 |
|
|
|