kelimenin altını çizmek(imla denetimi)

[serbek_tr]

Hayırlı çalışmalar arkadaşlar, Word gibi gelişmiş metin editörlerinde yazım yanlışlarında kelimenin altın kırmızı bir şekilde çilir ya işte onu richeditte nasılş yapabiliriz. düz bir renkli çizgide olabilir.

[Battosai]

RichEdit'in Canvas özelliğini kullanarak hatalı kısmın altına çizgi çizdirebilirsin...tabi hatalı kısmın konumunu,uzunluğunu tespit etmek lazım ilk önce...şimdi bi örnek verirmisin diyeceksin ama ben sadece fikir verebilirim uğraşacak arkadaşlar örnek yazabilir.

[serbek_tr]

fikir için teşekkür ederim, o benimde aklıma geldi ancak richedit te öyle bir özeelik yok. Sağol. Şimdi bir örnek verirmisin lafından dolayı aklıma geldi söylemek istedim. yanlış anlama ama bu lafım şahsına değil birşey söylemek istiyorum, bazen burda örnek kod isteyen arakdaşlar oluyor ve bazı arkadaşlarımız da buna tepki gösteriyor, aslında tepki gösterecek birşey yok senin verdiğin kodu zaten birebir kullanmaz mutlaka kendince değişklikler yapacaktır. kısacası bu formu ben bir eğitim kurumundan farksız görüyorum ve bu kurumda biz bazı zamanlar eğitmen bazı zamanlar eğitilen oluyoruz. yani kod isteyenlerede kızmamak lazım. bu insanı eğitecek kadar eğitmenliğin varsa eğit kızma o verdiğin bilgi mutlaka onda yer edecektir başka şeyler için fikir verecektir. Fikir için teşekkürler

[shadowmann]

ama google da swissdelphicenter 'dan

Kod: Tümünü seç

uses
  RichEdit;

// Underline styles
const
  CFU_UNDERLINETHICK = 9;
  CFU_UNDERLINEWAVE = 8;
  CFU_UNDERLINEDASHDOTDOT = 7;
  CFU_UNDERLINEDASHDOT = 6;
  CFU_UNDERLINEDASH = 5;
  CFU_UNDERLINEDOTTED = 4;
  CFU_UNDERLINE = 1;
  CFU_UNDERLINENONE = 0;

procedure RE_SetCharFormat(ARichEdit: TRichEdit; AUnderlineType: Byte; AColor: Word);
var
  // The CHARFORMAT2 structure contains information about
  // character formatting in a rich edit control.
  Format: CHARFORMAT2;
begin
  FillChar(Format, SizeOf(Format), 0);
  with Format do
  begin
    cbSize := SizeOf(Format);
    dwMask := CFM_UNDERLINETYPE;
    bUnderlineType := AUnderlineType or AColor;
    ARichEdit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
  end;
end;

// Underline the current selection with a CFU_UNDERLINEWAVE line style (color red);
procedure TForm1.Button1Click(Sender: TObject);
begin
  RE_SetCharFormat(RichEdit1, CFU_UNDERLINEWAVE, $50);
end;

[serbek_tr]

arkadaşım ilgine teşekkür ederim. bu benim için bir yol oldu artık asfalt dökmekte bana kaldı çok sağol

[sr1111]

tdk nin imla listesi var. benimde bir imla kontrolu yapacak kod algoritmaya ihtiyacim var.