Hi,
ich würde für meinen Texteditor gerne eine Funktion einbauen, die es erlaubt, Quelltext automatisch während dem Schreiben einzurücken, so wie bei "vi" zB, falls euch das was sagt
. Momentan mache ich es so, dass ich VK_UP, VK_RETURN und VK_DOWN abfange und dann überprüfe, ob in der jeweiligen Zeile eine { bzw } vorkommt. Daraus bildet sich dann die Variable bracket_level, die speichert, wieviele Leerzeichen bzw Tabs momentan eingerückt werden sollen. Nach jedem VK_RETURN lasse ich nun bracket_level abarbeiten, und zwar so:
Delphi-Quellcode:
procedure TMainForm.Richedit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var c:integer;
function BuildIndent:string;
var x:integer; temp:string;
begin
for x:=0 to (bracket_level) do
temp:=temp+' ';
result:=temp;
end;
begin
if (Key = VK_RETURN) then
if (copy(RichEdit1.Lines[RichEdit1.CaretPos.Y],1,1+bracket_level) <> BuildIndent) then
for c:=0 to (bracket_level) do begin
keybd_event(VK_SPACE,0,0,0);
keybd_event(VK_SPACE,0,KEYEVENTF_KEYUP,0);
end;
end;
Nun wird allerdings nur jede zweite Zeile auf diese Weise eingerückt?!
Außerdem weiß ich nicht, wie ich mit Mausklicks, die die CaretPosition verändern, umgehen soll:
Alle Klammern neu zählen, was ab einer gewissen Länge des Dokuments vermutlich sehr lang dauert, oder die Klammern im Bereich in dem sich die Maus bewegt hat zählen, was aber recht komplex wäre.
Was meint ihr? Hat sowas vielleicht schon mal jemand gemacht und hat das ein oder andere Beispiel?
Danke & cu