ZoomPanel does not repaint when using DevEx Skin
Posted: Thu Sep 07, 2017 9:57 am
The SRVDxSkinAdapteк (DrawEditorFrame = True) does not change Srv.BackgroundProperty.ColorBegin ...ColorEnd, but Srv is painted according to DevEx Skin, but the ZoomPanel does not change the background color (because Srv.BackgroundProperty.ColorBegin ...ColorEnd not changed)
To change the background of the ZoomPanel I do the following
...
if Assigned(RootLookAndFeel.SkinPainter) then
begin
AColor := RootLookAndFeel.SkinPainter.DefaultControlColor;
BackgroundProperty.ColorBegin := AColor;
BackgroundProperty.ColorMiddle := AColor;
BackgroundProperty.ColorEnd := AColor;
// but this changes the ZoomPanel background three times (TSRVZoomPanel.Paint)
end;
...
What is the best way to change ZoomPanel background color - ?
To change the background of the ZoomPanel I do the following
...
if Assigned(RootLookAndFeel.SkinPainter) then
begin
AColor := RootLookAndFeel.SkinPainter.DefaultControlColor;
BackgroundProperty.ColorBegin := AColor;
BackgroundProperty.ColorMiddle := AColor;
BackgroundProperty.ColorEnd := AColor;
// but this changes the ZoomPanel background three times (TSRVZoomPanel.Paint)
end;
...
What is the best way to change ZoomPanel background color - ?