Dragdrop Yaparken Dialog Açılabilirmi?

[nightmare3519]

Benim bu dragdropla bir sorunum vardı

kodlar bu şekilde

Buradaki kodu
[spoiler][code]function CopyCallback (Source,Destination,Copied,Total)
Progress.SetCurrentPos("Progress1", (Copied / Total) * 100);
Label.SetText("Label1", String.SplitPath(Destination).Filename..""..String.SplitPath(Destination).Extension)
Label.SetText("Label3", String.GetFormattedSize(Copied, FMTSIZE_MB, true))
Label.SetText("Label4", String.GetFormattedSize(Total, FMTSIZE_MB, true))
yuzde = Math.Floor((Copied / Total) * 100);
Progress.SetText("Progress1", "%"..yuzde.."");
end
File.Copy("AutoPlay\\Docs\\AIDA 64.EXE", _DesktopFolder, true, true, false, true, CopyCallback);
error = Application.GetLastError();
if error ~= 0 then
Dialog.Message("Hata!", "Kopyalanma sırasında bir hata oluştu!", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
end[/code][/spoiler]

Buradakiyle Dialog açtırarak yaptırmasını istiyorum


[spoiler][code]DragAndDrop.SetDataFormat(DataFormat.FileDrop);
DragAndDrop.Start(Application.GetWndHandle());
nFile = DragAndDrop.GetDataObject();

for i,v in pairs(nFile) do
if String.SplitPath(v).Extension == ".exe" then
File.Copy(v, _SourceFolder.."\\AutoPlay\\Docs\\Programlar", true, true, false, true, CopyCallback);
sys.init();
end
end
[/code][/spoiler]

[pairs]

Dialog açtırarak derken anlamadım oluşturdugun fonksiyonu drag droptamı kullanmak istiyorsun.

[nightmare3519]

[quote name='pairs' date='23 May 2012 - 10:43 ' timestamp='1337759038' post='1204034']
Dialog açtırarak derken anlamadım oluşturdugun fonksiyonu drag droptamı kullanmak istiyorsun.
[/quote]

Evet abi ben denedim ama fareyi hareket ettirince dialog açıldı

[pairs]

Dragdrop plugini proje üzerine bir nesne bırakınca çalışır sende sanırım proje üzerine atılan dosyaları bir yere kopyalatacaksın.

[nightmare3519]

Şİmdi abi amaç şu;

Kullanıcı dosyayı tutup program üzerine getirecek

Dosya kopyalanması Dialog içinde gösterilecek (program adı boyutu vs. Bu kod fonksiyonda var)

İsteğim bu ama yapamadım ben sizden yardım istedim umarım yapabilirsiniz...

[pairs]

Tamamda bütün dosyaları aynı dizinemi kopyalayacak.

[pairs]

--####Global function###--
function CopyCallback (Source,Destination,Copied,Total)
Progress.SetCurrentPos("Progress1", (Copied / Total) * 100);
Label.SetText("Label1", String.SplitPath(Destination).Filename..""..String.SplitPath(Destination).Extension)
Label.SetText("Label3", String.GetFormattedSize(Copied, FMTSIZE_MB, true))
Label.SetText("Label4", String.GetFormattedSize(Total, FMTSIZE_MB, true))
yuzde = Math.Floor((Copied / Total) * 100);
Progress.SetText("Progress1", "%"..yuzde.."");
end
--#####################--



DragAndDrop.SetDataFormat(DataFormat.FileDrop);
DragAndDrop.Start(Application.GetWndHandle());
nFile = DragAndDrop.GetDataObject();

for i,v in pairs(nFile) do
if String.SplitPath(v).Extension == ".exe" then
File.Copy(v,_SourceFolder.."\\AutoPlay\\Docs\\Programlar", true, true, false, true, CopyCallback);
error = Application.GetLastError();
if error ~= 0 then
Dialog.Message("Hata!", "Kopyalanma sırasında bir hata oluştu!", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
end
sys.init();
end
end

[nightmare3519]

[quote name='pairs' date='23 May 2012 - 11:07 ' timestamp='1337760449' post='1204046']
--####Global function###--
function CopyCallback (Source,Destination,Copied,Total)
Progress.SetCurrentPos("Progress1", (Copied / Total) * 100);
Label.SetText("Label1", String.SplitPath(Destination).Filename..""..String.SplitPath(Destination).Extension)
Label.SetText("Label3", String.GetFormattedSize(Copied, FMTSIZE_MB, true))
Label.SetText("Label4", String.GetFormattedSize(Total, FMTSIZE_MB, true))
yuzde = Math.Floor((Copied / Total) * 100);
Progress.SetText("Progress1", "%"..yuzde.."");
end
--#####################--



DragAndDrop.SetDataFormat(DataFormat.FileDrop);
DragAndDrop.Start(Application.GetWndHandle());
nFile = DragAndDrop.GetDataObject();

for i,v in pairs(nFile) do
if String.SplitPath(v).Extension == ".exe" then
File.Copy(v,_SourceFolder.."\\AutoPlay\\Docs\\Programlar", true, true, false, true, CopyCallback);
error = Application.GetLastError();
if error ~= 0 then
Dialog.Message("Hata!", "Kopyalanma sırasında bir hata oluştu!", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
end
sys.init();
end
end

[quote name='pairs' date='23 May 2012 - 11:05 ' timestamp='1337760328' post='1204044']
Tamamda bütün dosyaları aynı dizinemi kopyalayacak.
[/quote]

Evet dosyaları _SourceFolder.."\\AutoPlay\\Docs\\Programlar" dizinine kopyalayacak
[/quote]

Abi teşekkür edrim fakat dialog açtırmayı nasıl yapıcaz?

Progress.SetCurrentPos("Progress1", (Copied / Total) * 100);
Label.SetText("Label1", String.SplitPath(Destination).Filename..""..String.SplitPath(Destination).Extension)
Label.SetText("Label3", String.GetFormattedSize(Copied, FMTSIZE_MB, true))
Label.SetText("Label4", String.GetFormattedSize(Total, FMTSIZE_MB, true))
yuzde = Math.Floor((Copied / Total) * 100);
Progress.SetText("Progress1", "%"..yuzde.."");

Bu koddaki objeler dialogda kopyalanırken bunların olmasını istiyorum mümkünmüdür?

Edited May 23, 2012 by nightmare3519

[pairs]

Onları dialogda gösteremezsin ama status dialog ile olabilir belki bir deneyip dönerim sana.

[nightmare3519]

Peki tamam abi

[pairs]

http://www.mediafire.com/download.php?2rsfu6ycocu42mv

al dostum istediğini yaptım dialog ta gösteriyor.

[HalilYanar]

Pairs saygısızlık etmek istemem ama link kırık.

"[color="#FF0000"]Invalid or Deleted File.[/color]"

[pairs]

Drag Drop Olayı ekledim pencere üstüne bırakınca çalışması için o yüzden eskisini sildim.

http://www.mediafire.com/download.php?r356oc3d05vpq5o