من اليمين إلى اليسار

procedure TfrmMain.FormCreate(Sender: TObject);
var
OldStyle, NewStyle : Longint;
begin
// change to right-to-left;
OldStyle := GetWindowLong(Handle, GWL_EXStyle);
NewStyle := OldStyle Or (WS_EX_RTLREADING or WS_EX_RIGHT or WS_EX_LEFTSCROLLBAR or WS_EX_LEFTSCROLLBAR);
SetWindowLong(handle, GWL_EXStyle, NewStyle);
SetWindowLong(hbudget_listview.Handle, GWL_EXStyle, $10410200);
end;