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.653 by h677, Mon Oct 1 16:04:39 2007 UTC revision 1.654 by h677, Sat Oct 6 05:27:27 2007 UTC
# Line 692  type Line 692  type
692          procedure SameBoardThreadSubItemOnClick(Sender: TObject);          procedure SameBoardThreadSubItemOnClick(Sender: TObject);
693          //! ポップアップブラウザ作成          //! ポップアップブラウザ作成
694          procedure CreateResPopupBrowser;          procedure CreateResPopupBrowser;
         //! D&Dを受け取る  
         procedure WMDropFiles(var Msg: TWMDropFiles); Message WM_DropFiles;  
695          //! ファイルチェック          //! ファイルチェック
696          function isValidFile(FileName: String) : boolean;          function isValidFile(FileName: String) : boolean;
697            //! ListViewのD&D受け取り
698            procedure AcceptDropFiles(var Msg: TMsg);
699          protected          protected
700                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
701                  procedure WndProc(var Message: TMessage); override;                  procedure WndProc(var Message: TMessage); override;
702                  procedure WMSetCursor(var Message: TWMSetCursor); message WM_SETCURSOR;                  procedure WMSetCursor(var Message: TWMSetCursor); message WM_SETCURSOR;
703                  procedure WMSettingChange(var Message: TWMWinIniChange); message WM_SETTINGCHANGE;                  procedure WMSettingChange(var Message: TWMWinIniChange); message WM_SETTINGCHANGE;
704                  procedure WMCopyData(var Message: TWMCopyData); message WM_COPYDATA;                  procedure WMCopyData(var Message: TWMCopyData); message WM_COPYDATA;
   
705          public          public
706                  { Public 宣言 }                  { Public 宣言 }
707                  LastRoundTime: TDateTime;                  LastRoundTime: TDateTime;
# Line 1329  begin Line 1328  begin
1328      ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait;      ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait;
1329    
1330      // D&Dを受け取る      // D&Dを受け取る
1331      DragAcceptFiles(Self.Handle, True);      DragAcceptFiles(ListView.Handle, True);
1332    
1333      // 初期化に失敗したモジュールチェック      // 初期化に失敗したモジュールチェック
1334      if (FavoriteDM.AbEnd) then begin      if (FavoriteDM.AbEnd) then begin
# Line 7402  begin Line 7401  begin
7401                                  end;                                  end;
7402                          end;                          end;
7403                  end;                  end;
7404          end;          end else begin
7405            // ExplorerのD&Dを受けるとの非アクティブ
7406            if Msg.message = WM_DROPFILES then begin
7407                AcceptDropFiles(Msg);
7408                Handled := True;
7409            end;
7410        end;
7411  end;  end;
7412  // *************************************************************************  // *************************************************************************
7413  //! アプリケーションがアクティブでなくなったときのイベント  //! アプリケーションがアクティブでなくなったときのイベント
# Line 7723  begin Line 7728  begin
7728          FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel);          FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel);
7729      end;      end;
7730  end;  end;
7731  //! 外からのD&D処理  //! ListViewのD&D受け取り
7732  procedure TGikoForm.WMDropFiles(var Msg: TWMDropFiles);  procedure TGikoForm.AcceptDropFiles(var Msg: TMsg);
7733  var  var
7734      FileName: Array[0..MAX_PATH] of Char;      FileName: Array[0..MAX_PATH] of Char;
7735      Cnt, K: Integer;      Cnt, K: Integer;
7736      Board: TBoard;      Board: TBoard;
7737      LogFolder: String;      LogFolder: String;
7738      datList: TStringList;      datList: TStringList;
7739        p: TPoint;
7740  begin  begin
7741      // 表示しているの板のとき以外は拒否      // 表示しているの板のとき以外は拒否
7742      if GetActiveList is TBoard then begin      if GetActiveList is TBoard then begin
# Line 7740  begin Line 7746  begin
7746              // 板の時は、ログフォルダにコピーしてはぐれログ対応と同じ処理?              // 板の時は、ログフォルダにコピーしてはぐれログ対応と同じ処理?
7747              datList := TStringList.Create;              datList := TStringList.Create;
7748              try              try
7749                  Cnt := DragQueryFile(Msg.Drop, $FFFFFFFF, FileName, SizeOf(FileName));                  Cnt := DragQueryFile(Msg.WParam, $FFFFFFFF, FileName, SizeOf(FileName));
7750                  for K := 0 to Cnt - 1 do begin                  for K := 0 to Cnt - 1 do begin
7751                      DragQueryFile(Msg.Drop, K, FileName, SizeOf(FileName));                      DragQueryFile(Msg.WParam, K, FileName, SizeOf(FileName));
7752                      {FileNameにdropされたファイル名が入っているので、ここで何らかの処理をする。たとえば次の行}                      // FileNameにdropされたファイル名が入っているので、ここで何らかの処理をする。たとえば次の行
7753                      // ファイルのチェック                      // ファイルのチェック
7754                      if (isValidFile(FileName)) then begin                      if (isValidFile(FileName)) then begin
7755                          LogFolder := ExtractFilePath(Board.FilePath);                          LogFolder := ExtractFilePath(Board.FilePath);
# Line 7763  begin Line 7769  begin
7769                          end;                          end;
7770                      end;                      end;
7771                  end;                  end;
7772                  DragFinish(Msg.Drop);                  DragFinish(Msg.WParam);
7773                  if (datList.Count > 0) then begin                  if (datList.Count > 0) then begin
7774                      GikoSys.AddOutofIndexDat(Board, datList, False);                      GikoSys.AddOutofIndexDat(Board, datList, False);
7775                      ShowMessage(IntToStr(datList.Count) + '個のdatファイルがコピーされました。' );                      ShowMessage(IntToStr(datList.Count) + '個のdatファイルがコピーされました。' );
# Line 7783  begin Line 7789  begin
7789          ShowMessage('板を表示してください。');          ShowMessage('板を表示してください。');
7790      end;      end;
7791  end;  end;
7792    
7793  //! ファイルチェック  //! ファイルチェック
7794  function TGikoForm.isValidFile(FileName: String) : boolean;  function TGikoForm.isValidFile(FileName: String) : boolean;
7795  var  var

Legend:
Removed from v.1.653  
changed lines
  Added in v.1.654

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