Konu: Editbox'ta sağ tıklamakla küçük harfe dönüştürmek
Merhaba,
EditBox'ta kullandığım (RightClick event) klasik kes/yapıştır menüm (aşağıda) var. Buna, seçilen texti küçük (ya da büyük) harfe dönüştüren bir seçenek eklemek istiyorum.
Nasıl yapabilirim?
Yardımlarınız için teşekkür ederim.
PROCEDURE SagTiklaMenu
LPARAMETERS oREF
DEFINE POPUP sagtik SHORTCUT RELATIVE FROM MROW(), MCOL()
DEFINE BAR _med_cut OF sagtik PROMPT "Kes CTRL+X" FONT "Calibri",12 SKIP FOR oREF.SelLength=0 .OR. oREF.ReadOnly
DEFINE BAR _med_copy OF sagtik PROMPT "Kopyala CTRL+C" FONT "Calibri",12 SKIP FOR oREF.SelLength=0
DEFINE BAR _med_paste OF sagtik PROMPT "Yapıştır CTRL+V" FONT "Calibri",12 SKIP FOR EMPTY(_CLIPTEXT) .OR. oREF.ReadOnly
DEFINE BAR 2 OF sagtik PROMPT "\-"
DEFINE BAR _med_undo OF sagtik PROMPT "Geri Al CTRL+Z" FONT "Calibri",12 SKIP FOR oREF.ReadOnly
ACTIVATE POPUP sagtik
ENDPROC