Imlec Yönlendirme

[Orhan]

Arkadaşlar Merhaba

İmleci (Cursor) yön tuşlariyle (sağ-sol) değil, kodla nasıl yönlendirebilirim. Yani: imleci kodla sağa sola yönlendirmek istiyorum.

Selamalar

[P206]

Şu anda yanımda delphi olmadığı için tam cevap veremiyorum ama

Setcurserpos(x,y) gibi birşeydi..

[husonet]

PostMessage da sanırım işinize yarayabilir.

Kolay Gelsin...

[Orhan]

Merhabalar

Ilginiz için teşekkürler

Bahsettiğiniz fonksiyonlarla (PostMessage-Setcursorpos(x,y)) ilgili bir sürü örnek buldum. Genellikle farenin koordinatlarıyla ilgili. İnşaallah işimi gören bir örnek bulurum.

Aslında benim sorunum şuydu: Kuranla ilgili yeni bir font yaptım. Bu vesileyle hareke kaymalarını ve araların açılması önlenmiş oldu.
Delphinin altındaki Rich editörüde metinleri yazmak için dönüştürdüm. Kaldı sağdan sola yazma problemi windowsun fonksiyonunu kullanmadan onuda hallettim. Bu sefer kursor ikinci satıra geçmedi. Ve satırları devamlı alt satıra itti-kaydırdı. Bunu kaldırdım soldan sağa yazmaya başladım, Yazarken ikidebir yön tuşlarıyla harfin soluna atlayarak yazmak çok sıkıcı ve yorucu oldu. Neyse bu sorunuda bir fonksiyonla harfleri ters çevirerek hallettim. Fakat bir editör için iyi bir yöntem değil bu.

Editörün bu problemlerini halledebilirsem bu konudaki bir açıklığı da doldurmuş olurum. Yani: soldan satır atlama problemi.

Selamlar

[hdayi]

Kod: Tümünü seç

RichEdit1.SelStart:=RichEdit1.SelStart-1;

Bu işini görür mü?

Kolay Gelsin...

[hdayi]

bi şeyler denedim, gerçi bi sürü detay eksik ama sanırım senin istediğin gibi bişey oldu

Kod: Tümünü seç

var
    Form1: TForm1;
    satirsayisi: integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    satirsayisi := RichEdit1.Lines.Count;
end;

procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
var
    ilk, son: string;
    i: integer;
begin
    i := SendMessage(RichEdit1.Handle, EM_LINEFROMCHAR, RichEdit1.Selstart, 0);
    if not (satirsayisi = RichEdit1.Lines.Count) then
    begin
        ilk := copy(RichEdit1.Lines[i], 2, length(RichEdit1.Lines[i]) - 1);
        son := copy(RichEdit1.Lines[i], 1, 1);
        RichEdit1.Lines[i] := ilk;
        RichEdit1.Lines.Add(son);
    end;
    RichEdit1.SelStart := RichEdit1.SelStart - 1;
end;

Kolay Gelsin...

[Orhan]

Merhaba

Herşeyden önce eline sağlık

Brinci koddaki örnegi bende denemiştim. Olmuyor. Satırları bir alt satıra kaydırıyor.

İkinci kod: Kodu denedim (incelemedim, şu an Kuranın metinlerini yazmakla ve hatalarını gidermekle meşgulüm) çok sağlıksız çalışıyor. Bazan birkaç harf yazıyor sonra hemen bir alt satıra atlıyor, bazanda satırları alt satıra kaydırıyor, bazanda bir harf yazarak alt satıra atlıyor vs.

Aslında sorunun cözümü: Sağdan sola yazarak soldan satır atlamakla mümkün. Fakat bu konuyu uzun zaman inceledim, hatta bir çok ünlü programcıyada sordum (Ünlü Delphi yazarı Marco Cantu'yada) oda bir yöntemini bilmediğini söyledi.

Şöyle bir yöntem olabilir: Soldan sağa doğru bir harf yazıldığında imleç hemen yazılan harfin sol başına atlayarak ikinçi harfi yazıp tekrar kelimenin sağ başına atlaması lazım. Yani: harfi kelimenin sol başına yazıp hemen sağ başına atlaması lazım. Bu şekildede satır kaymalarına önlenmiş olur.

Selamlar.

[hdayi]

Klavyeni arapça yapmayı denedin mi? o zaman bir çözüm olur belki

[Orhan]

Merhaba

Klavye layautunun arapca olmasi sorunu halletmiyor. Hemde calismiyor. Benim kullandigim fontlar normal standart acii kodlari. Sayet sistemin fontlarini kullanmami kasdediyorsan kurana has olan bir suru isaret eksik ve yazimda hareke kaymalarida oluzor. Fonta mudahalede olmuyor.

Selamlar