怎样把dephi的关键字高亮

woawn

怎样把dephi的关键字高亮

aminghanhua

在   RichEdit   中实现代码着色

贴给你好了，我找到的，试过，很好使。
--------------------------------------
在   RichEdit   中实现代码着色

下面的代码将以指定颜色对一些指定单词着色，就象delphi中的代码编辑器那样。

procedure   CodeColors(Form   :   TForm;Style   :   String;   RichE   :   TRichedit; 
                                                  InVisible   :   Boolean);   
const   
    //   符号...   
    CodeC1:   array[0..20]   of   String   =   ( '# ', '$ ', '( ', ') ', '* ', ', ',   
                    '. ', '/ ', ': ', '; ', '[ ', '] ', '{ ', '} ', ' < ', '> ',   
                    '- ', '= ', '+ ', ' ' ' ', '@ ');   
    //   保留字...   
    CodeC2:   array[0..44]   of   String   =   ( 'and ', 'as ', 'begin ',   
                    'case ', 'char ', 'class ', 'const ', 'downto ',   
                    'else ', 'end ', 'except ', 'finally ', 'for ',   
                    'forward ', 'function ', 'if ', 'implementation ', 'interface ',   
                    'is ', 'nil ', 'or ', 'private ', 'procedure ', 'public ', 'raise ',   
                    'repeat ', 'string ', 'to ', 'try ', 'type ', 'unit ', 'uses ', 'var ',   
                    'while ', 'external ', 'stdcall ', 'do ', 'until ', 'array ', 'of ',   
                    'in ', 'shr ', 'shl ', 'cos ', 'div ');   
var   
    FoundAt   :   LongInt;   
    StartPos,   ToEnd,   i   :   integer;   
    OldCap,T   :   String;   
    FontC,   BackC,   C1,   C2   ,C3   ,strC,   strC1   :   TColor;   
begin   
    OldCap   :=   Form.Caption;   
    with   RichE   do   
    begin   
        Font.Name   :=   'Courier   New ';   
        Font.Size   :=   10;   
        if   WordWrap   then   WordWrap   :=   false;   
        SelectAll;   
        SelAttributes.color   :=   clBlack;   
        SelAttributes.Style   :=   [];   
        SelStart   :=   0;   
        if   InVisible   then   
        begin   
            Visible   :=   False;   
            Form.Caption   :=   'Executing   Code   Coloring... ';   
        end;   
    end;   

    BackC   :=   clWhite;   FontC   :=   clBlack;   
    C1   :=   clBlack;   C2   :=   clBlack;   C3   :=   clBlack;   
    strC   :=   clBlue;   strC1   :=   clSilver;   

    if   Style   =   'Twilight '   then   
    begin   
        BackC   :=   clBlack;   FontC   :=   clWhite;   
        C1   :=   clLime;   C2   :=   clSilver;   C3   :=   clAqua;   
        strC   :=   clYellow;   strC1   :=   clRed;   
    end   
    else   
    if   Style   =   'Default '   then   
    begin   
        BackC   :=   clWhite;   FontC   :=   clBlack;   
        C1   :=   clTeal;   C2   :=   clMaroon;   C3   :=   clBlue;   
        strC   :=   clMaroon;   strC1   :=   clSilver;   
    end   
    else   
    if   Style   =   'Ocean '   then   
    begin   
        BackC   :=   $00FFFF80;   FontC   :=   clBlack;   
        C1   :=   clMaroon;   C2   :=   clBlack;   C3   :=   clBlue;   
        strC   :=   clTeal;   strC1   :=   clBlack;   
    end   
    else   
    if   Style   =   'Classic '   then   
    begin   
        BackC   :=   clNavy;   FontC   :=   clYellow;   
        C1   :=   clLime;   C2   :=   clSilver;   C3   :=   clWhite;   
        strC   :=   clAqua;   strC1   :=   clSilver;   
    end   
    else   
    begin   
        with   RichE   do   
        begin   
            T   :=   '{ '+Style+ '   =   Invalid   Style   [Default,Classic,Twilight,Ocean]   ONLY!   } ';   
            Lines.Insert(0,T);   
            StartPos   :=   0;   
            ToEnd   :=   Length(Text)   -   StartPos;   
            FoundAt   :=   FindText(T,   StartPos,   ToEnd,   [stWholeWord]);   
            SelStart   :=   FoundAt;   
            SelLength   :=   Length(T);   
            SelAttributes.Color   :=   clRed;   
            SelAttributes.Style   :=   [fsBold];   
            StartPos   :=   0;   
            ToEnd   :=   Length(Text)   -   StartPos;   
            FoundAt   :=   FindText( 'ONLY! ',   StartPos,   ToEnd,   [stWholeWord]);   
            SelStart   :=   FoundAt;   
            SelLength   :=   4;   
            SelAttributes.Color   :=   clRed;   
            SelAttributes.Style   :=   [fsBold,fsUnderLine];   
        end;   
    end;   

    RichE.SelectAll;   
    RichE.color   :=   BackC;   
    RichE.SelAttributes.color   :=   FontC;   

    for   i   :=   0   to   100   do   
    begin   
        with   RichE   do   
        begin   
            StartPos   :=   0;   
            ToEnd   :=   Length(Text)   -   StartPos;   
            FoundAt   :=   FindText(IntToStr(i),   StartPos,   ToEnd,   [stWholeWord]);   
            while   (FoundAt   <>   -1)   do   
            begin   
                SelStart   :=   FoundAt;   
                SelLength   :=   Length(IntToStr(i));   
                SelAttributes.Color   :=   C1;   
                SelAttributes.Style   :=   [];   
                StartPos   :=   FoundAt   +   Length(IntToStr(i));   
                FoundAt   :=   FindText(IntToStr(i),   StartPos,   ToEnd,   [stWholeWord]);   
            end;   
        end;   
    end;   
    for   i   :=   0   to   20   do   
    begin   
        with   RichE   do   
        begin   
            StartPos   :=   0;   
            ToEnd   :=   Length(Text)   -   StartPos;   
            FoundAt   :=   FindText(CodeC1[i],   StartPos,   ToEnd,   []);   
            while   (FoundAt   <>   -1)   do   
            begin   
                SelStart   :=   FoundAt;   
                SelLength   :=   Length(CodeC1[i]);   
                SelAttributes.Color   :=   C2;   
                StartPos   :=   FoundAt   +   Length(CodeC1[i]);   
                FoundAt   :=   FindText(CodeC1[i],   StartPos,   ToEnd,   []);   
            end;   
        end;   
    end;   
    for   i   :=   0   to   44   do   
    begin   
        with   RichE   do   
        begin   
            StartPos   :=   0;   
            ToEnd   :=   Length(Text)   -   StartPos;   
            FoundAt   :=   FindText(CodeC2[i],   StartPos,   ToEnd,   [stWholeWord]);   
            while   (FoundAt   <>   -1)   do   
            begin   
                SelStart   :=   FoundAt;   
                SelLength   :=   Length(CodeC2[i]);   
                SelAttributes.Color   :=   C3;   
                SelAttributes.Style   :=   [fsBold];   
                StartPos   :=   FoundAt   +   Length(CodeC2[i]);   
                FoundAt   :=   FindText(CodeC2[i],   StartPos,   ToEnd,   [stWholeWord]);   
            end;   
        end;   
    end;   
    Startpos   :=   0;   
    with   RichE   do   
    begin   
        FoundAt   :=   FindText( ' ' ' ',   StartPos,   Length(Text),   []);   
        while   FoundAt   <>   -1   do   
        begin   
            SelStart   :=   FoundAt;   
            Startpos   :=   FoundAt+1;   
            FoundAt   :=   FindText( ' ' ' ',   StartPos,   Length(Text),   []);   
            if   FoundAt   <>   -1   then   
            begin   
                SelLength   :=   (FoundAt   -   selstart)+1;   
                SelAttributes.Style   :=   [];   
                SelAttributes.Color   :=   strC;   
                StartPos   :=   FoundAt+1;   
                FoundAt   :=   FindText( ' ' ' ',   StartPos,   Length(Text),   []);   
            end;   
        end;   
    end;   

    Startpos   :=   0;   
    with   RichE   do   
    begin   
        FoundAt   :=   FindText( '{ ',   StartPos,   Length(Text),   []);   
        while   FoundAt   <>   -1   do   
        begin   
            SelStart   :=   FoundAt;   
            Startpos   :=   FoundAt+1;   
            FoundAt   :=   FindText( '} ',   StartPos,   Length(Text),   []);   
            if   FoundAt   <>   -1   then   
            begin   
                SelLength   :=   (FoundAt   -   selstart)+1;   
                SelAttributes.Style   :=   [];   
                SelAttributes.Color   :=   strC1;   
                StartPos   :=   FoundAt+1;   
                FoundAt   :=   FindText( '{ ',   StartPos,   Length(Text),   []);   
            end;   
        end;   
    end;       

    if   InVisible   then   
    begin   
        RichE.Visible   :=   True;   
        Form.Caption   :=   OldCap;   
    end;   
    RichE.SelStart   :=   0;   
end;

woawn

真是被催啊大家帮帮忙啊

woawn

aminghanhua 发表于 2012-6-15 15:38

                               
登录/注册后可看大图

在   RichEdit   中实现代码着色

贴给你好了，我找到的，试过，很好使。

我问一个傻B的问题哈这个richedit   在哪里啊，怎样实现它啊，俺是新手

aminghanhua

我问一个傻B的问题哈这个richedit   在哪里啊，怎样实现它啊，俺是新手

在Delphi里搜索组件啊 win32选项卡里 小甲鱼最新讲解的记事本用的就是她

woawn

哎算了不会搞啊，哈哈谢谢了给你分

qidaoshen

看一看 看一看