linjenummer? + andet

Sæt menu caption til '-'

hvis det er D6 og en richedit du bruger, så prøv lige at kigge på CaretPos

fra hjælpen :

Indicates the position of the caret in the client area of the memo.

property CaretPos: TPoint;

Description

Use CaretPos to determine the coordinates of the cursor. TPoint type defines a pixel location onscreen, with the origin in the top left corner. X specifies the horizontal coordinate of the point, Y specifies the vertical coordinate. CaretPos indicates the X and Y position relative to the client origin of the memo.

To determine the position of the caret in terms of characters of text only (rather than X/Y location), use the SelStart property.

jeg har rettet en ting... I stedet for richedit bruger jeg nu memo... så der er ingen problemer... Men hvordan laver jeg linjenummerering?

er det muligt at du kan skrive lidt kode, for det der siger mig ikke rigtig noget =)

Smid en statusbar på din form og skriv sådan i en KeyUp event :

StausBar1.Simpeltext := Format(' Line : %d Pos : %d ',[Memo1.CaretPos.y,Memo1.CaretPos.x]);


/Martin

Øhhh upps, jeg glemte da vist lige at læse hvad jeg gav dig, sorry.

aant du skal ikke skifte fra richedit til memo, fordi en richedit kan indefolde mere text end en memo. Det problem du havde kan laves ved bare at kalde:
RichEdit1.PlainText := true;

I oncreate eller ligefør du gemmer. Ang. linie nummer ved jeg ikke helt hvad du skal gøre. Det beste ville være at downloade synedit, men hvis du er ny kan den være svær at bruge.
...ellers gem det med linie nummre til version 2 :)

dkn

Jeg tror også at jeg gemmer det lidt... Jeg skal lige ind i det her... Tak for hjælpen gutter

Sådan kan du gøre :

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;