[Lasse]

When the skin manager is not active TsSlider caption is not drawn correctly on frames with following properties:

Code:

object Slider: TsSlider
SliderCaptionOn = 'Yes'
SliderCaptionOff = 'No'
ContentPlacing = scpBackground
Reversed = True
KeepThumbAspectRatio = False
end

I think this code:

Code:

procedure TsSlider.OurPaint;
begin
…

if not SkinData.Skinned and (ContentPlacing = scpBackground) then
PaintContent(ContentRect, Canvas);
end;
end;

Should be moved here:

Code:

procedure TsSlider.ButtonPaint(Sender: TObject; ACanvas: TCanvas);
…
begin
if CustomImageUsed then begin
…
end
else begin
if not SkinData.Skinned then begin
…
if ContentPlacing = scpBackground then
PaintContent(ContentRect, Canvas);
end;
…
end;
end;

[Support]

I will check it, thank you for the info.

[Author]

Posts