View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0011663 | MMW v4 | Framework: Scripts/Extensions | public | 2013-12-25 10:26 | 2013-12-26 00:00 |
| Reporter | zvezdan | Assigned To | |||
| Priority | none | Severity | minor | Reproducibility | always |
| Status | new | Resolution | open | ||
| Product Version | 4.1 | ||||
| Target Version | 4.1.1 | ||||
| Summary | 0011663: ISDBUICommon::Fontxx properties cannot be reset | ||||
| Description | If some Font property is set, it cannot be reset. I tried Label and CheckBox controls with FontBold, FontItalic and FontSize. FontColor works fine, i.e it could be set again. 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.FontColor = &h0000ff End Sub Sub btnReset_OnClick() lblTest.Common.FontBold = False chkTest.Common.FontColor = 0 End Sub | ||||
| Tags | No tags attached. | ||||
| Fixed in build | |||||
