radyofon Posted June 5, 2011 Share Posted June 5, 2011 Şöyle bir Dialog.Message' da açılan pencerenin rengini ve içindeki yazıların fontlarını nasıl değiştirebiliriz. 1-2 örnek verebilir misiniz? [xml] Dialog.TimedMessage("Radyofon tarafından hazırlanmıştır", "e-imza Kurulumuna Hoşgeldiniz!.....\r\nDesteklediği Kart Okuyucular : Gemalto - ACS\r\n\r\nDesteklediği SIM kart Version\' u: AKİS v1.0 - v1.2. veya v1.2.1", 10000, MB_ICONINFORMATION) [/xml] Quote Link to comment Share on other sites More sharing options...
korasoglu Posted June 5, 2011 Share Posted June 5, 2011 buyrun şunu bir deneyin ---------------------- hWnd = Application.GetWndHandle() sTitle = "Korasoglu" sMsg = "Selam" sCheckText = "NONE" Buttons = "OK" Icon = "ICON_EXCLAMATION" Icon_File = "" Font_Size = "12" Font_Bold = "YES" nBG_Color = 7628121 nText_Color = 255785 Style = "TOOL" HideTitleBar = "NO" sWidth = 300 sHeight = 100 result = DLL.CallFunction("AutoPlay\\Docs\\xDialog_Message.dll", "Show_Msg", "\""..sTitle.."\",\""..sMsg.."\",\""..sCheckText.."\",\""..Buttons.."\",\""..Icon.."\",\""..Icon_File.."\",\""..Font_Size.."\",\""..Font_Bold.."\",\""..nBG_Color.."\",\""..nText_Color.."\",\""..Style.."\",\""..HideTitleBar.."\",\""..sWidth.."\",\""..sHeight.."\",\""..hWnd.."\"", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL) nPos = String.Find(result, "|", 1, false) if nPos == -1 then Button = result Label.SetText("Label1", "The "..Button.." button was clicked") else Button = String.Left(result, nPos-1) Checked = String.Mid(result, nPos+1, 20) if Checked == "CHECKED" then sText = "The "..Button.." button was clicked and the check box was checked" else sText = "The "..Button.." button was clicked and the check box was not checked" end Label.SetText("Label1", sText) end ------------ Docs klasörüne at http://www.dosya.tc/upload/OiVbZO/xDialog_Message.rar.html Quote Link to comment Share on other sites More sharing options...
radyofon Posted June 5, 2011 Author Share Posted June 5, 2011 dosyayı dediğin yere attım fakat result = DLL.Call ile başlayan satırda hata veriyor. Quote Link to comment Share on other sites More sharing options...
radyofon Posted June 13, 2011 Author Share Posted June 13, 2011 Bu işin daha kolay bir yolu yok mu? Dialog.Message penceresini AMS' nin istediği gibi mi kullanmak zorundayız. Arkaplan olarak filan herşeyi yapabilirken Dialog.Message penceresinin sabit olması, menülerde bununla ilgili birşey olmaması biraz garip geldi bana. Quote Link to comment Share on other sites More sharing options...
KintaRo Posted June 13, 2011 Share Posted June 13, 2011 Dialog mesajları özelleştirebilmeniz için küçük bir çalışma hazırladım. [img]http://i.imgur.com/vdf9n.png[/img] [img]http://i.imgur.com/XQ4Dm.png[/img] [img]http://i.imgur.com/Tx9Rv.png[/img] Kullanımı şu şekilde: mesajVer("Dialog Başlığı", "Mesaj", "Bilgi Tipi") 3 çeşit uyarı tipi hazırladım bunlar: "bilgi" "uyarı" "hata" Tiplerin çeşidine göre uyarı resimleride değişiyor, projeye bakarsanız görürsünüz zaten. Tamam ve İptal tuşlarının dönüşleride şu şekilde: Eğer Tamam tuşuna basılırsa sonuc değişkenine "tamam" değeri depolanır, iptal tuşuna basılırsa sonuc değişkenine "iptal" değeri depolanır. Yani Tamam tuşuna basıldığını kontrol etmek için [quote]if sonuc == "tamam" then -- tamam tuşuna basılınca çalışacak kodlar" end[/quote] [code]http://www.mediafire.com/?ajeo45eqaobc744[/code] Quote Link to comment Share on other sites More sharing options...
radyofon Posted June 13, 2011 Author Share Posted June 13, 2011 Güzelmiş üstadım. Ama ben biraz daha fazlasını isitiyorum. Shell (kabuk) kısmında birkaç tane var ama ben title kısmının fontunu, rengini, yazı rengini, mesaj kısmında da aynı şekilde ve senin yaptığın gibi icon tiplerini değiştirebilmek istiyorum. Hazır bir plugin yok mu acaba? Quote Link to comment Share on other sites More sharing options...
KintaRo Posted June 13, 2011 Share Posted June 13, 2011 var ama ücretli Quote Link to comment Share on other sites More sharing options...
KintaRo Posted June 13, 2011 Share Posted June 13, 2011 xDialog plugini vardı, yayından kaldırmışlar üzgünüm. Sen başlığı felanda değiştirmek istiyorum diyosun madem, benim verdiğim örnekteki DialogEx'in style'ini Flat yap ve kendi üst barını ve buttonlarını hatta başlığınıda yapabilirsin. Quote Link to comment Share on other sites More sharing options...
radyofon Posted June 14, 2011 Author Share Posted June 14, 2011 Üstadım baya iyi hazırladığın Dialog. Fakat şöyle bir sorunum var. Ben bunu kendi projemin içine nasıl yama yapacağım. Tek tek kodları kopyalayacak mıyım? Senin hazırladığın apz' yi program içinde ayrıca çağırtamam mı? Quote Link to comment Share on other sites More sharing options...
Sistemci Posted June 14, 2011 Share Posted June 14, 2011 Kardeşim KintaRo nun hazırladığı yeri resimdeki gibi kopyala masaüstüne kaydet [img]http://www.tnctr.com/uploads/imgs/pre_1308053128__1.jpg[/img] sonrasında elindeki projeye açıp alttaki işlemi yapman yeterli [img]http://www.tnctr.com/uploads/imgs/pre_1308053213__2.jpg[/img] Quote Link to comment Share on other sites More sharing options...
radyofon Posted June 14, 2011 Author Share Posted June 14, 2011 (edited) Üstadlar benim kodlar ne zamandan bu yana buralarda sürünüyor. Bir baksanız hata var mı? Daha da kısaltılabilir mi? Ne bileyim işte, table veya function' lar ile daha derli toplu olur mu? Gerekli kontrolleri eklemiş miyim? Bir bilen olarak baksanız bir fikir verseniz!... talha_252, KintaRo, spydevil üstadlar neredesiniz.... MostWanteddddddd [codebox] --- KURULUM AŞAMALARI --- --- Java 21 Kurulumu --- ---Java21 katılımsız yapılarak buraya kodları yazılacak if (Label.GetText("label.os", "Windows XP")) or (Label.GetText("label.os", "Windows Vista")) then Registry.SetValue(HKEY_LOCAL_MACHINE, "\\SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment", "Path", ";C:\Program Files\Java\jre6\bin", REG_SZ) --Burası hatalı. bu değeri mevcut değere eklemesi gerekir. else Registry.SetValue(HKEY_LOCAL_MACHINE, "\\SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment", "Path", ";C:\Program Files (x86)\Java\jre6\bin", REG_SZ) --Burası hatalı. bu değeri mevcut değere eklemesi gerekir. end --- Kart Okuyucu Seçimi --- okuyucuSelected = ComboBox.GetSelected("ComboBox1"); if okuyucuSelected ~= -1 then okuyucuCategory = ComboBox.GetItemText("ComboBox1", okuyucuSelected); end --- SIM Kart Seçimi --- simSelected = ComboBox.GetSelected("ComboBox2"); if simSelected ~= -1 then simCategory = ComboBox.GetItemText("ComboBox2", simSelected); end -----------------------Gemalto if (okuyucuCategory == "Gemalto") and (Label.GetText("label.bit","32 Bit İşletim Sistemi")) and (simCategory == "AKİS v1.0") then proceed = Dialog.Message("e-imza Kurulumu Aşağıda Seçtiğiniz Bilgilere Göre Başlıyor", "Akıllı Kart Okuyucu Tipi: "..okuyucuCategory.."\r\n\r\nSIM Kart Version: "..simCategory, MB_OKCANCEL, MB_ICONNONE); if proceed == IDOK then MSI.InstallProduct("AutoPlay\\Docs\\GemPcCCID_201_en-us_32.msi", ""); MSI.InstallProduct("AutoPlay\\Docs\\AKIS Yonetici (1.38).msi", ""); else DialogEx.Close(9999); end elseif (okuyucuCategory == "Gemalto") and (Label.GetText("label.bit","32 Bit İşletim Sistemi")) and (simCategory == "AKİS v1.2. veya v1.2.1") then proceed = Dialog.Message("e-imza Kurulumu Aşağıda Seçtiğiniz Bilgilere Göre Başlıyor", "Akıllı Kart Okuyucu Tipi: "..okuyucuCategory.."\r\n\r\nSIM Kart Version: "..simCategory, MB_OKCANCEL, MB_ICONNONE); if proceed == IDOK then MSI.InstallProduct("AutoPlay\\Docs\\GemPcCCID_201_en-us_32.msi", ""); MSI.InstallProduct("AutoPlay\\Docs\\AKIS Yonetici (1.41).msi", ""); else DialogEx.Close(9999); end elseif (okuyucuCategory == "Gemalto") and (Label.GetText("label.bit","64 Bit İşletim Sistemi")) and (simCategory == "AKİS v1.0") then proceed = Dialog.Message("e-imza Kurulumu Aşağıda Seçtiğiniz Bilgilere Göre Başlıyor", "Akıllı Kart Okuyucu Tipi: "..okuyucuCategory.."\r\n\r\nSIM Kart Version: "..simCategory, MB_OKCANCEL, MB_ICONNONE); if proceed == IDOK then MSI.InstallProduct("AutoPlay\\Docs\\GemPcCCID_201_en-us_64.msi", ""); MSI.InstallProduct("AutoPlay\\Docs\\AKIS Yonetici (1.38).msi", ""); else DialogEx.Close(9999); end elseif (okuyucuCategory == "Gemalto") and (Label.GetText("label.bit","64 Bit İşletim Sistemi")) and (simCategory == "AKİS v1.2. veya v1.2.1") then proceed = Dialog.Message("e-imza Kurulumu Aşağıda Seçtiğiniz Bilgilere Göre Başlıyor", "Akıllı Kart Okuyucu Tipi: "..okuyucuCategory.."\r\n\r\nSIM Kart Version: "..simCategory, MB_OKCANCEL, MB_ICONNONE); if proceed == IDOK then MSI.InstallProduct("AutoPlay\\Docs\\GemPcCCID_201_en-us_64.msi", ""); MSI.InstallProduct("AutoPlay\\Docs\\AKIS Yonetici (1.41).msi", ""); else DialogEx.Close(9999); end ------------------------ACS elseif (okuyucuCategory == "ACS") and (Label.GetText("label.bit","32 Bit İşletim Sistemi")) and (simCategory == "AKİS v1.0") then proceed = Dialog.Message("e-imza Kurulumu Aşağıda Seçtiğiniz Bilgilere Göre Başlıyor", "Akıllı Kart Okuyucu Tipi: "..okuyucuCategory.."\r\n\r\nSIM Kart Version: "..simCategory, MB_OKCANCEL, MB_ICONNONE); if proceed == IDOK then MSI.InstallProduct("AutoPlay\\Docs\\ACR38_100_122_PCSC_Driver_32.msi", ""); MSI.InstallProduct("AutoPlay\\Docs\\AKIS Yonetici (1.38).msi", ""); else DialogEx.Close(9999); end elseif (okuyucuCategory == "ACS") and (Label.GetText("label.bit","32 Bit İşletim Sistemi")) and (simCategory == "AKİS v1.2. veya v1.2.1") then proceed = Dialog.Message("e-imza Kurulumu Aşağıda Seçtiğiniz Bilgilere Göre Başlıyor", "Akıllı Kart Okuyucu Tipi: "..okuyucuCategory.."\r\n\r\nSIM Kart Version: "..simCategory, MB_OKCANCEL, MB_ICONNONE); if proceed == IDOK then MSI.InstallProduct("AutoPlay\\Docs\\ACR38_100_122_PCSC_Driver_32.msi", ""); MSI.InstallProduct("AutoPlay\\Docs\\AKIS Yonetici (1.41).msi", ""); else DialogEx.Close(9999); end elseif (okuyucuCategory == "ACS") and (Label.GetText("label.bit","64 Bit İşletim Sistemi")) and (simCategory == "AKİS v1.0") then proceed = Dialog.Message("e-imza Kurulumu Aşağıda Seçtiğiniz Bilgilere Göre Başlıyor", "Akıllı Kart Okuyucu Tipi: "..okuyucuCategory.."\r\n\r\nSIM Kart Version: "..simCategory, MB_OKCANCEL, MB_ICONNONE); if proceed == IDOK then MSI.InstallProduct("AutoPlay\\Docs\\ACR38_100_122_PCSC_Driver_64.msi", ""); MSI.InstallProduct("AutoPlay\\Docs\\AKIS Yonetici (1.38).msi", ""); else DialogEx.Close(9999); end elseif (okuyucuCategory == "ACS") and (Label.GetText("label.bit","64 Bit İşletim Sistemi")) and (simCategory == "AKİS v1.2. veya v1.2.1") then proceed = Dialog.Message("e-imza Kurulumu Aşağıda Seçtiğiniz Bilgilere Göre Başlıyor", "Akıllı Kart Okuyucu Tipi: "..okuyucuCategory.."\r\n\r\nSIM Kart Version: "..simCategory, MB_OKCANCEL, MB_ICONNONE); if proceed == IDOK then MSI.InstallProduct("AutoPlay\\Docs\\ACR38_100_122_PCSC_Driver_64.msi", ""); MSI.InstallProduct("AutoPlay\\Docs\\AKIS Yonetici (1.41).msi", ""); else DialogEx.Close(9999); end else Dialog.Message("Hata Algılandı", "!!!Akıllı Kart Okuyucu Tipini veya SIM Kart Version' unu seçmediniz!!!") end if ((ComboBox.GetSelected("ComboBox1")~= -1) and (ComboBox.GetSelected("ComboBox2")~= -1)) then --esyajni.dll ve diğer alt kurulumları --başlatabilmek için kontrol --(BU KONTROLDE HATA VAR) --(üstadlara sormak lazım. Combo' lar seçilmediyse alt adımlara geçmemeli) --- esyajni.dll --- Dialog.TimedMessage("esyajni kopyalama", "esyajni.dll ilgili yerlere kopyalanıyor.......", 5000, MB_ICONNONE) File.Copy("AutoPlay\\Docs\\esyajni.dll", _WindowsFolder, true, true, true, false) File.Copy("AutoPlay\\Docs\\esyajni.dll", _SystemFolder, true, true, true, false) --- 64 bit sysytem' de dosya kopyalama işlemleri --- bit = System.Is64BitOS() if bit then File.Copy("AutoPlay\\Docs\\esyajni.dll", "\\Windows\\SysWOW64\\", true, true, true, false); File.Copy("\\Windows\\SysWOW64\\akiscsp.dll", "\\Windows\\System32\\", true, true, true, false); File.Copy("\\Windows\\SysWOW64\\akiscsp.sig", "\\Windows\\System32\\", true, true, true, false); File.Copy("\\Windows\\SysWOW64\\akis11.dll", "\\Windows\\System32\\", true, true, true, false); end --- KISAYOL KOPYALAMA --- Shell.CreateShortcut(_DesktopFolderCommon, "AKiS Kart İzleme Aracı", "AutoPlay\\Docs\\runAkiA.bat", "", "", "AutoPlay\\Docs\\Cpp-AkisKartIzlemeAraci.exe", 0, SW_MAXIMIZE, nil) --- INTERNET EXPLORER' da REGISTRY KAYITLARINI YAPMA --- Dialog.TimedMessage("Internet Explorer ayarları", "Internet Explorer ayarları yapılıyor.......", 5000, MB_ICONNONE) Registry.CreateKey(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\P3P\\History\\e-icisleri.gov.tr"); Registry.CreateKey(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\P3P\\History\\icisleri.gov.tr"); Registry.SetValue(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\P3P\\History\\e-icisleri.gov.tr", "", 1, REG_DWORD); Registry.SetValue(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\P3P\\History\\icisleri.gov.tr", "", 1, REG_DWORD); Registry.SetValue(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Internet Explorer\\New Windows\\Allow\\", "*.icisleri.gov.tr", 0, REG_BINARY); Registry.SetValue(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Internet Explorer\\New Windows\\Allow\\", "*.e-icisleri.gov.tr", 0, REG_BINARY); Registry.CreateKey(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Domains\\e-icisleri.gov.tr"); Registry.CreateKey(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Domains\\e-icisleri.gov.tr\\www"); Registry.SetValue(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Domains\\e-icisleri.gov.tr\\www", "https", 2, REG_DWORD); Registry.CreateKey(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Domains\\icisleri.gov.tr"); Registry.CreateKey(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Domains\\icisleri.gov.tr\\owa"); Registry.SetValue(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Domains\\icisleri.gov.tr\\owa", "https", 2, REG_DWORD); Registry.CreateKey(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Domains\\icisleri.gov.tr\\owacert"); Registry.SetValue(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Domains\\icisleri.gov.tr\\owacert", "https", 2, REG_DWORD); Registry.CreateKey(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Domains\\icisleri.gov.tr\\www"); Registry.SetValue(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Domains\\icisleri.gov.tr\\www", "https", 2, REG_DWORD); Registry.SetValue(HKEY_CURRENT_USER, "\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\Zones\\", "1A04", 0, REG_DWORD) -- SERTİFİKA YÜKLEME ADIMI -- sertifika = Dialog.Message("Sertifika Yükleme", "Lütfen Akıllı Kart okuyucuyu takınız.\r\nDİKKAT!...Driver'ların yükleme işlemini bekleyiniz ve yüklendikten sonra TAMAM tuşuna basınız! ", MB_OKCANCEL); if sertifika == IDOK then File.Run("AutoPlay\\Docs\\SertifikaYukleyici.exe", "", "", SW_SHOWNORMAL, true); else Dialog.Message("Sertifika Yükleme", "Sertifika Yüklemekten Vazgeçildi!") end Dialog.Message("Kurulum Tamamlandı!", "Seçtiğiniz Programlar Kuruldu...", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); else Dialog.Message("Kurulumdan Vazgeçildi!....", "...Kart Okuyucu tipi veya SIM kart seçmediniz...", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1) end [/codebox] Edited June 14, 2011 by radyofon Quote Link to comment Share on other sites More sharing options...
ugur4721 Posted November 23, 2013 Share Posted November 23, 2013 Dialog mesajları özelleştirebilmeniz için küçük bir çalışma hazırladım. Kullanımı şu şekilde: mesajVer("Dialog Başlığı", "Mesaj", "Bilgi Tipi") 3 çeşit uyarı tipi hazırladım bunlar: "bilgi" "uyarı" "hata" Tiplerin çeşidine göre uyarı resimleride değişiyor, projeye bakarsanız görürsünüz zaten. Tamam ve İptal tuşlarının dönüşleride şu şekilde: Eğer Tamam tuşuna basılırsa sonuc değişkenine "tamam" değeri depolanır, iptal tuşuna basılırsa sonuc değişkenine "iptal" değeri depolanır. Yani Tamam tuşuna basıldığını kontrol etmek için :download1: http://www.mediafire.com/?ajeo45eqaobc744 kintaro_Tr dosyayı güncelleyebilirmisin ? Quote Link to comment Share on other sites More sharing options...
KintaRo Posted November 24, 2013 Share Posted November 24, 2013 şurada varsa vardır, yoksa üzgünüm: https://app.sugarsync.com/wf/D1846013_76095941_66717 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.