Form INIT:
This.InvisibleLabel.Caption = "Test Centered Caption"
nDiff = int((This.Width - This.InvisibleLabel.Width)/2)
nSpaces = int(nDiff/5) && width of a space -- Aerial, fontsize 9
This.Caption = space(nSpaces) + This.InvisibleLabel.Caption
You could put a second invisible label on the form and make its caption 1 space so you can get the width of it. Make sure autosize is true for those labels. Works for me.
>Doesn't work for me :(
>
>>Put a label on your form and set its visible property to false.
>>
>>ThisForm.InvisibleLabel.Caption = 'Table Maintenance for ' + proper(pcTable)
>>
>>Now you can use the width property of the label and subtract it from the width of the form. Divide that by 2 times the width of a space. Then padl() the caption with that number of spaces.
>>
>>>Hi everyone,
>>>
>>>Simple problem: I want to center caption of my form, so I tried:
>>>
>>>
>>>this.caption=padc('Table Maintenance for '+proper(pcTable),this.width)
>>>
>>>Didn't work.
>>>
>>>What should I do?
Mark McCasland
Midlothian, TX USA