| 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; |
| 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 |
| 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 |
//! アプリケーションがアクティブでなくなったときのイベント |
//! アプリケーションがアクティブでなくなったときのイベント |
| 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 |
| 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); |
| 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ファイルがコピーされました。' ); |
| 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 |