Un editor COOL. Al recibir el foco se "ilumina" y viceversa...

[pascalutn2003]

1.-Tambien se puede proceder del igual modo con un TDBEdit, ya lo hice y obviamente se llama TDBCoolEdit

2.- No te va a funcionar el cambio de color de foco porque no lo termine, solo le di un color fijo pero; en cuanto lo tenga lo paso.

[pascalutn2003]

¿Curioso?

Para nada; pasa que es una buena forma de retribuir a las ayudas que me dan las personas que andan por el foro.

Y sip; lo del repaint puede no ser necesario, pero pasa que por ahi pequé de necio y en lugar de utilizar el Paint como corresponde quise ver que pasaba de la forma en que lo subi.

De modo alguno vas a encontrar un par de cosas que no tienen sentido; sucede que iba escribiendo y bla bla bla, pero cuando daba marcha atras en algo no borraba todo el codigo basura.

En fin; espero puedan disfrutarlo (y mejorarlo jejejejeje; le falta mucho) yo por mi lado lo voy a seguir desarrlollando...

EDGARDO - Córdoba - Argentina

[DarKraZY]

Hola! Muy bueno el componente. Tan sólo una objeción. La propiedad "FontColorFocus" y "FontColorNoFocus" no es necesaria, ya que podrías usar el atributo Color de "FocusFont" y "NoFocusFont".

unsaludo!

[pascalutn2003]

...por mas que quiero...

Hola a todos, anoche deje el codiguito del CoolEdit y mencione lo del Paint en lugar de RePaint.

Crei que era yo el herrado cuando le dije a David que habia sido necio al utilizar Repaint en lugar de Paint; pero resulta que Paint en el ancestro no existe y por muchas vueltas que le di; aun intentando con un evento personalizado agregado al que pretendi llamar Paint; no se pudo.

Pido disculpas por el error cometido.

[pascalutn2003]

Hola pibeeee:

Tenes razon sobre las cosillas de mas; no me di cuenta jejejeje

Ya lo corregiré

[[AzidRain]]

DevEx Editors ya incluye este comportamiento para todos sus controles (mas de 30) con muchas otras opciones...

[[AzidRain]]

Este código hace un "HotTrack" con Labels y checkboxes, si lo cambian un poco sirve para cualquier control...me parece que se explica solo

Código Delphi [-]
{Hay que sobreescribir el procedimiento WndProc procedure}
procedure WndProc(var Message : TMessage) ; override ;

procedure TForm1.WndProc(var Mesg : TMessage) ;
begin
{Aqui vemos que componente ha cambiado. 
  El bit de aqui nos dice sobre que componente se encuentra el mouse }
     if Mesg.LParam = Longint(Label1) then
        ChangeColor(Label1, Mesg.Msg) ;
     if Mesg.LParam = Longint(Label2) then
        ChangeColor(Label2, Mesg.Msg) ;
     if Mesg.LParam = Longint(Label3) then
        ChangeColor(Label3, Mesg.Msg) ;
     if Mesg.LParam = Longint(CheckBox1) then
        ChangeColor(CheckBox1, Mesg.Msg) ;

   inherited WndProc(Mesg) ;
end;


procedure TForm1.ChangeColor
   (Sender : TObject; Msg : Integer) ;
Begin
{ Si el mouse está sobre un label tenemos que hacer esto} 

  if Sender IS TLabel Then
   begin
     if (Msg = CM_MOUSELEAVE) then
      (Sender As TLabel).Font.Color:=clWindowText;
     if (Msg = CM_MOUSEENTER) then
      (Sender As TLabel).Font.Color:=clBlue;
   end;

{ Si es un checkbox...}  
  if Sender IS TCheckBox Then
   begin
    if (Msg = CM_MOUSELEAVE) then
     (Sender As TCheckBox).Font.Color:=clWindowText ;
    if (Msg = CM_MOUSEENTER) then
     (Sender As TCheckBox).Font.Color:=clRed ;
   end;
end;