AMS ile Web Tarayıcı yapmak ve Label problemi

[livehacker]

Kintaro hocam ben tncweb tarayıcı gibi bir tarayıcı yapmak istiyorum ne yapmam gerek ?

[egemynet]

Çok kolay

http://www.tnctr.com/index.php?showtopic=142776[/CODE]

al editle kintaro zaten kullanıma sunmuş takıldığın yerde yaz yardımcı olunsun bitti. Güle güle kullan

[livehacker]

hocam konuya ulaşılamıyor

[KintaRo]

yoo çalışıyor az önce denedim. BURADAN dene.

[livehacker]

1-Kintaro hocam rica etsem o tncwebde kullandığın butonları toplu hepsini koyamazmısınız ?

2-Programlarınızda bazen şeffaflık görüyorum onları nasıl yapıyorsunuz?

3-Program ön yüzünü nasıl tasarlıyorsunuz.Bazı programlarınız görsellik mükemmel.

4-Ben kısayol programı hazırlamak istiyorum nasıl yapabilirim.(Yani mesela listede tnctr google face twıtter olacak ve tnc web gibi olmasını istiyorum tıklanan sayfa açılsın ondan edit değilde öğrenek yapmak istedim???)

[KintaRo]

Projede kullanılan herşeyi burda vermiştim zaten:

http://www.tnctr.com/index.php?showtopic=142776[/CODE]

Penceredeki şeffaflık için recepin paylaştığı WinApi örneğini kullanabilirsin:

[CODE]http://www.tnctr.com/index.php?showtopic=137477[/CODE]

Program arayüzününü Photoshopta hazırlıyorum yada Google'dan arkaplanlar vs bularak yapabilirsin.

Web sitelerine kısayol hazırlamak için Örneğin Facebook adlı bir button koyalım ve özelliklerine girerek Quick Actions kısmından View Website'i seçin ve gitmeisni istediğiniz adresi yazın. bu kadar.

[livehacker]

Bir soru daha new labellere tıkladığımda bir tanesine sağ taraftaki kutucukda onun hakkında yazıları görmek istiyorum öbürüne tıkladığımda öbürü hakkında bilgi ve bunu sayın talha_525 yaptığı aıo dersleri aıosunda kopyalamak için k'ya basın diyor du bu k butonunu nasıl yapcaz tıkladığıdma o bilgiler oto kopyalansın.

[KintaRo]

öncelikle o ortadaki kısma bir paragraph nesnesi koymalısın

Label'in On Click Evresine şu kodları yazın:

Paragraph.SetText("Paragraph1", "orda olması gereken yazılar vs vs")[/CODE]

Tüm labellardaki kodlar bu sekilde olacak. 

Daha sonra AMS'nin en üstündfeki menuden Project'e gelin ve Pluginsi açın. Açılan pencereden Clipboard'i seçili hale getirin.


Şimdi Sayfanın script bölümünü açın ve On Key evresine sunları yazın:

[CODE]if e_Key == 75 then -- eğer K tuşuna basilirsa

strPar = Paragraph.GetText("Paragraph1") -- paragraftaki metni al

Clipboard.CopyText(strPar) -- hafizaya kopyala

end[/CODE]

bu kadar.

[livehacker]

Bi sorum daha var

labellerin uztune gelince yanda o resimler açılacak yani görüntülenecek bu diğer sorum gibi bunu nasıl yapabilirizAyrıca küçük bir buton olcak resmi kaydet diye nasıl yapabilirim.

[KintaRo]

Örnek proje aşağıdadır. Label'in üstüne gelince değilde üstüne tıklayınca resim açılıyor. O şekilde yaptım. İstersen On Click evresindeki kodu On Enter evresine koyup o şekilde de yapabilirsin.

Proje dosyası:

http://rapidshare.com/files/396284961/resim_kaydetme.rar[/CODE]

[livehacker]

İstedigim resmi nasıl ekleyeceğim

[KintaRo]

aynı projeyemi ekleyeceksin farklı prjeye mi? eğer aynı projeye ekleyeceksen kendin eklediğin resmi neden tekrar kaydetmek isteyeceksin ki? anlayamadım. yada tam olarak yapmak istediğin nedir?

[livehacker]

Bir program yapmak istiyorum resmi görsünler kaydetsinler.

[livehacker]

Birden fazla resim eklemek için ne yapmanız lazım bu sizin hazırladığınız proje dosyasında

20 küsür resim var ne yapmam gerek

[KintaRo]

tek tek koyacaksın resimleri projeye. hepsinin özelliklerinden Visible seçeneğini işsaretini kaldiracaksin. sonra her biri için bir label koyup label1 deki kodlari onlara uyarlicaksin.

[KintaRo]

nereleri uyarlıyacağım kodları kopyalaıyorum 2 yazan yeri 3 yapıyorum resim 3 oldugu için ama resim hareket etmiyor label 1-2 dekiler arkada değişiyor.

kodları nasıl uyalıcam ?

Global Functions kodu:

nSayi = nil;

 function resimGizle()

 ilk = 1;

 son = 20;

 adim = 1;

     for count = ilk, son, adim do

     Image.SetVisible("Image" .. count, false)

     end

 end[/CODE]

Kaydet buttonu:

[CODE]if nSayi ~= nil then

 tblKaydet = Dialog.FileBrowse(false, "Kaydedilecek yeri seçin", _DesktopFolder, "JPEG Dosyaları (*.jpg)|*.jpg|", nSayi, ".jpg", false, false) -- dosyanın kaydedileceği yeri seç

     if tblKaydet[1] ~= "CANCEL" then

     File.Copy("Autoplay\\Images\\" .. nSayi .. ".jpg", tblKaydet[1], false, true, false, false) -- secilen yere dosyayı kopyala

     Dialog.Message("Mesaj", "Dosya Kaydedildi:\r\n\r\n" .. tblKaydet[1]) -- kaydedildi mesajı ver

     end

 end[/CODE]

Label kodu:

[CODE]resimGizle()

 Image.SetVisible("Image1", true)

 nSayi = 1;[/CODE]

Not: Label kodları için; 1. label için Image.SetVisible("Image1", true), 2. label için Image.SetVisible("Image2", true), yani her labelda Image1, Image2, Image3 şeklinde gidecek. ve resim dosyaları Autoplay\Images klasöründe 1.jpg, 2.jpg, 3.jpg şeklinde olacak. yine 1. label için nSayi = 1, 2. Label için nSayi = 2 ve nSayi = 3 vs vs şeklinde değiştirerek koyacaksın.

Örnek Proje:

[CODE]http://rapidshare.com/files/396573828/resim_kaydetme2.rar[/CODE]