| 22 |
HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil, |
HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil, |
| 23 |
IndividualAbon, Search, ExternalBoardManager, ExternalBoardPlugInMain, |
IndividualAbon, Search, ExternalBoardManager, ExternalBoardPlugInMain, |
| 24 |
StdActns, GikoXMLDoc, Variants, ExtActns,IdTCPConnection, IdBaseComponent, |
StdActns, GikoXMLDoc, Variants, ExtActns,IdTCPConnection, IdBaseComponent, |
| 25 |
IdTCPClient; |
IdTCPClient, Gesture; |
| 26 |
|
|
| 27 |
type |
type |
| 28 |
TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite); |
TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite); |
| 1096 |
procedure ListColumnPopupMenuOnClick( Sender : TObject ); |
procedure ListColumnPopupMenuOnClick( Sender : TObject ); |
| 1097 |
// BrowserRecordについているFBrowserを外す |
// BrowserRecordについているFBrowserを外す |
| 1098 |
procedure ReleaseBrowser( BRecord: TBrowserRecord); |
procedure ReleaseBrowser( BRecord: TBrowserRecord); |
| 1099 |
|
//! マウスジェスチャー開始 |
| 1100 |
|
procedure OnGestureStart(Sender: TObject); |
| 1101 |
|
//! マウスジェスチャー中 |
| 1102 |
|
procedure OnGestureMove(Sender: TObject); |
| 1103 |
|
//! マウスジェスチャー終了 |
| 1104 |
|
procedure OnGestureEnd(Sender: TObject); |
| 1105 |
protected |
protected |
| 1106 |
procedure CreateParams(var Params: TCreateParams); override; |
procedure CreateParams(var Params: TCreateParams); override; |
| 1107 |
procedure WndProc(var Message: TMessage); override; |
procedure WndProc(var Message: TMessage); override; |
| 1715 |
//Samba24のファイルチェック |
//Samba24のファイルチェック |
| 1716 |
GikoSys.SambaFileExists(); |
GikoSys.SambaFileExists(); |
| 1717 |
|
|
| 1718 |
//にちゃん語ファイル読み出し |
//にちゃん語ファイル読み出し |
| 1719 |
|
|
| 1720 |
|
// マウスジェスチャー |
| 1721 |
|
MouseGesture := TMouseGesture.Create; |
| 1722 |
|
GikoSys.Setting.Gestures.LoadGesture( |
| 1723 |
|
GikoSys.Setting.GetGestureFileName, ActionList ); |
| 1724 |
|
MouseGesture.Margin := GikoSys.Setting.Gestures.Margin; |
| 1725 |
|
MouseGesture.OnGestureStart := OnGestureStart; |
| 1726 |
|
MouseGesture.OnGestureMove := OnGestureMove; |
| 1727 |
|
MouseGesture.OnGestureEnd := OnGestureEnd; |
| 1728 |
|
MouseGesture.SetHook( Handle ) |
| 1729 |
end; |
end; |
| 1730 |
|
|
| 1731 |
// CoolBar の設定を変数に保存 |
// CoolBar の設定を変数に保存 |
| 1927 |
begin |
begin |
| 1928 |
// Application.OnDeactivate := nil; |
// Application.OnDeactivate := nil; |
| 1929 |
// Self.OnDeactivate := nil; |
// Self.OnDeactivate := nil; |
| 1930 |
|
// マウスジェスチャー保存 |
| 1931 |
|
try |
| 1932 |
|
MouseGesture.UnHook; |
| 1933 |
|
GikoSys.Setting.Gestures.SaveGesture( GikoSys.Setting.GetGestureFileName ); |
| 1934 |
|
except |
| 1935 |
|
end; |
| 1936 |
try |
try |
| 1937 |
ActiveListColumnSave; |
ActiveListColumnSave; |
| 1938 |
except |
except |
| 6955 |
GikoSys.SaveEditorKeySetting(Dlg.EditorForm.ActionList); |
GikoSys.SaveEditorKeySetting(Dlg.EditorForm.ActionList); |
| 6956 |
finally |
finally |
| 6957 |
Dlg.Release; |
Dlg.Release; |
| 6958 |
|
MouseGesture.OnGestureStart := OnGestureStart; |
| 6959 |
|
MouseGesture.OnGestureMove := OnGestureMove; |
| 6960 |
|
MouseGesture.OnGestureEnd := OnGestureEnd; |
| 6961 |
|
MouseGesture.SetHook( Handle ); |
| 6962 |
end; |
end; |
| 6963 |
end; |
end; |
| 6964 |
|
|
| 11795 |
end; |
end; |
| 11796 |
end; |
end; |
| 11797 |
|
|
| 11798 |
|
procedure TGikoForm.OnGestureStart(Sender: TObject); |
| 11799 |
|
begin |
| 11800 |
|
// |
| 11801 |
|
end; |
| 11802 |
|
|
| 11803 |
|
procedure TGikoForm.OnGestureMove(Sender: TObject); |
| 11804 |
|
var |
| 11805 |
|
s: string; |
| 11806 |
|
Action: TAction; |
| 11807 |
|
ActStr: string; |
| 11808 |
|
begin |
| 11809 |
|
s := MouseGesture.GetGestureStr; |
| 11810 |
|
ActStr := ''; |
| 11811 |
|
Action := GikoSys.Setting.Gestures.GetGestureAction(s); |
| 11812 |
|
if Action <> nil then |
| 11813 |
|
ActStr := '(' + Action.Caption + ')'; |
| 11814 |
|
s := 'ジェスチャー: ' + s + ActStr; |
| 11815 |
|
StatusBar.Panels[1].Text := s; |
| 11816 |
|
end; |
| 11817 |
|
|
| 11818 |
|
procedure TGikoForm.OnGestureEnd(Sender: TObject); |
| 11819 |
|
var |
| 11820 |
|
s: string; |
| 11821 |
|
Action: TAction; |
| 11822 |
|
begin |
| 11823 |
|
s := MouseGesture.GetGestureStr; |
| 11824 |
|
Action := GikoSys.Setting.Gestures.GetGestureAction(s); |
| 11825 |
|
if Action <> nil then |
| 11826 |
|
Action.Execute; |
| 11827 |
|
StatusBar.Panels[1].Text := ''; |
| 11828 |
|
end; |
| 11829 |
|
|
| 11830 |
initialization |
initialization |
| 11831 |
OleInitialize(nil); |
OleInitialize(nil); |
| 11832 |
finalization |
finalization |