Delphi - barra de estado

 
Vista:

barra de estado

Publicado por Choozen (4 intervenciones) el 25/05/2001 22:07:10
tengo un componente RichEdit1 y una barra de progreso y querría saber como hacer para saber en que posición se encuentra el cursor para añadir la información a la barra de estado.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:barra de estado

Publicado por José Oronas (94 intervenciones) el 27/05/2001 05:57:18

en el evento ..... OnSelectionChange del editor

procedure TForm1.EditorSelectionChange(Sender: TObject);
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('Linea: %3d Col: %3d', [CharPos.Y, CharPos.X]);
end;

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:barra de estado

Publicado por choozen (4 intervenciones) el 27/05/2001 18:09:25
Sólo era para darte las gracias José Oronas. Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar