線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1431
推到 Plurk!
推到 Facebook!

RichEdit中文字顏色問題

尚未結案
yachu721
初階會員


發表:51
回覆:98
積分:44
註冊:2003-07-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-02-17 23:06:54 IP:59.104.xxx.xxx 未訂閱
請教大大 在RichEdit文字中如何讓英文一個顏色數字一個顏色呢 發表人 - taishyang 於 2005/02/17 23:24:40
stellos
中階會員


發表:24
回覆:84
積分:51
註冊:2004-06-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-02-18 01:50:58 IP:220.138.xxx.xxx 未訂閱
RichEdit1->Lines->Add("Test測試"); RichEdit1->SelStart=0; RichEdit1->SelLength=4; RichEdit1->SelAttributes->Color=clRed; RichEdit1->SelStart=4; RichEdit1->SelLength=4; RichEdit1->SelAttributes->Color=clBlue; 這樣就可以啦!!
blk5743
高階會員


發表:34
回覆:371
積分:236
註冊:2003-11-17

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-02-18 11:46:23 IP:61.66.xxx.xxx 未訂閱
我只會笨方法    
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int i,j,k = 0;
    char Text[80];        for( i = 0; i < R1->Lines->Count; i  )
    {
        strcpy(Text,R1->Lines->Strings[i].c_str());
        for ( j = 0; j < strlen(Text); j   )
        {
            if ( isdigit(Text[j]) )
            {
                R1->SelStart = k   j;
                R1->SelLength = 1;
                R1->SelAttributes->Color = clBlue;
            }
        }
        k  = strlen(Text)   2;// 2 => /r/n
    }
}
yachu721
初階會員


發表:51
回覆:98
積分:44
註冊:2003-07-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-02-20 22:25:39 IP:59.104.xxx.xxx 未訂閱
謝謝stellos及blk5743的解答 但blk5743程式比較符合我的需求 所以給blk5743分囉
系統時間:2024-05-13 10:30:42
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!