Hey - GREAT RK - I just tried it out - and the Font sizing problem no longer
happens! Excellent. Maybe you should get this change implemented into the
Base version of this Class that people are downloading and using!

Anyway - just a thought...

-K-

-----Original Message-----
From: ProfoxTech [mailto:[email protected]] On Behalf Of Richard
Kaye
Sent: Friday, March 29, 2013 4:38 PM
To: [email protected]
Subject: RE: FOCUS & the MWResize implementation...

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-

[excessive quoting removed by server]

_______________________________________________
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/A95E755E26FD4588940C056A595E0172@Programming2
** 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.

Reply via email to