HMGforum.com

Hola a todos
Una pregunta tonta
estoy usando RICHEDITBOX esribo texto
y lo grabo sin problemas, pero queria Copiar y Pegar al Bloc de
Notas y no deja o al reves del Bloc de Notas al RICHEDITBOX

Hello everyone
A silly question
I'm using text scribes RICHEDITBOX
and I record it without problems, but wanted to copy and paste to Notepad
Notes and leaves or the reverse of the RICHEDITBOX Notebook

I have it like this:

DEFINE RICHEDITBOX RichEditBox_1
ROW 320
COL 625
WIDTH 335
HEIGHT 250
VALUE ""
FONTNAME "Arial"
FONTSIZE 10
TOOLTIP "Escriba Texto"
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .T.
FONTITALIC .T.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
TABSTOP .T.
VISIBLE .T.
READONLY .F.
BACKCOLOR {217,244,000}
END RICHEDITBOX

Thanks
Mustafa

de Richeditbox a Bloc de Notas: CTRL+V
de Bloc de Notas a Richeditbox: CTRL+C

El Problema que tengo es que cuando se graba el texto pegado o
se hace scroll dentro de RichEditBox desaparece el color Amarillo
y queda de color azul como el fondo de la aplicacion que es de color azul
*-----------------------------------------------*
Of a Notepad Richeditbox : CTRL + V
Notepad to Richeditbox: CTRL + C

The problem I have is that when recording the pasted text or
scroll is made within the yellow color disappears RichEditBox
and is blue and the merits of the application that is blue

A greeting

Mustafa

Hola de nuevo
Ahora tengo otro problema el fondo del Window es de color
verde BACKCOLOR {023,101,012} tengo un Label que hace un adorno de recuadro de
color Azul
*-------------------------------------------------*
@ 20,20 LABEL Label_00z WIDTH 250 HEIGHT 220 ;
FONT "Ms Sans Serif" SIZE 0011 BORDER CLIENTEDGE BACKCOLOR {016,000,100}
Win_3x.Label_00z.Enabled := .F.
*--------------------------------------------------*
y encima esta el RICHEDITBOX de color amarillo para poder escribir en el RICHEDITBOX
tengo que dejar el Label en Win_3x.Label_00z.Enabled := .F.
Cuando se hace Control + V para pegar o se hace Scholl
desaparece el tecto y el color amarillo de fondo y el RICHEDITBOX
se queda de color azul como el adorno de Label

Creo que se subsanaria evitando el SCROLL es decir que no se pueda escribir nada mas
que el las cordenadas de RICHEDITBOX de
ROW 40
COL 40
WIDTH 210
HEIGHT 175
-------------------------------------------
Now I have another problem is the background color Window
Green BACKCOLOR (023,101,012) I have a Label that makes an ornament box
Blue color
*----------------------------------------------------*
@ 20.20 LABEL Label_00z WIDTH 250 HEIGHT 220;
FONT "MS Sans Serif" SIZE BORDER CLIENTEDGE BACKCOLOR (0011) 016,000,100
Win_3x.Label_00z.Enabled: =. F.
*-----------------------------------------------------*
and above this the yellow RICHEDITBOX to write in RICHEDITBOX
I have to leave in Win_3x.Label_00z.Enabled Label: =. F.
When you Control + V to paste or becomes Scholl
Tecto disappears and the yellow background and RICHEDITBOX
blue runs as the ornament of Label

I think avoiding SCROLL be remedied is that you can not write anything more
that the cordenadas of RICHEDITBOX of
ROW 40
COL 40
WIDTH 210
Height 175

*--------------------------------------------------*
#include <minigui.ch>
PROC Main()

REQUEST HB_LANG_ES
HB_LANGSELECT( "ES" )


DEFINE WINDOW Win_3x ;
AT 0,0 ;
WIDTH 300 ;
HEIGHT 300 ;
BACKCOLOR {023,101,012} ;
TITLE " " ;
MAIN
ON KEY ESCAPE ACTION Win_3x.Release

*---------------------- Label Cuadro Decorativo -------------------*

@ 20,20 LABEL Label_00z WIDTH 250 HEIGHT 220 ;
FONT "Ms Sans Serif" SIZE 0011 BORDER CLIENTEDGE BACKCOLOR {016,000,100}

Win_3x.Label_00z.Enabled := .F.
*------------------------------------------------------------------*
DEFINE RICHEDITBOX RichEditBox_1
ROW 40
COL 40
WIDTH 210
HEIGHT 175
VALUE ""
FONTNAME "Arial"
FONTSIZE 10
TOOLTIP "Escriba Texto"
ONCHANGE .T.
ONGOTFOCUS .T.
ONLOSTFOCUS .T.
FONTBOLD .T.
FONTITALIC .T.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID .T.
TABSTOP .T.
VISIBLE .T.
READONLY .F.
BACKCOLOR {217,244,000}
END RICHEDITBOX

END WINDOW
CENTER WINDOW Win_3x
ACTIVATE WINDOW Win_3x
RETURN NIL

mustafa wrote:Hola a todos
Una pregunta tonta
estoy usando RICHEDITBOX esribo texto
y lo grabo sin problemas, pero queria Copiar y Pegar al Bloc de
Notas y no deja o al reves del Bloc de Notas al RICHEDITBOX

I've created a sample to test it and copy/paste works in both ways.

mustafa wrote: Now I have another problem is the background color Window
Green BACKCOLOR (023,101,012) I have a Label that makes an ornament box
Blue color
*----------------------------------------------------*
@ 20.20 LABEL Label_00z WIDTH 250 HEIGHT 220;
FONT "MS Sans Serif" SIZE BORDER CLIENTEDGE BACKCOLOR (0011) 016,000,100
Win_3x.Label_00z.Enabled: =. F.
*-----------------------------------------------------*
and above this the yellow RICHEDITBOX to write in RICHEDITBOX
<...>

Controls should not be overlapped.

Overlapping controls could produce unxpected result and must be not done.

I should like to add error checking to avoid this but it is too expensive in terms time consumed on window creation at runtime.

Gracias Roberto por tu tiempo en mi consulta

Está medio solucionado lo he engañado poniendo otro recuadro de
adorno pero esta vez de color amarillo 217,244,000} como el color de RICHEDITBOX
@ 319,624 LABEL Label_00Az WIDTH 338 HEIGHT 253 ;
FONT "Ms Sans Serif" SIZE 0011 BORDER CLIENTEDGE BACKCOLOR {217,244,000}
Win_3x.Label_00Az.Enabled := .F.
despues le pongo DEFINE RICHEDITBOX RichEditBox_1 y el resto lineas del RICHEDITBOX
y parece que todo Funciona bien, ya pondre un ejemplo que estoy haciendo.

Thanks Roberto for your time in my office
Is half solved I cheated by putting another box
ornament but this time 217,244,000) yellow as the color of RICHEDITBOX
Label_00Az @ 319.624 LABEL WIDTH 338 HEIGHT 253;
FONT "MS Sans Serif" SIZE BORDER CLIENTEDGE BACKCOLOR (0011) 217,244,000
Win_3x.Label_00Az.Enabled: =. F.
after I put DEFINE RICHEDITBOX RichEditBox_1 and other lines of RICHEDITBOX
and it seems that everything works well, and give you an example I'm doing.

A greeting Mustafa

mustafa wrote: <...>
y parece que todo Funciona bien, ya pondre un ejemplo que estoy haciendo.

Ok.

Hola a todos
esta demo esta enfocada a demostrar que con LABEL se pueden hacer cuadors de adorno
El amigo Lucho Miranda me mando esta rutina para experimentar:
*--------------------------- Rutina cedida por Lucho Miranda ElSalnes@telefonica.net --------------------*
@ 034,595 LABEL Label_00z WIDTH 400 HEIGHT 580 ;
FONT "Ms Sans Serif" SIZE 0011 BORDER CLIENTEDGE BACKCOLOR {016,000,100}
Win_3x.Label_00z.Enabled := .F.
*------------------------------------------------------------------*
Hay que poner siempre Win_3x.Label_00z.Enabled := .F. si queremos poner otros objetos como
un calendario o escribir en RICHEDITBOX para que nos haga de pequeño editor.
Tambien he descubierto que se Copia con Ctr + C y se hace Pasta con Ctrl + V
Tambien hay otra rutina para poner en los Window de fecha y hora
*----------------------------------------------------------------*
Hay tambien rutinas de Marcos Antonio Gambeta de cambio de Colores de Calendario MONTHCALENDAR
y de los famosos mensajes de TOOLTIP de forma más grande.

Si alguno de vosotros quiere cambiar algo o tiene una nueva idea solo quiero que me mandeis un e-meil
y me mandeis el codigo fuente.

Un Saludo a todos en especial a Roberto por el tiempo que me ha dedicado


Hello everyone
this demo is focused to demonstrate how you can make cuadors LABEL ornament
Lucho Miranda's friend sent me this routine to experience:
*--------------------------- Rutina cedida por Lucho Miranda ElSalnes@telefonica.net --------------------*
@ 034,595 LABEL Label_00z WIDTH 400 HEIGHT 580 ;
FONT "Ms Sans Serif" SIZE 0011 BORDER CLIENTEDGE BACKCOLOR {016,000,100}
Win_3x.Label_00z.Enabled := .F.
*------------------------------------------------------------------*
We must always put Win_3x.Label_00z.Enabled: =. F. if we put other objects such as
a calendar and write RICHEDITBOX to make us small publisher.
I have also discovered that Ctrl + C to Copy and Paste is Ctrl + V with
There is also another routine to set the Date and Time Window
*------------------------------------------------- ---------------*
There are also routines Marcos Antonio Gambeta change colors Calendar MONTHCALENDAR
and the famous TOOLTIP messages so larger.
If any of you want to change something or have a new idea I just want an e-meil mandeis
mandeis me the source code.
Greetings to all especially to Roberto by the time I devoted
Mustafa

Screen Copy