LabelBuddy - lose buddy
Publicado: Jue Mar 03, 2022 6:42 am
Hi,
LabelBuddy loses its associated control.
Since Xailer 4 I noticed this problem*, but I couldn't simulate it, until now.
So:
add a Form
add an MaskEdit control
add a LabelBuddy using the context menu on MaskEdit...
Check the Object Inspector, it's in the wrong order (image below).
Save and close the PRG file. See the XFM file, they are in the wrong order (example below).
Open the PRG and show the Form in the Designer.
LabelBuddy has an empty oBuddy property.
* That's why in 2 subplugins I include ways to identify these LabelBuddy:
regards,
LabelBuddy loses its associated control.
Since Xailer 4 I noticed this problem*, but I couldn't simulate it, until now.
So:
add a Form
add an MaskEdit control
add a LabelBuddy using the context menu on MaskEdit...
Check the Object Inspector, it's in the wrong order (image below).
Save and close the PRG file. See the XFM file, they are in the wrong order (example below).
Open the PRG and show the Form in the Designer.
LabelBuddy has an empty oBuddy property.
Código: Seleccionar todo
METHOD CreateForm( lCreate ) CLASS TForm1
IF lCreate
::SetBounds( 456, 150, 450, 300 )
::SetClientSize( 434, 261 )
::cText := "Form1"
::Create()
ENDIF
::Super:CreateForm( .F. )
WITH OBJECT ::oLabelBuddy1 := TLabelBuddy():New( Self )
:SetBounds( 100, 39, 63, 14 )
:cText := "LabelBuddy1"
:oBuddy := ::oMaskEdit1
:Create()
END
WITH OBJECT ::oMaskEdit1 := TMaskEdit():New( Self )
:SetBounds( 180, 36, 90, 20 )
:Create()
END
RETURN Self