Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
AutoSize property doesn't work correctly
Message
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
AutoSize property doesn't work correctly
Miscellaneous
Thread ID:
00564449
Message ID:
00564449
Views:
48
Hi everybody,

I have a class with a label, which I'm trying to set as AutoSize = .t. This label may change caption in the live of the form. I have a special method ChangeCaption with these lines:
********************************************************************
* 11/26/99: NN created this method for handle Transactions vs. Property type of query
lparameters new_caption		&& takes 1 required argument
with this
	if .label1.caption <> m.new_caption
    	.label1.AutoSize = .f.  
		.label1.caption= m.new_caption
		.label1.AutoSize = .t. 
		.ResizedAlready = .f.
		.resize()
	endif
endwith
I've added AutoSize switching back and forth, but it didn't solve the problem.

Here is my ValRange class Resize code:
* BTCC_ValRange.Resize: event triggered when this container's size is altered
with this
	if !.ResizedAlready
        .text1.width= (.width - .label1.width - .label2.width -16)/2        
* let width of text1 determine that of text2        
   		.text2.width = .text1.width
		.label1.left = 0
        .text1.left = .label1.width + 2
* put hyphen a little to the right of text1
		.label2.left = .text1.left + .text1.width + 2		
		 .text2.left = .label2.left + .label2.width + 1
		.ResizedAlready=.t.
	endif
endwith
If I run the form, these controls are not properly showed. Some of them have text1 overlapped label1, some of them in opposite have too much space between label and text1.

May be I have to calculate width of this label by myself and set it?

Could you please help me here?
If it's not broken, fix it until it is.


My Blog
Next
Reply
Map
View

Click here to load this message in the networking platform