Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sECuRE,
5. Feb 2005
Hi,
nach einigen Überlegungen und ein bisschen rumprobieren hab ich nun folgenden Code auf die Beine gestellt - für alle Interessierten:
procedure TMainForm.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var temp:string;
c,depth:integer;
const IndentKey: Word = VK_SPACE;
IndentDepth: integer = 2;
function CountOccasions(input,need:string):integer;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sECuRE,
17. Jan 2005
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,...