Linier i editor

Hvis det er under en memo hedder det:
var Linjer:integer;
begin
Linjer := memo1.lines.count;
end;

Men hvor er det du vil have det til at stå??? Kender ikke lige JBuilder! ;-)

// Jonat.

Hehe :-)

Det står vist bare ude i siden, men problemet er bla. også, at jeg ikke ved hvilket komponent det står i?

Hvad mener du med hvilket component det står i????

// Jonat.

Det jeg mener er, at jeg ikke ved om det står i en edit, label etc.

I mit eksempel bliver antallet af linjer lagt ind i variablen "linjer" som integer.
og hvis den nu skal lægges ind i en edit skriver du bare:

edit1.text := inttostr(memo1.lines.count);
og hvis label:
label1.caption := inttostr(memo1.lines.count);

// Jonat.

Er det ikke sådan noget du mener:

http://mbudde.1go.dk/shot.jpg  ?

Jeg er ikke helt sikker på at jeg forstår hvad du mener.... :-)

Men hvis det er det du mener, som jeg har skrevet kan man også lave det om til en funktion:

function GetLinesCount(Lines : TStrings) : Integer;
begin
  result := Lines.Count;
end;

og så skal du kalde:
  Edit1.text := IntToStr(GetLinesCount(Memo1.Lines));    // I Edit1
  Label1.Caption := IntToStr(GetLinesCount(Memo1.Lines)); // I label1

Jo, præcis !

Tomat-ketchup -> 404 siden blev ikke fundet
;-)
// Jonat.

Åbn IE igen, og kopier linket derind

Det ved jeg ikke lige hvordan man laver, men af edit og label, er det nok label der er bedst.

// Jonat.

Jeg sidder lige og expermenterer med en paintbox ved siden af en memo.

jeg har også fundet en del af løsningen, men jeg ved bare ikke hvordan man finder ud af hvad nr. den øverste synlige linje er i memoen. da det er derfra den skal tælle. :-D

// Jonat

Jeg kan ikke få det til at virke :-( ....
Men du kan prøve og spørge om der er andre der ved det.....

(jeg har ellers forsøgt hårdt) ;-)

// Jonat.

hent JEDI VCL der er en EditorMemo mener jeg nok

procedure TForm1.Memo1Change(Sender: TObject);
var
  i: integer;
begin
  Memo2.Lines.Clear;
  for i := 1 to Memo1.Lines.Count do
  begin
    Memo2.Lines.Add(IntToStr(i));
  end;
end;

Så laver du bare to memo'er:

http://mbudde.1go.dk/shot2.jpg

virker ikke helt optimalt :(

Jeg kan lave noget som kommer til at virke optimalt nu.. lige 5-10 min... :-)

// Jonat.

Her :
procedure TForm1.Memo1Change(Sender: TObject);
var FirstLine,I,AntalSynligeLinjer : integer;
begin
FirstLine := Memo1.Perform(EM_GETFIRSTVISIBLELINE, 0, 0 );

AntalSynligeLinjer := Memo1.Height div 13;

For I := 0 to AntalSynligeLinjer do
begin
  Image1.Canvas.TextOut(10,(I*13)+3,IntToStr(I+1+FirstLine));
end;
end;

Så skal du placere en image (image1) lige op ad memoen, og så smide koden ind i memoens onChange.

Og det skulle self. have været et svar. :-D

// Jonat

Og så under form Resize skal du så lave noget med at billedet følger med memoen, hvis memoen ændre størrelse.... :-D

// Jonat.

syntes egentlig bare du skal hente det komponent, der kommer aldrig noget godt ud af de canvas forsøg sammen med en memo.

Dkn, jeg tror du har ret, selvom det da næsten virker med Jonat's ex.
Er der nogle der har et link til komponentet ?

http://sourceforge.net/projects/jvcl

Er det den her?

ja

Er det kun mig, eller har I andre også haft problemer med at installere komponentet ?