paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-25 04:48:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

TurboPowerIPro: Less hints.

Browse Source 
(cherry picked from commit 92306de965)
This commit is contained in:
wp_xyz 2024-06-01 14:10:04 +02:00 committed by Maxim Ganetsky
parent 587bb18cd1
commit d1f004d8b4
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/turbopower_ipro/iphtml.pas
View File

@ -52,7 +52,7 @@ interface
uses
// LCL
LCLType, LCLIntf,
Types, contnrs, SysUtils, Classes, TypInfo,
Types, contnrs, SysUtils, Classes, TypInfo, Variants,
// LCL
LResources, LMessages, Messages, LCLMemManager,
Graphics, Controls, StdCtrls, ExtCtrls, Buttons, Forms, ClipBrd, Dialogs,
@ -2154,7 +2154,7 @@ function GetPropertyValue(PI: PPropInfo; const AObject: TObject): string;
function GetVariantProperty : string;
begin
Result := AnsiString(GetVariantProp(AObject, PI));
Result := VarToStr(GetVariantProp(AObject, PI));
end;
function GetStringProperty : string;

2
components/turbopower_ipro/iphtmlutils.pas
View File

@ -224,7 +224,7 @@ function TryColorFromString(S: String; out AColor: TColor; out AErrMsg: String):
end;
var
R, G, B, Err: Integer;
R, G, B: Integer;
begin
Result := false;