report controls toolbar

Local lcRaporDosyasi, llScreenDurumu

 

lcRaporDosyasi = Getfile("FRX,LBX", "Yeni Rapor-Etiket", "Dosya Aç", 1)

If !Empty(m.lcRaporDosyasi)

    Define Pad _Msm_view Of _Msysmenu Prompt "\<View" Color Scheme 3 ;

        After _Msystem ;

        Key Alt+V, "" ;

        Message "Görüntü Ayarlarını Değiştir"

    On Pad _Msm_view Of _Msysmenu Activate Popup _mview

 

    Define Popup _mview Margin Relative Shadow Color Scheme 4

    Define Bar _mvi_toolb Of _mview Prompt "\<Toolbars..." ;

        Message "Araç Çubuklarını Göster Veya Gizle"

 

    llScreenDurumu = .F.

    If !Wvisible("Screen")

        m.llScreenDurumu = .T.

        Show Window Screen

    Endif

 

    If m.lcRaporDosyasi = "Untitled"

        Create Report Untitled

    Else

        Modify Report (m.lcRaporDosyasi)

    Endif

    If m.llScreenDurumu

        Hide Window Screen

    Endif

    Release Pad _Msm_view Of _Msysmenu

Endif