Right-To-Left reading/writing

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.

Potpis

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