FiveTech Software tech support forums

oFolder:aDialogs[3]:bInit := {|| oMemo:LoadFromRTFFile( "table.rtf" ) }

@ 10, 3 RICHEDIT5 oMemo OF oFolder:aDialogs[3] PIXEL SIZE 200, 200 READONLY


why do I see the source file and not the rtf file in the richedit5 box?

... //panel for the text oItem2:=Tpanel():New( 2, 2,; oItem1:nBottom-45,oItem1:nWidth-4, oItem1) oItem2:SetBrush( oBrushtext ) //the text @ 5,o10 SAY oMemo VAR cMessageMemo of oItem2 ; SIZE oItem2:nwidth-40,oItem2:nBottom-10 PIXEL ; FONT oFontText TRANSPARENT UPDATE How I can calculate the nbottom ...

... nBottom, nRight ) local oFont, oDlg local hDLL local uTemp := If( ! Empty( cText ), cText, '' ) local lRich := .F., lGTF := .F., lOk := .F. publ oMemo DEFAULT nTop := 9, nLeft := 9, nBottom := 27, nRight := 71.5, ; cTitle := "RichEdit5" * DEFINE FONT oFont NAME "Arial" SIZE ...

... el texto y salieron por la X sin guardar, se puede? Static Function RichEdit5( cText, cTitle, nTop, nLeft, nBottom, nRight ) local oFont, oDlg, oMemo local hDLL local uTemp := If( ! Empty( cText ), cText, '' ) local lRich := .F., lGTF := .F., lOk := .F. DEFAULT nTop := 9, nLeft := 9, nBottom ...

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.

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()

René,

I have implemented a new Method:

oMemo:GetRTF() --> cRTF

that should return the RTF string

I have emailed you the modified FiveMac libs

... NOBORDER ; ACTION If( ! Empty( bSave ), Eval( bSave, oRtf:SaveAsRTF() ),) ... ACTIVATE DIALOG oDlg CENTERED ; ON INIT ( BuildRichEditBar( oDlg, oMemo, { | c | cText := c } ), oDlg:ReSize() ) The missing bitmaps are not yet implemented. For now you have to provide these resources yourself: "Left", ...

... para nada. Se crea el control de la izquierda. En re.prg: oTree = TTreeView():New( 2, 0, oWndRC ) Se crea el control de la derecha: @ 0, 25.7 GET oMemo VAR cItemText MEMO OF oWndRC SIZE 300, 100 Y finalmente el splitter que controlará a ambos y se le envia el mensaje de ajustar el area de ambos ...

... And this little change in FWH function MemoEdit() (source\function\memoedit.prg line 56): If( bText != nil, oMemo:SetText( Eval( bText, oDlg ) ),),; And here you have it :-) https://bitbucket.org/fivetech/screenshots/downloads/fivedbu_copy_to_clipboard.jpg

... hacer en varios pasos en forma oculta al usuario, primero grabas el registro en un memo, luego seleccionas el memo, y lo copias al portapapel con oMemo:copy(), y luego lo pegas donde te haga falta con oHoja:past(). No lo probe pero de acuerdo a los samples creo que es posible. Buscate en los samples ...

Hi, Is there a maximum length for a GET? @ 10 , 1 GET oMemo VAR cMemo OF oDlg MEMO I use a MEMO GET to log activity of a procedure and Add every new files FUNCTION ELEFILE( cFile , oProgr ) LOCAL nLinee := mlcount( oProgr:gettext() ) LOCAL nPosEnd := ...

... and if the last key pressed is an up/down arrow focus is moved to the next or previous control. I fixed this problem by adding oDate:oJump := oMemo to the beginning of the button action. Randal

Enrico,

Please be ware that if you want to insert Tabs then you will not able to use Tab to give focus to the next control.

I would try it this way:
oMemo:nDlgCode = DLGC_WANTALLKEYS

... ACTIVATE DIALOG oWnd2 CENTER return nValue *------------ * function MemoEdi2( cText, nTop, nLeft, nBottom, nRight, cTitle, lRead ) local oDlg2, oMemo, lAcept := .f., cMemo := cText // Respaldo .. local oBAcept, oBCancel DEFAULT nTop := 3, nLeft := 5, nBottom := 30, nRight := 70,; cTitle := "Memo ...