Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-06-2007
Avatar de LuNaTk
LuNaTk LuNaTk is offline
Miembro
 
Registrado: jun 2007
Posts: 19
Poder: 0
LuNaTk Va por buen camino
Smile Modo insert en un memo!!

Hola amigos del Club.

Soy nuevo en este foro y estoy introduciendome en este lenguaje de programacion, me gustaria saber si alguno de ustedes sabe como puedo hacer para que al desplazar el cursor de texto este no sea un linea vertical que va recorriendo los caracteres consecuentes, sino que sea un cursor de texto cuadrado el cual cambia el caracter seleccionado en el cursor por el que se presiona, algo asi como la imegen que adjunto, de antemano muchas gracias a todos por la antencion prestada .

http://img505.imageshack.us/img505/1...sortextqh0.jpg
Responder Con Cita
  #2  
Antiguo 29-06-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

En realidad creo que te refieres al modo "overwrite" y no al modo "insert": es al revés.

Te interesará este "truco" de Zarko Gajic: Overwrite in TMemo and TEdit. Clear all Edit controls on a form. Según parece lo que necesitas tiene que "emularse", y, de todos modos, temo mucho que no te satisfaga, puesto que aunque se consigue el efecto "overwrite" el cursor no se muestra como un "bloque".

He mirado por curiosidad el componente "TRichEdit" (pestaña "Win32" de la paleta de componentes de Delphi) y, aunque este control sí que distinte entre el modo "overwrite" y el modo "insert", el cursor sigue sin mostrarse como tú quisieras. Yo, francamente, no tengo ni idea ahora mismo de cómo hacer lo que necesitas.

Sin embargo, los componentes SynEdit te ofrecen, entre otros, un "TSynMemo", que sí que se comporta como esperas... además de ofrecerte otras utilidades. Son componentes de código abierto cuyo funcionamiento podrías estudiar, o, usarlos sin más si lo ves oportuno.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #3  
Antiguo 29-06-2007
Avatar de LuNaTk
LuNaTk LuNaTk is offline
Miembro
 
Registrado: jun 2007
Posts: 19
Poder: 0
LuNaTk Va por buen camino
Hola.

Muchas gracias dec pr la aclaracion, si tienes razon me referia al modo "overwrite" y ya he bajado el componente Synedit, lo malo es que no se como agregarlo , disculpa las molestias si tienes tiempo podrias ayudarme diciendome como lo puedo agregar??.

Gracias de nuevo.
Responder Con Cita
  #4  
Antiguo 29-06-2007
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Para mostrar el cursor como un bloque se usa la función CreateCaret para especificar el tamaño, y ShowCaret para mostrar el nuevo cursor.

Lo malo es que el cursor tendría que crearse cada vez que se entra al control, para lo cual tenemos el evento OnEnter. Sin embargo, éste ocurre mientras la VCL está procesando el mensaje WM_SETFOCUS, y para cuando termina de hacerlo (despúes del OnEnter), el cursor vuelve a su forma original.

Entonces debemos manejar nosotros mismos dicho mensaje para asegurarnos de crear el cursor después de que el sistema termine de procesar WM_SETFOCUS. Para ello puede crearse un control derivado de TMemo, o bien, si es para un sólo memo, reemplazando al vuelo su manejador de mensajes:

Código Delphi [-]
TForm1 = class(TForm)
  Memo1: TMemo;
  procedure FormCreate(Sender: TObject);
  procedure Memo1Exit(Sender: TObject);

private
  OldMemoWndProc: TWndProc;
  procedure MemoWndProc(var Msg: TMessage);
end;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Guardamos una referencia al método original
  OldMemoWndProc := Memo1.WindowProc;

  // Reemplazamos el manejador de mensajes de Memo1 por el nuestro
  Memo1.WindowProc := MemoWndProc;
end;

procedure TForm1.Memo1Exit(Sender: TObject);
begin
  // Destruimos el cursor al salir del control
  DestroyCaret();
end;

{
  Manejador de mensajes para Memo1
}
procedure TForm1.MemoWndProc(var Msg: TMessage);
var
  DC: HDC;
  TM: TextMetric;

begin
  // Llamamos al manejador original
  OldMemoWndProc(Msg);

  // Si es el mensaje WM_SETFOCUS, crear el cursor
  if Msg.Msg = WM_SETFOCUS then
  begin
    DC := GetDC(Handle);
    GetTextMetrics(DC, TM);
    ReleaseDC(Handle, DC);

    CreateCaret(Memo1.Handle, 0, TM.tmAveCharWidth, TM.tmHeight);
    ShowCaret(Memo1.Handle);
  end;
end;

end.

// Saludos

Última edición por roman fecha: 29-06-2007 a las 18:40:09.
Responder Con Cita
  #5  
Antiguo 29-06-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Pues sí; estuvo bien eso Román.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #6  
Antiguo 30-06-2007
Avatar de LuNaTk
LuNaTk LuNaTk is offline
Miembro
 
Registrado: jun 2007
Posts: 19
Poder: 0
LuNaTk Va por buen camino
Muchas gracias Roman!!

No me queda duda de que asi debe funcionar como deseo, pero tengo un problemita y de antemano pido disculpas si los llego a desesperar pero os repito que soy nuevo en este lenguaje, y me ha marcado un error en esta parte delcodigo que pongo en rojo, serias tan amable de indicarme donde estoy cometiendo el error o tal vez me falto declarar algo.

Gracias nuevamente.

Código Delphi [-]
unit memoxx;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
  Memo1: TMemo;
  procedure FormCreate(Sender: TObject);
  procedure Memo1Exit(Sender: TObject);
  private
  OldMemoWndProc: TWndProc;
  procedure MemoWndProc(var Msg: TMessage);
  end;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Guardamos una referencia al método original
  OldMemoWndProc := Memo1.WindowProc;
  // Reemplazamos el manejador de mensajes de Memo1 por el nuestro
  Memo1.WindowProc := MemoWndProc;
end;
procedure TForm1.Memo1Exit(Sender: TObject);
begin
  // Destruimos el cursor al salir del control
  DestroyCaret();
end;
{
  Manejador de mensajes para Memo1
}
procedure TForm1.MemoWndProc(var Msg: TMessage);
var
  DC: HDC;
  TM: TextMetric;
begin
  // Llamamos al manejador original
  OldMemoWndProc(Msg);
  // Si es el mensaje WM_SETFOCUS, crear el cursor
  if Msg.Msg = WM_SETFOCUS then
  begin
    DC := GetDC(Handle);
    GetTextMetrics(DC, TM);
    ReleaseDC(Handle, DC);
    CreateCaret(Memo1.Handle, 0, TM.tmAveCharWidth, TM.tmHeight);
    ShowCaret(Memo1.Handle);
  end;
end;
 
end.

Última edición por LuNaTk fecha: 30-06-2007 a las 22:15:39.
Responder Con Cita
  #7  
Antiguo 01-07-2007
Avatar de LuNaTk
LuNaTk LuNaTk is offline
Miembro
 
Registrado: jun 2007
Posts: 19
Poder: 0
LuNaTk Va por buen camino
He buscado mas informacion sobre esto, Amigo Roman he visto en este hilo donde explicas tambien que es necesario el uso de un manejador de mensajes creado por nosotros para controlar "x" necesidad, y he visto una declaracion que es diferente a la que has dejado en el ejemplo de arriba de este hilo.

MemoOldWndProc: TWndMethod;


Si cambio esa declaracion, el programa si compila y corre, pero no se muestra el caret, no tiene ningun efecto, voy a tratar de averiguar porque.

Saludos y gracias por tu tiempo.

Última edición por LuNaTk fecha: 01-07-2007 a las 05:04:44.
Responder Con Cita
  #8  
Antiguo 02-07-2007
Avatar de LuNaTk
LuNaTk LuNaTk is offline
Miembro
 
Registrado: jun 2007
Posts: 19
Poder: 0
LuNaTk Va por buen camino
Hola Club.

Ya pude conseguir lo que necesitaba, gracias a dec y Roman, amigos muchas gracias por su tiempo y paciencia, lo que cambie fue lo que esta en negrita, y aparte de ese cambio no me habia dado cuenta pero el evento "OnCreate" del Form1 no estaba bien asignado por mi, es decir en el codigo estaba escrito pero no lo agrege desde el Inspector de Objetos, no se si me explique, solo le di doble click a "OnCreate" de TForm de modo que dicho evento se activara y funciona bien, se crea el caret. Y para que funcionara en modo "Overwritte" puse Memo1.SelLength := 1; en el evento KeyPress del TMemo1.

Gracas nuevamente, este fue el codigo.




Código Delphi [-]
unit memoxx;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure Memo1Exit(Sender: TObject);
private
OldMemoWndProc: TWndMethod;
procedure MemoWndProc(var Msg: TMessage);
end;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
// Guardamos una referencia al método original
OldMemoWndProc := Memo1.WindowProc;
// Reemplazamos el manejador de mensajes de Memo1 por el nuestro
Memo1.WindowProc := MemoWndProc;
end;
procedure TForm1.Memo1Exit(Sender: TObject);
begin
// Destruimos el cursor al salir del control
DestroyCaret();
end;
{
Manejador de mensajes para Memo1
}
procedure TForm1.MemoWndProc(var Msg: TMessage);
var
DC: HDC;
TM: TextMetric;
begin
// Llamamos al manejador original
OldMemoWndProc(Msg);
// Si es el mensaje WM_SETFOCUS, crear el cursor
if Msg.Msg = WM_SETFOCUS then
begin
DC := GetDC(Handle);
GetTextMetrics(DC, TM);
ReleaseDC(Handle, DC);
CreateCaret(Memo1.Handle, 0, TM.tmAveCharWidth, TM.tmHeight);
ShowCaret(Memo1.Handle);
end;
end;
 
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Memo1.SelLength := 1;
end;
 
end.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Modo Cascade CoCaInE OOP 2 05-09-2006 18:06:13
Modo diseño y modo ejecución buildero_d OOP 3 11-09-2005 07:45:00
Campo memo tabla escribirlo en componente Memo Sayuri Conexión con bases de datos 2 18-08-2005 14:58:01
Insert me cierra otro Insert motrildelphi Conexión con bases de datos 0 05-05-2005 13:20:27
Modo sin ODBC seduerey Impresión 3 20-07-2003 16:54:44


La franja horaria es GMT +2. Ahora son las 00:11:00.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi