Editor de texto.

[rauros]

El sistema de richedit (la demo de delphi) es este:

Código Delphi [-]
procedure TMainForm.UpdateCursorPos;
var
  CharPos: TPoint;
begin
  CharPos.Y := SendMessage(Editor.Handle, EM_EXLINEFROMCHAR, 0,
    Editor.SelStart);
  CharPos.X := (Editor.SelStart -
    SendMessage(Editor.Handle, EM_LINEINDEX, CharPos.Y, 0));
  Inc(CharPos.Y);
  Inc(CharPos.X);
  StatusBar.Panels[0].Text := Format(sColRowInfo, [CharPos.Y, CharPos.X]);
end;

En private está declarada. El problema es este:

Código Delphi [-]
procedure TMainForm.SelectionChange(Sender: TObject);
begin
  with Editor.Paragraph do
  try
    FUpdating := True;
    FirstInd.Left := Trunc(FirstIndent*RulerAdj)-4+GutterWid;
    LeftInd.Left := Trunc((LeftIndent+FirstIndent)*RulerAdj)-4+GutterWid;
    RightInd.Left := Ruler.ClientWidth-6-Trunc((RightIndent+GutterWid)*RulerAdj);
    BoldButton.Down := fsBold in Editor.SelAttributes.Style;
    ItalicButton.Down := fsItalic in Editor.SelAttributes.Style;
    UnderlineButton.Down := fsUnderline in Editor.SelAttributes.Style;
    BulletsButton.Down := Boolean(Numbering);
    FontSize.Text := IntToStr(Editor.SelAttributes.Size);
    FontName.Text := Editor.SelAttributes.Name;
    case Ord(Alignment) of
      0: LeftAlign.Down := True;
      1: RightAlign.Down := True;
      2: CenterAlign.Down := True;
    end;
    UpdateCursorPos;
  finally
    FUpdating := False;
  end;
end;

Que en richedit hay selectionchange y en memo no hay... ¿Hay alguna manera de adaptarlo para memo? Lo que quiero es:

Que aparezca abajo en el "statusbar" la información de donde está el puntero. Gracias de antemano

[ixMike]

Creo que ya te dije para qué es la propiedad Lines del TMemo. ¿Has probado con Position, Coordinates, XY.... algo así? Busca, busca, busca, busca.... ahí está la clave.

Acabo de hacer una búsqueda: http://www.clubdelphi.com/foros/showthread.php?t=34479

Ale, CaretPos.


Salu2

[rauros]

Vale. Ahora necesito que me recomendéis un buen evento para que se actualice cada vez que clique, he probado con OnKeyPress porque creía que hacía referencia a cada botón pulsado del teclado pero se ve que no es eso. Gracias muchas a todos que me ayudáis día y noche.

[rauros]

Y otra pregunta (estoy pesadito ee jej). He intentado modificar caretpos.x para hacer una especie de "ir a linea" pero me da error de "left side cannot be assigned to". ¿Ese error es porque no se puede modificar? En ese caso, ¿Cómo puedo arreglarlo? Gracias muchas de antemano.

Nota: es caretpos.y pero no funciona igual...

[[maeyanes]]

Hola...

Ese error se de mayormente cuando la propiedad que deseas modificar es de tipo Record o asignar un valor a una constante...

Tienes que buscar otro mecanismo para hacer lo que quieres, tal vez mediante un mensaje enviado al control TMemo...



Saludos...

[ixMike]

Para la próxima vez, ten en cuenta que "cada vez que clique" significa click del ratón, y tú lo que pides es "cada vez que pulse una tecla", o más simple, "teclee".

El evento OnKeyPress sólo captura teclas que escriben, y unas pocas más (Escape, Enter, Backspace, Tab...). Para todas las demás, tendrás que usar OnKeyDown u OnKeyUp (según pulses o sueltes).

Los valores de Key están listados en Virtual Key Codes (ayuda de Delphi). Todos empiezan por "VK_".


Salu2.

[rauros]

Tengo otra duda. Si dejas pulsado el botón se activa el evento cada x tiempo? No estoy en mi casa y no puedo comprobarlo.