RICHEDITBOX whit _DefineActivex(...

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

Post Reply
User avatar
andyglezl
Posts: 1461
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Contact:

RICHEDITBOX whit _DefineActivex(...

Post by andyglezl »

Hola, estoy experimentando con este control y algunas propiedades funcionan bien,
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;"
*/
Andrés González López
Desde Guadalajara, Jalisco. México.
Post Reply