rtomlinson
asked on
Lebans RTF2 SelAlignment
I want to have the default alignment be justified.
Is there a way to set this in the properties of the Lebans RTF2 control? How?
OR
Is there a way to set this programatically upon entering the control? How?
Is there a way to set this in the properties of the Lebans RTF2 control? How?
OR
Is there a way to set this programatically upon entering the control? How?
Is this a Microsoft Access Question? What is Lebans RTF2 control? Custom control not packaged with Access?
RTomlinson
See RichEdit Shortcut Keys http://www.lebans.com/richtext.htm
Kmoloney
Yes, Lebans RTF is activeX www.Lebans.Com
See RichEdit Shortcut Keys http://www.lebans.com/richtext.htm
Kmoloney
Yes, Lebans RTF is activeX www.Lebans.Com
Rich Edit Shortcut Keys
Rich edit controls support the following shortcut keys. Unfortunately Access will not allow a couple of them to work but the majority of these shortcuts do!
Keys
Operations
Comments
Shift+Backspace Generate a LRM/LRM on a bidi keyboard BiDi specific
Ctrl+Tab Tab
Ctrl+Clear Select all
Ctrl+Number Pad 5 Select all
Ctrl+A Select all
Ctrl+E Center alignment
Ctrl+J Justify alignment
Ctrl+R Right alignment
Ctrl+L Left alignment
Rich edit controls support the following shortcut keys. Unfortunately Access will not allow a couple of them to work but the majority of these shortcuts do!
Keys
Operations
Comments
Shift+Backspace Generate a LRM/LRM on a bidi keyboard BiDi specific
Ctrl+Tab Tab
Ctrl+Clear Select all
Ctrl+Number Pad 5 Select all
Ctrl+A Select all
Ctrl+E Center alignment
Ctrl+J Justify alignment
Ctrl+R Right alignment
Ctrl+L Left alignment
ASKER
I also asked Stephen Lebans about his RTF2 control. He said the SelAlignment property does not work but he showed me an alternative as follows:
Private Sub Description_Enter()
If IsNull(Me.Description.Valu e) Then
Me.Description = "{\rtf1\ansi\ansicpg1252\d eff0\defla ng1033{\fo nttbl{\f0\ fnil\fchar set0 Arial;}}{\colortbl ;\red0\green0\blue0;}{\*\g enerator Riched20 5.50.30.2002;}\viewkind4\u c1\pard\qj \cf1\fs16 \par}"
Else
End If
Private Sub Description_Enter()
If IsNull(Me.Description.Valu
Me.Description = "{\rtf1\ansi\ansicpg1252\d
Else
End If
ASKER
I would like to close this question without assigning points because the solution came from outside of this forum.
Everyone OK with that?
- Rick
Everyone OK with that?
- Rick
ASKER
Just to add some more comments in case anyone looks at the solution I posted.
All this does is place a default RTF header into the memo field (the On Enter). The "\qj" part of this is what makes the field justified. This header has no data so the field just looks blank/null. When you start typing you will notice that is now has justified text alignment.
All this does is place a default RTF header into the memo field (the On Enter). The "\qj" part of this is what makes the field justified. This header has no data so the field just looks blank/null. When you start typing you will notice that is now has justified text alignment.
OK by me.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.