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.455 by yoffy, Sat Oct 9 15:07:20 2004 UTC revision 1.456 by yoffy, Mon Oct 11 14:38:58 2004 UTC
# Line 22  uses Line 22  uses
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);
# Line 1096  type Line 1096  type
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;
# Line 1709  begin Line 1715  begin
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 の設定を変数に保存
# Line 1911  var Line 1927  var
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
# Line 6933  begin Line 6955  begin
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    
# Line 11769  begin Line 11795  begin
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

Legend:
Removed from v.1.455  
changed lines
  Added in v.1.456

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