| View previous topic :: View next topic |
| Author |
Message |
Bhikkhu Pesala
Super User
Joined: 23 Aug 2005
Posts: 2324
Location: Seven Kings, London, UK
|
 Posted: Sun Dec 24, 2006 11:01 pm Post subject: Change the Default Increments for Tracking of Body Text |
 |
|
Currently, on Format Character, Position, Spacing, Condensed/Expanded, the default increment is 1 point. Except for 100 point text this is an absurd value.
The increment should be 0.1 point or, better, 1% — then the tracking will be in increments of 0.1 points for 10 point text, but 1 point for 100 point text.
Please add your comments or vote for Issue 17732, which has gone unnoticed since July 2003. Perhaps there are duplicate issues elsewhere. I find it hard to believe I am the first person to notice this in three years.
Open Office also needs a shortcut key to increase or decrease tracking such as Control ± on the Numeric Keypad. (Not currently assignable)
Illustration of the Problem
_________________
Fonts * Opera * Oo Tips * FAQ * New Forum
Oo 2.3.1 * Win XP |
|
| Back to top |
|
 |
Bhikkhu Pesala
Super User
Joined: 23 Aug 2005
Posts: 2324
Location: Seven Kings, London, UK
|
| Posted: Sun Dec 24, 2006 11:43 pm Post subject: |
|
|
I recorded a macro to tighten tracking by 0.1 points, and assigned it to a toolbar. Now I can just select a paragraph and tighten the tracking slightly to make it fit the page.
| Quote: | sub Tracking
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Spacing"
args1(0).Value = -2
dispatcher.executeDispatch(document, ".uno:Spacing", "", 0, args1())
end sub |
Could someone improve it so that I can tighten the tracking progressively in the smallest possible steps (-1 I presume), instead of just setting it to -2? Undo or Control Shift space is fine for removing tracking.
_________________
Fonts * Opera * Oo Tips * FAQ * New Forum
Oo 2.3.1 * Win XP |
|
| Back to top |
|
|
foxcole
Super User
Joined: 19 Jan 2006
Posts: 2771
Location: Minneapolis, Minnesota
|
|
| Back to top |
|
|
Bhikkhu Pesala
Super User
Joined: 23 Aug 2005
Posts: 2324
Location: Seven Kings, London, UK
|
| Posted: Mon Dec 25, 2006 7:06 am Post subject: |
|
|
| foxcole wrote: | +1 vote.
(We get so few votes to spread around the issue tracker, I almost wish we could increment our votes by tenths!) |
I think we should get one vote for each post we make in the forums. 
Five votes is a silly limit. I had to change my votes to vote for this issue.
_________________
Fonts * Opera * Oo Tips * FAQ * New Forum
Oo 2.3.1 * Win XP |
|
| Back to top |
|
|
bluegecko
General User
Joined: 12 Jun 2007
Posts: 49
Location: Portugal
|
| Posted: Wed Mar 16, 2011 6:17 pm Post subject: |
|
|
Hi Bhikku. Just five years late for you, but hopefully still useful. Here's a toggle routine for character tracking, not thoroughly tested but it seems to work. Make two toolbar buttons, one pointing to _trackingIncrease, the other to _trackingDecrease.
It should increment/decrement whatever the current tracking is in 0.1 point steps:
| Code: | sub _trackingIncrease
tracking("increase")
end sub
sub _trackingDecrease
tracking("decrease")
end sub
sub tracking(doWhat)
' 0.1pt tracking = 3.5277 UK point
dim visibleCursor as object
visibleCursor = thisComponent.CurrentController.ViewCursor
currentTracking = (CInt(visibleCursor.CharKerning/3.5277)/10)
if doWhat="increase" Then newTracking = (currentTracking*35.277) + 3.5277
if doWhat="decrease" Then newTracking = (currentTracking*35.277) - 3.5277
visibleCursor.CharKerning = newTracking
end sub |
All the best... |
|
| Back to top |
|
|
|
