View Issue Details

Jump to Notes
IDProjectCategoryView StatusDate SubmittedLast Update
0011664MMW v4Framework: Scripts/Extensionspublic2013-12-25 10:312013-12-26 00:00
Reporterzvezdan Assigned To 
PrioritynoneSeverityminorReproducibilityalways
Status newResolutionopen 
Product Version4.1 
Target Version4.1.1 
Summary0011664: Skinned Label control has truncated caption after FontBold is set to True
DescriptionLabel control has truncated caption after FontBold is set to True.

Here is the test script:

Option Explicit

Dim lblTest
Dim chkTest

Sub OnStartUp()
    Dim oMenuItem

    Set oMenuItem = SDB.UI.AddMenuItem(SDB.UI.Menu_File, 0, 0)
    oMenuItem.Caption = "Font test"
    oMenuItem.OnClickFunc = "Test"
    oMenuItem.UseScript = Script.ScriptPath
End Sub

Sub Test(oMenuItem)
    Dim oForm
    Dim btnClose
    Dim btnSet
    Dim btnReset

    Set oForm = SDB.UI.NewForm
    oForm.Common.SetRect 100, 100, 350, 130
    oForm.BorderStyle = 3
    oForm.FormPosition = 4
    oForm.Caption = oMenuItem.Caption

    Set lblTest = SDB.UI.NewLabel(oForm)
    lblTest.Common.SetRect 10, 10, 300, 17
    lblTest.Caption = "Font test"

    Set chkTest = SDB.UI.NewCheckBox(oForm)
    chkTest.Common.SetRect 10, 35, 300, 17
    chkTest.Caption = "Font test"

    Set btnSet = SDB.UI.NewButton(oForm)
    btnSet.Caption = SDB.Localize("&Set font")
    btnSet.Common.SetRect 20, 60, 90, 25
    Script.RegisterEvent btnSet, "OnClick", "btnSet_OnClick"

    Set btnReset = SDB.UI.NewButton(oForm)
    btnReset.Caption = SDB.Localize("&Reset font")
    btnReset.Common.SetRect 120, 60, 90, 25
    Script.RegisterEvent btnReset, "OnClick", "btnReset_OnClick"

    Set btnClose = SDB.UI.NewButton(oForm)
    btnClose.Caption = SDB.Localize("&Close")
    btnClose.Common.SetRect 220, 60, 90, 25
    btnClose.Cancel = True
    btnClose.ModalResult = 2

    oForm.showModal
End Sub

Sub btnSet_OnClick()
    lblTest.Common.FontBold = True
    chkTest.Common.FontBold = True
End Sub

Sub btnReset_OnClick()
    lblTest.Common.FontBold = False
    chkTest.Common.FontBold = False
End Sub
TagsNo tags attached.
Fixed in build

Activities

peke

2013-12-26 00:00

developer   ~0039059

Confirmed and assigned for triage.