paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 01:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Turbopower IPro: Fix bg color for CSS style in TCustomEdit and TRadioButton. Issue #29483, patch from Silvio Clécio.

Browse Source 
git-svn-id: trunk@51430 -
This commit is contained in:
juha 2016-01-27 18:11:53 +00:00
parent a995c27b85
commit 05b537ca3f
1 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/turbopower_ipro/iphtml.pas
View File

@ -11548,18 +11548,10 @@ begin
end; end;
} }
inherited; inherited;
{$IFDEF VERSION3ONLY} if (Props.BgColor <> -1) and (
if FControl is TRadioButton then begin (FControl is {$IFDEF VERSION3ONLY}TRadioButton{$ELSE}THtmlRadioButton{$ENDIF}) or
{$ELSE} (FControl is TCustomEdit)) then
if FControl is THtmlRadioButton then begin FControl.Color := Props.BgColor;
{$ENDIF}
if Props.BgColor <> -1 then
{$IFDEF VERSION3ONLY}
TRadioButton(FControl).Color := Props.BgColor;
{$ELSE}
THtmlRadioButton(FControl).Color := Props.BgColor;
{$ENDIF}
end;
end; end;
procedure TIpHtmlNodeINPUT.ImageChange(NewPicture: TPicture); procedure TIpHtmlNodeINPUT.ImageChange(NewPicture: TPicture);