[es] - Right-To-Left reading/writing

overflow
Goran Milosavljević
Integration & Internet Senior
Engineer @ Telenor
Beograd

Član broj: 396
Poruke: 345
*.yubc.net

ICQ: 106825659
Sajt: localhost

Profil

Right-To-Left reading/writing

^{22.06.2002. u 18:31 - pre 265 meseci}

Da li neko zna nacin, kako da nateram RichEdit da mi prikazuje (i omogucava upis) tekst "sistemom" right-to-left (za one koji citaju s desna na levo) ?!

Probao sam sa BiDiMode svakakve egzibicije, ali se nista ne desava (napominjem da sam svojstvo ParentBiDiMode od ovog objekta stavio na false).

Sve sto je besmislenije, utoliko je bolje.

Odgovor na temu

Zekica
Filip Milivojević
Pirot, Niš

Član broj: 2856
Poruke: 309
195.252.103.*

Jabber: zekica@elitesecurity.org
Sajt: www.pirotcity.com

+10 Profil

Re: Right-To-Left reading/writing

^{29.06.2002. u 20:41 - pre 265 meseci}

Ovako, ja sam nesto probao, i imam resenje za pisanje teksta Right-to-Left, a sto se prikaza tice, to ti ne mogu pomoci.

Jeste da je nacin malo bezveze, ali radi.

Dodaj ove procedure:

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
richedit1.SelStart:=richedit1.SelStart-1;
end;

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
{ Option #1 - Reverse Delete & BackSpace }
{
if key=vk_Delete then begin
key:=vk_back;
keybd_event(vk_right,0,0,0);
keybd_event(vk_right,0,KEYEVENTF_KEYUP,0);
end else
if key=vk_back then begin
key:=vk_Delete;
keybd_event(vk_right,0,0,0);
keybd_event(vk_right,0,KEYEVENTF_KEYUP,0);
end;
}
{ End of Option #1 }

{ Option #2 - Reverse Delete & BackSpace }

if (key=vk_Delete) or (key=vk_back) then begin
keybd_event(vk_right,0,0,0);
keybd_event(vk_right,0,KEYEVENTF_KEYUP,0);
end;

{ End of Option #2 }

end;

To bi trebalo da zavrsi posao. Doradi malo kod za jos neke tastere ako imas potrebe.

Sad ja znam zašto sam vam ovo ispričao, ovo će sigurno nekome koristiti....

Odgovor na temu