請問大家 我知道用RichEdit1.SelAttributes.Color := clRed; 可以改變文字的顏色 但是RichEdit 是否可以控制文字的底色 謝謝

http://www.lmc-mediaagentur.de/dpool/tips/1012.htm    --- 每個人都是一本書

form1上放一button,richedit,在richedit輸入一些字後,反白你要的字 (可以選一個或以上),按button.就可單獨變色了..不過以後所打的字都 會變成這個顏色,可自行修改程式,再變一次顏色..就可變回來了. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TCharFormat = record cbSize: UINT; dwMask: Longint; dwEffects: Longint; yHeight: Longint; yOffset: Longint; crTextColor: TColorRef; bCharSet: Byte; bPitchAndFamily: Byte; szFaceName: array[0..LF_FACESIZE - 1] of AnsiChar; end; TForm1 = class(TForm) Button1: TButton; RichEdit1: TRichEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } procedure changecolor(a,b,c:byte); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.changecolor(a,b,c:byte); var CharFormat : TCharFormat; const EM_GETCHARFORMAT=WM_USER 58; const EM_SETCHARFORMAT=WM_USER 68; Const SCF_SELECTION = $1 ; begin ZeroMemory(@CharFormat, SizeOf(TCharFormat)); with CharFormat do begin cbSize := SizeOf(TCharFormat); {先取得原本char的charfotmat} RichEdit1.Perform(EM_GETCHARFORMAT, 1, LParam(@CharFormat)); {更改顏色} crTextColor:=rgb(a,b,c); RichEdit1.Perform(EM_SETCHARFORMAT, SCF_SELECTION, LParam(@CharFormat)); end; RichEdit1.SetFocus; RichEdit1.SelLength := 0; end; procedure TForm1.Button1Click(Sender: TObject); begin changecolor(255,44,55); end; end.

banson兄 您提供的方法我試不出來ㄝ 我試過更改a,b,c的參數 但是還是不會改變文字底色 我再試試 hagar兄提供的方法 謝謝

Rich Text Format (RickEdit 使用的格式) 應是根本不支援文字底色的 ?? 連 WordPad 都做不到耶... Hagar 版主提供的應是如何改變選取文字時的底色而不是真的改變文字底色，一離開便還原了。 banson1716 兄提供的應是另類的改變文字顏色方法，效果應跟 RichEdit1.SelAttributes.Color := rgb(a,b,c); 沒甚麼分別罷 ? 這應是 Rick Text 格式跟本沒這種格式的問題，不大可能在 RichEdit 解決。 你可試找找有沒有 HTML Editor 是使用 HTML格式的那便有可能做得到。

>>你可試找找有沒有 HTML Editor 是使用 HTML格式的那便有可能做得到。 Justmade兄 我在深度歷險找到一個元件 TRichView component can contain: - background bitmap, - text with various fonts and colors, - hypertext, - pictures, - pictures from Image Lists, - any Delphi controls. It can be printed and saved as plain text or html file. 我想這樣應該可以做到了吧 謝謝您喔

突然想到 用ListBox是否可以達到功能要求呢

http://delphi.ktop.com.tw/topic.php?topic_id=16230 內有 TRxRichEdit 可達到此功能. TListBox 的話 將 TListBox.Style 設為 lbOwnerDrawFixed 然後在 TListBox 的 OnDrawItem Event 中 更改每個 Item 的字型/顏色與底色.    --- 每個人都是一本書

>TListBox 的話 >將 TListBox.Style 設為 lbOwnerDrawFixed >然後在 TListBox 的 OnDrawItem Event 中 >更改每個 Item 的字型/顏色與底色. 我用 ListBox1.Canvas.Brush.Style := bsSolid; Listbox1.Canvas.Brush.Color := clRed; 可以達到畫底色的功能 但是只有有文字的部分畫底色 無法達到整行都畫的效果ㄝ

指定完顏色後,  最後加一句 ListBox1.Canvas.FillRect(Rect);    --- 每個人都是一本書

不好意思 我試了一下 好像無法單獨更改每個 Item 的字型/顏色ㄝ 我是用 ListBox1.Canvas.Font.Color := clRed; ListBox1.Canvas.TextOut(ARect.Left, ARect.top, ListBox1.Items[Index]);

由 Index 這個參數來做判斷, 例:

begin
  case Index of
    0: ListBox1.Canvas.Font.Color := clRed;
    1: ListBox1.Canvas.Font.Color := clBlue
    // ...
  end;
  // ...
end;

--- 每個人都是一本書

原來要在 ListBox1DrawItem裡面 判斷每一行Index 再個別去設定每一Item的Canvas.Font.Color 哇 那ListBox不就每次OnDrawItem時 所有的Item全部都重畫一次

而且我還要另外記住每一個Item的Font.Color 才能再每次重畫的時候指定給ListBox1.Canvas.Font.Color

而且我還要另外記住每一個Item的Font.Color 才能再每次重畫的時候指定給ListBox1.Canvas.Font.Color

而且我還要另外記住每一個Item的Font.Color 才能再每次重畫的時候指定給ListBox1.Canvas.Font.Color

1.小弟測了一下, 並非所有的 Item 都會重繪,  只有顯示在 ListBox1 上的才會重繪 要捲動 ScrollBar 才出現的 Item 不會重繪 2.您說的要記住每個 Item 的字型 除了以 Index 判斷外, 或以 Item 的值做條件了.    --- 每個人都是一本書

ListBox要放BitMap or Icon 可以用 ListBox1.Canvas.Draw(Rect.Left, Rect.Top, AIcon); 那如果要在RichEdit上放BitMap or Icon 的話 該用什麼方法呢

大概就是這樣啦

參考: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=21053    --- 每個人都是一本書

可是RichEdit沒有Canvas呀 ???

引言: 可是RichEdit沒有Canvas呀 ???

搞錯了, 小弟以為您要用 TListBox http://delphi.ktop.com.tw/topic.php?topic_id=16230 這個聯結用 Rxlib 的元件 下載後使用 RxRichEdit 可達到您的要求 可改變字型/顏色/底色, 也可以插入 Image. --- 每個人都是一本書

了解 還是要用元件 本來想自己把方法學起來的 謝謝您 hagar兄