如何实现Memo中部分字符颜色的改变?(20分)

sunnysheng · 2003-08-02

如何实现Memo中部分字符颜色的改变?

pihome · 2003-08-02

Memo实现不了，用RichEdit吧，比如选中的文件变成红色 RichEdit.SelAttributes.Color:=clRed;

plzw · 2003-08-02

楼上说的对，Memo功能太弱了，你可以用RichEdit，或者找其他的替代品。 http://www.playicq.com 有一个RichEdit2，有兴趣的话你可以试试。

guojinbin · 2003-08-04

Memo是不行的,用RichEdit没错

sunnysheng · 2003-08-08

谢谢各位！   那能不能使字符的背影色改变。？

apw · 2003-08-11

同样原因，不行。　

yahle · 2003-08-16

如果是要改变memo的背景颜色可以改变 memo1.color 如果是字体颜色可以改变 memo1.font.color

jyqalan · 2003-09-19

问一下，richedit怎么用啊？

northwindrocker · 2003-09-23

和memo一样的用！

bottom · 2003-09-24

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Menus, ComCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     PageControl1: TPageControl;     TabSheet1: TTabSheet;     TabSheet2: TTabSheet;     RichEdit1: TRichEdit;     Memo1: TMemo;     Button3: TButton;     TabSheet3: TTabSheet;     RichEdit2: TRichEdit;     Label2: TLabel;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure RichEdit1KeyUp(Sender: TObject; var Key: Word;       Shift: TShiftState);     procedure Button3Click(Sender: TObject);     procedure RichEdit1Change(Sender: TObject);     procedure FormShow(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     function whether(st:string):Boolean;     function zuai(st:string):Boolean;     function zhaoqian(si:longint):longint;     function zhaohou(si:longint):longint;   end; var   Form1: TForm1; implementation  uses StrUtils,unit2;  var   filename,filename2:string;    yqian,yhou:longint; {$R *.dfm} function TForm1.whether(st:string):Boolean; var  i:longint;  s:string; begin  Result:=false;  for i:=0 to memo1.lines.Count-1 do    begin//1    s:=trim(memo1.lines.Strings );       if st=s then          begin//2            Result:=true;            exit;            break;          end;//2    end;//1 end; function TForm1.zuai(st:string):Boolean; var  i:longint;  s:string;  zuaizi1:array [0..100] of string; begin zuaizi1[0]:=':'; zuaizi1[1]:='='; zuaizi1[2]:='/*'; zuaizi1[3]:='*/'; zuaizi1[4]:='//'; zuaizi1[5]:=';'; zuaizi1[6]:='::'; zuaizi1[7]:='('; zuaizi1[8]:=')'; zuaizi1[9]:='['; zuaizi1[10]:=']'; zuaizi1[11]:='^'; zuaizi1[12]:='.'; zuaizi1[13]:=':'; zuaizi1[14]:='^.'; zuaizi1[15]:='*'; zuaizi1[16]:='/'; zuaizi1[17]:=','; zuaizi1[18]:='"'; zuaizi1[19]:='{'; zuaizi1[20]:='}'; zuaizi1[21]:='）'; zuaizi1[22]:=#13; zuaizi1[23]:=#10; zuaizi1[24]:=' ';  Result:=false;  for i:=0 to 24 do    begin//1       if st=zuaizi1 then          begin//2            Result:=true;            exit;            break;          end;//2    end;//1 end; procedure TForm1.Button1Click(Sender: TObject); var  j,linestrlen,cishu:longint;  linestr,analyse,linefen2:string;  linepos:array of longint; begin      cishu:=0;      setlength(linepos,cishu);      linestr:=RichEdit1.Text;      if linestr='' then exit;      linestrlen:=Length(linestr);      form2.Show ;      form2.ProgressBar2.Progress  :=0;      form2.ProgressBar2.MaxValue := linestrlen;      analyse:='';      for j:=1 to linestrlen do      begin//2       application.ProcessMessages ;       form2.ProgressBar2.Progress  := form2.ProgressBar2.Progress +1;                linefen2:=linestr[j];          if zuai(linefen2) then            begin//3              setlength(linepos,cishu+1);              linepos[cishu]:=j;              if cishu-1>=0 then              begin//4               RichEdit1.SelStart :=linepos[cishu-1];               RichEdit1.SelLength :=linepos[cishu]-RichEdit1.SelStart-1;              end//4              else              begin//5               RichEdit1.SelStart :=0;               RichEdit1.SelLength :=linepos[cishu]-1;              end;//6              if whether(analyse) then                begin//4                 form2.Edit1.Text  :=analyse;                 form2.Edit1.Update ;                 RichEdit1.SelAttributes.Color := clblue;                 RichEdit1.SelAttributes.Style := [fsBold];                end//4                else                begin//6                 form2.Edit1.Text :=linefen2;                 form2.Edit1.Update ;                 RichEdit1.SelAttributes.Color := clBlack;                 RichEdit1.SelAttributes.Style := [];                end;//6              inc(cishu);              analyse:='';            end//3            else            begin//4               analyse:=analyse+linefen2;            end;//4      end;//2   form2.Close ; end; procedure TForm1.Button2Click(Sender: TObject); var  i:longint;  s:string;  ass:TStringList; begin  ass:=TStringList.Create ;  s:='';  for i:=0 to richedit1.Lines.Count -1 do   begin//1     s:=s+ richedit1.Lines.Strings +#13#10;   end;//1   ass.Clear ;   ass.Add (s);   ass.SaveToFile(filename); end; function TForm1.zhaoqian(si:longint):longint; var  i,j:longint;  s,tmp:string; begin  j:=0;  tmp:=copy(richedit1.Text,1,si-1) ;  for i:=si-1 downto 1 do   begin//1     if zuai(tmp) then       begin//2        j:=i+1;        Result:=j;        exit;        break;       end;//2   end;//1 end; function TForm1.zhaohou(si:longint):longint; var  i,j,t:longint;  s,tmp:string; begin  j:=0;  tmp:=copy(richedit1.Text,si,length(richedit1.Text)) ;  tmp:=trim(tmp);  tmp:=tmp+' ';  for i:=1 to length(tmp) do   begin//1     if zuai(tmp) then       begin//2        j:=i-1;        t:=si+j;        Result:=t;        exit;        break;       end;//2   end;//1 end; procedure TForm1.Button3Click(Sender: TObject); var  i:longint;  s:string;  ass:TStringList; begin  ass:=TStringList.Create ;  s:='';  for i:=0 to Memo1.Lines.Count -1 do   begin//1     s:=s+ Memo1.Lines.Strings +#13#10;   end;//1   ass.Clear ;   ass.Add (s);   ass.SaveToFile(filename2); end; procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word;   Shift: TShiftState); var  analyse:string; begin {      Label2.Caption :=inttostr(richedit1.CaretPos.x );      if (key=17) then exit;      if (key=39) then exit;      if (key=37) then exit;        yqian:=zhaoqian(richedit1.CaretPos.x);        yhou:=zhaohou(richedit1.CaretPos.x ); } end; procedure TForm1.RichEdit1Change(Sender: TObject); var  analyse:string; begin   {   if yhou>yqian then       begin//1         RichEdit1.SelStart :=yqian-1 ;         RichEdit1.SelLength :=yhou-yqian+1;         analyse:=copy(richedit1.Text,yqian,yhou-yqian);         if whether(analyse) then           begin//5           RichEdit1.SelAttributes.Color :=clblue;           RichEdit1.SelAttributes.Style := [fsBold];           end//5           else           begin//6             RichEdit1.SelAttributes.Color := clBlack;             RichEdit1.SelAttributes.Style := [];           end;//6       end;//1   } end; procedure TForm1.FormShow(Sender: TObject); var  s:string; begin s:=extractfilepath(application.ExeName ); if rightstr(s,1)<>'/'  then    s:=s+'/'; s:=s+'baoliuzi.txt'; if fileexists(s) then begin//1    memo1.Lines.LoadFromFile(s);    filename2:=s; end;//1 s:=extractfilepath(application.ExeName ); if rightstr(s,1)<>'/'  then    s:=s+'/'; s:=s+'a.rtf'; if fileexists(s) then begin//1    richedit1.Lines.LoadFromFile(s);    filename:=s;    Button1Click(nil); end;//1 end; end.

刘麻子 · 2004-03-28

我那个打字程序就可以变的嘛。。。不过，是RichEdit。。。。

如何实现Memo中部分字符颜色的改变?(20分)

sunnysheng

Unregistered / Unconfirmed

pihome

Unregistered / Unconfirmed

plzw

Unregistered / Unconfirmed

guojinbin

Unregistered / Unconfirmed

sunnysheng

Unregistered / Unconfirmed

apw

Unregistered / Unconfirmed

yahle

Unregistered / Unconfirmed

jyqalan

Unregistered / Unconfirmed

northwindrocker

Unregistered / Unconfirmed

bottom

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

Similar threads