Главная страница
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.015 c
2-1248674704
aza
2009-07-27 10:05
2009.10.04
ADO MS Jet прочитать не-коммитет данные


2-1248933090
Someone
2009-07-30 09:51
2009.10.04
Как изменить значение ключа в реестре (по умолчанию)?


15-1249028773
Virex(home)
2009-07-31 12:26
2009.10.04
потустороннее


2-1248115102
thing
2009-07-20 22:38
2009.10.04
3D игра - переход от управления с клавы на мышь


15-1242143550
@!!ex
2009-05-12 19:52
2009.10.04
Как добавить дополнительную информацию о сайте в google