procedure SameBoardThreadSubItemOnClick(Sender: TObject);
//! \83|\83b\83v\83A\83b\83v\83u\83\89\83E\83U\8dì\90¬
procedure CreateResPopupBrowser;
- //! D&D\82ð\8eó\82¯\8eæ\82é
- procedure WMDropFiles(var Msg: TWMDropFiles); Message WM_DropFiles;
//! \83t\83@\83C\83\8b\83`\83F\83b\83N
function isValidFile(FileName: String) : boolean;
+ //! ListView\82ÌD&D\8eó\82¯\8eæ\82è
+ procedure AcceptDropFiles(var Msg: TMsg);
protected
procedure CreateParams(var Params: TCreateParams); override;
procedure WndProc(var Message: TMessage); override;
procedure WMSetCursor(var Message: TWMSetCursor); message WM_SETCURSOR;
procedure WMSettingChange(var Message: TWMWinIniChange); message WM_SETTINGCHANGE;
procedure WMCopyData(var Message: TWMCopyData); message WM_COPYDATA;
-
public
{ Public \90é\8c¾ }
LastRoundTime: TDateTime;
ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait;
// D&D\82ð\8eó\82¯\8eæ\82é
- DragAcceptFiles(Self.Handle, True);
+ DragAcceptFiles(ListView.Handle, True);
// \8f\89\8aú\89»\82É\8e¸\94s\82µ\82½\83\82\83W\83\85\81[\83\8b\83`\83F\83b\83N
if (FavoriteDM.AbEnd) then begin
end;
end;
end;
- end;
+ end else begin
+ // Explorer\82ÌD&D\82ð\8eó\82¯\82é\82Æ\82Ì\94ñ\83A\83N\83e\83B\83u
+ if Msg.message = WM_DROPFILES then begin
+ AcceptDropFiles(Msg);
+ Handled := True;
+ end;
+ end;
end;
// *************************************************************************
//! \83A\83v\83\8a\83P\81[\83V\83\87\83\93\82ª\83A\83N\83e\83B\83u\82Å\82È\82\82È\82Á\82½\82Æ\82«\82Ì\83C\83x\83\93\83g
FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel);
end;
end;
-//! \8aO\82©\82ç\82ÌD&D\8f\88\97\9d
-procedure TGikoForm.WMDropFiles(var Msg: TWMDropFiles);
+//! ListView\82ÌD&D\8eó\82¯\8eæ\82è
+procedure TGikoForm.AcceptDropFiles(var Msg: TMsg);
var
FileName: Array[0..MAX_PATH] of Char;
Cnt, K: Integer;
Board: TBoard;
LogFolder: String;
datList: TStringList;
+ p: TPoint;
begin
// \95\\8e¦\82µ\82Ä\82¢\82é\82Ì\94Â\82Ì\82Æ\82«\88È\8aO\82Í\8b\91\94Û
if GetActiveList is TBoard then begin
// \94Â\82Ì\8e\9e\82Í\81A\83\8d\83O\83t\83H\83\8b\83_\82É\83R\83s\81[\82µ\82Ä\82Í\82®\82ê\83\8d\83O\91Î\89\9e\82Æ\93¯\82¶\8f\88\97\9d\81H
datList := TStringList.Create;
try
- Cnt := DragQueryFile(Msg.Drop, $FFFFFFFF, FileName, SizeOf(FileName));
+ Cnt := DragQueryFile(Msg.WParam, $FFFFFFFF, FileName, SizeOf(FileName));
for K := 0 to Cnt - 1 do begin
- DragQueryFile(Msg.Drop, K, FileName, SizeOf(FileName));
- {FileName\82Édrop\82³\82ê\82½\83t\83@\83C\83\8b\96¼\82ª\93ü\82Á\82Ä\82¢\82é\82Ì\82Å\81A\82±\82±\82Å\89½\82ç\82©\82Ì\8f\88\97\9d\82ð\82·\82é\81B\82½\82Æ\82¦\82Î\8e\9f\82Ì\8ds}
+ DragQueryFile(Msg.WParam, K, FileName, SizeOf(FileName));
+ // FileName\82Édrop\82³\82ê\82½\83t\83@\83C\83\8b\96¼\82ª\93ü\82Á\82Ä\82¢\82é\82Ì\82Å\81A\82±\82±\82Å\89½\82ç\82©\82Ì\8f\88\97\9d\82ð\82·\82é\81B\82½\82Æ\82¦\82Î\8e\9f\82Ì\8ds
// \83t\83@\83C\83\8b\82Ì\83`\83F\83b\83N
if (isValidFile(FileName)) then begin
LogFolder := ExtractFilePath(Board.FilePath);
end;
end;
end;
- DragFinish(Msg.Drop);
+ DragFinish(Msg.WParam);
if (datList.Count > 0) then begin
GikoSys.AddOutofIndexDat(Board, datList, False);
ShowMessage(IntToStr(datList.Count) + '\8cÂ\82Ìdat\83t\83@\83C\83\8b\82ª\83R\83s\81[\82³\82ê\82Ü\82µ\82½\81B' );
ShowMessage('\94Â\82ð\95\\8e¦\82µ\82Ä\82\82¾\82³\82¢\81B');
end;
end;
+
//! \83t\83@\83C\83\8b\83`\83F\83b\83N
function TGikoForm.isValidFile(FileName: String) : boolean;
var
OSDN Git Service
