pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7269 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-01-11 22:31:50 +00:00
parent 01f504ede7
commit 9b9b3fed49
12 changed files with 166 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/jvcllaz/run/JvMM/jvfullcolorctrls.pas
View File

@ -3701,11 +3701,12 @@ end;
procedure TJvFullColorGroup.Paint;
var
Index, IndexX, IndexY, XMaj: Integer;
Index: Integer;
//IndexX, IndexY, XMaj: Integer;
XOffset, YOffset, XInc, YInc: Integer;
X, Y: Integer;
lEdge: TJvFullColorEdge;
lClipRect: TRect;
//lClipRect: TRect;
procedure BevelRect(const R: TRect; Style: TJvFullColorEdge;
FillStyle: TBrushStyle; FillColor: TColor);
@ -3752,7 +3753,7 @@ begin
Y := YOffset;
X := XOffset;
lClipRect := Canvas.ClipRect;
//lClipRect := Canvas.ClipRect;
Index := 0;
while Index < Items.Count do

9
components/jvcllaz/run/JvMM/jvid3v2base.pas
View File

@ -2935,12 +2935,15 @@ begin
(Text = '') and (Description = '');
end;
function HasNonISO_8859_1Chars(const S: WideString): Boolean;
//function HasNonISO_8859_1Chars(const S: WideString): Boolean;
function HasNonISO_8859_1Chars(const S: String): Boolean;
var
I: Integer;
ws: WideString;
begin
for I := 1 to Length(S) do
if Ord(S[I]) > $FF then
ws := UTF8Decode(S);
for I := 1 to Length(ws) do
if Ord(ws[I]) > $FF then
begin
Result := True;
Exit;

1
components/jvcllaz/run/JvMM/jvspecialimage.pas
View File

@ -123,7 +123,6 @@ var
C, C2: TFPColor;
Dest: TBitmap;
Val: Integer;
Tmp: TFPColor;
IntfImg: TLazIntfImage;
begin
if FWorking or (csLoading in ComponentState) or (csDestroying in ComponentState) then