Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.10.04;
Скачать: CL | DM;

Вниз

richedit.selattr   Найти похожие ветки 

 
webpauk ©   (2009-08-03 11:47) [0]

Чувствую себя дебилом:

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ComCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   RichEdit1: TRichEdit;
   procedure Button1Click(Sender: TObject);
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
 cArrColor: array[Boolean] of TColor = (clRed, clBlue);
 cArrText: array[Boolean] of String = ("Hello", "Bye");
var
 fWidth: Integer;
 fSelStart: Integer;
 fText: String;
begin
 fSelStart:=RichEdit1.SelStart;
 fText:=cArrText[Boolean(TButton(Sender).Tag)];
 fWidth:=Length(fText);

 RichEdit1.Text:=copy(RichEdit1.Text, 1, fSelStart)+fText+copy(RichEdit1.Text, fSelStart+1, Length(RichEdit1.Text)-fSelStart);
 RichEdit1.SelStart:=fSelStart;
 RichEdit1.SelLength:=fWidth;
 RichEdit1.SelAttributes.Color:=cArrColor[Boolean(TButton(Sender).Tag)];

 RichEdit1.SelStart:=fSelStart+fWidth;
 RichEdit1.SetFocus;

 TButton(Sender).Tag:=Integer(not Boolean(TButton(Sender).Tag));
end;

end.


почему один раз меняется оформление всего текста, а один раз - только части?


 
Leonid Troyanovsky ©   (2009-08-03 13:14) [1]


> webpauk ©   (03.08.09 11:47)  

>  RichEdit1.Text:=copy(RichEdit1.Text, 1, fSelStart)+fText+copy(RichEdit1.
> Text, fSelStart+1, Length(RichEdit1.Text)-fSelStart);

RichEdit1.SelText:= fText;

--
Regards, LVT.



Страницы: 1 вся ветка

Текущий архив: 2009.10.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
2-1249302439
InteGer
2009-08-03 16:27
2009.10.04
JCreateProcess


1-1218117173
RAndrey
2008-08-07 17:52
2009.10.04
Access Violation в потоке


15-1249417804
Юрий
2009-08-05 00:30
2009.10.04
С днем рождения ! 5 августа 2009 среда


3-1227778244
vegarulez
2008-11-27 12:30
2009.10.04
Вопрос про ZeosDBO. (Zquery.Fields[i].AsDatetime)


15-1249126212
Kerk
2009-08-01 15:30
2009.10.04
Как пережить финансовый кризис?