I'm inserting a handful of lines into code into a much larger method so not
sure if a download is really the best way to go.
Here's what I've added to the resizeControl method:
After this line right at the top of the method -
lcControlName = m.This.GetName( m.toControl )
Add this:
LOCAL m.llTextboxInGrid AS Boolean
IF m.toControl.BaseClass=[Textbox] AND m.toControl.Parent.BaseClass=[Column]
&& textbox in grid column
m.llTextboxInGrid=.t.
ELSE
m.llTextboxInGrid=.f.
ENDIF
After this comment, I've wrapped the .FONTSIZE assignment in an
IF...ELSE...ENDIF. (Note that I've removed the indenting in the hope that
Lookout doesn't mangle the formatting too much...)
*--------------------------------------------
* Die ursprüngliche Font-Berechnung dieses
* Resizers.
*--------------------------------------------
IF m.llTextboxInGrid && fall back to column's original font size
.FONTSIZE = MAX( MIN_FONT_SIZE, .Parent.Fontsize )
ELSE
.FONTSIZE = MAX( MIN_FONT_SIZE, INT( ._nOriginalFontsize * ;
IIF(m.lnHeightRatio < m.lnWidthRatio, ;
m.lnHeightRatio, m.lnWidthRatio) ) )
ENDIF
That's all there is.
--
rk
-----Original Message-----
Sent: Friday, March 29, 2013 1:11 PM
I totally agree w/Mike - it should be on the Downloads page - albeit - the
explanation of the How & Why will probably be longer than the Code Snippet
itself!
I will DEFINITELY Implement it on Monday!
-K-
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/DF1EEF11E586A64FB54A97F22A8BD044218D6FAE20@ACKBWDDQH1.artfact.local
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
