otras no funcionan y otras funciones me dan error en la ejecucion. (Se compila OK)
Alguien ya lo ha manejado ?
---------------------------------------------------------------------------
Hi, I'm experimenting with this control and some properties work well,
other functions do not work and other give me error in execution. (It compiles OK)
Someone already handled?
----------------------------------------------------------------------------------
Code: Select all
#include "HMG.CH"
Function main( )
DEFINE WINDOW Form_3 AT 0,0 WIDTH 800 HEIGHT 560 TITLE "RICHEDITBOX" MAIN NOSIZE NOMAXIMIZE
ON KEY ESCAPE ACTION ( Form_3.Release )
//************************************************************************************************************
_DefineActivex("RICHTEXT", "Form_3", 005, 005, 680, 520, "RICHTEXT.RichtextCtrl" ) // OK
Form_3.RICHTEXT.Object:AutoVerbMenu:=.T. // Cut, Copy, Paste // OK
*Form_3.RICHTEXT.Object:FileName := "SPA.rtf" // OK
Form_3.RICHTEXT.Object:LoadFile( HB_ANSITOOEM( "SPA.rtf" ), 0 ) // 0=RTF File 1= Tex File // OK
*Form_3.RICHTEXT.Object:ScrollBars := 3 // 0=No, 1=Horiz., 2=Vert., 3=Ambas // NO
*Form_3.RICHTEXT.Object:DisableScroll := .F. // NO
Form_3.RICHTEXT.Object:BulletIndent := 20 // ?
Form_3.RICHTEXT.Object:SelBullet := .T. // ?
Form_3.RICHTEXT.Object:SelFontSize = 12 // ?
Form_3.RICHTEXT.Object:SelBold = .F. // ?
Form_3.RICHTEXT.Object:SelFontName = "Consolas" // ?
Form_3.RICHTEXT.Object:SelColor := RGB( 204 , 153 , 51 ) // ?
Form_3.RICHTEXT.Object:Text := Form_3.RICHTEXT.Object:Text + CRLF + "Añado un TEXTO al final" // OK
// 0 = Left, 1 = Right, 2 = Center
Form_3.RICHTEXT.Object:SelAlignment = 2 // ?
nIni := Form_3.RICHTEXT.Object:SelStart // OK
nFin := Len( Form_3.RICHTEXT.Object:Text ) // OK
nPos := Form_3.RICHTEXT.Object:Find( "telefono", nIni, nFin ) // OK
Form_3.RICHTEXT.Object:HideSelection := .F. // OK
@ 100,720 BUTTON Btn_Save CAPTION '&Save' ACTION Form_3.RICHTEXT.Object:SaveFile( "SPA-Modificado.rtf", 0 ) ; // 0=RTF File 1= Tex File
WIDTH 60 HEIGHT 40 FONT "Arial" SIZE 10
*Form_3.RICHTEXT.Object:SelPrint(Printer.hDC) // Para imprimir, hay que probarlo !
//*************************************************************************************************************
END WINDOW
CENTER WINDOW Form_3
ACTIVATE WINDOW Form_3
RETURN( Nil )
Tomé ejemplos de aqui...
I took examples from here ...
/*
http://www.recursosvisualbasic.com.ar/h ... extbox.htm" onclick="window.open(this.href);return false;" onclick="window.open(this.href);return false;"
http://www.recursosvisualbasic.com.ar/h ... extbox.htm" onclick="window.open(this.href);return false;" onclick="window.open(this.href);return false;"
http://www.recursosvisualbasic.com.ar/h ... escripcion" onclick="window.open(this.href);return false;" onclick="window.open(this.href);return false;"
*/