paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:19:37 +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;
}
inherited;
{$IFDEF VERSION3ONLY}
if FControl is TRadioButton then begin
{$ELSE}
if FControl is THtmlRadioButton then begin
{$ENDIF}
if Props.BgColor <> -1 then
{$IFDEF VERSION3ONLY}
TRadioButton(FControl).Color := Props.BgColor;
{$ELSE}
THtmlRadioButton(FControl).Color := Props.BgColor;
{$ENDIF}
end;
if (Props.BgColor <> -1) and (
(FControl is {$IFDEF VERSION3ONLY}TRadioButton{$ELSE}THtmlRadioButton{$ENDIF}) or
(FControl is TCustomEdit)) then
FControl.Color := Props.BgColor;
end;
procedure TIpHtmlNodeINPUT.ImageChange(NewPicture: TPicture);