Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
?? chr(7) and Command button pictures
Message
From
18/03/1999 15:30:03
 
 
To
18/03/1999 14:38:23
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00198543
Message ID:
00199436
Views:
15
>>>>>>>>Whenever I execute a ?? chr(7) my pictures in my command buttons jump when the button is down. Is there a fix for this.
>>>>>>>>
>>>>>>>>TIA
>>>>>>>
>>>>>>>To re-create the problem just create a simple form with a command button. Select any bmp in the command button picture and in the command button click event put ?? chr(7). Now run the form and after the first click on the button click it again and notice that the picture moves up while it is selected. It seems that the chr(7) is printing a blank line below the bmp.
>>>>>>>
>>>>>>>What is the problem,
>>>>>>>
>>>>>>>TIA
>>>>>>
>>>>>>If you blank the .Caption property, it won't do this.
>>>>>
>>>>>
>>>>>What if you want the caption? I guess I'm out of luck
>>>>>
>>>>>Thanks
>>>>>
>>>>>Claude
>>>>
>>>>Looks a little funny maybe, but:
>>>>
>>>>lcCaption = THIS.Caption
>>>>THIS.Caption = ""
>>>>??CHR(7)
>>>>THIS.Caption = lcCaption
>>>>
>>>>solves the problem.
>>>
>>>The problem is this happens to every button from then on even those that don't have a chr(7) in the click event. Which means I would have to put this code in every command button's click event.
>>
>>Do you mean that issuing a CHR(7) causes the picture to move on every button on the form? Funny, I don't get this.
>
>Yes , if I have 2 or more command buttons and only the first one has chr(7) in the click event , after clicking on that one if I click on any other one my picture moves up even if there is nothing in the click event


I think I found a solution for you.

In the Click event:

ACTIVATE SCREEN
??CHR(7)

This even lets you keep the Caption property without blanking it.
Fred
Microsoft Visual FoxPro MVP

foxcentral.net
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform