1

Konu: FoxyPreviewer

Arkadaslar Foxite.com u takip edenler gormus olmalilar FoxyPreviewer  isimli Cesar Chalom a ait bir class,
yaptigi su VFP9 (SP2 tavsiye ediliyor SP1 uyumlu ayni zamanda) un Report engine ni kullanarak FRX raporlarinizi EMF, PNG, JPG, BMP, GIF, TIFF  olarak kaydedebiliyorsunuz (e-mail desteği yakında eklenecek).

one cikan yanlari
- caption,tooltip ler istenilden dilde calisiyor (English,German,Portugese,Espanol,Turkce su an ki diller)
- FRX raporlarinizi EMF, PNG, JPG, BMP, GIF, TIFF  olarak kaydedebiliyorsunuz (e-mail desteği yakında eklenecek).
- varsayilan yazici aktif olarak geliyor
- toolbarda kopya sayısı belirleyebilme
- birden cok sayfa varsa minyaturleri gorup istenilen sayfayi secebilme ve ona gitme
- arama , istenilen sayfaya gitme
- class la beraber gelen INSTALLFOXCODE.PRG ile design time icin intellisense destegi eklenebiliyor
- tum raporlar icin _ReportPreview olarak bu class i set edebilme
       

Visual Fox Pro
_ReportPreview  = "FoxyPreviewer.prg"

REPORT FORM _Samples + "Solution\Reports\Colors.frx" PREVIEW

-   #define ile istenilen dil ile calisabilme   

Visual Fox Pro
&& #DEFINE PR_ENGLISH

       &&#DEFINE PR_PORTUGUES
       &&#DEFINE PR_GERMAN
       #DEFINE PR_TURKISH
       &&#DEFINE PR_ESPANIOL

4 satırda bu class i kullanabilirsiniz.

Visual Fox Pro
LOCAL loReport AS "PreviewHelper" OF "FoxyPreviewer.prg"

loReport = CREATEOBJECT("PreviewHelper")
loReport.AddReport(_Samples + "\Solution\Reports\colors.frx", "RANGE 1,1 NODIALOG") && FRX File, Clauses
loReport.RunReport()

incelemeniz icin URL
http://weblogs.foxite.com/vfpimaging/ar … entmessage

download adresi : http://weblogs.foxite.com/files/vfpimag … viewer.zip

destek ve oneriler icin What do you think? bolumune notunuzu birakabilirsiniz...

2

Re: FoxyPreviewer

Soykan abi, bilgilendirme için çok teşekkür ediyorum. Ayrıca Türkçe desteği konusundaki yardımların içinde smile

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

3

Re: FoxyPreviewer

paylaşım için teşekkürler çok güzel bir yardımcı. yalnız pdf çıktıda resimleri aktarmıyor bu sorunu çözebildin mi

4

Re: FoxyPreviewer

pdftoima.. tabiki çözüm oymuş fakat bozuk bir çıktı oluşturuyor sad

5

Re: FoxyPreviewer

Ben herhangi bir bozukluk goremedim,
ornek raporu (testPreview.prg) PDF olarak kaydettiginde herhangi bir bozukluk olusmuyor kendi raporlarinda denedi isen onu bilemiyorum...

6

Re: FoxyPreviewer

test örneğinde pdf oluştur dendiğinde textler veriyor fakat resimleri aktarmıyor. reim için pdftoimage diye bir eklentisi var onu kullandığın zamanda görüntüsü çok kötü çıkıyor ve çıktı olan herşey resim olarak gözüküyor

7

Re: FoxyPreviewer

Şey ben soruyom ben cevaplıyorum gibi oluyor kusura bakmayın smile resim eğer sığmıyor ise (alana sığdır veya gerçek boyutta tut) modlarında değil ise resimi pdf içerisine gömüyor fakat gözükmüyor sorun burda verilen örnektede aynı işlem yapılması gerekiyor yoksa resimler gözükmüyor

bu örnek çok işime yaradı daha öncede pdf yazıcı kontrolü kullanıyordum gene burda ki bir örneklerden birinde bulmuştum çetin hocamın verdiğini hatırlıyorum. burdaki pdfx.vcx ile yazıcı kurmadan direk pdf çıktısı alabileceğim paylaşım için teşekkürler

8

Re: FoxyPreviewer

sasmazali yazdı:

burdaki pdfx.vcx ile yazıcı kurmadan direk pdf çıktısı alabileceğim paylaşım için teşekkürler

evet ozellikle bu ozellik bir cok kisinin aradigi seydi.

9

Re: FoxyPreviewer

ya bir sorun oluştu türkçe karakterlerde sorun çıkartıyorum çok araştırdım ama bulamadım yerini biliyormusunuz

10

Re: FoxyPreviewer

foxyPreviewer.prg de  #DEFINE PR_TURKISH aktif digerleri * lanmis olmali

11

Re: FoxyPreviewer

çıktılarda sorun yaşıyorum sad çıktılar hem eksik hemde türkçe karakterlerde sorun oluyor

12

Re: FoxyPreviewer

sorun raporunla ilgili olmali türkçe dil desteği caption,tooltip vs ler icin.

13

Re: FoxyPreviewer

bormalde sürekli kullandığım raporlar sadece pdf için test ettiğimde türkçe karakter sorunu yaşıyorum pdflistener da deskteklediği yazı tipinde sorun var galiba sad bunun çaresini biliyormusun cp1252 yerinde ne yazmam gerekebilir 1254 de olmuyor

14

Re: FoxyPreviewer

cp1254 olarak denedinmi ? pr_pdf.vcx teki cCodePage property sini degistirerek.

15

Re: FoxyPreviewer

Hallettim hocam saolasın ordan değiştirince sapıtıyor işlem sonlarında komut olarak değiştirincede sapıtıyor obje olarak ekleyince ilk olarak kopmutla onu değiştirm eyaptırıyorum o zaman çalışıyor şuan tıkır tıkır şükür teşekkür sizide uğraştırdık

16

Re: FoxyPreviewer

epey ilgi gördü her gün update yayinliyor gelen feedbacklere göre Cesar,
"mail to send" kısmınıda eklediginde oldukca kullanisli hale gelecek.

17

Re: FoxyPreviewer

Merhaba,
Program için teşekkürler, gerçekten, (en azından benim için) olağanüstü. Yalnız bir sorum olacak (mazur görün bilgi düzeyim çok iyi değil de); raporlarımı pdf ya da rtf olarak kaydedemiyorum. Çünkü böyle bir seçenek çıkmıyor. Sadece görüntü dosyalarına ilişkin seçenekler var. Acaba nerede hata yaptım?
Yaptığım şeyler şunlar:
anaprogramımın başına; _ReportPreview = "FoxyPreviewer.prg" ibaresini koydum.
FoxyPreviewer.prg'yi projeme include ettim. Ayrıca preview'daki .bmp'leri projeme include ettim.
Raporlarımda preview'da sorun yok. Kaydet seçeneğinde pdf ve rtf çıkmıyor.

Teşekkürler

18

Re: FoxyPreviewer

asagidaki kod daki raporlari kendine gore duzenle test et goreceksin , ayrica * Optional available parameters ile baslayan satirlardaki

.t. , .f. lar toolbarda cikmasini isteyip istemediklerini set ettigin yer bu sekilde kullanirsan istedigini elde edersin.

Visual Fox Pro
SET PROCEDURE TO FoxyPreviewer.prg ADDITIVE 

 
SET RESOURCE OFF
 
LOCAL loReport as "PreviewHelper" OF "FoxyPreviewer.Prg"
loReport = CREATEOBJECT("PreviewHelper")
 
WITH loReport as ReportHelper
 
    .AddReport(_Samples + "\Solution\Reports\colors.frx", "NODIALOG")
    .AddReport(_Samples + "\Solution\Reports\wrapping.frx", "NODIALOG FOR title = [S]")
    .AddReport(_Samples + "\Solution\Reports\percent.frx", "NODIALOG")
    *    .AddReport(_Samples + "\Solution\Reports\wrapping.frx", "NODIALOG FOR title = [S] RANGE 3,3")
    *    .AddReport(_Samples + "\Solution\Reports\colors.frx", "NODIALOG")
    *    .AddReport(_Samples + "\Solution\Reports\invoice.frx", "NEXT 25 NODIALOG")
 
    * Optional available parameters
    .cTitle = "FoxyPreviewer Report custom title" && The preview window title
    *    .cTitle = "FoxyPreviewer Informe traducido al espaniol" && The preview window title in spanish
 
    .lSendToEmail  = .F. && adds the send to email button
    .lSaveToFile   = .T. && adds the save to file button
    .lShowCopies   = .T. && shows the copies spinner
    .lShowMiniatures = .T. && shows the miniatures page
    .nCopies       = 3 && The quantity of copies to be printed
    .lPrintVisible = .T. && shows the print button in the toolbar
    .cDefaultListener = "ReportListener"
 
    .nCanvasCount = 1 && initial nr of pages rendered on the preview form.
            && Valid values are 1 (default), 2, or 4.
 
    .nZoomLevel = 5 && initial zoom level of the preview window. Possible values are:
            && 1-10%, 2-25%, 3-50%, 4-75%, 5-100% default, 6-150% ;
            && 7-200%, 8-300%, 9-500%, 10-whole page
 
    .RunReport()
 
    DO CASE
    CASE .lPrinted   
        MESSAGEBOX("Report was printed !",64, "Report status")
 
    CASE .lSaved
        MESSAGEBOX("Report was saved as file:" + CHR(13) + .cDestFile,;
            64, ;
            "Report status")
        =OpenFile(.cDestFile)
 
    OTHERWISE
        MESSAGEBOX("Report Preview was closed without saving or printing",48, "Report status")
 
    ENDCASE
 
ENDWITH
loReport = NULL
RELEASE loReport
 
 
SET RESOURCE ON
 
RETURN
 
 
PROCEDURE OpenFile(tcFileName)
    DECLARE INTEGER ShellExecute ;
          IN SHELL32.DLL ;
          INTEGER nWinHandle,;
          STRING cOperation,;   
          STRING cFileName,;
          STRING cParameters,;
          STRING cDirectory,;
          INTEGER nShowWindow
    RETURN ShellExecute(0, "open", m.tcFileName, "", "", 1)
ENDPROC

19

Re: FoxyPreviewer

Soykan Bey teşekkürler. Çözdüm sayenizde.
Sorunun bir kaynağı da header (hpdf_consts.h) dosyasını çalıştığım klasöre kopyalamayı unutmuşum.
Ayrıca cp 1254 yapınca da Türkçe sorunum kalmadı.

Sağolun

20

Re: FoxyPreviewer

cozdugune sevindim

"Send To Email" ve "Send To Excel" desteğide yakında eklenecek ozaman cok daha kullanisli hale gelecek , en son asama .app seklinde olacak
ozaman gerekli hersey icinde olacagi icin kullanimi cok daha kolay olacak.

21

Re: FoxyPreviewer

kandilzade yazdı:

Merhaba,
Program için teşekkürler, gerçekten, (en azından benim için) olağanüstü. Yalnız bir sorum olacak (mazur görün bilgi düzeyim çok iyi değil de); raporlarımı pdf ya da rtf olarak kaydedemiyorum. Çünkü böyle bir seçenek çıkmıyor. Sadece görüntü dosyalarına ilişkin seçenekler var. Acaba nerede hata yaptım?
Yaptığım şeyler şunlar:
anaprogramımın başına; _ReportPreview = "FoxyPreviewer.prg" ibaresini koydum.
FoxyPreviewer.prg'yi projeme include ettim. Ayrıca preview'daki .bmp'leri projeme include ettim.
Raporlarımda preview'da sorun yok. Kaydet seçeneğinde pdf ve rtf çıkmıyor.

Teşekkürler

Ben de projeme FoxyPreviewer.prg'yi include ettim  ve _ReportPreview = "FoxyPreviewer.prg ibaresini de koydum, projemin içinde FoxyPreview diye klasör açıp set path ile burayı da gösterdim ama

FoxyPreviewer.prg içinde 1021. satırdaki
llNowait = This.PreviewForm.TopForm or ;
This.PreviewForm.oReport.CommandClauses.NoWait
bölümde sürekli hata veriyor. TOPFORM bulunamadı diyor. Nerede hata yapıyorum acaba ?

22

Re: FoxyPreviewer

son guncellemeyi indir sorun cozuldu ayrica artik .app olarak derlendi.

23

Re: FoxyPreviewer

Soykan Abi, son versiyonda (bugün indirdim) bu hatayı alıyorum.
Hata satırındaki This.PreviewForm.TopForm kısmını PRG'den çıkarınca çalışıyor.
.APP ile hata veriyor.

24

Re: FoxyPreviewer

hatayi bildirdim

25

Re: FoxyPreviewer

Merhaba,

Ben .app olarak derlenmemiş halinde (v 1.08a) benzer bir durum yaşamıştım. Programın bir yerinde
SET STEP ON ibaresi var. Sanırım degug amacıyla konmuş. Ben o satırı sildim sorun kalmadı.
Sizin sorununuzun çözümü olur mu bilemiyorum.