1 Konuyu açan avrasya34 Son düzenleyen, avrasya34 (23.04.2008 00:30:46)

  • avrasya34
  • Uzman Üye
  • Offline
  • Yer: Üsküdar / İstanbul
  • Kayıt Tarihi: 16.12.2006
  • İleti: 358

Konu: Kısa yollarda menü

Bu kod haser adres proğramından sağ tıklandığında çalışan kisayol() metodunda çalışıyor.

Visual Fox Pro
DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()

DEFINE BAR  1 OF shortcut PROMPT "\-"

DEFINE BAR  2 OF shortcut PROMPT "< Kayıt >" Style "B" Color RGB(255,255,255,128,128,255), RGB(255,255,255,128,128,255)

DEFINE BAR  3 OF shortcut PROMPT "\-"

DEFINE BAR  4 OF shortcut PROMPT "\<Kayıt Düzenle"

DEFINE BAR  5 OF shortcut PROMPT "\-"

DEFINE BAR  6 OF shortcut PROMPT "\<Adrese Yakınlaş" Skip For AllTrim(Liste.Adres) = ""

DEFINE BAR  7 OF shortcut PROMPT "\<Nota Yakınlaş" Skip For AllTrim(Liste.Notlar) = ""

DEFINE BAR  8 OF shortcut PROMPT "\-"

DEFINE BAR  9 OF shortcut PROMPT "\<e-Posta Gönder" Skip For AllTrim(Liste.ePosta) = ""

DEFINE BAR 10 OF shortcut PROMPT "\<Web Adresine Bağlan" Skip For AllTrim(Liste.Web) = ""

DEFINE BAR 11 OF shortcut PROMPT "\-"

DEFINE BAR 12 OF shortcut PROMPT "Telefon \<1'i Ara" Skip For AllTrim(Liste.Tel1) = ""

DEFINE BAR 13 OF shortcut PROMPT "Telefon \<2'i Ara" Skip For AllTrim(Liste.Tel2) = ""

DEFINE BAR 14 OF shortcut PROMPT "Telefon \<3'i Ara" Skip For AllTrim(Liste.Tel3) = ""

DEFINE BAR 15 OF shortcut PROMPT "\-"

DEFINE BAR 16 OF shortcut PROMPT "Şehir \<Düzenle"

DEFINE BAR 17 OF shortcut PROMPT "Ülke Dü\<zenle"

DEFINE BAR 18 OF shortcut PROMPT "\-"

DEFINE BAR 19 OF shortcut PROMPT "\<Izgara Ayarları"

DEFINE BAR 20 OF shortcut PROMPT "\-"

 

ON SELECTION BAR  4 OF shortcut Do Form Form\Hesaplar

 

ON SELECTION BAR  6 OF shortcut Do Form Form\Yakinlas With "Adres"

ON SELECTION BAR  7 OF shortcut Do Form Form\Yakinlas With "Notlar"

 

ON SELECTION BAR  9 OF shortcut ShellExecute(0, "Open", "mailto:" + AllTrim(Liste.ePosta), "", "", 0)

ON SELECTION BAR 10 OF shortcut Shellexecute(0, "Open", AllTrim(Liste.Web), "", "", 0)

 

ON SELECTION BAR 12 OF shortcut tapiRequestMakeCall(AllTrim(Liste.Tel1), '', '','')

ON SELECTION BAR 13 OF shortcut tapiRequestMakeCall(AllTrim(Liste.Tel2), '', '','')

ON SELECTION BAR 14 OF shortcut tapiRequestMakeCall(AllTrim(Liste.Tel3), '', '','')

 

ON SELECTION BAR 16 OF shortcut Do Form Form\Sehir

ON SELECTION BAR 17 OF shortcut Do Form Form\Ulke

 

ON SELECTION BAR 19 OF shortcut AnaForm.grdOrta.Kisayol

 

ACTIVATE POPUP shortcut

şimdi sorum şu
1-bu kodda mesela 4 bardaki "kayıt" üstüne gelindiğinde yan tarafa yeni bir menü nasıl açarım
2-

Visual Fox Pro
ON SELECTION BAR 1 OF shortcut thisform.pagefarme1.page1.setfocus gibi bir komutu nasıl çalıştırırım. bu komut hata veriyor.

gibi bir komutu nasıl çalıştırırım. bu komut hata veriyor.
şimdiden herkese teşekkürler.

avrasya34's Website

2 Cevaplayan metin

  • metin
  • metin
  • Uzman Üye
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,460

Re: Kısa yollarda menü

1- on bar 4 of shortcut active popup altmenu

2-

ON SELECTION BAR 1 OF shortcut _screen.activeform.pagefarme1.page1.setfocus
bu hatanın sebebi de menünün formun bir parçası olmaması.

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

metin's Website

3 Cevaplayan avrasya34 Son düzenleyen, avrasya34 (23.04.2008 21:29:51)

  • avrasya34
  • Uzman Üye
  • Offline
  • Yer: Üsküdar / İstanbul
  • Kayıt Tarihi: 16.12.2006
  • İleti: 358

Re: Kısa yollarda menü

teşekkürler hocam sağol

bir şey daha sorma şansım varsa

DEFINE BAR 12 OF shortcut PROMPT "Telefon \<1'i Ara" Skip For AllTrim(Liste.Tel1) = ""
DEFINE BAR 13 OF shortcut PROMPT "Telefon \<2'i Ara" Skip For AllTrim(Liste.Tel2) = ""
tel1 ve tel2 nin boş olması durumunda bu barlar disable olarak görülüyor bunların hide olma şansı var mı ?

avrasya34's Website

4 Cevaplayan metin

  • metin
  • metin
  • Uzman Üye
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,460

Re: Kısa yollarda menü

menü barlar için hide yok. ancak release eder ve tekrar define edebilirsin. ben şahsen disable yeter diye düşünüyorum ve öyle kullanıyorum.

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

metin's Website

5 Cevaplayan avrasya34

  • avrasya34
  • Uzman Üye
  • Offline
  • Yer: Üsküdar / İstanbul
  • Kayıt Tarihi: 16.12.2006
  • İleti: 358

Re: Kısa yollarda menü

sağol hocam

avrasya34's Website

6 Cevaplayan avrasya34 Son düzenleyen, avrasya34 (24.04.2008 23:26:47)

  • avrasya34
  • Uzman Üye
  • Offline
  • Yer: Üsküdar / İstanbul
  • Kayıt Tarihi: 16.12.2006
  • İleti: 358

Re: Kısa yollarda menü

Bu menü işi beni delirtecek.

normalde alt menülerin kendini ekrana göre ayarlaması gerek. yani ben öyle istiyorum ama inatla bendeki alt menüler hep sol tarafta açılıyor öyleki ekranın en solunda sağa tıkladığımda bile ilk menü normal açılıyor ama alt menüsü illaki sağ tarafta açılıyor tabiki okunmuyor bu durumdada.

Visual Fox Pro
DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()

DEFINE POPUP altmenu SHORTCUT RELATIVE FROM MROW(),MCOL()

DEFINE BAR  1 OF altmenu PROMPT "aaa"

DEFINE BAR  2 OF altmenu PROMPT "bbb"

DEFINE BAR  3 OF altmenu PROMPT "ccc"

DEFINE BAR  4 OF altmenu PROMPT "ddd"

DEFINE BAR  5 OF altmenu PROMPT "eee"

DEFINE BAR  6 OF altmenu PROMPT "fff"

 

DEFINE BAR  1 OF shortcut PROMPT "\-"

DEFINE BAR  2 OF shortcut PROMPT "< Kayıt >" Style "B" Color RGB(255,255,255,128,128,255), RGB(255,255,255,128,128,255)

DEFINE BAR  3 OF shortcut PROMPT "\-"

DEFINE BAR  4 OF shortcut PROMPT "\<Kayıt Düzenle"

DEFINE BAR  5 OF shortcut PROMPT "\-"

DEFINE BAR  6 OF shortcut PROMPT "\<Adrese Yakınlaş" Skip For AllTrim(Liste.Adres) = ""

DEFINE BAR  7 OF shortcut PROMPT "\<Nota Yakınlaş" Skip For AllTrim(Liste.Notlar) = ""

DEFINE BAR  8 OF shortcut PROMPT "\-"

DEFINE BAR  9 OF shortcut PROMPT "\<e-Posta Gönder" Skip For AllTrim(Liste.ePosta) = ""

DEFINE BAR 10 OF shortcut PROMPT "\<Web Adresine Bağlan" Skip For AllTrim(Liste.Web) = ""

DEFINE BAR 11 OF shortcut PROMPT "\-"

DEFINE BAR 12 OF shortcut PROMPT "Telefon \<1'i Ara" Skip For AllTrim(Liste.Tel1) = ""

DEFINE BAR 13 OF shortcut PROMPT "Telefon \<2'i Ara" Skip For AllTrim(Liste.Tel2) = ""

DEFINE BAR 14 OF shortcut PROMPT "Telefon \<3'i Ara" Skip For AllTrim(Liste.Tel3) = ""

DEFINE BAR 15 OF shortcut PROMPT "\-"

DEFINE BAR 16 OF shortcut PROMPT "Şehir \<Düzenle"

DEFINE BAR 17 OF shortcut PROMPT "Ülke Dü\<zenle"

DEFINE BAR 18 OF shortcut PROMPT "\-"

DEFINE BAR 19 OF shortcut PROMPT "\<Izgara Ayarları"

DEFINE BAR 20 OF shortcut PROMPT "\-"

 

on bar 4 of shortcut active popup altmenu

 

ON SELECTION BAR  6 OF shortcut Do Form Form\Yakinlas With "Adres"

ON SELECTION BAR  7 OF shortcut Do Form Form\Yakinlas With "Notlar"

 

ON SELECTION BAR  9 OF shortcut ShellExecute(0, "Open", "mailto:" + AllTrim(Liste.ePosta), "", "", 0)

ON SELECTION BAR 10 OF shortcut Shellexecute(0, "Open", AllTrim(Liste.Web), "", "", 0)

 

ON SELECTION BAR 12 OF shortcut tapiRequestMakeCall(AllTrim(Liste.Tel1), '', '','')

ON SELECTION BAR 13 OF shortcut tapiRequestMakeCall(AllTrim(Liste.Tel2), '', '','')

ON SELECTION BAR 14 OF shortcut tapiRequestMakeCall(AllTrim(Liste.Tel3), '', '','')

 

ON SELECTION BAR 16 OF shortcut Do Form Form\Sehir

ON SELECTION BAR 17 OF shortcut Do Form Form\Ulke

 

ON SELECTION BAR 19 OF shortcut AnaForm.grdOrta.Kisayol

 

ACTIVATE POPUP shortcut

avrasya34's Website

7 Cevaplayan metin Son düzenleyen, metin (25.04.2008 11:14:48)

  • metin
  • metin
  • Uzman Üye
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,460

Re: Kısa yollarda menü

kodların hatalı. olması gereken:

Visual Fox Pro
...

DEFINE POPUP altmenu RELATIVE

...
Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

metin's Website

8 Cevaplayan avrasya34

  • avrasya34
  • Uzman Üye
  • Offline
  • Yer: Üsküdar / İstanbul
  • Kayıt Tarihi: 16.12.2006
  • İleti: 358

Re: Kısa yollarda menü

çok sağolun hocam
ON SELECTION BAR 1 OF shortcut _screen.activeform.pagefarme1.page1.setfocus bu kod normal çalışırken
ON SELECTION BAR 1 OF shortcut _screen.activeform.pagefarme1.page1.pageframe2.page3.setfocus dendiğinde çalışmıyor. hat mesajı da vermiyor.
şayet formun .pagefarme1.page1.pageframe2 bölünü aktise ozaman çalışıyor.
neden acaba ?

avrasya34's Website

9 Cevaplayan metin

  • metin
  • metin
  • Uzman Üye
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,460

Re: Kısa yollarda menü

öncelikle pageframe yi setfocus yap. sonra ilgili page yi.
mesela griddeki bir texbox'u direkt setfocus yaparsan çalışmaz. önce grid'i setfocus yapmalısın.
pageframe için active olabilir. setfocus olmayabilir. tam olarak hatırlamıyorum. şu an vfp başında olmadığım için de deneme şansım yok.

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

metin's Website

10 Cevaplayan avrasya34 Son düzenleyen, avrasya34 (07.05.2008 23:22:09)

  • avrasya34
  • Uzman Üye
  • Offline
  • Yer: Üsküdar / İstanbul
  • Kayıt Tarihi: 16.12.2006
  • İleti: 358

Re: Kısa yollarda menü

anladım hocam doğru hatırlıyorsun ama bildiğim kadarıyla
ON SELECTION BAR 1 OF shortcut _screen.activeform.pagefarme1.page1.pageframe2.setfocus(_screen.activeform.pagefarme1.page1.pageframe2.page1.setfocus)
gibi bişey olması lazım oda burda olmuyor.

çözemedim sad

çetin hocam bir ara yaptığım proğram üzerinde çalışıyorduk set filter to komutunu öyle hoş kullanmıştı ki bayılmıştım iç içe şartlar vardı tek komut içinde sonrada kullanma set filt to yu demişti
acaba burdada öyle birşey olur mu ?i

avrasya34's Website