How to show a large text

[Horizon]

Hi Mr. Rao,

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

@ 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

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

[Antonio Linares]

Hakan,

Please try this from the ON INIT of the dialog:

oMemo:LimitText( -1 ) // No text size limits

Also you may try using the FWH function RichEdit() instead of MemoEdit()

[Horizon]

Hakan,

Please try this from the ON INIT of the dialog:

oMemo:LimitText( -1 ) // No text size limits

Also you may try using the FWH function RichEdit() instead of MemoEdit()

Thank you. It seems it works.