dragon3781

Çalışan Sürümü Elinde olan varsa paylaşırsa sevinirim . İki adet indirdim , ikisindede CRACK hatası veriyor , Uygulamaya Trial Linki Ekliyor.

Doğum günün kutlu olsun , nice yıllara.

ozaman örnek paylaşırken belirtmen ve açıklaman gerekir , " Bu projeyi indigorose formundan aldım orda proje içindeki richtext objesinin listbox gibi kullanıldığını ve transparan özelliği verildiği " diye belirtirsen daha ögretici ve açıklayıcı olur değilmi. Ne yazmışsın mesajında ; Listbox transparent apz dosyası; diyerek ornek projeyi sunmuşsun buda yanıltmaya yönelik olur indiren kişileri. Daha dikkatli ve kaliteli cevap , konu olması açısından yazmıştım ben yukarıdaki açıklamayı...

pilgetir ben bu projede listbox göremedim ki ? Proje dosyasında Pragraph ve Richtext objeleri var , onlarında zaten tranparant özelliği var kendi menulerınde.

rica etsem buraya upload edermisin ? ( yalnız apz olarak , .rar indiremiyorum ) [code]http://alucardfile.alucardwarez.net/[/code]

Buyur hocam ne demek hemen [code]http://alucardfile.alucardwarez.net/data/al%26%23305%3B%26%23351%3Bma.rar[/code] [b]Not :[/b] Apz yi .apz olarak yukarıdaki siteye upload edersen sevinirim. , Firewall birtek orayı yakalamıyor ...

Ne yaptıysam headerdeki arayüze tablola html deki verileri düzgünce yazdıramadım. Alt tabloyu hangi satırlar ile düzenleyebilirim. [img][img]http://www.tnctr.com/uploads/imgs/pre_1339413952__deneme.jpg[/img][/img] [code] sDosya = _SourceFolder .. "\\Autoplay\\Docs\\yazdir.html"; -- html dosyasının yolu sHeader = TextFile.ReadToString(_SourceFolder .. "\\Autoplay\\Docs\\header.html") -- yeni html dosyası için header bilgilerini al TextFile.WriteFromString(sDosya, sHeader .. "\r\n", false) -- html dosyasını boşalt ve header bilgilerini yaz -- listedeki verileri html e aktar TextFile.WriteFromString(sDosya, "<TABLE BORDER WIDTH=50 \\ table border cellpadding=0 \\ cellspacing=10 \\ th align =bottom \\ bgcolor = #FFFFD0 \\ tr align = center >\r\n", true) -- tabloyu oluştur -- döngüyü başlat nCount = TreeList.CountRows("Plugin6", true) -- kaç satir oldugunu say for i=0,nCount-1 do satirno = TreeList.GetCellText("Plugin6", i, 0) satir = TreeList.GetCellText("Plugin6", i, 1) satir2 = TreeList.GetCellText("Plugin6", i, 2) satir3 = TreeList.GetCellText("Plugin6", i, 3) satir4 = TreeList.GetCellText("Plugin6", i, 4) satir5 = TreeList.GetCellText("Plugin6", i, 5) satir6 = TreeList.GetCellText("Plugin6", i, 6) TextFile.WriteFromString(sDosya, "</tr><td>".. satirno .."</td><td>" .. satir .."</td><td></td><td></td><td></td><td></td><td></td><td>".. satir2 .."</td><td></td><td></td><td></td><td>".. satir3 .."</td><td></td><td></td><td></td><td></td><td></td><td>".. satir4 .."</td><td></td><td></td><td></td><td></td><td></td><td>".. satir5 .."</td><td></td><td></td><td></td><td></td><td>".. satir6 .."</td><td></td><td></td><td></td><td></td></tr>", true) end TextFile.WriteFromString(sDosya, "</table></body></html>", true) -- tabloyu kapat ve footeri yaz DialogEx.Show("yazdir") -- yazdirma penceresini goruntule [/code]

Tamamdır Sorunu kurcalaya kurcalaya çözdüm... Sorun ; [b]</td><td>[/b] Bunları çogaltarak çözülmüştür. ( Sanırım herbiri bir boşluk anlamına geliyor.)

Baba çok sağolasın oldu gerçekten Pekı tablolar arasını nasıl genışletebilirim , çok yakınlar birbirine . Html yazınca aralarını biraz açmak için nereyi oynamalıyım kodlarda.

Anladım Baba Sıkıntı build etmede farkındayım , ama ben faklı olarak tekrar upload ettım onu bır denermısınız. bu sefer dırekt olarak .apz olarak upload ettım . Dıger sıte nedense upload ederken .apz yi rar a çeviriyor. Birde multiupload linkini denermisin.

Baba_ Denediklerinin yaptım olmadı , sonuç olarak ilk iki satır çıktı ama onlarda bitişik olarak çıktı. ben projeyi tekrar upload ettim farklı bir yere bu sefer açılır sanırım. [code]http://www.multiupload.nl/41SOJHBFEH[/code]

Merhaba ; Kodu Denediğimde sadece ilk sutun yazılıyor Html dosyasına dıger sutunlar olmuyor nedense. [code]http://alucardfile.alucardwarez.net/data/Troid%20Hesaplama%204.apz[/code] Sadece aşağıdaki kodu değiştirdiğimde 1 yerine 2 yada 3 yapınca o stunu yazıyor bu seferde ; [code]satir = TreeList.GetCellText("Plugin6", i, 1)[/code] [codebox] sDosya = _SourceFolder .. "\\Autoplay\\Docs\\yazdir.html"; -- html dosyasının yolu sHeader = TextFile.ReadToString(_SourceFolder .. "\\Autoplay\\Docs\\header.html") -- yeni html dosyası için header bilgilerini al TextFile.WriteFromString(sDosya, sHeader .. "\r\n", false) -- html dosyasını boşalt ve header bilgilerini yaz -- listedeki verileri html e aktar TextFile.WriteFromString(sDosya, "<table border=\"1\">\r\n", true) -- tabloyu oluştur -- döngüyü başlat nCount = TreeList.CountRows("Plugin6", false) -- kaç satir oldugunu say for i=0,nCount-1 do satirno = TreeList.GetCellText("Plugin6", i, 0) satir = TreeList.GetCellText("Plugin6", i, 1) TextFile.WriteFromString(sDosya, "<tr><td>" .. satirno .. "</td><td>" .. satir .. "</td></tr>", true) end TextFile.WriteFromString(sDosya, "</table></body></html>", true) -- tabloyu kapat ve footeri yaz DialogEx.Show("yazdir") -- yazdirma penceresini goruntule[/codebox]

Peki sadece sayfadaki TreeList nasıl yazdırılabilir ?

[quote name='nightmare3519' date='06 June 2012 - 10:12 ' timestamp='1338977558' post='1209262'] Abi yanlış anlama ama bu ne için yazılmış bir program?? [/quote] Est.Ne demek özetliyeyim ... nightmare3519 Bizim şirkette elemanlar bunu elle tek tek yazıyorlar , hesaplıyorlar ( Günlük 100 adet filan ) Şimdi AMS de hazır formullu ve yazıcı cıktı alma olayıda var , daha çabuk daha temiz iş. Enerji sektöründe çalışıyorum , trafo imalatı ( onun içinde kullanılan bir malzemenin ölçüleri ) firması. Olay bundan ibaret yani....

ReaLyMaN dediğinin aynısını yapmışım bende... Sorunumu kendim kurcalarken çözdüm ve projeyi tamamladım. Bazen insan işyerindeki yogunluktan dolayı ne yapacagını nasıl yapacagını unutuyor çözemiyor valla . Tamamlanmış Link ( Belki işine yarayan olur ); [code]http://alucardfile.alucardwarez.net/data/Troid%20Hesaplama%203.apz[/code] İlgi ve yardımlar için teşekkür ederim. İyi günler...