±ÍÇÏ´Â ¼Õ´Ô À̽ʴϴÙ
·Î±×ÀÎ
ȸ¿ø°¡ÀÔ
  
  µ¨¸¶´ç °ø½Ä ÀºÇà°èÁÂ
  ÇϳªÀºÇà 227-910235-83607
  ¿¹±ÝÁÖ ÀÌ»ó±¹(¿î¿µÁø)
ÇÁ·ÎÁ§Æ® °Ô½ÃÆÇ
ÅõÇ¥°Ô½ÃÆÇ
µ¨¸¶´ç¼Ò°³
±âÃʺÎÅÍ È°¿ë±îÁö! µ¨ÆÄÀÌ ±³À° - µ¥ºê±â¾î
lazarus lazarus ÀÔ´Ï´Ù.
±Û³»¿ë - lazarus
 ¶óÀÚ·¯½º¿ë ¹®¹ý°­Á¶±â.
Æĸ£¼¿
(±èµµ¿Ï)
2014-08-21 ¿ÀÀü 8:55:09
1538ȸ Á¶È¸


µî·ÏµÈ ÆÄÀÏÀÌ ¾ø½À´Ï´Ù.
°£´ÜÇÏ°Ô »ç¿ëÇÒ ¼ö Àִ ¹®¹ý°­Á¶±âÀÔ´Ï´Ù.
Á¤ÀÇÆÄÀÏÀº 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;

Âü°íÇϽñæ~