Editor de texto.

[rauros]

Okey. Lo entiendo al dedillo. Ahora para complementarlo necesitaría saber que valor alberga la posición del puntero del memo en cada momento. Por ejemplo:

Saludillos hijos de cristo

La posición sería 1:9

abc
def
ghi

La posición sería 3:3

Saludillos y gracias por toda la ayuda.

[ixMike]

No se llama puntero, se llama cursor , y puedes saberlo mediante las propiedades Row, Line, Col... o algo así (es que en mi versión esas propiedades no existen ).

Salu2


P.D.: Te recomiendo que, cuando no sepas algo, recorras todas las propiedades, eventos y métodos de un tipo de objeto, y te guíes por tu conocimiento de inglés para adivinar para qué sirven. Así yo he aprendido muchísimo.

[rauros]

Vale. En memo1 no he podido encontrar ni memo1.row ni memo1.col . He encontrado lo más parecido memo1.lines lo más parecido.

[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...