kelimenin altını çizmek(imla denetimi)

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
serbek_tr
Üye
Mesajlar: 362
Kayıt: 16 Ağu 2004 11:54

kelimenin altını çizmek(imla denetimi)

Mesaj gönderen serbek_tr » 27 Haz 2008 01:20

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.
Procedure Forum.Imza(Sender: TObject)
Begin
ShowMessage('Her türlü fikire, Her zaman açığım')
End;

Kullanıcı avatarı
Battosai
Üye
Mesajlar: 1316
Kayıt: 30 Eyl 2007 11:02
Konum: Ankara

Re: kelimenin altını çizmek(imla denetimi)

Mesaj gönderen Battosai » 27 Haz 2008 01:49

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.

Kullanıcı avatarı
serbek_tr
Üye
Mesajlar: 362
Kayıt: 16 Ağu 2004 11:54

Re: kelimenin altını çizmek(imla denetimi)

Mesaj gönderen serbek_tr » 27 Haz 2008 01:57

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
Procedure Forum.Imza(Sender: TObject)
Begin
ShowMessage('Her türlü fikire, Her zaman açığım')
End;

shadowmann
Üye
Mesajlar: 508
Kayıt: 30 Oca 2004 10:49

Re: kelimenin altını çizmek(imla denetimi)

Mesaj gönderen shadowmann » 27 Haz 2008 02:18

:ara 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;
Her zaman bir vâmuk-i azra olur alem bu ya,
Nev-be-nev efsaneler peydâ olur alem bu ya,
Kabz u bast kıl tefekkür aleminde ey gönül,
Vakt-i sermânın sonu, vakt-i germân olur alem bu ya...

Kullanıcı avatarı
serbek_tr
Üye
Mesajlar: 362
Kayıt: 16 Ağu 2004 11:54

Re: kelimenin altını çizmek(imla denetimi)

Mesaj gönderen serbek_tr » 27 Haz 2008 02:35

arkadaşım ilgine teşekkür ederim. bu benim için bir yol oldu artık asfalt dökmekte bana kaldı çok sağol
Procedure Forum.Imza(Sender: TObject)
Begin
ShowMessage('Her türlü fikire, Her zaman açığım')
End;

sr1111
Üye
Mesajlar: 199
Kayıt: 06 Mar 2008 01:59

Re: kelimenin altını çizmek(imla denetimi)

Mesaj gönderen sr1111 » 11 Şub 2014 03:51

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

Cevapla