I use fwh 20.12.
This is my usage of bigger text. There are this syntax in several folders. I should manage like that.
- Code: Select all Expand view
- @ 15,10 GET oNOTLAR VAR oMyFoy:NOTLAR OF oFld_Not:aDialogs[1] PIXEL SIZE 440,40 UPDATE MEMO
oSelf:oCargo:oNOTLAR := oNOTLAR
IF !oApp:lAdmin
oNOTLAR:lReadOnly := .T.
ENDIF
@ 15,10 GET obEkleNot1 VAR IC_bEkleNot OF oFld_Not:aDialogs[1] PIXEL SIZE 440,40 UPDATE MEMO
oSelf:oCargo:obEkleNot1 := obEkleNot1
obEkleNot1:bKeyDown = { | nKey, nFlags |NOTLAR_KeyDown(nKey, nFlags, oSelf, oSelf:oCargo:obEkleNot1)}
obEkleNot1:bRClicked := {|nRow, nCol, nFlags|MEMO_RC(nRow, nCol, nFlags, oSelf:oCargo:obEkleNot1)}
@ 15,170 BUTTON obEkleNot_btn1 PROMPT "Ekle" OF oFld_Not:aDialogs[1] PIXEL SIZE 23,47;
ACTION NOTLAR_Ekle(@IC_bEkleNot, oSelf, oSelf:oCargo:oNOTLAR, 1) WHEN oSelf:aYetki[2] .OR. oApp:lAdmin
oSelf:oCargo:obEkleNot_btn1 := obEkleNot_btn1
- Code: Select all Expand view
- PROCEDURE NOTLAR_Ekle(cText, oSelf, oNots, nNereden)
DEFAULT nNereden:=1
IF EMPTY(cText)
MsgAlert("Önce eklenecek bilgiyi yazmalısınız.","Hata")
RETURN
ENDIF
IF AT(ALLTRIM(cText), oNots:cText()) > 0
MsgAlert("Bu bilgi daha evvel eklenmiş. EKLENMEDİ.","Hata")
RETURN
ENDIF
oNots:Append(CRLF+CRLF+DTOC(DATE())+" - "+TIME()+" - "+;
ALLTRIM(xUSERNAME+;
CRLF+REPLICATE("-",60)+CRLF+ALLTRIM(cText))
DO CASE
CASE nNereden=1
oSelf:oCargo:obEkleNot1:cText("")
oSelf:oCargo:obEkleNot1:SetFocus()
ENDCASE
oSelf:btnOK:Click()
RETURN