How to show a large text

Re: How to show a large text

Postby Horizon » Thu Dec 31, 2020 4:38 pm

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  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
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Horizon
 
Posts: 1322
Joined: Fri May 23, 2008 1:33 pm

Re: How to show a large text

Postby Antonio Linares » Thu Dec 31, 2020 5:36 pm

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()
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42074
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: How to show a large text

Postby Horizon » Thu Dec 31, 2020 6:42 pm

Antonio Linares wrote: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.
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Horizon
 
Posts: 1322
Joined: Fri May 23, 2008 1:33 pm

Previous

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 56 guests