raveens
8-Feb-2017, 09:45 PM
Hi DAW,
We have the following code within the oCommandBarSystem object that works well in DF18.2
The code simply disables the CJThemeBackColor and allows us to apply custom images or colours to the ClientArea - this is especially useful when changing workspaces - for instance from "live" to "testing"/"training" data sets
18.2 Code
// oCommandBarSystem
Procedure OnCreateCommandBars
Variant vTab
Handle hoTab
Forward Send OnCreateCommandBars
Get ComShowTabWorkspace False to vTab
Get Create (RefClass(cCJTabWorkspace)) to hoTab
Set pvComObject of hoTab to vTab
Set ComThemedBackColor of hoTab to False
Send Destroy of hoTab
End_Procedure
However, in DF19.0 when pbTabbedWorkspaces = True the client area is BLACK and you're unable to set/change its colour - it just remains BLACK.
19.0 Code
Set pbTabbedWorkspaces to True
Procedure OnCreateTabbedWorkspace Handle hoTabWorkspace Handle hoTabPaintManager
Set ComThemedBackColor of hoTabWorkspace to False
End_Procedure
Is there a workaround for this?
Thanks
We have the following code within the oCommandBarSystem object that works well in DF18.2
The code simply disables the CJThemeBackColor and allows us to apply custom images or colours to the ClientArea - this is especially useful when changing workspaces - for instance from "live" to "testing"/"training" data sets
18.2 Code
// oCommandBarSystem
Procedure OnCreateCommandBars
Variant vTab
Handle hoTab
Forward Send OnCreateCommandBars
Get ComShowTabWorkspace False to vTab
Get Create (RefClass(cCJTabWorkspace)) to hoTab
Set pvComObject of hoTab to vTab
Set ComThemedBackColor of hoTab to False
Send Destroy of hoTab
End_Procedure
However, in DF19.0 when pbTabbedWorkspaces = True the client area is BLACK and you're unable to set/change its colour - it just remains BLACK.
19.0 Code
Set pbTabbedWorkspaces to True
Procedure OnCreateTabbedWorkspace Handle hoTabWorkspace Handle hoTabPaintManager
Set ComThemedBackColor of hoTabWorkspace to False
End_Procedure
Is there a workaround for this?
Thanks