Hjælp!

ellers tak for hjælpen... Men nu bruger jeg SynMemo !

Kode 

procedure TfrmMain.mmTextStatusChange(Sender: TObject;
  Changes: TSynStatusChanges);
begin
  // Skriv position
  stbStatus.Panels[0].Text := Format('%4d:%4d', [mmText.CaretX, mmText.CaretY]);

  // Angiv om indholdet er ændret
  if (scModified in Changes) or mmText.Modified then
    stbStatus.Panels[1].Text := 'Modified'
  else
    stbStatus.Panels[1].Text := '';

  // Angiv om indholdet er skrivebeskyttet
  if (scReadOnly in Changes) or mmText.ReadOnly then
    stbStatus.Panels[2].Text := 'Read-only'
  else
  begin
    // Eller om indtastning er i indsæt eller overskriv tilstand
    if (scInsertMode in Changes) or mmText.InsertMode then
      stbStatus.Panels[2].Text := 'Insert'
    else
      stbStatus.Panels[2].Text := 'Overwrite';
  end;
end;

Hej!

Jeg er igang med at lave en webeditor og jeg har et problem... Hvordan får man en statusbar til at vise hvilken linje og hvor langt man er inde i linjen..? fx. 12 : 4 - altså linje 12 og 4 tegn!


//

Pixilink

Hej!

Jeg er igang med at lave en webeditor og jeg har et problem... Hvordan får man en statusbar til at vise hvilken linje og hvor langt man er inde i linjen..? fx. 12 : 4 - altså linje 12 og 4 tegn!


//

Pixilink

Kode 

linjer:= IntToStr(SendMessage(RichEdit1.Handle, EM_LINEFROMCHAR, RichEdit1.SelStart, 0) + 1);
StatusBar1.Panels[0].Text := 'Li ' + linjer;

Hej!

Jeg er igang med at lave en webeditor og jeg har et problem... Hvordan får man en statusbar til at vise hvilken linje og hvor langt man er inde i linjen..? fx. 12 : 4 - altså linje 12 og 4 tegn!


//

Pixilink

Kode 

statusbar1.Panels.Items[0].Text:=inttostr(richedit1.CaretPos.X)+', '+inttostr(richedit1.CaretPos.Y);

Hej!

Jeg er igang med at lave en webeditor og jeg har et problem... Hvordan får man en statusbar til at vise hvilken linje og hvor langt man er inde i linjen..? fx. 12 : 4 - altså linje 12 og 4 tegn!


//

Pixilink

Hvis det er en Richedit hvor du skal have talt linjerne kan det gøres med denne kode

Kode 

linjer:= IntToStr(SendMessage(RichEdit1.Handle, EM_LINEFROMCHAR, RichEdit1.SelStart, 0) + 1);
StatusBar1.Panels[0].Text := 'Li ' + linjer;