richedit lines secme sorunu

[sr1111]

s.a
richeditte richedit1.SelectAll; ile tum kelimeleri seciyorum fakat kelime aralarindaki bosluklarin secilmesini istemiyorum bunu nasil yaparim.

[Delhici]

selectall komutu bütün stringin (boşluk olsada almasını sağlayacaktır.). Eğer boşlukları almasını istemiyorsan

Trim komutunu kullanarak bütün boşlukları sildir . sonra selectall yap..

[sr1111]

bosluklarin olmasini istiyorum. ama secilmesini istemiyorum.

[aslangeri]

s.a.
richedit in o şekilde bir select e izin verdiğiniz sanmıyorum.
ancak seçili alan ile seçili olmayan alanlarının farkının (kullanıcı gözünde) renk değişiminden ibaret olduğunu düşünerek tüm metinlerin zemin ve font rengini değiştirerek seçiliymiş gibi gösterebilirsin gibime geliyor.
kolay gelsin.

[sr1111]

tesekkur ederim bende sizin gibi soyle dusunmustum fakat nasil yaparim bilemiyorum.
richedit in tum akelimlerini kirmizi renk, bosluk olan kisimlari siyah yaparim diye dusundumdu fakat nasil yaparim, bunun icin bir ornek code vereck arkadas var mi.

[Laz61]

s.a.v

Bosluklari renklendir. Yani Richeditin bosluk olan canvasini renklendirirsen bosluklari renklendirmis olursun. Delphi Swisscenter' örnek bir kod var.

Kolay gelsin

[Laz61]

uses
RichEdit;

procedure RE_SetSelBgColor(RichEdit: TRichEdit; AColor: TColor);
var
Format: CHARFORMAT2;
begin
FillChar(Format, SizeOf(Format), 0);
with Format do
begin
cbSize := SizeOf(Format);
dwMask := CFM_BACKCOLOR;
crBackColor := AColor;
Richedit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
end;
end;

// Example: Set clYellow background color for the selected text.
procedure TForm1.Button1Click(Sender: TObject);
begin
RE_SetSelBgColor(RichEdit1, clYellow);
end;