Dialog.message Font Ve Renklerini Değiştirme

[radyofon]

Şö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]

[korasoglu]

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

[radyofon]

dosyayı dediğin yere attım fakat result = DLL.Call ile başlayan satırda hata veriyor.

[radyofon]

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.

[KintaRo]

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]

[radyofon]

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?

[KintaRo]

var ama ücretli

[KintaRo]

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.

[radyofon]

Ü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ı?

[Sistemci]

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]

[radyofon]

Ü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

[ugur4721]

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 ?

[KintaRo]

şurada varsa vardır, yoksa üzgünüm:

 

https://app.sugarsync.com/wf/D1846013_76095941_66717