FiveTech Support Forums

@ 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

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

#include "FiveWin.ch"

#define EM_LIMITTEXT            197

request HB_CODEPAGE_UTF8
request HB_CODEPAGE_UTF16LE
REQUEST HB_CODEPAGE_TRWIN

Function Main()
	Local oDlg, oFont
	Local oGet1, oGet2
	local cVar1 := Create_Text(32800)	// <------- 32700 
	
	HB_CDPSELECT( "TRWIN" )
	FW_SetUnicode( .f. )
	TFont():nDefaultCharSet  := 162
	
	oFont := TFont():New("Verdana", 0, -11) 
	
//	? HB_CDPUNIID(), GetACP(), GetOEMCP()	
		
		DEFINE DIALOG oDlg SIZE 500,150 PIXEL ;
			FONT oFont TITLE "Sample" ;
			STYLE nOr( WS_OVERLAPPEDWINDOW ) transparent
				
	@ 15,15 get oGet1 var cVar1 MEMO;
		size 200,40 of oDlg pixel 

   @ 60, 15 BUTTON "CHECK" SIZE 40, 10 PIXEL OF oDlg ;
      ACTION MsgInfo( ;
        "FW_SetUnicode():    " + cValToChar(FW_SetUnicode()) + CRLF + CRLF + ;
        "IsUTF8(cVar1):      " + cValToChar(IsUTF8(cVar1)) + CRLF + CRLF + ;
        "oGet1:lUnicode:     " + cValToChar(oGet1:lUnicode)  + CRLF + CRLF + ;
        "oDlg:lUnicode:      " + cValToChar(oDlg:lUnicode)  + CRLF + CRLF + ;
        "oGet1/TMultiGet():  " + STR(len(cVar1)) ;
         )  
			
	ACTIVATE DIALOG oDlg CENTER ON INIT (oGet1:LimitText(-1))
	
return nil

FUNCTION Create_Text(nByte)
LOCAL cResult := "", cText := "bla bla bla blaaa bla blaa "
	DO WHILE LEN(cResult) < nByte
		cResult += cText
	ENDDO
RETURN cResult

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVar := REPLICATE( ".", 100000 ) + CRLF + "XXX"

    LOCAL oGet

    DEFINE DIALOG oDlg;
           SIZE 800, 600

    @ 0, 0 GET oGet VAR cVar MEMO;
           SIZE 300, 200

    oDlg:bStart = { || oGet:GoBottom() }

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

//   @ 60, 15 BUTTON "CHECK" SIZE 40, 10 PIXEL OF oDlg ;
//      ACTION MsgInfo("AAAAAAA")

#include "Fivewin.ch"


#define EM_REPLACESEL 194


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVar := ""

    LOCAL oGet, oBtn

    DEFINE DIALOG oDlg;
           SIZE 800, 600

    @ 0, 0 GET oGet VAR cVar MEMO;
           SIZE 300, 200

    @ 250, 50 BUTTON oBtn PROMPT "CHECK" SIZE 40, 10 PIXEL OF oDlg;
              ACTION ( oGet:VarPut( REPLICATE( ".", 100000 ) + CRLF + "XXX" ), oGet:Refresh(), oGet:GoBottom() )

    ACTIVATE DIALOG oDlg;
             ON INIT ( oGet:LimitText( 100006 ), oBtn:Click() );
             CENTER

    RETURN NIL