°£´ÜÇÏ°Ô »ç¿ëÇÒ ¼ö ÀÖ´Â ¹®¹ý°Á¶±âÀÔ´Ï´Ù. Á¤ÀÇÆÄÀÏÀº xmlÇü½ÄÀ» µû¸£°í ÀÖ½À´Ï´Ù.
»ç¿ë¹æ¹ýµµ ºñ±³Àû °£´ÜÇÕ´Ï´Ù.
Ãâó: https://github.com/t-edson/SynFacilCompletion
<ÃʱâÈ> uses ... , SynFacilCompletion;
procedure TForm1.FormShow(Sender: TObject); begin //configure highlighter hlt := TSynFacilComplet.Create(self); //my highlighter SynEdit1.Highlighter := hlt; //optional if we are going to use SelectEditor() hlt.LoadFromFile('ObjectPascal.xml'); //load syntax hlt.SelectEditor(SynEdit1); //assign to editor end;
<Å°º¸µå Çڵ鷯> procedure TForm1.edKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin hlt.KeyUp(Sender, Key, Shift); end;
procedure TForm1.ed1UTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char); begin hlt.UTF8KeyPress(Sender, UTF8Key); end;
<¸®¼Ò½º ÇØÁ¦> procedure TForm1.FormDestroy(Sender: TObject); begin hlt.UnSelectEditor; //release editor (only necessary if we are to call to SelectEditor(), again) hlt.Free; //destroy the highlighter end;
Âü°íÇϽñæ~
|