Schöner effekt
Spass beiseite, was mir auffällt ist die unterschiedlich Schriftgrösse!
Sollte aber normalerweise kein Grund sein den Cursor falsch zu platzieren, aber wer weiss?
kann aber erstmal nichts machen(in mein delphi7 anzupassen) muss weg leider.
erst 2300 zurück
Edit:
Hab mal was gemacht und ich hab mit meiner simplen Lösung kein Problem!
Hier mal Code wie ich von Grid zu Richedit es umgesetzt habe
Delphi-Quellcode:
//------- dies habe ich in frmText mal eingwefügt
procedure TfrmText.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 0 to WantLines -1 do
rceText.Lines.Add ('Zeile '+ inttostr(i+1));//<---hier hab ich mal +1 gemacht!
end
//-------- so setzt Du den Cursor--------
procedure TfrmText.SetRichLine(aRich: TRichEdit; aRichLine: Integer);
begin
aRich.SelStart:= SendMessage(aRich.Handle, EM_LINEINDEX, aRichLine-1, 0);
end;
//----so kannst Du umgekehrt die Zeile im Richedit auslesen!
procedure TfrmText.GetRichLine(aRich: TRichEdit);
begin
gridline := SendMessage (aRich.Handle, EM_LINEFROMCHAR, aRich.SelStart, 0);
end;
//zum test mal ein Timer eingesetzt
procedure TfrmText.Timer1Timer(Sender: TObject);
begin
SetRichLine(rceText, myline);
end;
//-------------------------------------//
//------dies in frmgrid-------------
procedure TfrmGrid.grdCodeClick(Sender: TObject);
begin
myline:= grdCode.Row;
end;
//--------------------------------------//
myline <---ist Ausnahmsweise mal ne globale Variable in der Mainform
Wie gesagt so funct es bei mir ohne probleme!
gruss alfold